[project @ 2000-05-01 23:29:49 by doogie]

Modified to print out all bugs in the database.

diff --git a/debbugs-dump b/debbugs-dump
index cb5047e50b883e67cc3536d6d97ea28b18e3aa8d..7c2b29bcc60195829910387483608b7cb83ae755 100755 (executable)
--- a/debbugs-dump
+++ b/debbugs-dump
@@ -1,7 +1,6 @@
 #!/usr/bin/perl -w
 
-push(@INC,'/home/gecko/debian/debvote');
-push(@INC,'/debian/home/doogie/debian/debbugs/cvs');
+push(@INC,'.');
 use strict;
 use Debbugs::Config qw(%Globals &ParseConfigFile);
 #use Debvote::Email qw(&InitEmailTags &LoadEmail &ProcessTags %gtags);
@@ -15,9 +14,9 @@ use Getopt::Long;
 #############################################################################
 #  Gloabal Variable Declaration
 #############################################################################
-my $VERSION = '3.01';                                          #External Version number
-my $BANNER = "DebBugs v$VERSION";                      #Version Banner - text form
-my $FILE = 'debbugs-dump';                                     #File name
+my $VERSION = '3.01';                          #External Version number
+my $BANNER = "DebBugs v$VERSION";              #Version Banner - text form
+my $FILE = 'debbugs-dump';                     #File name
 my $config = '';
 my @config = undef;
 
@@ -34,7 +33,7 @@ my %opthash = (# ------------------ actions
     "version|V" => \&banner,
     "verbose|v!" => \$verbose,
     "quiet|q!" => \$quiet,
-    "debug|d" => \$debug,     # Count the -d flags
+    "debug|d+" => \$debug,     # Count the -d flags
     );
 Getopt::Long::config('bundling', 'no_getopt_compat', 'no_auto_abbrev');
 GetOptions(%opthash) or &syntax( 1 );
@@ -58,22 +57,25 @@ print "D1: config file=$config\n" if $Globals{ 'debug' };
 
 ## Put Real Code Here
 
-Debbugs::DBase::OpenRecord( "59998" );
-Debbugs::DBase::ReadRecord( "59998" );
-Debbugs::DBase::CloseRecord();
-foreach my $key ( keys( %Record ) )
-{
-    print "Key= $key   Value = ". $Record{ "$key" } . "\n";
+my @bugs = Debbugs::DBase::GetBugList(["db", "archive"]);
+print "Active Bugs:";
+foreach (@bugs) {
+    print " $_";
 }
-Debbugs::DBase::OpenRecord( "60003" );
-Debbugs::DBase::ReadRecord( "60003" );
-Debbugs::DBase::CloseRecord();
-foreach my $key ( keys( %Record ) )
-{
-    print "Key= $key   Value = ". $Record{ "$key" } . "\n";
+print "\n";
+foreach (@bugs) {
+    Debbugs::DBase::OpenRecord( $_ );
+    Debbugs::DBase::OpenLogfile( $_ );
+    Debbugs::DBase::ReadLogfile( $_ );
+    Debbugs::DBase::CloseLogfile();
+    Debbugs::DBase::ReadRecord( $_ );
+    foreach my $key ( keys( %Record ) )
+    {
+       print "Key= $key   Value = " . $Record{ $key } . "\n";
+    }
+    Debbugs::DBase::CloseRecord();
 }
 
-
 #############################################################################
 #  Ack Back
 #############################################################################