X-Git-Url: https://git.proxmox.com/?a=blobdiff_plain;f=vzdump-hook-script.pl;h=4d530cef47a558dbb1b05720748c8bad0872bfd5;hb=7e7e2dc42102fcac8f5147d34af63e5dd13ab1ee;hp=b03fdc2dff4c1404d060e7d405cb80ade345b06c;hpb=28272ca2c53fbd52b35feb92684a1fc29149e75d;p=pve-manager.git

diff --git a/vzdump-hook-script.pl b/vzdump-hook-script.pl
index b03fdc2d..4d530cef 100755
--- a/vzdump-hook-script.pl
+++ b/vzdump-hook-script.pl
@@ -1,6 +1,9 @@
 #!/usr/bin/perl -w
 
-# example hook script for vzdump (--script option)
+# Example hook script for vzdump (--script option)
+# This can also be added as a line in /etc/vzdump.conf
+# e.g. 'script: /usr/local/bin/vzdump-hook-script.pl'
+
 
 use strict;
 
@@ -8,57 +11,80 @@ print "HOOK: " . join (' ', @ARGV) . "\n";
 
 my $phase = shift;
 
-if ($phase eq 'job-start' || 
-    $phase eq 'job-end'  || 
-    $phase eq 'job-abort') { 
+if ($phase eq 'job-init' ||
+    $phase eq 'job-start' ||
+    $phase eq 'job-end'  ||
+    $phase eq 'job-abort') {
 
+    # undef for Proxmox Backup Server storages
+    # undef in phase 'job-init' except when --dumpdir is used directly
     my $dumpdir = $ENV{DUMPDIR};
 
+    # undef when --dumpdir is used directly
     my $storeid = $ENV{STOREID};
 
-    print "HOOK-ENV: dumpdir=$dumpdir;storeid=$storeid\n";
+    print "HOOK-ENV: ";
+    print "dumpdir=$dumpdir;" if defined($dumpdir);
+    print "storeid=$storeid;" if defined($storeid);
+    print "\n";
+
+    # example: wake up remote storage node and enable storage
+    if ($phase eq 'job-init') {
+	#system("wakeonlan AA:BB:CC:DD:EE:FF");
+	#sleep(30);
+	#system ("/sbin/pvesm set $storeid --disable 0") == 0 ||
+	#    die "enabling storage $storeid failed";
+    }
 
-    # do what you want 
+    # do what you want
 
-} elsif ($phase eq 'backup-start' || 
+} elsif ($phase eq 'backup-start' ||
 	 $phase eq 'backup-end' ||
-	 $phase eq 'backup-abort' || 
-	 $phase eq 'log-end' || 
+	 $phase eq 'backup-abort' ||
+	 $phase eq 'log-end' ||
 	 $phase eq 'pre-stop' ||
-	 $phase eq 'pre-restart') {
+	 $phase eq 'pre-restart' ||
+	 $phase eq 'post-restart') {
 
     my $mode = shift; # stop/suspend/snapshot
 
     my $vmid = shift;
 
-    my $vmtype = $ENV{VMTYPE}; # openvz/qemu
+    my $vmtype = $ENV{VMTYPE}; # lxc/qemu
 
+    # undef for Proxmox Backup Server storages
     my $dumpdir = $ENV{DUMPDIR};
 
+    # undef when --dumpdir is used directly
     my $storeid = $ENV{STOREID};
 
     my $hostname = $ENV{HOSTNAME};
 
-    # tarfile is only available in phase 'backup-end'
-    my $tarfile = $ENV{TARFILE};
+    # target is only available in phase 'backup-end'
+    my $target = $ENV{TARGET};
 
     # logfile is only available in phase 'log-end'
-    my $logfile = $ENV{LOGFILE}; 
+    # undef for Proxmox Backup Server storages
+    my $logfile = $ENV{LOGFILE};
 
-    print "HOOK-ENV: vmtype=$vmtype;dumpdir=$dumpdir;storeid=$storeid;hostname=$hostname;tarfile=$tarfile;logfile=$logfile\n";
+    print "HOOK-ENV: ";
+    for my $var (qw(vmtype dumpdir storeid hostname target logfile)) {
+	print "$var=$ENV{uc($var)};" if defined($ENV{uc($var)});
+    }
+    print "\n";
 
     # example: copy resulting backup file to another host using scp
     if ($phase eq 'backup-end') {
-    	#system ("scp $tarfile backup-host:/backup-dir") == 0 ||
-    	#    die "copy tar file to backup-host failed";
+        #system ("scp $target backup-host:/backup-dir") == 0 ||
+        #    die "copy tar file to backup-host failed";
     }
 
     # example: copy resulting log file to another host using scp
     if ($phase eq 'log-end') {
-    	#system ("scp $logfile backup-host:/backup-dir") == 0 ||
-    	#    die "copy log file to backup-host failed";
+        #system ("scp $logfile backup-host:/backup-dir") == 0 ||
+        #    die "copy log file to backup-host failed";
     }
-    
+
 } else {
 
     die "got unknown phase '$phase'";