=head1 NAME
-add_bug_to_estraier
+add_bug_to_estraier -- add a bug log to an estraier database
=head1 SYNOPSIS
add_bug_to_estraier [options] < list_of_bugs_to_add
Options:
+ --url, -u url to estraier node
+ --user, -U user to log into the estraier node
+ --pass, -P password for the estraier node
+ --spool, -s spool location
+ --conf, -c addbug configuration file
+ --cron add all bugs to estraier
+ --timestamp bug timestamp file
--debug, -d debugging level (Default 0)
--help, -h display this help
--man, -m display manual
test_bts --bug 7 --host donbugs.donarmstrong.com
+=head1 DATABASE CREATION
+
+estcmd create -si -xh3 -attr status str -attr subject str \
+ -attr date num -attr submitter str -attr package str \
+ -attr severity str -attr tags str bts
+
=cut
+use Debbugs::Config qw(:globals);
use Debbugs::Mail qw(send_mail_message);
use Debbugs::MIME qw(create_mime_message);
user => $options{user},
passwd => $options{passwd},
);
-$Debbugs::Config::gSpoolDir = $options{spool} if defined $options{spool};
+$gSpoolDir = $options{spool} if defined $options{spool};
if ($options{cron}) {
my %timestamps;
($timestamps{$File::Find::dir} > $stat->mtime);
$seen_dirs{$File::Find::dir} = $start_time;
print STDERR "Adding $bug_num\n" if $DEBUG;
+ my $max_message = 0;
eval{
- add_bug_log($node,$bug_num);
+ $max_message = add_bug_log($node,$bug_num);
};
if ($@) {
print STDERR "Adding $bug_num failed with $@\n";