the two subroutines are actually doing the printing, so change the two lines
in the "#Do Player Login" section
from>>
print &LoadMyCookie;
print &GameStart_page;
to>>
&LoadMyCookie;
&GameStart_page;
(untested)
----------
>From: "Andre` Niel Cameron" <[EMAIL PROTECTED]>
>To: <[EMAIL PROTECTED]>
>Subject: Cookie Help PLEASE!
>Date: Sat, Nov 17, 2001, 6:57 pm
>
> Ok, I finaly joined a perl list as I have been banging hy head against the
> wall for 3 days trying to get this to work! I would really appreciate any
> help:) Heres is the problem:
>
> I have a script that after you "Login" it should give you a cookie and then
> load the game start page. Well problem is it gives the cookie but then does
> not load the page! I am using CGI.pm for this as cookie-lib did not work
> overly well. Here is my code(Don't laugh)
>
> ############################################################################
> ########
> #Do Player Login
> ############################################################################
> ########
>
> if ($ENV{'QUERY_STRING'} eq "Login") {
>
> CGI::ReadParse(*form);
> $password= $form{'password'};
> $username= $form{'username'};
>
> $file= "data/$username.db";
> open (USR, $file) || die(&Badpw_Page);
> @Read_Password=<USR>;
> close(USR);
> chop(@Read_Password);
> if($Read_Password[0] eq $password) {
> print &LoadMyCookie;
> print &GameStart_page;
> exit;
> } else {
> &Badpw_Page;
> exit;
> }
> }
>
>
> ############################################################################
> #########
> #Load Cookie
> ############################################################################
> #########
> sub LoadMyCookie {
> $bbtdPlayerData = $TheCookie->cookie(-name=>'bbtdplayer', -value=>[thing,
> stuff, t$
> print $TheCookie->header(-cookie=>$bbtdPlayerData);
> exit;
> }
>
>
> ############################################
> #Game Start Page
> ############################################
> sub GameStart_page {
> print "Content-type: text/html\n\n";
> print <<EOT;
> Normal frames HTML page here I just did not want to stick it all in:)
> EOT
> exit;
> }
>
>
> You can see it all at http://a.axxs.net username is andre and password is
> password
> Any more info needed email me:)
>
> Regards,
> Andre` C.
> Technical Support
> ԿԬ
> ----------------------------------------------------------------------------
> -
> Visit our support manual at http://supportmanual.com/
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
