diff options
author | Gerald Combs <gerald@wireshark.org> | 2012-05-09 19:17:48 +0000 |
---|---|---|
committer | Gerald Combs <gerald@wireshark.org> | 2012-05-09 19:17:48 +0000 |
commit | d5b3acebd191c7c4b7417fa9c57017b095bf4f8c (patch) | |
tree | 7bc7f7e5a78c2f4ee9db1c2dac11871f7d35cee8 /tools/make-services.pl | |
parent | 582c102f16fb0aa1bfc38b00eeee3d22896923ba (diff) | |
download | wireshark-d5b3acebd191c7c4b7417fa9c57017b095bf4f8c.tar.gz |
Send a useful User-Agent header.
svn path=/trunk/; revision=42522
Diffstat (limited to 'tools/make-services.pl')
-rwxr-xr-x | tools/make-services.pl | 4 |
1 files changed, 4 insertions, 0 deletions
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"; |