#!/usr/local/bin/perl -I/home/users/dberansky/perl/lib

($baseURL = "http://".$ENV{HTTP_HOST}.$q->script_name()) =~ s/[^\/]*$//;
($scriptPath = $q->script_name) =~ s/[^\/]*$//;
$invalidLoginURL = "/~dberansk/browser/invalidLogin.html";
$uploadURL = "/~dberansk/browser/upload.html";

sub setCookies
{
   $cookie1 = $q->cookie( -name=>'username', -value=>$username,
                          -path=>$scriptPath,-expires=>"+10m" );
   $cookie2 = $q->cookie( -name=>'sessionID',-value=>$sessionID,
                          -path=>$scriptPath,-expires=>"+10m" );
}
