[Collab-qa-commits] r801 - svnbuildstat/trunk/script
goneri at alioth.debian.org
goneri at alioth.debian.org
Sat Apr 19 00:21:34 UTC 2008
Author: goneri
Date: 2008-04-19 00:21:34 +0000 (Sat, 19 Apr 2008)
New Revision: 801
Modified:
svnbuildstat/trunk/script/svnbuildstat_agent.pl
Log:
purge again
Modified: svnbuildstat/trunk/script/svnbuildstat_agent.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_agent.pl 2008-04-18 23:36:10 UTC (rev 800)
+++ svnbuildstat/trunk/script/svnbuildstat_agent.pl 2008-04-19 00:21:34 UTC (rev 801)
@@ -37,7 +37,7 @@
my $debmirror = "http://ftp.fr.debian.org/debian/";
my $admin = "Gonéri Le Bouder <goneri\@rulezlan.org>";
my $pbuildertgz = "$pbuilderplace/$distro.tar.gz";
-my $server = "http://wawax.info:3000";
+my $server = "http://88.191.78.230:3000";
my $keeptmpdir = 1;
die unless $maxjobs =~ /^\d+$/;
@@ -45,8 +45,8 @@
$ENV{LC_ALL} = 'C';
$ENV{LANG} = 'C';
-sub basicPurge {
-
+sub purge {
+ print "What a nice day for a purge!\n";
die "please create: `".$vardir unless -d $vardir;
# TODO check for running script in background
# Purge
@@ -56,16 +56,7 @@
}
}
-# Create the directorys
- foreach ($workplace, $buildarea, $pbuilderplace, $tmpdir, $aptcachedir) {
- if (!-d && !mkdir $_) {
- die "Failed to create $_\n";
- }
- }
-}
-
-sub deepPurge {
- # TODO: looks for mounted filesystem here and try
+ # TODO: looks for mounted filesystem here and try
# to umount them
# !!! Maybe danger if $pbuilderplace is unset
@@ -76,8 +67,13 @@
next if /tar.gz$/; # pbuilder tarball
system ("rm -r $_");
}
- basicPurge();
+# (Re)Create the directorys
+ foreach ($workplace, $buildarea, $pbuilderplace, $tmpdir, $aptcachedir) {
+ if (!-d && !mkdir $_) {
+ die "Failed to create $_\n";
+ }
+ }
}
sub debcachePurge {
@@ -106,7 +102,7 @@
delete ($job{$_});
}
- basicPurge() unless $keeptmpdir;
+ purge() unless $keeptmpdir;
}
}
}
@@ -330,7 +326,7 @@
##################################################################
##################################################################
###### Main
-deepPurge();
+purge();
while (sleep 1) {
More information about the Collab-qa-commits
mailing list