From: Eric Bollengier <eric@eb.homelinux.org>
Date: Thu, 11 Jan 2007 14:20:35 +0000 (+0000)
Subject: ebl  Add brestore revision to BwebConsole
X-Git-Tag: Release-2.0.1~16
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=a155635b5bd1d1ec74866d8f77fe64edbd0ddd33;p=bacula%2Fbacula

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 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},