r3042 - in people/goneri/SvnBuildStat-WWW: ! dirs' list truncated !

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-06-20 22:57:12 +0000 (Wed, 20 Jun 2007)
New Revision: 3042

Modified:
   people/goneri/SvnBuildStat-WWW/lib/SvnBuildStat/WWW/Controller/Contacts.pm
   people/goneri/SvnBuildStat-WWW/root/lib/site/layout
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl
Log:
add a contacts page


Modified: people/goneri/SvnBuildStat-WWW/lib/SvnBuildStat/WWW/Controller/Contacts.pm
===================================================================
--- people/goneri/SvnBuildStat-WWW/lib/SvnBuildStat/WWW/Controller/Contacts.pm	2007-06-20 22:46:55 UTC (rev 3041)
+++ people/goneri/SvnBuildStat-WWW/lib/SvnBuildStat/WWW/Controller/Contacts.pm	2007-06-20 22:57:12 UTC (rev 3042)
@@ -21,7 +21,7 @@
 
 =cut
 
-sub index : Private {
+sub main : Private {
   my ( $self, $c ) = @_;
 
 }

Modified: people/goneri/SvnBuildStat-WWW/root/lib/site/layout
===================================================================
--- people/goneri/SvnBuildStat-WWW/root/lib/site/layout	2007-06-20 22:46:55 UTC (rev 3041)
+++ people/goneri/SvnBuildStat-WWW/root/lib/site/layout	2007-06-20 22:57:12 UTC (rev 3042)
@@ -9,6 +9,7 @@
 <div class="menusubitem">
 <a href="/repositorys/list">Teams</a></div>
 <div class="menusubitem"><a href="/maintainers/list">Maintainers</a></div>
+<div class="menusubitem"><a href="/contacts/main">Contacts</a></div>
 
 
 </div>

Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl	2007-06-20 22:46:55 UTC (rev 3041)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl	2007-06-20 22:57:12 UTC (rev 3042)
@@ -17,7 +17,11 @@
 use Data::Dumper;
 use File::Basename;
 
+use threads;
+use threads::shared;
 use Thread::Pool::Simple;
+
+use Thread::Pool::Simple;
 use lib '/home/sites/svnbuildstat.debian.net/svnbuildstat/lib';
 use SvnBuildStat::Schema;
 use SvnBuildStat::Config;
@@ -27,7 +31,8 @@
 my $schema;
 
 #my $poolImportPkg;
-my $poolImportRepository;
+my $poolImportRepository : shared;
+my $poolImportPkg : shared;
 
 sub getRev {
   my $uri = shift;
@@ -306,7 +311,7 @@
     # look for packages
 #    print "->".$uri."\n";
     #my $pid = $poolImportPkg->add($repository,$uri,$tarballonrepository) or die "Fucked!\n";
-    my $package_id = importPkg($repository,$uri,$tarballonrepository);
+    my $package_id = $poolImportPkg->add($repository,$uri,$tarballonrepository) or die "Fucked\n";
     $present_packages{$package_id} = 1;
   }
 
@@ -322,9 +327,9 @@
       $package->update();
   }
 
-  $repository->rev($rev);
-  $repository->lastcheck('now');
-  $repository->update();
+  $$repository->rev($rev);
+  $$repository->lastcheck('now');
+  $$repository->update();
 
   print "end import Repo\n";
 }
@@ -341,12 +346,20 @@
    do => [\&importRepository],
    lifespan => 1
  );
+$poolImportPkg = Thread::Pool::Simple->new(
+   min => 5,
+   max => 7,
+   load => 15,
+   do => [\&importPkg],
+   lifespan => 1
+ );
+
 ########
 
 # Import packages
 my $repository_rs = $schema->resultset('Repository')->search({enabled => 'true'});
 while (my $repository = $repository_rs->next) {
   $poolImportRepository->add(\$repository) or die "Fucked\n";
-  sleep 60;
-}#
+  sleep 10;
+}
 $poolImportRepository->join;