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 --- NEWS | 2 ++ mdkapplet-restricted-helper | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/NEWS b/NEWS index a9800796..0d104b16 100644 --- a/NEWS +++ b/NEWS @@ -1,3 +1,5 @@ +- include distribution version in user agent + Version 2.77.14 - 9 December 2009, Thierry Vignaud - drop diagnostics, strict, vars and warnings pragmas 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