proxmox-mirrors/pve-manager
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-manager synced 2025-08-09 20:51:06 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

add changelog url to package info

Browse Source
This commit is contained in:
Dietmar Maurer 2013-06-13 07:53:31 +02:00
parent b9065f4d97
commit 00d48356de
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
PVE/API2/APT.pm
View File

@ -70,11 +70,29 @@ __PACKAGE__->register_method({
my $assemble_pkginfo = sub { my $assemble_pkginfo = sub {
my ($pkgname, $info, $current_ver, $candidate_ver) = @_; my ($pkgname, $info, $current_ver, $candidate_ver) = @_;
my $changelog_url;
foreach my $verfile (@{$candidate_ver->{FileList}}) {
my $pkgfile = $verfile->{File};
my $origin = $pkgfile->{Origin};
my $comp = $pkgfile->{Component};
if ($origin && $comp) {
my $pkgver = $candidate_ver->{VerStr};
my $firstLetter = substr($pkgname, 0, 1);
if ($origin eq 'Debian') {
$changelog_url = "http://packages.debian.org/changelogs/pool/main/" .
"$firstLetter/$pkgname/${pkgname}_$pkgver/changelog";
}
last;
}
}
my $data = { my $data = {
Package => $info->{Name}, Package => $info->{Name},
Title => $info->{ShortDesc}, Title => $info->{ShortDesc},
}; };
$data->{ChangeLogUrl} = $changelog_url if $changelog_url;
if (my $desc = $info->{LongDesc}) { if (my $desc = $info->{LongDesc}) {
$desc =~ s/^.*\n\s?//; # remove first line $desc =~ s/^.*\n\s?//; # remove first line
$desc =~ s/\n / /g; $desc =~ s/\n / /g;