Pakfire Update.

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

View File

@@ -28,6 +28,8 @@ include Config
VER = 2005-07-18
PPPVER = 2.4.4
THISAPP = capi4k-utils-$(VER)
DL_FILE = $(THISAPP).tar.gz
DL_FROM = $(URL_IPFIRE)
@@ -81,8 +83,8 @@ $(TARGET) : $(patsubst %,$(DIR_DL)/%,$(objects))
cd $(DIR_APP)/capi20 && SED=sed ./configure
cd $(DIR_APP)/capi20 && SED=sed make $(MAKETUNING)
cd $(DIR_APP)/capi20 && make install
PPPVER=2.4.4 && \
cd $(DIR_APP)/pppdcapiplugin && PPPVERSIONS="$$PPPVER" make && PPPVERSIONS="$$PPPVER" make install
cd $(DIR_APP)/pppdcapiplugin && ln -sf ppp-2.4.3 ppp-$(PPPVER)
cd $(DIR_APP)/pppdcapiplugin && PPPVERSIONS="$(PPPVER)" make && PPPVERSIONS="$(PPPVER)" make install
cd $(DIR_APP)/capiinfo && ./configure
cd $(DIR_APP)/capiinfo && make $(MAKETUNING)
cd $(DIR_APP)/capiinfo && make install

View File

View File

@@ -394,7 +394,7 @@ buildipfire() {
ipfiremake ethtool
ipfiremake ez-ipupdate
ipfiremake fcron
ipfiremake GD
ipfiremake perl-GD
ipfiremake GD-Graph
ipfiremake GD-TextUtil
ipfiremake gnupg

View File

@@ -0,0 +1,46 @@
#!/bin/sh
########################################################################
# Begin $rc_base/init.d/beep
#
# Description : Plays a short melody when system goes up or down
#
# Authors : Michael Tremer - mitch@ipfire.org
#
# Version : 01.00
#
# Notes :
#
########################################################################
. /etc/sysconfig/rc
. ${rc_functions}
LENGTH=80
play () {
beep -l $LENGTH -f $1
}
case "${1}" in
start)
for i in 440 466 494 523 554 587 622 659 698 740 764 831 880; do
play $i
done
;;
stop)
for i in 880 831 764 740 698 659 622 587 554 532 494 466 440; do
play $i
done
;;
*)
echo "Usage: ${0} {start|stop}"
exit 1
;;
esac
# End $rc_base/init.d/beep

View File

@@ -831,7 +831,9 @@ checkentry(const char *tablename,
const struct ipt_ip *ip,
#endif
void *matchinfo,
#if LINUX_VERSION_CODE < KERNEL_VERSION(2,6,21)
unsigned int matchsize,
#endif
unsigned int hook_mask)
{
/* Must specify -p tcp */
@@ -880,12 +882,20 @@ static struct ipt_match ipp2p_match = {
static int __init init(void)
{
printk(KERN_INFO "IPP2P v%s loading\n", IPP2P_VERSION);
#if LINUX_VERSION_CODE >= KERNEL_VERSION(2,6,21)
return xt_register_match(&ipp2p_match);
#else
return ipt_register_match(&ipp2p_match);
#endif
}
static void __exit fini(void)
{
#if LINUX_VERSION_CODE >= KERNEL_VERSION(2,6,21)
xt_unregister_match(&ipp2p_match);
#else
ipt_unregister_match(&ipp2p_match);
#endif
printk(KERN_INFO "IPP2P v%s unloaded\n", IPP2P_VERSION);
}

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");
}
}

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) {