Greetings All, i m creating a session storing the loging credentials. i want to access that data later after crossing two pages.i have created the sesion but i could not get the data back some where i m going wrong can u point me where ..
my first first file getting the login credentials #!/usr/local/bin/perl5 &top(); &login_check(); &bottom(); sub top{ print <<EOM1; Content-type: text/html <html> <head> <title>Login Authentication</title> </head> <body> EOM1 } sub bottom{ print <<EOM2; </body> </html> EOM2 } sub login_check{ print <<EOM; <h3>Enter the login Password</h3> <form method="post" action="cookie.cgi"> <input type="hidden" name="username" value='Submit'> <p>Username: <input type="text" name="uid" size="20"></p> <p>Password: <input type="password" name="passwd" size="20"></p> <input type="submit" value="Submit" name="submit"> </form> EOM } second file where i m creating the session. #!/usr/local/bin/perl5 use Net::LDAP; &top(); &login_check(); &bottom(); sub top{ print <<EOM1; Content-type: text/html <html> <head> <title>Login Authentication</title> </head> <body> EOM1 } sub bottom{ print <<EOM2; </body> </html> EOM2 } sub login_check{ my ($ret); use CGI; my $query = new CGI; $query->param("submit"); my $userid = $query->param("uid"); my $password = $query->param("passwd"); use CGI; use CGI::Session; $session = new CGI::Session("driver:File",undef,{'Directory'=>"/ tmp"}); $sid = $session->id(); print "Session id:".$sid; #$session->name($userid); # Write the session variable on the server $session->param('username',$userid); $session->param('password',$password); print "username:".$userid."pass:"; $usernam = $session->param('username'); $passwor = $session->param('password'); print "username from the cookie:".$usernam; #create session cookie $cookie = $query->cookie(CGISESSID => $session->id); print $query->header( -cookie=>$cookie ); #print "cookie:".$cookie; print <<EOM; <h5>Cookie created <a href="/cgi-bin/sesion/cookie/ test.cgi">click here to check</a> </h5> EOM } Third file to access the session values. #!/usr/local/bin/perl5 &top(); &cookie_check(); &bottom(); sub top{ print <<EOM1; Content-type: text/html <html> <head> <title>Login Authentication</title> </head> <body> EOM1 } sub bottom{ print <<EOM2; </body> </html> EOM2 } sub cookie_check{ use CGI; use CGI::Session; my $query = new CGI; $sid = $query->cookie('CGISESSID') || $query->param('CGISESSID') || undef; $session = new CGI::Session(undef, $sid, {Directory=>'/tmp'}); $username = $session->param('username'); $password = $session->param('password'); print <<EOM; <h3>Cookie test $username $password</h3> EOM } i m not getting the values when i read here. i dont know where the cookie is created. i check with the server i could see the session which is created in the server.please tell me where i m going wrong..... thanks in advance.. Prakash -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/