www.RobertoCespa.com

#XEN Server machine back, Jeremy Tirrell for Commercial Solutions INC 2009
#minor changes by Roberto Cespa

$backupdir = "/mnt/offsite/XenBackup/";                                #Directory to backup to, this should be nfs share or something large.
#mail notification setup
$mailNotification = true;                                        #false for no notifcaiton
$mailScript = "/usr/local/scripts/sendEmail";                        #Brandon Zehm - Change "server" to point to smtp server
$MailTo = "address\@example.com";                                #mail to
$MailFrom = "SomeOtherAddress\@example.com";                            #mail from
$host = "Xen1 XenServer";                                    #Descriptive name
#Setup Strings
$Message = " \"XEN Backup Notification\n";                    #header of message
$MailString = $mailScript . " -f " . $MailFrom . " -t " . $MailTo;        #mail string to control string passed to sendEmail
$TopicHeader = "[".$host ." XEN Server Backup Script] ";            #Subject.
$Topic = "";

#add chunks of uuid to skip backing up of a specifc vm
#control domain (dom0) should be added to this list!!
@skip = ('3a720810-a2fc-4025-97f1-860a1c9b6357','77822415-4e6b-46f6-bd82-821b2c1401c3','dce8ea94-c7d8-41e6-9232-630a27ab3b16');

$vmlist = `xe vm-list`;                                                         #Get the formatted list of guests
@lineList = split(/\n/,$vmlist);                                               #Split the list of guests into and array of lines
@uuid = ();                                                                         #Array to store uuid's in

foreach $line(@lineList){                                        #for each line in the array
if (substr($line,0,4) eq "uuid"){                                #look for the word uuid at the beginning of the line
push(@uuid, substr($line,23,36));                            #if its there add the uuid to the array
}
}

#@uuid=('116409d7-61b0-67a0-dbff-709e93053e00');
$tcurrent = `date`;                                            #get the current date
print("Beginning backup of virtual machines at ". $tcurrent);
$Message .= "Beginning backup of virtual machines at ". $tcurrent."\n";

foreach $guest(@uuid){                                        #for each guest listed in the uuid list
if (grep $_ eq $guest, @skip){                                #is guest on the skip list?
print("Skipping backup of: ".$guest ."\n");                    #yes so just let it be known it is being skipped
$Message .= "Skipping backup of: ".$guest ."\n";
} else {                                                    #otherwise
$tcurrent = `date`;                                                                #get the current date
$VMName = `xe vm-list uuid=$guest | grep name-label | cut -b24-`;
$VMName=~ s/\n//g;
$VMName=~ s/\r//g;
$VMName =~ s/ /_/g;

print("Beginning backup of ".$guest ." @ ". $tcurrent);
$Message .= "Beginning backup of ".$guest ." @ ". $tcurrent."\n";
print("Taking a snapshot of: ".$guest ."\n");                    #Snapshot the VM
$Message .= "Taking a snapshot of: ". $guest ."\n";

$snapshotUUID= `xe vm-snapshot vm=$guest new-name-label=$VMName-backup_vm`;
$snapshotUUID=~ s/\n//g;                                    #remove the carrier return/linefeed
$snapshotUUID=~ s/\r//g;
print("Snapshot: ".$snapshotUUID." created\n");

$Message .= "Snapshot: ".$snapshotUUID." created\n";

print("turning ".$snapshotUUID ." snapshot into a vm\n");        #Turn snapshot into a VM
$Message .= "turning ".$snapshotUUID ." snapshot into a vm\n";
$status= `xe template-param-set is-a-template=false ha-always-run=false uuid=$snapshotUUID`;
print($status."\n");
$Message .= $status."\n";

$fdate = `date +%y%m%d-%H%M`;
$fdate=~ s/\n//g;                                    #get the current date in a format we can write
$fdate=~ s/\r//g;                                    #get the current date in a format we can write

print("Exporting: ".$snapshotUUID."\n");                        #export the snapshot
$Message .= "Exporting: ".$snapshotUUID."\n";
$exportstring = $backupdir.$VMName."-".$fdate.".xvatmp";
$finalname = $backupdir.$VMName.".xva";
print("Name: $exportstring - $finalname\n");

$status= `xe vm-export vm=$snapshotUUID filename=$exportstring`;
print($status."\n");
$Message .= $status."\n";

print("Renaming backup file so that CrashPlan can backup it\n");
$status= `mv -vf $exportstring $finalname`;
print($status."\n");
$Message .= $status."\n";

print("Done, Removing snapshot: ".$snapshotUUID."\n");            #Done, remove the snapshot
$Message .= "Done, Removing snapshot: ".$snapshotUUID."\n";
$status= `xe vm-uninstall uuid=$snapshotUUID  force=true`;
print($status."\n");
$Message .= $status."\n";

$tcurrent = `date`;                                                           #get the current date
print("Completed backup of ".$guest ." @ ". $tcurrent);

$Message .= "Completed backup of ".$guest ." @ ". $tcurrent."\n";

}

}

$tfinished = `date`;
print("Backup completed at ".$tfinished);
$Message .= "Backup completed at ".$tfinished."\n\"";

if ($mailNotification){
system($MailString . " -u " . $TopicHeader . $Topic ." -m " . $Message);
}