=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
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') {