r2643 - people/goneri/SvnBuildStat-WWW/script

[Gonéri Le Bouder]

Author: goneri-guest
Date: 2007-05-10 07:48:00 +0000 (Thu, 10 May 2007)
New Revision: 2643

Modified:
   people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-bugs.pl
Log:
save the title of the bug

Modified: people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-bugs.pl
===================================================================
--- people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-bugs.pl	2007-05-10 07:41:36 UTC (rev 2642)
+++ people/goneri/SvnBuildStat-WWW/script/svnbuildstat_update-bugs.pl	2007-05-10 07:48:00 UTC (rev 2643)
@@ -26,12 +26,15 @@
 while( my $package = $package_rs->next) {
   $currentPackage{$package->name} = 1;
 }
+my $tmpfile = "/tmp/fullindex";
 
-my (undef,$tmpfile) = tempfile();
-getstore("http://qa.debian.org/data/bts1ldap/fullindex",$tmpfile);
+unlink $tmpfile;
+die if (!is_success( getstore("http://qa.debian.org/data/bts2ldap/fullindex", $tmpfile)));
+print "download ok\n";
 my %registredPackage;
 
 open BTS2LDAP, "<$tmpfile" or die;
+print "updating\n";
 my %h;
 LINE: while (my $line = readline BTS2LDAP) {
   if ($line =~ /^$/) {
@@ -45,6 +48,7 @@
 
       $bug->severity_id ($severity->id);
       $bug->package_id ($package->id);
+      $bug->name ($h{debbugsTitle});
       $bug->update;
 
       $registredPackage{$h{debbugsID}} = 1;
@@ -57,7 +61,7 @@
 }
 close BTS2LDAP;
 
-my $bug_rs = $schema->resultset('Bug');
-while( my $bug = $bug_rs->next) {
-  $bug->delete unless $registredPackage{$bug->id};
-}
+#my $bug_rs = $schema->resultset('Bug');
+#while( my $bug = $bug_rs->next) {
+#  $bug->delete unless exists ($registredPackage{$bug->id});
+#}