Modify User

##



#!/perl/bin/perl -wT

use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;		use DBI;
use vivek::session;	
use CGI::Session;
use CGI;
my $cgi = new CGI;
print $cgi->header;
print $cgi->start_html("query.cgi");

my $sid;	my $session;
my $f_name; my $lg_psswd ;

my $lg_name = $cgi->param("lg_name");
print "
 lg_name ---  $lg_name 
";

	$session = new CGI::Session(undef, $cgi, {Directory=>'/tmp'});

	my $cookie = $cgi->cookie(CGISESSID => $session->id );
	print "cookies is : $cookie 
" ;
	print $cgi->header(-cookie=>$cookie);

	$sid = $session->id();

	print "
sid =  $sid 
";

print $cgi->end_html;


##

##

lg_name --- asas 
cookies is : CGISESSID=f459ae140d01a8ed184d33c689816399; path=/ 
Set-Cookie: CGISESSID=f459ae140d01a8ed184d33c689816399; path=/ Date: Thu, 24 Apr 2008 09:13:42 GMT Content-Type: text/html; 

charset=ISO-8859-1 
sid = f459ae140d01a8ed184d33c689816399