Help for this page

Select Code to Download


  1. or download this
    # Create new session
my $session = new CGI::Session("driver:File", $cgi, {Directory => 'ses
+'})  or die CGI::Session->errstr;;
my $sid = $session->id();
  2. or download this
    my $got_file_name .= $cgi->param( 'doc_upload' ) 
                 || $session->param( 'doc_uploaded' ) || '';
  3. or download this
    # Store file name to use later.
$session->param("doc_uploaded", $got_file_name);
$session->flush;
  4. or download this
    my $cookie = $cgi->cookie(CGISESSID => $sid);
print $cgi->header(-cookie=>$cookie ), $tmpl->output;
  5. or download this
       print "Location: https://myserver/mini.pl?conf=1;CGISESSID=$sid\r\n
+\r\n";