protected function removeResults()
 {
     $report = new \common_report_Report(\common_report_Report::TYPE_SUCCESS);
     try {
         // results rds
         $rdsStorage = new RdsResultStorage();
         $deliveryIds = $rdsStorage->getAllDeliveryIds();
         $count = 0;
         foreach ($deliveryIds as $deliveryId) {
             if ($rdsStorage->deleteResult($deliveryId['deliveryResultIdentifier'])) {
                 $count++;
             } else {
                 $report->setType(\common_report_Report::TYPE_ERROR);
                 $report->setMessage('Cannot cleanup results for ' . $deliveryId['deliveryResultIdentifier']);
             }
         }
         $report->setMessage('Removed ' . $count . ' on ' . count($deliveryIds) . ' RDS results');
         // results redis
         try {
             $keyValuePersistence = \common_persistence_KeyValuePersistence::getPersistence('keyValueResult');
         } catch (\common_Exception $e) {
             $keyValuePersistence = null;
         }
         if (!is_null($keyValuePersistence)) {
             $kvStorage = new \taoAltResultStorage_models_classes_KeyValueResultStorage();
             $deliveryIds = $kvStorage->getAllDeliveryIds();
             $count = 0;
             foreach ($deliveryIds as $deliveryId) {
                 if ($kvStorage->deleteResult($deliveryId['deliveryResultIdentifier'])) {
                     $count++;
                 } else {
                     $report->setType(\common_report_Report::TYPE_ERROR);
                     $report->setMessage('Cannot cleanup results for ' . $deliveryId['deliveryResultIdentifier']);
                 }
             }
             $report->setMessage('Removed ' . $count . ' on ' . count($deliveryIds) . ' Key Value results');
         }
     } catch (\common_Exception $e) {
         $report->setType(\common_report_Report::TYPE_ERROR);
         $report->setMessage('Cannot cleanup Results: ' . $e->getMessage());
     }
     $this->finalReport->add($report);
 }
 * Copyright (c) 2002-2008 (original work) Public Research Centre Henri Tudor & University of Luxembourg (under the project TAO & TAO2);
 *               2008-2010 (update and modification) Deutsche Institut für Internationale Pädagogische Forschung (under the project TAO-TRANSFER);
 *               2009-2012 (update and modification) Public Research Centre Henri Tudor (under the project TAO-SUSTAIN & TAO-DEV);
 * 
 */
require_once dirname(__FILE__) . '/../includes/raw_start.php';
//output regarding the context
function out($msg = '')
{
    print $msg;
    print PHP_SAPI == 'cli' ? "\n" : "<br />";
}
out();
out("Running " . basename(__FILE__));
$prefix = 'callIdVariables';
$keyValueStorage = new taoAltResultStorage_models_classes_KeyValueResultStorage();
//retrieve all keys
$keys = common_persistence_KeyValuePersistence::getPersistence('keyValueResult')->keys($prefix . '*');
foreach ($keys as $callId) {
    $callId = str_replace($prefix, '', $callId);
    out("----- Call ID -----" . $callId);
    $variable = $keyValueStorage->getVariables($callId);
    foreach ($variable as $variableIdentifier => $data) {
        out("* Variable:\t" . $variableIdentifier);
        out("* payload size:\t" . strlen($data));
        //out("* payload :\t". $data);
    }
    //print_r(common_persistence_KeyValuePersistence::getPersistence('keyValueResult')->get($callId));
}
$prefix = 'resultsTestTaker';
$keys = common_persistence_KeyValuePersistence::getPersistence('keyValueResult')->keys($prefix . '*');