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
+ *
_______________________________________________
Pkg-games-commits mailing list
[email protected]
http://lists.alioth.debian.org/mailman/listinfo/pkg-games-commits
