/[collab-qa]/udd/udd/bugs_gatherer.pl
ViewVC logotype

Diff of /udd/udd/bugs_gatherer.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1952 by lucas, Sat Apr 9 11:32:31 2011 UTC revision 1953 by lucas, Tue May 31 08:24:56 2011 UTC
# Line 180  sub run { Line 180  sub run {
180          my $location = $src_config{archived} ? 'archive' : 'db_h';          my $location = $src_config{archived} ? 'archive' : 'db_h';
181          $table = $src_config{archived} ? $archived_table : $table;          $table = $src_config{archived} ? $archived_table : $table;
182          # Read all bugs          # Read all bugs
183          my $insert_bugs_handle = $dbh->prepare("INSERT INTO $table (id, package, source, arrival, status, severity, submitter, submitter_name, submitter_email, owner, owner_name, owner_email, done, done_name, done_email, title, forwarded, last_modified, affects_oldstable, affects_stable, affects_testing, affects_unstable, affects_experimental) VALUES (\$1, \$2, \$3, \$4::abstime, \$5, \$6, \$7, \$8, \$9, \$10, \$11, \$12, \$13, \$14, \$15, \$16, \$17, \$18::abstime, \$19, \$20, \$21, \$22, \$23)");          my $insert_bugs_handle = $dbh->prepare("INSERT INTO $table (id, package, source, arrival, status, severity, submitter, submitter_name, submitter_email, owner, owner_name, owner_email, done, done_name, done_email, done_date, title, forwarded, last_modified, affects_oldstable, affects_stable, affects_testing, affects_unstable, affects_experimental) VALUES (\$1, \$2, \$3, \$4::abstime, \$5, \$6, \$7, \$8, \$9, \$10, \$11, \$12, \$13, \$14, \$15, \$16::abstime, \$17, \$18, \$19::abstime, \$20, \$21, \$22, \$23, \$24)");
184          my $insert_bugs_packages_handle = $dbh->prepare("INSERT INTO ${table}_packages (id, package, source) VALUES (\$1, \$2, \$3)");          my $insert_bugs_packages_handle = $dbh->prepare("INSERT INTO ${table}_packages (id, package, source) VALUES (\$1, \$2, \$3)");
185          my $insert_bugs_found_handle = $dbh->prepare("INSERT INTO ${table}_found_in (id, version) VALUES (\$1, \$2)");          my $insert_bugs_found_handle = $dbh->prepare("INSERT INTO ${table}_found_in (id, version) VALUES (\$1, \$2)");
186          my $insert_bugs_fixed_handle = $dbh->prepare("INSERT INTO ${table}_fixed_in (id, version) VALUES (\$1, \$2)");          my $insert_bugs_fixed_handle = $dbh->prepare("INSERT INTO ${table}_fixed_in (id, version) VALUES (\$1, \$2)");
# Line 213  sub run { Line 213  sub run {
213                          } else {                          } else {
214                                  $bug{$_} = 0;                                  $bug{$_} = 0;
215                          }                          }
216                  } qw{date log_modified};                  } qw{date log_modified done_date};
217    
218                  my $srcpkg;                  my $srcpkg;
219                  if ($bug{package} =~ /^src:(.*)/)                  if ($bug{package} =~ /^src:(.*)/)
# Line 312  sub run { Line 312  sub run {
312                  # Insert data into bugs table                  # Insert data into bugs table
313                  $insert_bugs_handle->execute($bug_nr, $bug{package}, $srcpkg, $bug{date}, $bug{pending},                  $insert_bugs_handle->execute($bug_nr, $bug{package}, $srcpkg, $bug{date}, $bug{pending},
314                          $bug{severity}, $bug{originator}, $submitter_name, $submitter_email, $bug{owner},                          $bug{severity}, $bug{originator}, $submitter_name, $submitter_email, $bug{owner},
315                          $owner_name, $owner_email, $bug{done}, $done_name, $done_email, $bug{subject},                          $owner_name, $owner_email, $bug{done}, $done_name, $done_email, $bug{done_date},
316                          $bug{forwarded}, $bug{log_modified},                          $bug{subject}, $bug{forwarded}, $bug{log_modified},
317                          $present_in_oldstable, $present_in_stable, $present_in_testing, $present_in_unstable, $present_in_experimental) or die $!;                          $present_in_oldstable, $present_in_stable, $present_in_testing, $present_in_unstable, $present_in_experimental) or die $!;
318    
319                  my $src;                  my $src;
Legend:
Removed from v.1952  
changed lines
  Added in v.1953
  ViewVC Help
Powered by ViewVC 1.1.5