]> git.etc.gen.nz Git - spong.git/commitdiff
set UserAgent to 'Spong'
authorJan Willamowius <jan@willamowius.de>
Wed, 21 Sep 2005 22:50:34 +0000 (22:50 +0000)
committerJan Willamowius <jan@willamowius.de>
Wed, 21 Sep 2005 22:50:34 +0000 (22:50 +0000)
src/lib/Spong/Network/plugins/check_https

index 39d6b84a1995c998732b19181ae90b4784a9a363..413bbf356907d0e82792cc4b5f51b2a163c642f0 100755 (executable)
@@ -32,6 +32,7 @@ sub check_https {
 
    foreach $file ( @https_files ) {
      my $useragent = LWP::UserAgent->new;
+     $useragent->agent('Spong');
      my $request =
        HTTP::Request->new(HEAD => "https://$host:$https_port$file");
      my $result = $useragent->request($request);