debian net::httpserver::session man page on unix.com

Net::HTTPServer::Session(3pm)				User Contributed Perl Documentation			     Net::HTTPServer::Session(3pm)

NAME
       Net::HTTPServer::Session - HTTP server side client session

SYNOPSIS
       Net::HTTPServer::Session handles server side client sessions

DESCRIPTION
       Net::HTTPServer::Session provides a server side data store for client specific sessions.  It uses a cookie stored on the browser to tell
       the server which session to restore to the user.  This is modelled after the PHP session concept.  The session is valid for 4 hours from
       the last time the cookie was sent.

EXAMPLES
       sub pageHandler {
	   my $request = shift;

	   my $session = $request->Session();

	   my $response = $request->Response();

	   # Logout
	   $session->Destroy() if $request->Env("logout");

	   $response->Print("<html><head><title>Hi there</title></head><body>");

	   # If the user specified a username on the URL, then save it.
	   if ($request->Env("username"))
	   {
	       $session->Set("username",$request->Env("username"));
	   }

	   # If there is a saved username, then use it.
	   if ($session->Get("username"))
	   {
	       $response->Print("Hello, ",$session->Get("username"),"!");
	   }
	   else
	   {
	       $response->Print("Hello, stranger!");
	   }

	   $response->Print("</body></html>");

	   return $response;
       }

       The above would behave as follows:

	 http://server/page		   - Hello, stranger!
	 http://server/page?username=Bob   - Hello, Bob!
	 http://server/page		   - Hello, Bob!
	 http://server/page?username=Fred  - Hello, Fred!
	 http://server/page		   - Hello, Fred!
	 http://server/page?logout=1	   - Hello, stranger!
	 http://server/page		   - Hello, stranger!

METHODS
   Delete(var)
       Delete the specified variable from the session.

   Destroy()
       Destroy the session.  The server side data is deleted and the cookie will be expired.

   Exists(var)
       Returns if the specified variable exists in the sesion.

   Get(var)
       Return the value of the specified variable from the session if it exists, undef otherwise.

   Set(var,value)
       Store the specified value (scalar or reference to any Perl data structure) in the session.

AUTHOR
       Ryan Eatmon

COPYRIGHT
       Copyright (c) 2003-2005 Ryan Eatmon <reatmon@mail.com>. All rights reserved.  This program is free software; you can redistribute it and/or
       modify it under the same terms as Perl itself.

perl v5.14.2							    2012-03-03					     Net::HTTPServer::Session(3pm)
debian man page for net::httpserver::session
