webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-27 19:23:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Pakfire Update.

Browse Source 
git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@733 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
ms
2007-08-05 17:15:33 +00:00
parent 71430cf631
commit e3670217a2
7 changed files with 101 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
src/pakfire/lib/functions.pl
View File

@@ -214,8 +214,19 @@ sub getmirrors {
logger("MIRROR: Trying to get a mirror list.");
fetchfile("$Conf::version/lists/server-list.db", "$Conf::mainserver");
move("$Conf::cachedir/server-list.db", "$Conf::dbdir/lists/server-list.db");
if ( -e "$Conf::dbdir/lists/server_list.db" ) {
my @stat = stat("$Conf::dbdir/lists/server_list.db");
my $time = time();
$age = $time - $stat[9];
} else {
# Force an update.
$age = "86401";
}
if ("$age" gt "86400") {
fetchfile("$Conf::version/lists/server-list.db", "$Conf::mainserver");
move("$Conf::cachedir/server-list.db", "$Conf::dbdir/lists/server-list.db");
}
}
sub selectmirror {
@@ -346,7 +357,12 @@ sub dblist {
if ("$forweb" eq "forweb") {
print "<option value=\"$name\">Update: $name -- Version: $version -> $templine[1] -- Release: $release -> $templine[2]</option>\n";
} else {
print "Update: $name\nVersion: $version -> $templine[1]\nRelease: $release -> $templine[2]\n\n";
my $command = "Update: $name\nVersion: $version -> $templine[1]\nRelease: $release -> $templine[2]\n";
if ("$Pakfire::enable_colors" eq "1") {
print "$color{'lila'}$command$color{'normal'}\n";
} else {
print "$command\n";
}
}
}
}
@@ -354,9 +370,13 @@ sub dblist {
return @updatepaks;
} else {
my $line;
my $use_color;
my @templine;
my $count;
foreach $line (sort @db) {
next unless ($line =~ /.*;.*;.*;/ );
$use_color = "";
$count++;
@templine = split(/\;/,$line);
if ("$filter" eq "notinstalled") {
next if ( -e "$Conf::dbdir/installed/meta-$templine[0]" );
@@ -366,9 +386,17 @@ sub dblist {
if ("$forweb" eq "forweb") {
print "<option value=\"$templine[0]\">$templine[0]-$templine[1]-$templine[2]</option>\n";
} else {
print "Name: $templine[0]\nProgVersion: $templine[1]\nRelease: $templine[2]\n\n";
if ("$Pakfire::enable_colors" eq "1") {
if (&isinstalled("$templine[0]")) {
$use_color = "$color{'red'}"
} else {
$use_color = "$color{'green'}"
}
}
print "${use_color}Name: $templine[0]\nProgVersion: $templine[1]\nRelease: $templine[2]$color{'normal'}\n\n";
}
}
print "$count packages total.\n" unless ("$forweb" eq "forweb");
}
}

17
src/pakfire/pakfire
View File

@@ -163,7 +163,6 @@
my @paks;
my $pak;
foreach $pak (@ARGV) {
unless ("$pak" =~ "^-") {
$return = &Pakfire::isinstalled($pak);
@@ -171,9 +170,7 @@
&Pakfire::message("PAKFIRE WARN: $pak is not installed");
next;
}
push(@paks, $pak);
}
}
@@ -208,14 +205,11 @@
} elsif ("$ARGV[0]" eq "update") {
my $force = "noforce";
&Pakfire::makeuuid();
&Pakfire::senduuid();
&Pakfire::getmirrors();
$force = "force" if ("$ARGV[1]" eq "--force");
&Pakfire::dbgetlist("$force");
&Pakfire::dbgetlist("force");
} elsif ("$ARGV[0]" eq "upgrade") {
my @upgradepaks = &Pakfire::dblist("upgrade", "noweb");
my @temp;
@@ -250,7 +244,12 @@
}
} elsif ("$ARGV[0]" eq "list") {
&Pakfire::dblist("all", "noweb");
if ("$ARGV[1]" =~ /installed|notinstalled/) {
&Pakfire::dblist("$ARGV[1]", "noweb");
} else {
&Pakfire::message("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[1]);
&Pakfire::dblist("all", "noweb");
}
} elsif ("$ARGV[0]" eq "resolvedeps") {
foreach (@ARGV) {