Proxmox/pve-manager
5
0
Fork 0
Code Pull Requests Releases Activity

vzdump: example hook script: avoid undef warnings

Browse Source 
Some environment variables are undef in certain scenarios.

Signed-off-by: Fabian Ebner <f.ebner@proxmox.com>
This commit is contained in:
Fabian Ebner 2022-01-17 12:35:58 +01:00 committed by Fabian Grünbichler
parent 831f991aeb
commit fd12db5bb6
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
vzdump-hook-script.pl
View File

@ -15,11 +15,16 @@ if ($phase eq 'job-start' ||
$phase eq 'job-end' || $phase eq 'job-end' ||
$phase eq 'job-abort') { $phase eq 'job-abort') {
# undef for Proxmox Backup Server storages
my $dumpdir = $ENV{DUMPDIR}; my $dumpdir = $ENV{DUMPDIR};
# undef when --dumpdir is used directly
my $storeid = $ENV{STOREID}; 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";
# do what you want # do what you want
@ -37,8 +42,10 @@ if ($phase eq 'job-start' ||
my $vmtype = $ENV{VMTYPE}; # lxc/qemu my $vmtype = $ENV{VMTYPE}; # lxc/qemu
# undef for Proxmox Backup Server storages
my $dumpdir = $ENV{DUMPDIR}; my $dumpdir = $ENV{DUMPDIR};
# undef when --dumpdir is used directly
my $storeid = $ENV{STOREID}; my $storeid = $ENV{STOREID};
my $hostname = $ENV{HOSTNAME}; my $hostname = $ENV{HOSTNAME};
@ -47,9 +54,14 @@ if ($phase eq 'job-start' ||
my $target = $ENV{TARGET}; my $target = $ENV{TARGET};
# logfile is only available in phase 'log-end' # logfile is only available in phase 'log-end'
# undef for Proxmox Backup Server storages
my $logfile = $ENV{LOGFILE}; my $logfile = $ENV{LOGFILE};
print "HOOK-ENV: vmtype=$vmtype;dumpdir=$dumpdir;storeid=$storeid;hostname=$hostname;target=$target;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 # example: copy resulting backup file to another host using scp
if ($phase eq 'backup-end') { if ($phase eq 'backup-end') {