1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
#!/usr/bin/perl -w
push(@INC,'.');
use strict;
use Debbugs::Config qw(%Globals &ParseConfigFile);
#use Debvote::Email qw(&InitEmailTags &LoadEmail &ProcessTags %gtags);
use Debbugs::DBase;
use Getopt::Long;
#############################################################################
# Customization Variables
#############################################################################
#############################################################################
# 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 $config = '';
my @config = undef;
#############################################################################
# Commandline parsing
#############################################################################
# Hash used to process commandline options
my $verbose = 0;
my $quiet = 0;
my $debug = 0;
my %opthash = (# ------------------ actions
"config|c=s" => \$config,
"help|h" => \&syntax,
"version|V" => \&banner,
"verbose|v!" => \$verbose,
"quiet|q!" => \$quiet,
"debug|d+" => \$debug, # Count the -d flags
);
Getopt::Long::config('bundling', 'no_getopt_compat', 'no_auto_abbrev');
GetOptions(%opthash) or &syntax( 1 );
if ( $debug > 1 )
{ print "D2: Commandline:\n";
print "\tconfig = $config\n" unless $config eq '';
print "\tverbos\n" if $verbose;
print "\tquiet\n" if $quiet;
print "\tdebug = $debug\n";
}
$Globals{ 'debug' } = $debug;
$Globals{ 'quiet' } = $quiet;
$Globals{ 'verbose' } = $verbose;
#############################################################################
# Read Config File and parse
#############################################################################
$config = "./debbugs.cfg" if( $config eq '' );
print "D1: config file=$config\n" if $Globals{ 'debug' };
@config = ParseConfigFile( $config );
## Put Real Code Here
my @bugs = Debbugs::DBase::GetBugList(["db", "archive"]);
print "Active Bugs:";
foreach (@bugs) {
print " $_";
}
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
#############################################################################
sub syntax {
print "$BANNER\n";
print <<"EOT-EOT-EOT";
Syntax: $FILE [options]
-c, --config CFGFILE read CFGFILE for configuration (default=./debvote.cfg)
-h, --help display this help text
-v, --verbose verbose messages
-q, --quiet cancels verbose in a config file
-V, --version display Debvote version and exit
-d, --debug turn debug messages ON (multiple -d for more verbose)
EOT-EOT-EOT
exit $_[0];
}
|
