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