var/ipfire/mpfire/db/songs.db
var/ipfire/mpfire/playlist
var/ipfire/mpfire/settings
-usr/lib/perl5/5.8.8/MP3/Info.pm
-usr/lib/perl5/5.8.8/MP3/Tag.pm
-usr/lib/perl5/5.8.8/MP3/Tag/File.pm
-usr/lib/perl5/5.8.8/MP3/Tag/ID3v1.pm
-usr/lib/perl5/5.8.8/MP3/Tag/ID3v2.pm
+usr/lib/perl5/site_perl/5.8.8/MP3/Info.pm
+usr/lib/perl5/site_perl/5.8.8/MP3/Tag.pm
+usr/lib/perl5/site_perl/5.8.8/MP3/Tag/File.pm
+usr/lib/perl5/site_perl/5.8.8/MP3/Tag/ID3v1.pm
+usr/lib/perl5/site_perl/5.8.8/MP3/Tag/ID3v2.pm
cp $(DIR_SRC)/config/cfgroot/countries.pl $(CONFIG_ROOT)/
cp $(DIR_SRC)/config/cfgroot/graphs.pl $(CONFIG_ROOT)/
cp $(DIR_SRC)/config/cfgroot/advoptions-list $(CONFIG_ROOT)/dhcp/advoptions-list
- cp $(DIR_SRC)/config/cfgroot/backup-exclude $(CONFIG_ROOT)/backup/exclude.system
- cp $(DIR_SRC)/config/cfgroot/backup-include $(CONFIG_ROOT)/backup/include.system
- cp $(DIR_SRC)/config/cfgroot/backup-exclude.hardware $(CONFIG_ROOT)/backup/exclude.hardware
cp $(DIR_SRC)/config/cfgroot/connscheduler-lib.pl $(CONFIG_ROOT)/connscheduler/lib.pl
cp $(DIR_SRC)/config/cfgroot/connscheduler.conf $(CONFIG_ROOT)/connscheduler
cp $(DIR_SRC)/config/extrahd/* $(CONFIG_ROOT)/extrahd/bin/
logger("HTTP-Status-Code: $code - $log");
if ( $code eq "500" ) {
- message("Giving up: There was no chance to get teh file \"$getfile\" from any available server.\nThere was an error on the way. Please fix it.");
+ message("Giving up: There was no chance to get the file \"$getfile\" from any available server.\nThere was an error on the way. Please fix it.");
return 1;
}
### Count the number of the servers in the list
my $scount = 0;
+ my @newlines;
foreach (@lines) {
- $scount++;
+ if ("$_" =~ /.*;.*;.*;/ ) {
+ push(@newlines,$_);
+ $scount++;
+ }
}
logger("$scount servers found in list.");
$servers = 0;
my ($line, $proto, $path, $host);
my @templine;
- foreach $line (@lines) {
+ foreach $line (@newlines) {
$servers++;
if ($servers eq $server) {
@templine = split(/\;/, $line);
message("");
message("## Resolving dependencies for $pak...");
- #if (&isinstalled($pak) eq 0) {
- # my @empty;
- # return @empty;
- #}
open(FILE, "<$Conf::dbdir/meta/meta-$pak");
my @file = <FILE>;
}
}
}
-
- #my @tempdeps = @deps;
+
foreach (@tempdeps) {
if ($_) {
my @newdeps = resolvedeps("$_");
my $return = system("cd $Conf::tmpdir && NAME=$pak ./install.sh >> $Conf::logdir/install-$pak.log 2>&1");
$return %= 255;
+ if ($pakfiresettings{'UUID'} ne "off") {
+ fetchfile("cgi-bin/counter?ver=$Conf::version&uuid=$Conf::uuid&ipak=$pak&return=$return", "$Conf::mainserver");
+ }
if ($return == 0) {
move("$Conf::tmpdir/ROOTFILES", "$Conf::dbdir/rootfiles/$pak");
cleanup("tmp");
copy("$Conf::dbdir/meta/meta-$pak","$Conf::dbdir/installed/");
message("Setup completed. Congratulations!");
message("################################################################################");
- fetchfile("cgi-bin/counter?ver=$Conf::version&uuid=$Conf::uuid&ipak=$pak&return=$return", "$Conf::mainserver");
} else {
message("Setup returned: $return. Sorry. Please search our forum to find a solution for this problem.");
exit $return;
my $return = system("cd $Conf::tmpdir && NAME=$pak ./update.sh >> $Conf::logdir/update-$pak.log 2>&1");
$return %= 255;
+ if ($pakfiresettings{'UUID'} ne "off") {
+ fetchfile("cgi-bin/counter?ver=$Conf::version&uuid=$Conf::uuid&upak=$pak&return=$return", "$Conf::mainserver");
+ }
if ($return == 0) {
move("$Conf::tmpdir/ROOTFILES", "$Conf::dbdir/rootfiles/$pak");
cleanup("tmp");
copy("$Conf::dbdir/meta/meta-$pak","$Conf::dbdir/installed/");
- fetchfile("cgi-bin/counter?ver=$Conf::version&uuid=$Conf::uuid&upak=$pak&return=$return", "$Conf::mainserver");
message("Upgrade completed. Congratulations!");
} else {
message("Setup returned: $return. Sorry. Please search our forum to find a solution for this problem.");
my $return = system("cd $Conf::tmpdir && NAME=$pak ./uninstall.sh >> $Conf::logdir/uninstall-$pak.log 2>&1");
$return %= 255;
+ if ($pakfiresettings{'UUID'} ne "off") {
+ fetchfile("cgi-bin/counter?ver=$Conf::version&uuid=$Conf::uuid&dpak=$pak&return=$return", "$Conf::mainserver");
+ }
if ($return == 0) {
open(FILE, "<$Conf::dbdir/rootfiles/$pak");
my @file = <FILE>;
}
unlink("$Conf::dbdir/rootfiles/$pak");
cleanup("tmp");
- fetchfile("cgi-bin/counter?ver=$Conf::version&uuid=$Conf::uuid&dpak=$pak&return=$return", "$Conf::mainserver");
message("Uninstall completed. Congratulations!");
} else {
message("Setup returned: $return. Sorry. Please search our forum to find a solution for this problem.");
}
} elsif ("$ARGV[0]" eq "remove") {
+ shift;
+
+ my @paks;
+ my $pak;
+
+ foreach $pak (@ARGV) {
+ unless ("$pak" =~ "^-") {
+ $return = &Pakfire::isinstalled($pak);
+ if ($return ne 0) {
+ &Pakfire::message("Package $pak is not installed.");
+ next;
+ }
+
+ push(@paks, $pak);
+
+ }
+ }
+
+ unless (@paks) {
+ &Pakfire::message("No packages to remove. Exiting...");
+ exit 1;
+ }
+
+ &Pakfire::message("");
+ &Pakfire::message("");
+ &Pakfire::message("### Packages to remove:");
+ foreach $pak (sort @paks) {
+ my $size = &Pakfire::getsize("$pak");
+ $size = &Pakfire::beautifysize($size);
+ &Pakfire::message("# $pak \t\t - $size");
+ }
+
+ if ($interactive) {
+ &Pakfire::message("Is this okay? [y/N]");
+ my $ret = <STDIN>;
+ chomp($ret);
+ &Pakfire::logger("Answer: $ret");
+ if ( $ret ne "y" ) {
+ &Pakfire::message("Installation aborted.");
+ exit 1;
+ }
+ }
+
+ foreach $pak (@paks) {
+ &Pakfire::removepak("$pak");
+ }
} elsif ("$ARGV[0]" eq "update") {