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

[goneri-guest at alioth.debian.org]

Author: goneri-guest
Date: 2008-04-17 12:13:32 +0000 (Thu, 17 Apr 2008)
New Revision: 793

Added:
   svnbuildstat/trunk/script/svnbuildstat_update-db-slow.pl
Removed:
   svnbuildstat/trunk/script/svnbuildstat_watchfile.pl
Log:
rename


Copied: svnbuildstat/trunk/script/svnbuildstat_update-db-slow.pl (from rev 792, svnbuildstat/trunk/script/svnbuildstat_watchfile.pl)
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_update-db-slow.pl	                        (rev 0)
+++ svnbuildstat/trunk/script/svnbuildstat_update-db-slow.pl	2008-04-17 12:13:32 UTC (rev 793)
@@ -0,0 +1,38 @@
+#!/usr/bin/perl -w
+# TODO merge it with update-db
+use strict;
+
+use lib '../lib';
+
+use Config::IniFiles;
+use SvnBuildStat::Schema;
+use SvnBuildStat::Common;
+use Logger::Syslog;
+
+if (! -x "/usr/bin/uscan") {
+    print "Can't find uscan";
+    exit 1;
+}
+
+my $cfg = Config::IniFiles->new( -file => $ENV{HOME}."/.svnbuildstat.ini" ) or die "Can't load config file";
+my $schema = SvnBuildStat::Schema->connect(
+  $cfg->val('db', 'dsn'),
+  $cfg->val('db', 'user'),
+  $cfg->val('db', 'password'),
+  {AutoCommit => 1, debug => 1}
+);
+
+my $begin = time;
+debug ("begin");
+
+my $interval = "< NOW() - interval '6 hour'";
+my $repositoryentry_rs = $schema->resultset('Repositoryentry')->search(
+  { -or => [ lastwatchcheck => { '='=> undef}, lastwatchcheck => \$interval]
+  });
+while (my $repositoryentry = $repositoryentry_rs->next) {
+  checkRepositoryentryWatchfile(\$repositoryentry);
+
+}
+
+debug ("end (".(time - $begin)." secondes)");
+

Deleted: svnbuildstat/trunk/script/svnbuildstat_watchfile.pl
===================================================================
--- svnbuildstat/trunk/script/svnbuildstat_watchfile.pl	2008-04-17 12:12:47 UTC (rev 792)
+++ svnbuildstat/trunk/script/svnbuildstat_watchfile.pl	2008-04-17 12:13:32 UTC (rev 793)
@@ -1,38 +0,0 @@
-#!/usr/bin/perl -w
-# TODO merge it with update-db
-use strict;
-
-use lib '../lib';
-
-use Config::IniFiles;
-use SvnBuildStat::Schema;
-use SvnBuildStat::Common;
-use Logger::Syslog;
-
-if (! -x "/usr/bin/uscan") {
-    print "Can't find uscan";
-    exit 1;
-}
-
-my $cfg = Config::IniFiles->new( -file => $ENV{HOME}."/.svnbuildstat.ini" ) or die "Can't load config file";
-my $schema = SvnBuildStat::Schema->connect(
-  $cfg->val('db', 'dsn'),
-  $cfg->val('db', 'user'),
-  $cfg->val('db', 'password'),
-  {AutoCommit => 1, debug => 1}
-);
-
-my $begin = time;
-debug ("begin");
-
-my $interval = "< NOW() - interval '6 hour'";
-my $repositoryentry_rs = $schema->resultset('Repositoryentry')->search(
-  { -or => [ lastwatchcheck => { '='=> undef}, lastwatchcheck => \$interval]
-  });
-while (my $repositoryentry = $repositoryentry_rs->next) {
-  checkRepositoryentryWatchfile(\$repositoryentry);
-
-}
-
-debug ("end (".(time - $begin)." secondes)");
-