#!/usr/bin/perl
#
#
##########################################
#
# DO NOT EDIT THIS FILE
# 
# Cyclonic will not work if this file
# is altered in any way.
#
##########################################
#
#
#

$query = new CGI;
$sid = $query->param('SESSIONID');
if (!($sid == "NONE"))
{

        if (-e "$base_sid_directory$sid")
        {
		open(SESSID, "< $base_sid_directory$sid") || die "Error opening db $sessiondb";
		$session = <SESSID>;
  		close(SESSID);
		$sessionid = unpack("u*", $session);
 		#print "Content-type: text/html\n\n";
		#print "$sessionid";
		#exit;

        }
        else
        {
        	&print_login;
        }
}
$LOCK_EX = 2;
$LOCK_UN = 8;
$linebuffer = "_______________________________________________________";

$newpop = $query->param('NEWPOP');
$replytoadd = $query->param('REPLYTOADD');
$popname = $query->param('POPNAME');
$button = $query->param('BUTTON');
$message = $query->param('MESSAGE');
@messages = $query->param('MESSAGES');
@to = $query->param('TO');
@cc = $query->param('CC');
$poppass = $query->param('POPPASS');
$folder = $query->param('FOLDER');
$action = $query->param('ACTION');
$movefolder = $query->param('MOVEFOLDER');
$replyto = $query->param('REPLYTO');
$replysubject = $query->param('REPLYSUBJECT');
$replymess = $query->param('REPLYMESS');
$listnext = $query->param('LISTNEXT');
$savesent = $query->param('SAVESENT');
$delivery = $query->param('DELIVERY');
$sendto = $query->param('SENDTO');
$sendfrom = $query->param('SENDFROM');
$sendcc = $query->param('SENDCC');
$sendbcc = $query->param('SENDBCC');
$sendtext = $query->param('SENDTEXT');
$sendsubject = $query->param('SENDSUBJECT');
$attachment1 = $query->param('ATTACHMENT1');
$attachment2 = $query->param('ATTACHMENT2');
$dbaction = $query->param('DBACTION');
$filter = $query->param('FILTER');
$contains = $query->param('CONTAINS');
$modfolder = $query->param('MODFOLDER');
$foldername1 = $query->param('FOLDERNAME1');
$foldername2 = $query->param('FOLDERNAME2');
$edit = $query->param('EDIT');
$delete = $query->param('DELETE');
$fullname = $query->param('FULLNAME');
$inboxsort = $query->param('INBOXSORT');
$signature = $query->param('SIGNATURE');
$version = "Cyclonic 3.0 (BETA)";
$nick_name = $query->param('nick_name');
$first_name = $query->param('first_name');
$last_name = $query->param('last_name');
$email_address = $query->param('email_address');
$web_address = $query->param('web_address');
$home_street = $query->param('home_street');
$home_city = $query->param('home_city');
$home_state = $query->param('home_state');
$home_zip = $query->param('home_zip');
$home_country = $query->param('home_country');
$home_phone = $query->param('home_phone');
$home_fax = $query->param('home_fax');
$company_name = $query->param('company_name');
$company_street = $query->param('company_street');
$company_city = $query->param('company_city');
$company_state = $query->param('company_state');
$company_zip = $query->param('company_zip');
$company_country = $query->param('company_country');
$company_phone = $query->param('company_phone');
$company_mobile = $query->param('company_mobile');
$company_fax = $query->param('company_fax');
$currentfolder = $query->param('CURRENTFOLDER');
$currentlanguage = $query->param('LANGUAGE');



return 1;