sap-vpn.pl
changeset 16 e0329f2e2f11
parent 15 4168921d9151
child 17 15103e67791d
equal deleted inserted replaced
15:4168921d9151 16:e0329f2e2f11
   148     my $cookies;
   148     my $cookies;
   149 
   149 
   150     if (!$use_lwp) {
   150     if (!$use_lwp) {
   151         $request =
   151         $request =
   152             "GET /my.logon.php3?check=1 HTTP/1.0\r\n"
   152             "GET /my.logon.php3?check=1 HTTP/1.0\r\n"
   153           . "Content-Type: application/x-www-form-urlencoded\r\n"
   153           . "Content-Type: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8\r\n"
       
   154 	  . "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"
   154           . "Connection: close\r\n" . "\r\n";
   155           . "Connection: close\r\n" . "\r\n";
   155 
   156 
   156         $response = qx(echo "${request}" | ${openssl} 2>/dev/null)
   157         $response = qx(echo "${request}" | ${openssl} 2>/dev/null)
   157           or ohshit "Invalid Host specified or not reachable: $opt_host\n";
   158           or ohshit "Invalid Host specified or not reachable: $opt_host\n";
   158 
   159