# -*- Mode: Perl; indent-tabs-mode: nil; -*- package Wombat::Globals; =pod =head1 NAME Wombat::Globals - global constants =head1 SYNOPSIS =head1 DESCRIPTION This package contains constants that are global to Wombat. =head1 CONSTANTS =over =item DEBUG A flag determining whether messages of level 'DEBUG' are logged or not. =cut use constant DEBUG => 1; =pod =item FORM_TYPE_URLENCODED The content type used for HTTP form data =cut use constant FORM_TYPE_URLENCODED => 'application/x-www-form-urlencoded'; =pod =item SERVER_INFO The server name and version =cut use constant SERVER_INFO => join '/', 'Wombat', $Wombat::VERSION; =pod =item SESSION_COOKIE_NAME The name of the cookie used to transmit the session id between the client and the server =cut use constant SESSION_COOKIE_NAME => 'PSESSIONID'; =pod =item SESSION_PARAMETER_NAME The name of the parameter used to transmit the session id between the client and the server =cut use constant SESSION_PARAMETER_NAME => 'psessionid'; =pod =back =cut 1; __END__ =pod =head1 AUTHOR Brian Moseley, bcm@maz.org =cut