* numbers each step */ function step($msg, $p1 = NULL, $p2 = NULL, $p3 = NULL) { global $STEPCOUNTER; printf("\nStep %d. %s\n", ++$STEPCOUNTER, sprintf($msg, $p1, $p2, $p3)); } function info($msg, $p1 = NULL, $p2 = NULL, $p3 = NULL, $p4 = NULL, $p5 = NULL) { printf(" %s\n", sprintf($msg, $p1, $p2, $p3, $p4, $p5)); } define('TIMEFORMAT', 'r'); step('Authenticate'); $rackspace = new \OpenCloud\Rackspace(AUTHURL, array('username' => USERNAME, 'apiKey' => APIKEY)); step('Connect to the Load Balancer Service'); $lbservice = $rackspace->LoadBalancerService('cloudLoadBalancers', 'DFW'); // allowed domains $adlist = $lbservice->AllowedDomainList(); while ($ad = $adlist->Next()) { info('Allowed domain: [%s]', $ad->Name()); } // protocols info('Protocols:'); $prolist = $lbservice->ProtocolList(); while ($prot = $prolist->Next()) { info(' %s %4d', substr($prot->Name() . '.....................', 0, 20), $prot->port); } // algorithms info('Algorithms:'); $alist = $lbservice->AlgorithmList(); while ($al = $alist->Next()) {
step('Deleting the test network(s)'); $list = $cloudservers->NetworkList(); while ($network = $list->Next()) { info('Deleting: %s %s', $network->id, $network->label); try { $network->Delete(); } catch (OpenCloud\Common\Exceptions\DeleteError $e) { info('---Cannot delete'); } } step('Connect to CBS'); $cbs = $rackspace->VolumeService('cloudBlockStorage', MYREGION); step('Connect to Cloud Files'); $files = $rackspace->ObjectStore('cloudFiles', MYREGION); step('Connect to Cloud Load Balancers'); $lbservice = $rackspace->LoadBalancerService('cloudLoadBalancers', MYREGION); step('Deleting snapshots'); $list = $cbs->SnapshotList(); while ($snap = $list->Next()) { if ($snap->Status() == 'error' || $snap->Status() == 'available') { info('Deleting snapshot [%s] %s', $snap->id, $snap->Name()); $snap->Delete(); } else { info('[%s] %s status is %s', $snap->id, $snap->Name(), $snap->Status()); } } step('Deleting objects'); $list = $files->ContainerList(); while ($container = $list->Next()) { info('Container: %s', $container->Name()); $objlist = $container->ObjectList();