r2760 - people/goneri/SvnBuildStat-WWW/script

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-05-29 18:25:12 +0000 (Tue, 29 May 2007)
New Revision: 2760

Removed:
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-tarball.pl
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl
Log:
remove the merged files

Deleted: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-tarball.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-tarball.pl	2007-05-29 18:23:34 UTC (rev 2759)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-tarball.pl	2007-05-29 18:25:12 UTC (rev 2760)
@@ -1,103 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-
-use LWP::UserAgent;
-use Data::Dumper;
-
-use Thread::Pool::Simple;
-use lib '/home/sites/svnbuildstat.debian.net/svnbuildstat/lib';
-use SvnBuildStat::Schema;
-use SvnBuildStat::Config;
-
-print "# Check tarball presence\n"; 
-my $maxThreadPerPool=30;
-
-my $poolUpdateTarballPresent;
-
-my $config;
-my $schema;
-
-# TODO: This func should be shared in a library
-sub mkTarballFromPackage {
-  my $package = shift;
-
-  my $majorrelease = $$package->svndebrelease;
-  $majorrelease =~ s/-[0-9A-Za-z\.~]*$//;
-  return unless $majorrelease;
-
-  $$package->name.'_'.$majorrelease.".orig.tar.gz";
-}
-
-sub updateTarballPresent {
-  print "updateTarballPresent\n";
-  my $package = shift;
-
-  my $istarballpresent = 0;
-  my $isindebian = 0;
-  my $tarballisindebian;
-
-  return unless $$package->name;
-  return unless $$package->svndebrelease;
-
-  my $ua = LWP::UserAgent->new;
-  $ua->agent("SvnBuildStat/0.1 ");
-
-  # This code should provably me moved somewhere else
-  my $debmirror = 'http://ftp.debian.org/debian';
-  my $debdiff .= $$package->name."_".$$package->svndebrelease.".diff.gz";
-  my $tarball = mkTarballFromPackage($package);
-
-  if ($tarball) {
-    foreach my $section (qw/main contrib non-free/) {
-      my $tmp = "$1/".$$package->name if $$package->name =~ /^(lib.|.)/;
-      my $debdiffuri = $debmirror.'/pool/'.$section.'/'.$tmp.'/'.$debdiff;
-      my $tarballuri = $debmirror.'/pool/'.$section.'/'.$tmp.'/'.$tarball;
-#    print "Looking for debdiff :".$debdiffuri."\n";
-      my $req = HTTP::Request->new(HEAD => $debdiffuri);
-      my $res = $ua->request($req);
-      $$package->isindebian(1) if $res->is_success;
-
-      print "Looking for tarball :'".$tarballuri."'\n";
-      $req = HTTP::Request->new(HEAD => $tarballuri);
-      $res = $ua->request($req);
-      if ($res->is_success) {
-	$istarballpresent = 1;
-	$tarballuri = '@DEBMIRROR@/pool/'.$section.'/'.$tmp.'/'.$tarball;
-	$$package->tarballuri($tarballuri);
-	print "OK in Debian\n";
-	$tarballisindebian = 1;
-	last;
-      }
-    }
-
-    if (!$tarballisindebian && $$package->tarballuri()) {
-      my $req = HTTP::Request->new(HEAD => $$package->tarballuri);
-      my $res = $ua->request($req);
-      $istarballpresent = $res->is_success?1:0;
-    }
-  }
-
-  $$package->istarballpresent($istarballpresent);
-  $$package->update();
-}
-
-$config = new SvnBuildStat::Config();
-$schema = SvnBuildStat::Schema->connect(
-  $config->db_dsn,
-  $config->db_user,
-  $config->db_password,
-  {AutoCommit => 1, debug => 1}
-);
-
-$poolUpdateTarballPresent = Thread::Pool::Simple->new(
-    max => $maxThreadPerPool,
-    do => [\&updateTarballPresent],
-  );
-
-my $package_rs = $schema->resultset('Package');
-while (my $package = $package_rs->next) {
-#  next unless $package->name eq "libpdf-reuse-barcode-perl";
-  $poolUpdateTarballPresent->add(\$package);
-}
-$poolUpdateTarballPresent->join();

Deleted: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl	2007-05-29 18:23:34 UTC (rev 2759)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db-uscan.pl	2007-05-29 18:25:12 UTC (rev 2760)
@@ -1,100 +0,0 @@
-#!/usr/bin/perl -w
-
-
-use strict;
-
-use Data::Dumper;
-use File::Temp qw/ tempfile /;
-use Thread::Pool::Simple;
-use lib '/home/goneri/svn/pkg-games/people/goneri/SvnBuildStat-WWW/lib';
-use SvnBuildStat::Schema;
-use SvnBuildStat::Config;
-
-my $maxThreadPerPool = 10;
-
-my $poolUpdateWatch;
-
-my $config;
-my $schema;
-
-# TODO: This func should be shared in a library
-sub mkTarballFromPackage {
-  my $package = shift;
-
-  my $majorrelease = $$package->svndebrelease;
-  $majorrelease =~ s/-[0-9A-Za-z\.~]*$//;
-  return unless $majorrelease;
-
-  $$package->name.'_'.$majorrelease.".orig.tar.gz";
-}
-
-sub updateWatch {
-  my $package = shift;
-  my $cmd;
-
-  $cmd = "svn cat ".$$package->uri."/debian/watch";
-  my $watch = `$cmd`;
-
-  return unless $watch;
-
-  my ($fh, $watchfile) = tempfile(SUFFIX => '.uscan');
-  print $fh $watch;
-  close ($fh);
-
-  my $majorrelease = $$package->svndebrelease;
-  $majorrelease =~ s/-[0-9A-Za-z\.~]*$//;
-  $cmd = "uscan --package ".$$package->name." --dehs --upstream-version ".$majorrelease." --watchfile ".$watchfile;
-  print $cmd."\n";
-  my @uscan = `$cmd`;
-  return unless @uscan > 2; # empty output
-
-  my $tarballuri;
-  my $isuptodate = 'f';
-  my $upstreamrelease;
-  foreach (@uscan) {
-    print;
-    $tarballuri = $1 if (/^<upstream-url>(.+)<\/upstream-url>$/);
-    $isuptodate = 't' if (/^<status>up to date<\/status>$/);
-    $upstreamrelease = $1 if (/^<upstream-version>(.+)<\/upstream-version>$/); 
-  }
-#  print "tarballuri:".$tarballuri."\n";
-#  print "isuptodate:".$isuptodate."\n";
-#  print "upstreamrelease:".$upstreamrelease."\n";
-
-  $$package->isuptodate($isuptodate);
-  if ($isuptodate eq 't') {
-    if (defined ($tarballuri) && $tarballuri && !$$package->istarballpresent) {
-      my $req = HTTP::Request->new(HEAD => $tarballuri);
-      my $ua = LWP::UserAgent->new;
-      $ua->agent("SvnBuildStat/0.1 ");
-      my $res = $ua->request($req);
-      if ($res->is_success) {
-	$$package->istarballpresent(1);
-	$$package->tarballuri($tarballuri);
-      }
-    }
-  }
-
-  $$package->upstreamrelease($upstreamrelease) if $upstreamrelease;
-  $$package->update;
-}
-
-$config = new SvnBuildStat::Config();
-$schema = SvnBuildStat::Schema->connect(
-  $config->db_dsn,
-  $config->db_user,
-  $config->db_password,
-  {AutoCommit => 1, debug => 1}
-);
-
-
-$poolUpdateWatch = Thread::Pool::Simple->new(
-  max => $maxThreadPerPool,
-  do => [\&updateWatch],
-);
-
-my $package_rs = $schema->resultset('Package');
-while (my $package = $package_rs->next) {
-  $poolUpdateWatch->add(\$package);
-}
-$poolUpdateWatch->join();