[Poard] Bugs (Seite 25) (Perl-Community.de)

[thread]9825[/thread]

[Poard] Bugs (Seite 25)

Leser: 11

2007-10-31 15:14

User since
2003-08-04
12209 Artikel
Admin1

ich habe das getestet:
einloggen:

Code: (dl )

main:36 $h = \bless( {
                'connection' => 'close',
                'client-response-num' => 1,
                'location' => 'http://board.perl-community.de/overview/testcookie=1',
                'set-cookie' => 'PBoard=sessionID&123456789...; path=/; expires=Thu, 01-Nov-2007 13:11:49 GMT',
                'date' => 'Wed, 31 Oct 2007 13:11:49 GMT',
                'client-peer' => '217.172.179.49:80',
                'client-date' => 'Wed, 31 Oct 2007 13:11:48 GMT',
                'content-type' => 'application/x-perl',
                'client-transfer-encoding' => 'chunked',
                'server' => 'Apache/1.3.28 (Linux/SuSE) PHP/4.3.3 mod_perl/1.28'
              }, 'HTTP::Headers' );
Status code: 302 Moved

das sieht ja bis auf den content-type erstmal ok aus.
wenn ich mich mit opera einlogge, werde ich auch korrekt auf die testcookie-seite weitergeleitet.
dort wird mir auch suggeriert, ich sei eingeloggt.
jeder weitere link jedoch wird mir wieder als gast angezeigt.

<edit|Strat>gefixt</edit>

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Antworten mit Zitat

Gast Gast

2007-10-31 15:20

//EDIT: Drachin testete mit LWP::UserAgent und gab die Antwort des Requests als String zurück:

Login auf http://board.perl-community.de/perl-bin/board.pl?a... mit POST und Logindaten

Code: (dl )

HTTP/1.1 302 (Found) Moved
Connection: close
Date: Wed, 31 Oct 2007 13:16:28 GMT
Location: http://board.perl-community.de/overview/testcookie=1
Server: Apache/1.3.28 (Linux/SuSE) PHP/4.3.3 mod_perl/1.28
Content-Type: application/x-perl
Client-Date: Wed, 31 Oct 2007 13:16:33 GMT
Client-Peer: 217.172.179.49:80
Client-Response-Num: 1
Client-Transfer-Encoding: chunked
Set-Cookie: PBoard=sessionID&3**************b7c1f7***********71758****************3601562&user&GwenDragon&***berID&***; path=/; expires=Thu, 01-Nov-2007 13:16:29 GMT

Aha.

Seltsam:

Code: (dl )

HTTP/1.1 302 (Found) Moved

Was ist das bitte?

Code: (dl )

Content-Type: application/x-perl

Und das muss chon irgendein vom Browser anzeigbarer MIME sein!

<edit|Strat>gefixt</edit>

Antworten mit Zitat

2007-10-31 15:26

User since
2003-08-04
12209 Artikel
Admin1

Gast+2007-10-31 14:20:39--
Seltsam:
Code: (dl )
HTTP/1.1 302 (Found) Moved
Was ist das bitte?

ein ganz normaler redirect?

<edit|Strat>gefixt</edit>

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Antworten mit Zitat

Gast Gast

2007-10-31 16:11

GwenDragon meint:

Sollte das nicht entweder
HTTP/1.1 302 Found
oder
HTTP/1.1 301 Moved Permanently
sein!?
RFC zu Statuscodes:
http://www.w3.org/Protocols/rfc2616/rfc2616-sec10....

Wer generiert denn den seltsamen Header? mod_perl!?
ich habe im SVN des Poard auf die schnelle nichts gefunden.

<edit|Strat>gefixt</edit>

Antworten mit Zitat

Gast Gast

2007-10-31 20:01

Da Problem mit dem Login bei der 9.50 beta ist auch an Opera gemeldet.

<edit|Strat>gefixt</edit>

Antworten mit Zitat

Strat

2007-11-01 13:26

User since
2003-08-04
5246 Artikel
ModeratorIn

der seltsame redirect wird von CPAN:

CGI erzeugt.

Code: (dl )

1
2
3

H:\>perl -e "use CGI; $cgi = CGI->new; print $cgi->redirect( -url => 'http://www.xaz.de/', );"
Status: 302 Found
Location: http://www.xaz.de/

den header suche ich noch

<edit|Strat>gefixt</edit>

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Antworten mit Zitat

Strat

2007-11-01 13:33

User since
2003-08-04
5246 Artikel
ModeratorIn

ah, folgendermaszen sieht's besser aus:

Code: (dl )

H:\>perl -e "use CGI; $cgi=CGI->new; print $cgi->redirect( -url => 'http://www.perl.org/', -status => 302, -nph => 1 )"
HTTP/1.0 302
Server: cmdline
Status: 302
Date: Thu, 01 Nov 2007 11:32:07 GMT
Location: http://www.perl.org/

<edit|Strat>gefixt</edit>

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Antworten mit Zitat

Strat

2007-11-01 13:36

User since
2003-08-04
5246 Artikel
ModeratorIn

ich aendere die Action.pm -> LogonUser jetzt folgendermaszen:

Code (perl): (dl )

        $poard->redirect(
                         -uri    => $forwardUrl,
                         -status => 301,
                         -nph    => 1,
                         -cookie => $cookie,
                         );

teste es und aktualisiere das Poard (d.h. wenn es funzt); ich kann das Problem bei mir leider nicht so einfach nachstellen, weil bei mir alles funzt...

<edit|Strat>gefixt</edit>

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Antworten mit Zitat

Strat

2007-11-01 13:41

User since
2003-08-04
5246 Artikel
ModeratorIn

mit -nph => 1 funzt's nicht; folgendes sieht gut aus:

Code: (dl )

        $poard->redirect(
                         -url    => $forwardUrl,
                         -status => 302,
                         -cookie => $cookie,
                         );

<edit|Strat>gefixt</edit>

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Antworten mit Zitat

Strat

2007-11-01 13:51

User since
2003-08-04
5246 Artikel
ModeratorIn

so, habe hier mal aktualisiert; bitte um tests, ob es jetzt funzt

<edit|Strat>gefixt</edit>

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Antworten mit Zitat

View all threads created 2007-07-30 01:21.