[Collab-qa-commits] r402 - svnbuildstat/script

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2007-09-02 21:17:21 +0000 (Sun, 02 Sep 2007)
New Revision: 402

Modified:
   svnbuildstat/script/svnbuildstat_update-repository.pl
Log:
create a lock to avoid to instance at the same time


Modified: svnbuildstat/script/svnbuildstat_update-repository.pl
===================================================================
--- svnbuildstat/script/svnbuildstat_update-repository.pl	2007-09-02 12:11:01 UTC (rev 401)
+++ svnbuildstat/script/svnbuildstat_update-repository.pl	2007-09-02 21:17:21 UTC (rev 402)
@@ -1,18 +1,27 @@
 #!/usr/bin/perl -w
 
 use strict;
-print STDERR "WARNING: this script \"purge\" the working directory!!! Be careful\n" foreach (1..10);
-sleep 10;
+print STDERR "WARNING: this script \"purge\" the working directory!!! Be careful\n";
+sleep 2;
 # TODO: purge the directory
 chdir "/home/sites/nana.rulezlan.org/debian/" or die;
 #use lib ".";
 
 use LWP::Simple;
 use File::Basename;
-use File::Glob;
+use File::Glob qw/:globally/;
 use File::Find;
+use File::Touch;
 
 use lib '/home/sites/svnbuildstat.debian.net/svnbuildstat/lib';
+
+foreach (<lock.*>) {
+  /lock.(\d+)/;
+  my $pid = $1;
+  die "an instance is already running" if -d "/proc/$pid";
+  unlink $pid;
+}
+touch  "lock.$$";
 use SvnBuildStat::Schema;
 use SvnBuildStat::Config;