[Perl][HTTP] Probleempje met Auth

[Verwijderd]

Ik ben een webserver aan het maken in perl. Om de webserver in te komen wil dat je inlogt. Dus heb ik een paar headers aangevraagd. In mijn script staat de volgende code:

code:

if ( $auth_username eq "" )
{

                print $fh "HTTP/1.1 401 Unauthorized\r\n";
                print $fh "Content-type: text/html\r\n";
                print $fh "X-Powered-By: Mijn Webserver/1.0\r\na";
                print $fh "WWW-Authenticate: Basic realm=\"$auth_message\"\r\n";
                print $fh "Error!";


}

Het probleem is dat "Error!" Niet wordt weergegeven als er op annuleren wordt gedrukt! Wat doe ik verkeerd?

Alvast Bedankt!

Groeten Ruben!

[Tom-Eric]

Moet er tussen de headers en de content niet nog een extra line break?

[Verwijderd]

Wat doet die a bij het einde van de 3e regel met print? Wat is de inhoud van $auth_message? Wat zin de echte headers die de browser krijgt na het invullen van de vairabelen? Als je dat weet is debuggen meestal simpel.

Tumtum hierboven bedoelt dat de regel met Error! nog deel uitmaakt van de headers.

[ Voor 17% gewijzigd door Verwijderd op 08-06-2004 19:25 ]

[Soultaker]

TumTum schreef op 08 juni 2004 @ 19:23:
Moet er tussen de headers en de content niet nog een extra line break?

Dat moet inderdaad.

[Verwijderd]

Ja, hartelijk bedankt! Dat was hem inderdaat!

[Verwijderd]

Ik heb niet heel veel gedaan met Perl, maar voor dit soort dingen heb je toch cgi.pm, dan kun je de html generatie door een object doen. En dan maak je dus niet dit soort fouten.

[BKJ]

Verwijderd schreef op 08 juni 2004 @ 20:33:
Ik heb niet heel veel gedaan met Perl, maar voor dit soort dingen heb je toch cgi.pm, dan kun je de html generatie door een object doen. En dan maak je dus niet dit soort fouten.

Dat kan idd, dat scheelt een boel werk iig.