X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=blobdiff_plain;f=cprogs%2Fcgi-fcgi-test;fp=cprogs%2Fcgi-fcgi-test;h=3d5f0ed2a7016d83517697092738e270f8c6cf81;hp=4c8d7b79c34f4da321683a6c5db18dec2c42330f;hb=1d61e3a5e807c5356bfa4158c248013e3be788d4;hpb=84351242462d8d501402ee63536b4f56be03e1c7

diff --git a/cprogs/cgi-fcgi-test b/cprogs/cgi-fcgi-test
index 4c8d7b7..3d5f0ed 100755
--- a/cprogs/cgi-fcgi-test
+++ b/cprogs/cgi-fcgi-test
@@ -23,13 +23,15 @@ print STDERR "[$$ stderr starting]\n";
 print REALSTDERR "[$$ real-stderr starting]\n";
 
 while ($request->Accept >= 0) {
+    my $ua = $ENV{HTTP_USER_AGENT} // '<none>';
     print <<END;
 Content-Type; text/plain
 
 success
 count=$count
+$ua
 END
-    print STDERR "[$$ stderr] serviced $count.\n";
-    print REALSTDERR "[$$ real-stderr] serviced $count.\n";
+    print STDERR "[$$ stderr] serviced $count ($ua).\n";
+    print REALSTDERR "[$$ real-stderr] serviced $count ($ua).\n";
     $count++;
 }