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

Diff of /udd/src/udd/bugs_gatherer.pl

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

revision 920 by neronus-guest, Wed Jul 23 10:33:26 2008 UTC revision 921 by neronus-guest, Wed Jul 23 12:09:04 2008 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2  # Last-Modified: <Wed Jul 23 10:02:51 2008>  # Last-Modified: <Wed Jul 23 11:21:47 2008>
3    
4  use strict;  use strict;
5  use warnings;  use warnings;
# Line 34  sub main { Line 34  sub main {
34          $dbh->prepare("DELETE FROM bugs")->execute();          $dbh->prepare("DELETE FROM bugs")->execute();
35          $dbh->prepare("DELETE from bug_found_in")->execute();          $dbh->prepare("DELETE from bug_found_in")->execute();
36          $dbh->prepare("DELETE from bug_fixed_in")->execute();          $dbh->prepare("DELETE from bug_fixed_in")->execute();
37            $dbh->prepare("DELETE FROM bug_merged_with")->execute();
38    
39          # Read all bugs          # Read all bugs
40          foreach my $bug_nr (get_bugs()) {          foreach my $bug_nr (get_bugs()) {
# Line 62  sub main { Line 63  sub main {
63                          $query = "INSERT INTO bug_fixed_in VALUES ($bug_nr, $version)";                          $query = "INSERT INTO bug_fixed_in VALUES ($bug_nr, $version)";
64                          $dbh->prepare($query)->execute() or die $!;                          $dbh->prepare($query)->execute() or die $!;
65                  }                  }
66                    foreach my $mergee (split / /, $bug{mergedwith}) {
67                            $query = "INSERT INTO bug_merged_with VALUES ($bug_nr, $mergee)";
68                            $dbh->prepare($query)->execute() or die $!;
69                    }
70          }          }
71    
72          $dbh->commit();          $dbh->commit();
Legend:
Removed from v.920  
changed lines
  Added in v.921
  ViewVC Help
Powered by ViewVC 1.1.5