---
name: "Net::HTTPServer::Session"
section: "3pm"
platform: "linux"
package: "libnet-httpserver-perl"
version: "1.1.1-4"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Net::HTTPServer::Session"
---

# Net::HTTPServer::Session(3pm)

HTTP server side client session

## 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.