=cut
-use Gtk2; # auto-initialize Gtk2
-use Gtk2::GladeXML;
-use Gtk2::SimpleList; # easy wrapper for list views
-use Gtk2::Gdk::Keysyms; # keyboard code constants
use Data::Dumper qw/Dumper/;
my $debug=0; # can be on brestore.conf
our ($VERSION) = ('$Revision$' =~ /(\d+)/);
bconsole => 'bconsole', # path and arg to bconsole
bsr_dest => '', # destination url for bsr files
debug => 0, # debug level 0|1
- use_ok_bkp_only => 1, # dont use bad backup
+ use_ok_bkp_only => 1, # don't use bad backup
bweb => 'http://localhost/cgi-bin/bweb/bweb.pl', # bweb url
see_all_versions => 0, # display all file versions in FileInfo
mozilla => 'mozilla', # mozilla bin
SELECT Job.JobId, Job.VolsessionId, Job.VolsessionTime, JobMedia.StartFile,
JobMedia.EndFile, JobMedia.FirstIndex, JobMedia.LastIndex,
JobMedia.StartBlock, JobMedia.EndBlock, JobMedia.VolIndex,
- Media.Volumename, Media.MediaType
+ Media.VolumeName, Media.MediaType
FROM Job, JobMedia, Media
WHERE Job.JobId = JobMedia.JobId
AND JobMedia.MediaId = Media.MediaId
# path, volsessiontime DESC (get the most recent file...)
# The array rows look like this :
# complete_path,is_dir,fileindex,
- #\81 ref->(jobid,VolsessionId,VolsessionTime,File,FirstIndex,
+ # ref->(jobid,VolsessionId,VolsessionTime,File,FirstIndex,
# LastIndex,StartBlock-EndBlock,VolIndex,Volumename,MediaType)
@temp_list = sort {$a->[0] cmp $b->[0]
|| $b->[3]->[2] <=> $a->[3]->[2]
or $prev_volfile ne $volfile)
{
# We have to create a new section in the bsr...
- #\81Â\81 We print the previous one ...
+ # We print the previous one ...
# (before that, save the current range ...)
if ($first_of_current_range != $prev_fileindex)
{
- #\81Â\81 we are in a range
+ # we are in a range
push @fileindex_ranges,
("$first_of_current_range-$prev_fileindex");
}
AND File.FileIndex >= JobMedia.FirstIndex
AND File.FileIndex <= JobMedia.LastIndex
AND JobMedia.MediaId = Media.MediaId
+ AND Job.Type = 'B'
AND Client.Name = '$client'";
$self->debug($query);
exit (0);
}
+# load Gtk libraries only in non batch mode
+eval "
+ use Gtk2;
+ use Gtk2::GladeXML;
+ use Gtk2::SimpleList;
+ use Gtk2::Gdk::Keysyms;
+";
+
$glade_file = $p->{glade_file} || $glade_file;
foreach my $path ('','.','/usr/share/brestore','/usr/local/share/brestore') {