How to use session variables in utility program

Win 2003, TS 6.5, web page with ipl extension

Hey, I would like to use session variables in our utility programs. I found code for use CGI: Smiley Frustrated

ession, for this I need to install the perl module. But my question is already do we have this facility in TeamSite(installed modules)? If not and I install the Session module, will it effect my environment? Please advice me.

Thanks
Sri

Find more posts tagged with

Comments

Srinivasa Talla

Anybody used Apache: Smiley Frustrated

ession or CGI: Smiley Frustrated

ession. Stored the values and try to redirect to another page. Here I am able to set the values, but redirection is not working. Any suggestions? Thanks

ISCBorisB

Anybody used Apache:ession or CGI:ession. Stored the values and try to redirect to another page. Here I am able to set the values, but redirection is not working. Any suggestions? Thanks

You would have to provide more details. "Redirect" is a term that refers to the use of different techniques.

Do you use http-equiv, modify location on Load, use callServer, use Ajax, etc...
"...redirection is not working..." What is the problem manifestation?

Srinivasa Talla

Background:
In our utility program, we have just normal perl pages. There are two type of users, Admin and User. If they are trying to login, I need to save the value in session object and redirect to another page.
1. I tried to use just cookies, without using sessions, Here the problem is I can able to set the value first time. But I can't able to delete that(when user logouts, I am keeping empty string there)..my system is behaving something strange. This is simple example, but misbehaving. If I refresh the web page again, then the new value is appearing.
2. By using session, setting value is no problem, but the redirecting, just printing the url on web page.

my $session = session_header;#---by using CGI: Smiley Frustrated

ession;
if ( $query->param("frmsubmit") ) {

$uname = $query->param("uname");
$pwd = $query->param("pwd");
if ($uname eq "AA" && $pwd eq "AA") {
$session->param( "usertype", 'admin' ); # store into the session:
my $c = new CGI::Cookie(-name => 'plcuser',-value => 'admin', -expires => '+20m');
print "Set-Cookie: $c\n";
print "Location: $rdurl\n\n";
#print $query->redirect($rdurl);
}

Thanks for help.

ISCBorisB

Background:
In our utility program, we have just normal perl pages. There are two type of users, Admin and User. If they are trying to login, I need to save the value in session object and redirect to another page.
1. I tried to use just cookies, without using sessions, Here the problem is I can able to set the value first time. But I can't able to delete that(when user logouts, I am keeping empty string there)..my system is behaving something strange. This is simple example, but misbehaving. If I refresh the web page again, then the new value is appearing.
2. By using session, setting value is no problem, but the redirecting, just printing the url on web page.

my $session = session_header;#---by using CGI:ession;
if ( $query->param("frmsubmit") ) {

$uname = $query->param("uname");
$pwd = $query->param("pwd");
if ($uname eq "AA" && $pwd eq "AA") {
$session->param( "usertype", 'admin' ); # store into the session:
my $c = new CGI::Cookie(-name => 'plcuser',-value => 'admin', -expires => '+20m');
print "Set-Cookie: $c\n";
print "Location: $rdurl\n\n";
#print $query->redirect($rdurl);
}

Thanks for help.

You may want to try something like the following.
[html]
my $c;
my $rdurl;
# Your code to set Cookie variable, Redirect variable and whatnot

my $html=<
<meta http-equiv="Refresh" content="0;URL=$rdurl; charset=UTF-8" />
Getting There...

EHTML

# Create Page
print "Content-type: text/html\n\n";
print "Set-Cookie: $c\n";
print $html;[/html]

Srinivasa Talla

Thanks for ur help. I got some reply from other site(Your reply also similar),

use CGI ();
my $cgi = CGI->new();
my $cookie = $cgi->cookie(-name => 'test', -value => '1');
print $cgi->redirect(-uri => 'http://www.abc.org/', -cookie => $cookie);

This is good for cookies. But I am trying set the session variable and then redirect....Still I have problem...