Send a useful User-Agent header.

svn path=/trunk/; revision=42522

3 files changed, 13 insertions, 0 deletions

diff --git a/tools/make-manuf b/tools/make-manuf
index be4eef45e5..af981bdfcd 100755
--- a/tools/make-manuf
+++ b/tools/make-manuf
@@ -27,8 +27,13 @@ if( $@ ) {
   die "LWP isn't installed. It is part of the standard Perl\n" .
 	" module libwww.  Bailing.\n";
 }
+
+$revision = '$Revision$';
+if ($revision !~ /[0-9]/ ) { $revision = "unknown"; }
+
 $agent    = LWP::UserAgent->new;
 $agent->env_proxy;
+$agent->agent("Wireshark make-manuf/$revision");
 
 $template = "manuf.tmpl";
 $wkatmpl  = "wka.tmpl";
diff --git a/tools/make-services.pl b/tools/make-services.pl
index fb4707b48f..d77621f791 100755
--- a/tools/make-services.pl
+++ b/tools/make-services.pl
@@ -38,6 +38,9 @@ my $iana_port_url = "http://www.iana.org/assignments/service-names-port-numbers/
 # is XML. Perhaps we should parse that instead.
 $in = $iana_port_url unless(defined $in);
 
+my $revision = '$Revision$';
+if ($revision !~ /[0-9]/ ) { $revision = "unknown"; }
+
 my $body = "";
 
 if($in =~ m/^http:/i) {
@@ -46,6 +49,7 @@ if($in =~ m/^http:/i) {
 
 	my $agent    = LWP::UserAgent->new;
 	$agent->env_proxy;
+	$agent->agent("Wireshark make-services.pl/$revision");
 
 	warn "starting to fetch $in ...\n";
 
diff --git a/tools/make-sminmpec.pl b/tools/make-sminmpec.pl
index 7b1f13d9ab..0202867e6f 100755
--- a/tools/make-sminmpec.pl
+++ b/tools/make-sminmpec.pl
@@ -29,12 +29,16 @@ $in = "http://www.iana.org/assignments/enterprise-numbers" unless(defined $in);
 
 my @in_lines;
 
+my $revision = '$Revision$';
+if ($revision !~ /[0-9]/ ) { $revision = "unknown"; }
+
 if($in =~ m/^http:/i) {
 	eval "require LWP::UserAgent;";
 	die "LWP isn't installed. It is part of the standard Perl module libwww." if $@;
 
 	my $agent    = LWP::UserAgent->new;
 	$agent->env_proxy;
+	$agent->agent("Wireshark make-sminmpec.pl/$revision");
 
 	warn "starting to fetch $in ...\n";