From 83154b25010bf325c11ff7132d4e97cb21b799f9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 16 Dec 2009 16:22:21 +0000 Subject: (get_from) include distribution version in user agent --- mdkapplet-restricted-helper | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'mdkapplet-restricted-helper') diff --git a/mdkapplet-restricted-helper b/mdkapplet-restricted-helper index f6655bfe..18aefdb1 100755 --- a/mdkapplet-restricted-helper +++ b/mdkapplet-restricted-helper @@ -111,7 +111,8 @@ sub get_from { my ($link, $header) = @_; my $ua = LWP::UserAgent->new; - $ua->agent("mdkapplet (mdkonline-$mdkonline::version)"); + $ua->agent(sprintf('mdkapplet (mdkonline-%s; distribution: %s)', + $mdkonline::version, $version)); $ua->env_proxy; my $response = $ua->request(POST $link, $header); -- cgit v1.2.1