Problem mit perl und cookies (cookies werden verfälscht)

DirkP · 8. März 2006

Hallo,

ich habe einen VoIP Adapter. Diesen kann man über den Browser konfigurieren.
Dies möchte ich nun mit Perl machen.

Dieser Adapter verlangt ein Passwort, damit man sich ein loggen kann. Danach setzt er ein Cookie mit einer SessionID.

Mein Problem ist folgendes:
Der Adapter setzt das Cookie so:
Set-Cookie: SessionId="c9862a64e2cc8a20"; Version=1; Path=/

Das Perl Skript schickt das Cookie aber so an den Adapter zurück:
Cookie: $Version=1; SessionId=" \"c9862a64e2cc8a20\""; $Path="/"

Wie bekomme ich die Backslash in der Session ID weg?

Mein Perl Skript:

Perl

#!/usr/bin/perl -w


use LWP;
use LWP::Debug qw(+);


$url = 'http://192.168.0.2';


$ua = LWP::UserAgent->new();
$ua->cookie_jar( {} );


$response = $ua->get($url) or die "Couldn't fetch $url";


$response = $ua->post(
        $url . "/dologin.htm",
        [
            'P2'	=> "passwort",
	    'gnkey'	=> "12345"
        ]
    );


$response = $ua->get($url . "/rs.htm");

Alles anzeigen

Hier eine gekürze darstellung des HTTPs Protokolls:

HTML

T 192.168.220.55:57480 -> 192.168.220.2:80 [AP]
  POST /dologin.htm HTTP/1.1..TE: deflate,gzip;q=0.3..Connection: TE, close..Host: 192.168.0.2..User-Agent: libwww-perl/5.803..Content-Length: 20..Conte
  nt-Type: application/x-www-form-urlencoded....
##
T 192.168.220.55:57480 -> 192.168.220.2:80 [AP]
  P2=passwort&gnkey=12345
#
T 192.168.220.2:80 -> 192.168.220.55:57480 [A]
  HTTP/1.0 200 OK..Set-Cookie: SessionId="ce8d255bcb872b65"; Version=1; Path=/....<html><head><title>HandyTone 486 Configuration</title></head>..<body>.


[...]


T 192.168.220.55:57481 -> 192.168.220.2:80 [AP]
  GET /rs.htm HTTP/1.1..TE: deflate,gzip;q=0.3..Connection: TE, close..Host: 192.168.0.2..User-Agent: libwww-perl/5.803..Cookie: $Version=1; SessionId="
  \"ce8d255bcb872b65\""; $Path="/"....
#
T 192.168.220.2:80 -> 192.168.220.55:57481 [A]
  <HTML><HEAD><TITLE>Login Page</TITLE></HEAD>   ..<BODY><center><br><br><br><br>..<FORM action="dologin.htm" method="post">     ..<table width=500 cell

Alles anzeigen

Kann mir jemand weiter helfen?
Wie kann ich das Cookie ohne die Backslash und Variablen senden?

Gruß
Dirk

viper · 9. März 2006

bei php nimmt man stripslashes() , bei perl weiß isch das jetzt nicht genau. aber vielleicht hilft dir das hier weiter : http://www.thescripts.com/serv…mysql-together/page3.html

DirkP · 10. März 2006

viper: Danke für den Link. Leider ist das Problem, dass die Cookies automatisch entgegen genommen und automatisch wieder gesendet werden.

Nach dem ich mir die Perl Klasse etwas angeschaut habe, habe ich auch die Stelle gefunden, wo $Version anstelle Version mit dem Header an den Webserver gesendet wird.

Nach etwas rum probieren habe ich die Klasse so geändert, dass der Empfangene Inhalt auch genauso wieder zurrück an den Webserver gesendet wird.

Was interessant wäre, ist ob sich dort ein Fehler eingeschlichen hat, oder ob ich irgend einen Fehler gemacht habe.

Gruß
Dirk

Problem mit perl und cookies (cookies werden verfälscht)

Jetzt mitmachen!

Teilen