package WOE11DB

sub MySQLServer
return $server;

sub MySQLUser
return $user;

sub MySQLPassword
return $password;

sub MySQLDBName
return $dbname;

sub MySQLTableName
return $tablename;

sub filesystemcharcode
return $filesystemcharcode;

sub MySQLcharcode
return $MySQLcharcode;

sub webroot
return $webroot;

sub sendmail
return $sendmail;

sub sed
return $sed;

sub Debug
return $Debug;
return 1;

sub AllowSameEMail
return $AllowSameEMail;
return 1;

sub FillEMail
return $FillEMail;
return 0;

sub GetContactMessage
return $ContactMessage;

sub BuildPreregistrationCode
my $sn = shift;
my $email = shift;
return $date . $sn . int(rand(1000)) . $email;