sample to show domain cloning

Author: gecampbell

samples/dns/clone.php

@@ -0,0 +1,45 @@
+<?php
+// (c)2012 Rackspace Hosting
+// See COPYING for licensing information
+
+require_once "php-opencloud.php";
+
+// set this to the name of the domain to export
+define('EXPORT_DOMAIN', 'fipplefippleraxdrg.info');
+
+define('AUTHURL', RACKSPACE_US);
+define('USERNAME', $_ENV['OS_USERNAME']);
+define('TENANT', $_ENV['OS_TENANT_NAME']);
+define('APIKEY', $_ENV['NOVA_API_KEY']);
+
+// establish our credentials
+$cloud = new \OpenCloud\Rackspace(AUTHURL,
+	array( 'username' => USERNAME,
+		   'apiKey' => APIKEY ));
+
+// uncomment to turn on debugging
+//setDebug(TRUE);
+
+$dns = $cloud->DNS();
+$dlist = $dns->DomainList(array('name'=>EXPORT_DOMAIN));
+while($domain = $dlist->Next()) {
+	printf("Cloning %s\n", $domain->Name());
+	//setDebug(TRUE);
+	$resp = $domain->CloneDomain('NEWDOMAIN.IO');
+	//setDebug(FALSE);
+	$resp->WaitFor('COMPLETED', 300, 'ShowStatus', 1);
+	// check result
+	if ($resp->Status() == 'ERROR')
+		printf("Error code [%d] message [%s]\nDetails: [%s]\n",
+			$resp->error->code, $resp->error->message, $resp->error->details);
+	else if ($resp->Status() != 'COMPLETED')
+		printf("Unable to wait longer. Sorry.\n");
+	exit;
+}
+
+exit;
+
+// callback function for WaitFor
+function ShowStatus($obj) {
+	printf("%s - %s\n", $obj->Name(), $obj->Status());
+}