r2764 - people/goneri/SvnBuildStat-WWW/script

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-05-30 12:39:21 +0000 (Wed, 30 May 2007)
New Revision: 2764

Modified:
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl
Log:
reenable the multithreading

Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl	2007-05-30 08:55:36 UTC (rev 2763)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-db.pl	2007-05-30 12:39:21 UTC (rev 2764)
@@ -28,6 +28,7 @@
 my $schema;
 
 #my $poolImportPkg;
+my $poolImportRepository;
 
 sub mkTarballFromPackage {
   my $package = shift;
@@ -285,12 +286,16 @@
 #   max => $maxThreadPerPool,
 #   do => [\&importPkg],
 # );
-
+$poolImportRepository = Thread::Pool::Simple->new(
+   max => $maxThreadPerPool,
+   do => [\&importRepository],
+ );
 ########
 
 # Import packages
 my $repository_rs = $schema->resultset('Repository')->search({enabled => 'true'});
 while (my $repository = $repository_rs->next) {
-  importRepository(\$repository);
-}
-#$poolImportPkg->join;
+  # importRepository(\$repository);
+  $poolImportRepository->add(\$repository) or die "Fucked\n";
+}#
+$poolImportRepository->join;