From: doogie <>
Date: Tue, 2 May 2000 06:29:49 +0000 (-0800)
Subject: [project @ 2000-05-01 23:29:49 by doogie]
X-Git-Tag: release/2.6.0~1284
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9f1702500288208a895a9fabfa61f95544d1ca66;p=debbugs.git

[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 cb5047e5..7c2b29bc 100755
--- 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
 #############################################################################