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

goneri-guest at alioth.debian.org goneri-guest at alioth.debian.org
Sun Sep 2 12:00:45 UTC 2007


Author: goneri-guest
Date: 2007-09-02 12:00:44 +0000 (Sun, 02 Sep 2007)
New Revision: 400

Added:
   svnbuildstat/script/svnbuildstat_purge-removedpackages.pl
Log:
purge the removed package


Added: svnbuildstat/script/svnbuildstat_purge-removedpackages.pl
===================================================================
--- svnbuildstat/script/svnbuildstat_purge-removedpackages.pl	                        (rev 0)
+++ svnbuildstat/script/svnbuildstat_purge-removedpackages.pl	2007-09-02 12:00:44 UTC (rev 400)
@@ -0,0 +1,33 @@
+#!/usr/bin/perl -w
+use strict;
+
+use lib '/home/sites/svnbuildstat.debian.net/svnbuildstat/lib';
+use SvnBuildStat::Schema;
+use SvnBuildStat::Config;
+
+
+my $pkgname = shift;
+
+
+
+my $config = new SvnBuildStat::Config();
+my $schema = SvnBuildStat::Schema->connect(
+  $config->db_dsn,
+  $config->db_user,
+  $config->db_password,
+  {AutoCommit => 1, debug => 1}
+);
+
+
+
+
+my $interval = "< repository_id.lastcheck - interval '1 day'";
+my $package_rs = $schema->resultset('Package')->search({'me.lastcheck' => \$interval} , {join => => 'repository_id'});
+$package_rs->delete_all;
+
+#my $maintainer_rs = $schema->resultset('PackageMaintainer')->search({'package_id' => undef} , {join => 'maintainer_id'});
+#while (my $maintainer = $maintainer_rs->next) {
+#    print "->".$maintainer->uri."\n";
+#  }
+
+


Property changes on: svnbuildstat/script/svnbuildstat_purge-removedpackages.pl
___________________________________________________________________
Name: svn:executable
   + *




More information about the Collab-qa-commits mailing list