#!/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);
#############################################################################
# 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;
## 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
#############################################################################