# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1275374667 -7200
# Node ID e0329f2e2f11091302d9c29b3a3625f8e8c03b23
# Parent  4168921d915113c4bbaead9f5930a9ca6790a8bb
send User-Agent and Content-Type (as suggested by the BIT people)

diff -r 4168921d9151 -r e0329f2e2f11 sap-vpn.pl
--- a/sap-vpn.pl	Fri Jan 08 13:32:49 2010 +0100
+++ b/sap-vpn.pl	Tue Jun 01 08:44:27 2010 +0200
@@ -150,7 +150,8 @@
     if (!$use_lwp) {
         $request =
             "GET /my.logon.php3?check=1 HTTP/1.0\r\n"
-          . "Content-Type: application/x-www-form-urlencoded\r\n"
+          . "Content-Type: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\r\n"
+	  . "User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_3; de-de) AppleWebKit/531.22.7 (KHTML, like Gecko) Version/4.0.5 Safari/531.22.7\r\n"
           . "Connection: close\r\n" . "\r\n";
 
         $response = qx(echo "${request}" | ${openssl} 2>/dev/null)