r3007 - people/goneri/SvnBuildStat-WWW/script

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-06-20 11:43:34 +0000 (Wed, 20 Jun 2007)
New Revision: 3007

Added:
   people/goneri/SvnBuildStat-WWW/script/clean.pl
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_purge-buildinprogress.pl
Log:
some administration scripts


Added: people/goneri/SvnBuildStat-WWW/script/clean.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/clean.pl	                        (rev 0)
+++ people/goneri/SvnBuildStat-WWW/script/clean.pl	2007-06-20 11:43:34 UTC (rev 3007)
@@ -0,0 +1,39 @@
+#!/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 $package = $schema->resultset('Package')->search({name => $pkgname})->first;
+die unless $package;
+
+my $build_rs = $schema->resultset('Build')->search({package_id => $package->id, rev => $package->rev});
+
+$build_rs->delete_all;
+while (my $build = $build_rs->next) {
+print "->".$build->id."\n";
+}
+
+## Import packages
+#my $repository_rs = $schema->resultset('Repository')->search({enabled => 'true'});
+#while (my $repository = $repository_rs->next) {
+#  # importRepository(\$repository);
+#  $poolImportRepository->add(\$repository) or die "Fucked\n";
+#}#
+#print "threads launched\n";


Property changes on: people/goneri/SvnBuildStat-WWW/script/clean.pl
___________________________________________________________________
Name: svn:executable
   + *

Added: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_purge-buildinprogress.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_purge-buildinprogress.pl	                        (rev 0)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_purge-buildinprogress.pl	2007-06-20 11:43:34 UTC (rev 3007)
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+use strict;
+
+use lib '/home/sites/svnbuildstat.debian.net/svnbuildstat/lib';
+use SvnBuildStat::Schema;
+use SvnBuildStat::Config;
+
+
+
+my $config = new SvnBuildStat::Config();
+my $schema = SvnBuildStat::Schema->connect(
+  $config->db_dsn,
+  $config->db_user,
+  $config->db_password,
+  {AutoCommit => 1, debug => 1}
+);
+
+
+
+$schema->resultset('Build')->search({isbuildinprogress => 1})->delete_all;
+


Property changes on: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_purge-buildinprogress.pl
___________________________________________________________________
Name: svn:executable
   + *