#!/usr/bin/perl -w
use Term::ANSIColor qw(:constants);
# vi:fdm=marker fdl=0:

$Term::ANSIColor::AUTORESET = 1;


my($path) = $0 =~ /^(.*)\//;
push @INC,$path;
require BugCli;


my ($shell) = BugCli->new;
print BLUE . ">> " . GREEN
  . "Welcome to BugZilla CLI by Reflog v$shell->{API}{version}"
  . BLUE . " <<"
  . CLEAR . "\n";
if (not $shell->read_config() ) {
    $shell->run_config();
    $shell->unload_defaults();
}
$shell->init_mysql();
if ( not @ARGV ) {    # no params, start interactive mode
    $shell->cmdloop;
}
else {                #got params. parse and start working.
    my (@commands) = split /;/, $ARGV[0];
    print RED
      . " WARNING: "
      . RESET
      . "All commands are your responsibility!\n";
    foreach (@commands) {
        print BLUE . ">> " . GREEN
          . "Executing: "
          . RESET
          . $_
          . BLUE . " <<"
          . RESET . "\n";
        $shell->cmd($_);
    }
}

$shell->write_config();

1;

__END__

=head1 NAME

BugCli - Command line interface for BugZilla server

=head1 SYNOPSIS

 >  bugcli
 >  bugcli command
 >  bugcli "command1 ; command2 ; command with params"

=head1 DESCRIPTION

This little baby is a tool for people who make tons of bugfixes each day, want to do it
more efficently, i.e. do not use the freaking browser!