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-sminmpec.pl | |
parent | 582c102f16fb0aa1bfc38b00eeee3d22896923ba (diff) |
Send a useful User-Agent header.
svn path=/trunk/; revision=42522
Diffstat (limited to 'tools/make-sminmpec.pl')
-rwxr-xr-x | tools/make-sminmpec.pl | 4 |
1 files changed, 4 insertions, 0 deletions
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"; |