;#####################
;# perl Library WOE11DB
;#####################
package WOE11DB;

use strict;
use DBI;

#==========================================
# SQL関係変数
#==========================================
my $server = 'localhost';
my $user = 'woe11_web';
my $password = 'Onnsenn-Geisya';

my $dbname = 'woe11_db';
my $tablename = 'registers_tbl';

#==========================================
# 連絡をとるように促すメッセージの文言
#==========================================
my $ContactMessage = "If you have any problem or question, please contact with \
   (\<a href=\"mailto\:tkamiya\@msl.titech.ac.jp\"\>T. Kamiya</a\>)\<p\>\n";

#==========================================
# 連絡をとるように促すメッセージの文言
#==========================================
#Shell関係
my $sendmail = "/usr/sbin/sendmail";
my $sed = "/bin/sed";

#==========================================
# Web関係変数
#==========================================
my $webroot = '/home/woe11-web/public_html';

#==========================================
# デバッグ関係変数
#==========================================
my $Debug = 0;
my $AllowSameEMail = 0;
my $FillEMail = 0;

#==========================================
# 文字コード関係変数
#==========================================
# Character code used in the file system: sjis, euc, jis, noconv
my $filesystemcharcode = 'euc';
my $MySQLcharcode = 'sjis';

#==========================================
# require "WOE11DB.pl";
# &WOE11DB'OpenDB();
#==========================================

#==========================================
# require "WOE11DB.pl";
# &WOE11DB'MySQLServer();
#==========================================
sub MySQLServer
{
	return $server;
}

sub MySQLUser
{
	return $user;
}

sub MySQLPassword
{
	return $password;
}

sub MySQLDBName
{
	return $dbname;
}

sub MySQLTableName
{
	return $tablename;
}

#==========================================
# require "WOE11DB.pl";
# &WOE11DB'filesystemcharcode();
#==========================================
sub filesystemcharcode
{
	return $filesystemcharcode;
}

sub MySQLcharcode
{
	return $MySQLcharcode;
}

#==========================================
# require "WOE11DB.pl";
# &WOE11DB'webroot();
#==========================================
sub webroot
{
	return $webroot;
}

#==========================================
# require "WOE11DB.pl";
# &WOE11DB'sendmail();
#==========================================
sub sendmail
{
	return $sendmail;
}

sub sed
{
	return $sed;
}

#==========================================
# require "WOE11DB.pl";
# &WOE11DB'Debug();
# &WOE11DB'AllowSameEMail();
# &WOE11DB'FillEMail();
#==========================================
sub Debug
{
	return $Debug;
#	return 1;
}

sub AllowSameEMail
{
	return $AllowSameEMail;
#	return 1;
}

sub FillEMail
{
	return $FillEMail;
#	return 0;
}


#==========================================
# require "WOE11DB.pl";
# print &WOE11DB'GetContactMessage();
#==========================================
sub GetContactMessage
{
	return $ContactMessage;
}

sub BuildPreregistrationCode
{
	my $sn = shift;
	my $email = shift;
	my $date = time();
	srand();
	return $date . $sn . int(rand(1000)) . $email;
}
1;