[Collab-qa-commits] r801 - svnbuildstat/trunk/script

[goneri]

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 <[EMAIL PROTECTED]>";
 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) {
 


_______________________________________________
Collab-qa-commits mailing list
Collab-qa-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/mailman/listinfo/collab-qa-commits