ebl Add brestore revision to BwebConsole

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3966 91ce42f0-d328-0410-95d8-f526ca767f89

diff --git a/gui/brestore/brestore.pl b/gui/brestore/brestore.pl
index a489de1312345455ab4eb84c2d9e1190efc246d3..ba541bbb353d49ef8dea4cc0b02d596ec9840912 100755 (executable)
--- 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},