]>
Commit | Line | Data |
---|---|---|
9ff497a9 DM |
1 | #!/usr/bin/perl -w |
2 | ||
85cf35f8 HR |
3 | # Example hook script for vzdump (--script option) |
4 | # This can also be added as a line in /etc/vzdump.conf | |
5 | # e.g. 'script: /usr/local/bin/vzdump-hook-script.pl' | |
6 | ||
9ff497a9 DM |
7 | |
8 | use strict; | |
9 | ||
10 | print "HOOK: " . join (' ', @ARGV) . "\n"; | |
11 | ||
12 | my $phase = shift; | |
13 | ||
cf24dc48 HR |
14 | if ($phase eq 'job-start' || |
15 | $phase eq 'job-end' || | |
16 | $phase eq 'job-abort') { | |
9ff497a9 | 17 | |
28272ca2 DM |
18 | my $dumpdir = $ENV{DUMPDIR}; |
19 | ||
20 | my $storeid = $ENV{STOREID}; | |
21 | ||
22 | print "HOOK-ENV: dumpdir=$dumpdir;storeid=$storeid\n"; | |
23 | ||
cf24dc48 | 24 | # do what you want |
9ff497a9 | 25 | |
cf24dc48 | 26 | } elsif ($phase eq 'backup-start' || |
9ff497a9 | 27 | $phase eq 'backup-end' || |
cf24dc48 HR |
28 | $phase eq 'backup-abort' || |
29 | $phase eq 'log-end' || | |
9ff497a9 | 30 | $phase eq 'pre-stop' || |
d5047243 FG |
31 | $phase eq 'pre-restart' || |
32 | $phase eq 'post-restart') { | |
9ff497a9 DM |
33 | |
34 | my $mode = shift; # stop/suspend/snapshot | |
35 | ||
36 | my $vmid = shift; | |
37 | ||
971e4bb1 | 38 | my $vmtype = $ENV{VMTYPE}; # lxc/qemu |
9ff497a9 DM |
39 | |
40 | my $dumpdir = $ENV{DUMPDIR}; | |
41 | ||
ff00abe6 LU |
42 | my $storeid = $ENV{STOREID}; |
43 | ||
9ff497a9 DM |
44 | my $hostname = $ENV{HOSTNAME}; |
45 | ||
46 | # tarfile is only available in phase 'backup-end' | |
47 | my $tarfile = $ENV{TARFILE}; | |
48 | ||
49 | # logfile is only available in phase 'log-end' | |
cf24dc48 | 50 | my $logfile = $ENV{LOGFILE}; |
9ff497a9 | 51 | |
28272ca2 | 52 | print "HOOK-ENV: vmtype=$vmtype;dumpdir=$dumpdir;storeid=$storeid;hostname=$hostname;tarfile=$tarfile;logfile=$logfile\n"; |
9ff497a9 DM |
53 | |
54 | # example: copy resulting backup file to another host using scp | |
55 | if ($phase eq 'backup-end') { | |
cf24dc48 HR |
56 | #system ("scp $tarfile backup-host:/backup-dir") == 0 || |
57 | # die "copy tar file to backup-host failed"; | |
9ff497a9 DM |
58 | } |
59 | ||
60 | # example: copy resulting log file to another host using scp | |
61 | if ($phase eq 'log-end') { | |
cf24dc48 HR |
62 | #system ("scp $logfile backup-host:/backup-dir") == 0 || |
63 | # die "copy log file to backup-host failed"; | |
9ff497a9 | 64 | } |
cf24dc48 | 65 | |
9ff497a9 DM |
66 | } else { |
67 | ||
68 | die "got unknown phase '$phase'"; | |
69 | ||
70 | } | |
71 | ||
72 | exit (0); |