svn commit: r125736 - /spamassassin/branches/3.0/MANIFEST.SKIP /spamassassin/branches/3.0/build/buildbot_ready

[jm...@apache.org]

Author: jm
Date: Thu Jan 20 00:32:05 2005
New Revision: 125736

URL: http://svn.apache.org/viewcvs?view=rev&rev=125736
Log:
backend: need synch script in b3.0 as well
Added:
   spamassassin/branches/3.0/build/buildbot_ready
Modified:
   spamassassin/branches/3.0/MANIFEST.SKIP

Modified: spamassassin/branches/3.0/MANIFEST.SKIP
Url: http://svn.apache.org/viewcvs/spamassassin/branches/3.0/MANIFEST.SKIP?view=diff&rev=125736&p1=spamassassin/branches/3.0/MANIFEST.SKIP&r1=125735&p2=spamassassin/branches/3.0/MANIFEST.SKIP&r2=125736
==============================================================================
--- spamassassin/branches/3.0/MANIFEST.SKIP	(original)
+++ spamassassin/branches/3.0/MANIFEST.SKIP	Thu Jan 20 00:32:05 2005
@@ -117,3 +117,4 @@
 tmon.out
 todo$
 wordfreqs/.*
+^build/buildbot_ready$

Added: spamassassin/branches/3.0/build/buildbot_ready
Url: http://svn.apache.org/viewcvs/spamassassin/branches/3.0/build/buildbot_ready?view=auto&rev=125736
==============================================================================
--- (empty file)
+++ spamassassin/branches/3.0/build/buildbot_ready	Thu Jan 20 00:32:05 2005
@@ -0,0 +1,37 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $command = shift @ARGV;
+my $perl = shift @ARGV;
+my $syncfile = shift @ARGV;
+
+if ($command eq 'start') {
+  if ($syncfile) {
+    # sleep until it disappears, or times out
+    while (-f $syncfile && mtime_age_secs($syncfile) < 60*60) {
+      print "$syncfile exists with age ".mtime_age_secs($syncfile).", sleeping\n";
+      sleep 60*5;
+    }
+
+    open (TOUCH, ">$syncfile"); close TOUCH;
+  }
+
+  system ("$perl Makefile.PL < /dev/null");
+  system ("make distclean");
+  system ("rm -rf Mail-SpamAssassin*");
+}
+elsif ($command eq 'stop') {
+  if ($syncfile) {
+    unlink ($syncfile);
+    print "$syncfile removed\n";
+  }
+}
+exit;
+
+sub mtime_age_secs {
+  my $f = shift;
+  my @s = stat($f);
+  return (time - $s[9]);
+}
+