[project @ 2005-07-25 09:18:02 by cjwatson]

[debbugs.git] / debbugs-dump

diff --git a/debbugs-dump b/debbugs-dump
index d562d60287fda64be9af4446d148bbdf9feeb1bc..7c2b29bcc60195829910387483608b7cb83ae755 100755 (executable)
--- a/debbugs-dump
+++ b/debbugs-dump
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-push(@INC,'/home/gecko/debian/debvote');
+push(@INC,'.');
 use strict;
 use Debbugs::Config qw(%Globals &ParseConfigFile);
 #use Debvote::Email qw(&InitEmailTags &LoadEmail &ProcessTags %gtags);
@@ -14,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;
 
@@ -57,18 +57,25 @@ print "D1: config file=$config\n" if $Globals{ 'debug' };
 
 ## Put Real Code Here
 
-Debbugs::DBase::ReadRecord( "59999" );
-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::ReadRecord( "60000" );
-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
 #############################################################################