my $host_nums;
foreach my $host ( keys %$Hosts ) {
+ $host = lc $host;
my @backups = $bpc->BackupInfoRead($host);
if ( !@backups ) {
warn "$0: host $host doesn't have any backups... skipping\n";
use Cwd qw/abs_path/;
use Data::Dumper;
-my $debug = $ENV{DEBUG} || 1;
+my $debug = $ENV{DEBUG} || 0;
# set this to 1 to prompt for DVD removal for each selected item.
my $prompt_for_delete = shift @ARGV;
$|=1;
foreach ( 0 .. $#{ $opt->host } ) {
- my $host = $opt->host->[$_];
+ my $host = lc $opt->host->[$_];
my $num = $opt->num->[$_];
if ( ! $opt->ok ) {
foreach my $host_key (@hosts) {
my $hostname = $hosts->{$host_key}->{'host'} || die "can't find host for $host_key";
+ $hostname = lc $hostname;
- next if $opt->host && ! grep { m/^$hostname$/ } @{ $opt->host };
+ next if $opt->host && ! grep { m/^$hostname$/i } @{ $opt->host };
$sth->{hosts_by_name}->execute($hostname);
unless (($hostID) = $sth->{hosts_by_name}->fetchrow_array()) {
$sth->{insert_hosts}->execute(
- $hosts->{$host_key}->{'host'},
+ $hostname,
$hosts->{$host_key}->{'ip'}
);
$Conf{CgiHeaders}
<script src="$Conf{CgiImageDirURL}/sorttable.js"></script>
</head><body onLoad="document.getElementById('NavMenu').style.height=document.body.scrollHeight">
+<!--
<a href="http://backuppc.sourceforge.net"><img src="$Conf{CgiImageDirURL}/logo.gif" hspace="5" vspace="7" border="0"></a><br>
+-->
+<img src="/asa-150x50.png" hspace="5" vspace="7">
EOF
if ( defined($Hosts) && defined($host) && defined($Hosts->{$host}) ) {
if ( $@ ) {
warn "ERROR: $search_module: $!";
} else {
- warn "# using $search_module for full-text search";
+ #warn "# using $search_module for full-text search";
}
return $search_module->new( %Conf );