]> git.proxmox.com Git - pve-manager.git/blobdiff - PVE/APLInfo.pm
aplinfo: code cleanup
[pve-manager.git] / PVE / APLInfo.pm
index 021b18a2e6c2f9d50d3a41d461ddc17570b19289..d3567e7e1a62c63ab0131aeb93717f4be8b97c6f 100644 (file)
@@ -2,11 +2,13 @@ package PVE::APLInfo;
 
 use strict;
 use warnings;
+
 use IO::File;
-use PVE::SafeSyslog;
-use PVE::Tools;
 use LWP::UserAgent;
 use POSIX qw(strftime);
+
+use PVE::SafeSyslog;
+use PVE::Tools qw(run_command);
 use PVE::pvecfg;
 
 my $logfile = "/var/log/pveam.log";
@@ -157,38 +159,25 @@ sub download_aplinfo {
            die "update failed - no data file '$aplsrcurl'\n";
        }
  
-       eval {
-           PVE::Tools::run_command(["gunzip", "-f", $tmpgz]);
-       };
+       eval { run_command(["gunzip", "-f", $tmpgz]) };
        die "update failed: unable to unpack '$tmpgz'\n" if $@;
 
-
-
        # verify signature
        my $trustedkeyring = "/usr/share/doc/pve-manager/trustedkeys.gpg";
        my $cmd = "/usr/bin/gpgv -q --keyring $trustedkeyring $sigfn $tmp";
 
+       my $logfunc = sub { logmsg($logfd, "signature verification: $_[0]"); };
        eval {
-           my $logfunc = sub {
-               my $line = shift;
-               logmsg($logfd, "signature verification: $line");
-           };
-
-           PVE::Tools::run_command($cmd,
-                                   outfunc => $logfunc,
-                                   errfunc => $logfunc);
+           run_command($cmd, outfunc => $logfunc, errfunc => $logfunc);
        };
        die "unable to verify signature - $@\n" if $@;
 
        # test syntax
-       eval { 
-           read_aplinfo($tmp, {}, $aplurl, 1);
-       };
+       eval { read_aplinfo($tmp, {}, $aplurl, 1) };
        die "update failed: $@" if $@;
 
-       if (!rename($tmp, "$aplinfodir/$host")) {
-           die "update failed: unable to store data\n";
-       }
+       rename($tmp, "$aplinfodir/$host") or
+           die "update failed: unable to store data: $!\n";
 
        logmsg($logfd, "update successful");
     };