[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