]>
git.proxmox.com Git - pve-manager.git/blob - PVE/APLInfo.pm
6105f44756b567d94098b6a295e17e795ad084f5
8 use POSIX
qw(strftime);
10 my $logfile = "/var/log/pveam.log";
11 my $aplinfodir = "/var/lib/pve-manager/apl-info";
14 my ($logfd, $msg) = @_;
18 my $tstr = strftime
("%b %d %H:%M:%S", localtime);
20 foreach my $line (split (/\n/, $msg)) {
21 print $logfd "$tstr $line\n";
25 sub read_aplinfo_from_fh
{
26 my ($fh, $list, $source, $update) = @_;
30 while (my $rec = <$fh>) {
37 if ($rec =~ s/^Description:\s*([^\n]*)(\n\s+.*)*$//si) {
38 $res->{headline
} = $1;
43 $res->{description
} = $long;
44 } elsif ($rec =~ s/^Version:\s*(.*\S)\s*\n//i) {
46 if ($version =~ m/^(\d[a-zA-Z0-9\.\+\-\:\~]*)(-(\d+))?$/) {
47 $res->{version
} = $version;
49 my $msg = "unable to parse appliance record: version = '$version'\n";
50 $update ?
die $msg : warn $msg;
52 } elsif ($rec =~ s/^Type:\s*(.*\S)\s*\n//i) {
54 if ($type =~ m/^(openvz|lxc)$/) {
57 my $msg = "unable to parse appliance record: unknown type '$type'\n";
58 $update ?
die $msg : warn $msg;
60 } elsif ($rec =~ s/^([^:]+):\s*(.*\S)\s*\n//) {
63 my $msg = "unable to parse appliance record: $rec\n";
64 $update ?
die $msg : warn $msg;
70 if ($res->{'package'} eq 'pve-web-news' && $res->{description
}) {
71 $list->{'all'}->{$res->{'package'}} = $res;
75 $res->{section
} = 'unknown' if !$res->{section
};
77 if ($res->{'package'} && $res->{type
} && $res->{os
} && $res->{version
} &&
80 if ($res->{location
}) {
81 $template = $res->{location
};
82 $template =~ s
|.*/([^/]+.tar
.[gx
]z
)$|$1|;
83 if ($res->{location
} !~ m
|^([a-zA-Z
]+)\
://|) {
84 # relative localtion (no http:// prefix)
85 $res->{location
} = "$source/$res->{location}";
88 my $arch = $res->{architecture
} || 'i386';
89 $template = "$res->{os}-$res->{package}_$res->{version}_$arch.tar.gz";
90 $template =~ s/$res->{os}-$res->{os}-/$res->{os}-/;
91 $res->{location
} = "$source/$res->{section}/$template";
93 $res->{source
} = $source;
94 $res->{template
} = $template;
95 $list->{$res->{section
}}->{$template} = $res;
96 $list->{'all'}->{$template} = $res;
98 my $msg = "found incomplete appliance records\n";
99 $update ?
die $msg : warn $msg;
105 my ($filename, $list, $source, $update) = @_;
107 my $fh = IO
::File-
>new("<$filename") ||
108 die "unable to open file '$filename' - $!\n";
110 eval { read_aplinfo_from_fh
($fh, $list, $source, $update); };
121 my ($ua, $url, $file, $logfh) = @_;
123 my $req = HTTP
::Request-
>new(GET
=> $url);
125 logmsg
($logfh, "start download $url");
126 my $res = $ua->request($req, $file);
128 if ($res->is_success) {
129 logmsg
($logfh, "download finished: " . $res->status_line);
133 logmsg
($logfh, "download failed: " . $res->status_line);
138 sub download_aplinfo
{
139 my ($ua, $aplurl, $host, $logfd) = @_;
141 my $aplsrcurl = "$aplurl/aplinfo.dat.gz";
142 my $aplsigurl = "$aplurl/aplinfo.dat.asc";
144 my $tmp = "$aplinfodir/pveam-${host}.tmp.$$";
145 my $tmpgz = "$tmp.gz";
146 my $sigfn = "$tmp.asc";
150 if (url_get
($ua, $aplsigurl, $sigfn, $logfd) != 0) {
151 die "update failed - no signature file '$sigfn'\n";
154 if (url_get
($ua, $aplsrcurl, $tmpgz, $logfd) != 0) {
155 die "update failed - no data file '$aplsrcurl'\n";
159 PVE
::Tools
::run_command
(["gunzip", "-f", $tmpgz]);
161 die "update failed: unable to unpack '$tmpgz'\n" if $@;
166 my $trustedkeyring = "/usr/share/doc/pve-manager/trustedkeys.gpg";
167 my $cmd = "/usr/bin/gpgv -q --keyring $trustedkeyring $sigfn $tmp";
172 logmsg
($logfd, "signature verification: $line");
175 PVE
::Tools
::run_command
($cmd,
177 errfunc
=> $logfunc);
179 die "unable to verify signature - $@\n" if $@;
183 read_aplinfo
($tmp, {}, $aplurl, 1);
185 die "update failed: $@" if $@;
187 if (!rename($tmp, "$aplinfodir/$host")) {
188 die "update failed: unable to store data\n";
191 logmsg
($logfd, "update sucessful");
203 sub get_apl_sources
{
206 push @$urls, "http://download.proxmox.com/images";
207 push @$urls, "https://releases.turnkeylinux.org/pve";
216 if (($size = (-s
$logfile) || 0) > (1024*50)) {
217 rename($logfile, "$logfile.0");
219 my $logfd = IO
::File-
>new (">>$logfile");
220 logmsg
($logfd, "starting update");
222 my $ua = LWP
::UserAgent-
>new;
223 $ua->agent("PVE/1.0");
226 $ua->proxy(['http', 'https'], $proxy);
231 my $urls = get_apl_sources
();
236 foreach my $aplurl (@$urls) {
238 my $uri = URI-
>new($aplurl);
239 my $host = $uri->host();
240 download_aplinfo
($ua, $aplurl, $host, $logfd);
243 logmsg
($logfd, $err);
244 push @dlerr, $aplurl;
250 return 0 if scalar(@dlerr);
257 my $urls = get_apl_sources
();
261 foreach my $aplurl (@$urls) {
265 my $uri = URI-
>new($aplurl);
266 my $host = $uri->host();
267 read_aplinfo
("$aplinfodir/$host", $list, $aplurl);