[project @ 2000-04-30 10:12:46 by doogie]

[debbugs.git] / debbugs-dump

diff --git a/debbugs-dump b/debbugs-dump
index d562d60287fda64be9af4446d148bbdf9feeb1bc..cb5047e50b883e67cc3536d6d97ea28b18e3aa8d 100755 (executable)
--- a/debbugs-dump
+++ b/debbugs-dump
@@ -1,6 +1,7 @@
 #!/usr/bin/perl -w
 
 push(@INC,'/home/gecko/debian/debvote');
+push(@INC,'/debian/home/doogie/debian/debbugs/cvs');
 use strict;
 use Debbugs::Config qw(%Globals &ParseConfigFile);
 #use Debvote::Email qw(&InitEmailTags &LoadEmail &ProcessTags %gtags);
@@ -33,7 +34,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 );
@@ -57,15 +58,19 @@ print "D1: config file=$config\n" if $Globals{ 'debug' };
 
 ## Put Real Code Here
 
-Debbugs::DBase::ReadRecord( "59999" );
+Debbugs::DBase::OpenRecord( "59998" );
+Debbugs::DBase::ReadRecord( "59998" );
+Debbugs::DBase::CloseRecord();
 foreach my $key ( keys( %Record ) )
 {
- #   print "Key= $key   Value = ". $Record{ "$key" } . "\n";
+    print "Key= $key   Value = ". $Record{ "$key" } . "\n";
 }
-Debbugs::DBase::ReadRecord( "60000" );
+Debbugs::DBase::OpenRecord( "60003" );
+Debbugs::DBase::ReadRecord( "60003" );
+Debbugs::DBase::CloseRecord();
 foreach my $key ( keys( %Record ) )
 {
-#    print "Key= $key   Value = ". $Record{ "$key" } . "\n";
+    print "Key= $key   Value = ". $Record{ "$key" } . "\n";
 }