From a155635b5bd1d1ec74866d8f77fe64edbd0ddd33 Mon Sep 17 00:00:00 2001 From: Eric Bollengier Date: Thu, 11 Jan 2007 14:20:35 +0000 Subject: [PATCH] ebl Add brestore revision to BwebConsole git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3966 91ce42f0-d328-0410-95d8-f526ca767f89 --- gui/brestore/brestore.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gui/brestore/brestore.pl b/gui/brestore/brestore.pl index a489de1312..ba541bbb35 100755 --- a/gui/brestore/brestore.pl +++ b/gui/brestore/brestore.pl @@ -71,6 +71,7 @@ use Gtk2::Gdk::Keysyms; # keyboard code constants use Data::Dumper qw/Dumper/; use DBI; my $debug=0; # can be on brestore.conf +our $VERSION='$Revision$'; ################################################################ @@ -213,7 +214,7 @@ sub prepare { my ($self, @what) = @_; my $ua = LWP::UserAgent->new(); - $ua->agent("Brestore "); + $ua->agent("Brestore ($VERSION)"); my $req = POST($self->{pref}->{bconsole}, Content_Type => 'form-data', Content => [ map { (action => $_) } @what ]); @@ -237,7 +238,7 @@ sub run my ($self, %arg) = @_; my $ua = LWP::UserAgent->new(); - $ua->agent("Brestore "); + $ua->agent("Brestore ($VERSION)"); my $req = POST($self->{pref}->{bconsole}, Content_Type => 'form-data', Content => [ job => $arg{job}, -- 2.39.5