;###################################################
;## このファイルは共通設定用ファイルです。
;## 必要に応じて設定を変更して下さい。
;###################################################

;# メインスクリプト
$script = "./i.cgi";

;# 編集スクリプト
$e_script = "./e.cgi";

;# コメント用スクリプト
$m_script = "./m.cgi";

;# メインスクリプトを置くURL（必ずhttp://から記述）
$script_url = "http://www.xxx.com/i.cgi";

;# sendmail のパス
$sendmail = '/usr/lib/sendmail';

;# 日本語変換ライブラリ
$jcode = "./jcode.pl";

;# 絵文字変換ライブラリ
$mobile_pl = "./mobile.pl";

# 絵文字用画像が収納されているディレクトリ
$emo_dir = "./emoji/";

# アップロードできる画像サイズの制限（KB） : 100KB以下を推奨
$img_limit = "200000";

# アップロードできる画像数（1記事ごと : 1-9 で指定）
$img_upload = "5";

;######################################
;# --- 設定が必要なのははここまで --- #
;######################################

;# --- バージョン情報
$version = "My Moblog v1.0";

;# ---タイトル表示
sub title {
	if ($_[1]) { $t_color = $_[1]; }
	if ($furiwake eq "pc") {
		print "&lt;&lt; <span style=\"font-size:$ts_size; color:$t_color; font-family:$t_face; font-weight:bold;\">$_[0]</span> &gt;&gt;\n";
		print "<hr size=\"1\" width=\"80%\" color=\"$line_color\"><br>\n";
	}
	else {
		print "$hr<center><font color=\"$t_color\">$_[0]</font></center>$hr";
	}
}

sub form_hidden {
	foreach (@_) {
		if ($FORM{$_} ne "") { print "<input type=\"hidden\" name=\"$_\" value=\"$FORM{$_}\">$para"; }
	}
}
sub write_form {

	&get_cookie;

	print "<form method=\"$method\" action=\"$m_script\" name=\"form\">\n";
	print "<input type=\"hidden\" name=\"m\" value=\"w\">\n";
	print "<input type=\"hidden\" name=\"no\" value=\"$_[1]\">\n";
	if ($id ne "") { print "<input type=\"hidden\" name=\"id\" value=\"$id\">\n"; }

	if ($error) {
		print "<table><tr><td>";
		print "<font color=\"#FF0000\">$error</font>";
		print "</td></tr></table>$br\n";
	}

	if ($regkey_mode) {
		if ($regkey_limit) { $rkl = $regkey_limit; } else { $rkl = 60; }
		local ($ti) = int(time/$rkl);
		local ($tl) = length($ti);
		foreach (0 .. ($tl-1)) {
			local ($num) = substr($ti,$_,1);
			push (@fig,"$num");
		}
		@seed = (d .. z); $rk = ""; $k=0;
		while ($k < 7 || $f < ($tl+1)) {
			$rand = int(rand(2));
			if ($rand == 1) { $rk .= "$fig[$f]"; $f++; }
			else { $kt = int(rand($#seed)); $rk .= "$seed[$kt]"; $k++; }
		}
		print "<input type=\"hidden\" name=\"rk\" value=\"$rk\">\n";
	}
	print "<table>\n";
	&text_form("名 前","n","$c_name");
	&text_form("E-MAIL","e","$c_email");
	&text_form("URL","u","http://$c_url");
	&text_form("タイトル","s","$FORM{'s'}");
	&textarea_form("コメント","c","$FORM{'c'}","$emoji_mode");
	if ($color_mode==1) {
		print "<tr><td align=\"center\">文字色</td><td>";
		foreach (0 .. $#color) {
			if ($c_color eq "$_") {
				print "<input type=radio name=r value=\"$_\" checked><font color=\"$color[$_]\">■</font>\n";
			} else {
				print "<input type=radio name=r value=\"$_\"><font color=\"$color[$_]\">■</font>\n";
			}
		}
		print "</td></tr>\n";
	}
	if ($regkey_mode) { 
		print " <tr>\n";
		print "  <td align=\"center\">投稿キー</td>\n";
		print "  <td><input type=\"password\" name=\"k\" size=\"10\" value=\"\"> <small>（ <img src=\"$m_script?m=k&k=$rk\" alt=\"投稿キー\"> と入力して下さい）</small></td>\n";
		print " </tr>\n";
	}
	print " <tr>\n";
	print "  <td align=\"center\">削除キー</td>\n";
	print "  <td><input type=\"password\" name=\"p\" size=\"10\" value=\"$c_pswd\"> <small>（記事編集時に必要となります）</small></td>\n";
	print " </tr>\n";

	print " <tr>\n";
	print "  <td colspan=\"2\" align=\"center\">\n";
	print "	<hr size=\"1\" color=\"$line_color\">\n";
	print "	<input type=\"submit\" value=\"$_[0]\"> <input type=\"reset\" value=\"リセット\"> \n";
	print "	<input type=\"checkbox\" name=\"cook\" value=\"on\"><small>クッキー保存</small>\n";
	print "  </td>\n";
	print " </tr>\n";
	print "</table>\n";

	print "</form><br>\n";
}
## --- フォーム表示
sub text_form {
	print " <tr>\n";
	print "  <td align=\"center\">$_[0]</td>\n";
	print "  <td><input type=\"text\" name=\"$_[1]\" size=\"50\" value=\"$_[2]\"></td>\n";
	print " </tr>\n";
}
sub textarea_form {
	print " <tr>\n";
	print "  <td valign=\"top\" align=\"center\">$_[0]</td>\n";
	print "  <td>\n";
	if ($_[3]) {
		print "	<a href=\"javascript:Imode()\"><img src=\"./i.gif\" alt=\"DoCoMo絵文字\" border=\"0\">絵文字</a> :\n";
		print "	<a href=\"javascript:SoftBank()\"><img src=\"./s.gif\" alt=\"Softbank絵文字\" border=\"0\">絵文字</a> :\n";
		print "	<a href=\"javascript:Ezweb()\"><img src=\"./e.gif\" alt=\"EzWeb絵文字\" border=\"0\">絵文字</a><br>\n";
	}
	print "	<textarea name=\"$_[1]\" cols=60 rows=12>$_[2]</textarea>\n";
	print "  </td>\n";
	print "</tr>\n";
}

## --- クッキー取得
sub get_cookie { 
	$cookies = $ENV{'HTTP_COOKIE'};
	@pairs = split(/;/,$cookies);
	foreach (@pairs) {
		($name, $value) = split(/=/, $_);
		$name =~ s/ //g;
		$DUMMY{$name} = $value;
	}
	@pairs = split(/,/,$DUMMY{'MyMoblog'});
	foreach (@pairs) {
		($name, $value) = split(/:/, $_);
		$COOKIE{$name} = $value;
	}
	$c_name = $COOKIE{'name'};
	$c_email = $COOKIE{'email'};
	$c_url = $COOKIE{'url'};
	$c_pswd = $COOKIE{'pswd'};
	$c_color = $COOKIE{'color'};

	if ($FORM{'n'}) { $c_name = $FORM{'n'}; }
	if ($FORM{'e'}) { $c_email = $FORM{'e'}; }
	if ($FORM{'u'}) { $c_url = $url; }
	if ($FORM{'p'}) { $c_pswd = $FORM{'p'}; }
	if ($FORM{'r'}) { $c_color = $FORM{'r'}; }
}

;## --- 複数設置対応
sub id_set {
	$id = $FORM{'id'};

	if ($id ne "") {
		unless(-e "$id/cond.cgi") {
			unless (-e "cond.cgi") { &no_id; }
			else { require "cond.cgi"; &id_error; }
		}
		else {
			require "$id/cond.cgi";
			$file = "$id/data.cgi";
			$import_file = "$id/data.csv";
			$bbs_file = "./$id/bbs.cgi";
			$count_file = "$id/count.txt";
			$lockfile = "$id/diary.lock";
			$bbslock = "$id/bbs.lock";
			$rss_file = "./$id/rss.xml";
			$img_dir = "./$id/img";
			$id_link = "&id=$id";
			unless (-e "./$id/mail.gif") { $mail_gif = "./mail.gif"; }
			else { $mail_gif = "./$id/mail.gif"; }
			unless (-e "./$id/home.gif") { $home_gif = "./home.gif"; }
			else { $home_gif = "./$id/home.gif"; }
		}
	}
	elsif (-e "./cond.cgi") { 
		require "./cond.cgi";
		$file = "./data.cgi";
		$import_file = "./data.csv";
		$bbs_file = "./bbs.cgi";
		$count_file = "./count.txt";
		$lockfile = "./diary.lock";
		$bbslock = "./bbs.lock";
		$rss_file = "./rss.xml";
		$mail_gif = "./mail.gif";
		$home_gif = "./home.gif";
		$img_dir = "./img";
	}
	else { &no_id; }
}
sub no_id {
	$bgcolor = "#FFFFFF";
	$text    = "#666699";
	$link    = "#3333FF";
	$vlink   = "#6666FF";
	$alink   = "#FF0000";
	$ts_size = "20pt";
	$t_color = "#0000FF";
	$t_face = "ＭＳ Ｐ明朝";

	&id_error;
}
sub id_error {
	&furiwake; $ider = "1";
	&error("アクセスエラー","指定されたIDは存在しません。");
}

;## --- 日時の取得
sub date_set {
	$ENV{'TZ'} = "JST-9";
	if ($_[0]) { $times = $_[0]; } else { $times = time; }
	($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy) = localtime($times);
	$year = 1900 + $year; $mon++;
	if ($mon	< 10) { $mon = "0$mon"; }
	if ($mday	< 10) { $mday = "0$mday"; }
	if ($hour	< 10) { $hour = "0$hour"; }
	if ($min	< 10) { $min = "0$min"; }
	if ($sec	< 10) { $sec = "0$sec"; }

	## --- 日時のフォーマット
	$now_date = "$year\/$mon\/$mday";
}

;## --- 曜日の取得
sub week_set {
	my($year,$mon,$day) = @_;
	if ($mon < 3) { $mon += 12; $year--; }
	my($week) = int($year + int($year/4) - int($year/100) + int($year/400) + int((13*$mon+8)/5) + $day) % 7;
	$week;
}

;## --- ブラウザによって処理分け
sub furiwake {
	$ackey = "accesskey";
	$type = $FORM{'type'};
	$hr = "<hr size=\"1\">"; $br="<br>";
	$key_long = "10"; $how_long = "10"; $base_size=0;
	@weeks_i = ('日','月','火','水','木','金','土');
	@weeks = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	@month_day   = (31,31,28,31,30,31,30,31,31,30,31,30,31);
	$agent = $ENV{"HTTP_USER_AGENT"};

	if ($agent =~ /DoCoMo/i){
		@emoji = ("��","��","��","��","��","��","��","��","��","��","�}","�~","��");
		$furiwake = "mobile"; $mobile = "imode";
		$input_abc = " istyle=\"3\""; $input_123 = " istyle=\"4\"";
		if ($home_i) { $home = $home_i; } $base_size=500;
	}
	elsif ($ENV{HTTP_X_JPHONE_COLOR}
		|| $ENV{HTTP_X_JPHONE_DISPLAY}
		|| $ENV{HTTP_X_JPHONE_MSNAME}
		|| $ENV{HTTP_X_JPHONE_SOUND}
		|| $agent =~ /J-PHONE|Vodafone|SoftBank/i) {
		@emoji = ("","","","","","","","","","","認証","→","\$E4");
		@emokey = ('E','<','=','>','?','@','A','B','C','D');
		$method = "GET"; $how_long = "20";  $key_long = "8"; $hr = "<hr>";
		$furiwake = "mobile"; $mobile = "jsky";
		$input_abc = " mode=alphabet"; $input_123 = " mode=numeric";
		$ackey = "directkey";
		if ($home_i) { $home = $home_i; }
	}
	elsif ($agent =~ /UP\.Browser/i) {
		@emoji = ("0.","1.","2.","3.","4.","5.","6.","7.","8.","9.","認証","→","検索");
		@emokey = ("325","180","181","182","183","184","185","186","187","188");
		$furiwake = "mobile"; $ackey = "accesskey"; $mobile = "ezweb";
		$input_abc = " format=\"*x\""; $input_123 = " format=\"*N\"";
		if ($home_i) { $home = $home_i; }
	}
	elsif ($agent =~ /DDIPOCKET|WILLCOM/i) {
		@emoji = ("0.","1.","2.","3.","4.","5.","6.","7.","8.","9.","認証","→","検索");
		$furiwake = "mobile"; $ackey = "accesskey";
		if ($home_i) { $home = $home_i; }
	}
	else {
		@emoji = ("[0]","[1]","[2]","[3]","[4]","[5]","[6]","[7]","[8]","[9]","認証","→","検索");
		$key_long = "14"; $mobile = "pc";
		if ($type eq "mobile") {
			$furiwake = "mobile"; $pc = "yes"; $t_type = "&type=mobile";
			if ($home_i) { $home = $home_i; }
		}
		else { $furiwake = "pc"; $para="\n"; }
	}
}

;## --- 各ページのヘッダ設定
sub header {
	if ($furiwake eq "mobile" && $pc ne "yes") {
		print "Content-type: text/html; charset=Shift_JIS\n\n";
		print "<html>";
		print "<head>";
		if ($_[0]) { print "<title>$_[0]</title>"; } else { print "<title>$title</title>"; }
		print "</head>";
		print "<body bgcolor=\"$bgcolor\" text=\"$text\" link=\"$link\" vlink=\"$vlink\" alink=\"$alink\">";
	}
	else {
		print "Content-type: text/html; charset=Shift_JIS\n\n";
		print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
		print "<html lang=\"ja\">\n";
		print "<head>\n";
		print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">\n";
		print "<META http-equiv=\"Content-Style-Type\" content=\"text/css\">\n";
		print "<META http-equiv=\"Content-Script-Type\" content=\"text/javascript\">\n";
		if (-e "$rss_file") { print "<link rel=\"alternate\" type=\"application/rss+xml\" title=\"RSS 2.0 - $title\" href=\"$rss_file\">\n"; }
		if (-e "./lightbox.js") { print "<script type=\"text/javascript\" src=\"lightbox.js\"></script>\n"; }
		if ($emoji_mode) {
			print "<script type=\"text/javascript\">\n";
			print "<!--\n";
			print "function Imode() {\n";
			print "	window.open(\"./i.html\",\"OpenWindow\",\"width=350,height=350,left=0,top=0\");\n";
			print "}\n";
			print "function SoftBank() {\n";
			print "	window.open(\"./s.html\",\"OpenWindow\",\"width=350,height=550,left=0,top=0\");\n";
			print "}\n";
			print "function Ezweb() {\n";
			print "	window.open(\"./e.html\",\"OpenWindow\",\"width=350,height=450,left=0,top=0\");\n";
			print "}\n";
			print "//-->\n";
			print "</script>\n";
		}
		print "<style type=\"text/css\">\n";
		print "<!--\n";
		print "body {\n";
		print "	font-size: $fs_size;\n";
		print "	color: $text;\n";
		if ($f_face) { print "	font-family: $f_face;\n"; }
		print "	background-color: $bgcolor;\n";
		if ($bground) { print "	background-image: url($bground);\n"; }
		print "}\n";
		print "th,td {\n";
		print "	font-size: $fs_size;\n";
		print "}\n";
		print "a:link {\n";
		print "	text-decoration:none;\n";
		print "	color:$link;\n";
		print "}\n";
		print "a:visited {\n";
		print "	text-decoration:none;\n";
		print "	color:$vlink;\n";
		print "}\n";
		print "a:active {\n";
		print "	text-decoration:none;\n";
		print "	color:$alink;\n";
		print "}\n";
		print "a:hover {\n";
		print "	text-decoration:none;\n";
		print "	color:$alink;\n";
		print "}\n";
		print ".small {\n";
		print "	font-size: $ss_size;\n";
		print "}\n";
		print ".diary {\n";
		print "	padding: 20px 25px 20px 25px;\n";
		print "	font-size: $fs_size;\n";
		print "	line-height: 20px;\n";
		print "	background: $td_color2;\n";
		if ($diary_gif) { print "	background: url($diary_gif);\n"; }
		print "	border-bottom: 2px double #666666;\n";
		print "	border-right: 2px double #666666;\n";
		print "	border-top: 1px solid #999999;\n";
		print "	border-left: 1px solid #999999;\n";
		print "}\n";
		print ".name {\n";
		print "	font-size: $fs_size;\n";
		print "	font-weight: bold;\n";
		print "	color:$t_color;\n";
		print "}\n";
		print "td.calen {\n";
		print "	font-size: $ss_size;\n";
		print "	text-align: center;\n";
		print "}\n";
		print "td.calen2 {\n";
		print "	font-size: $ss_size;\n";
		print "	text-align: center;\n";
		print "	font-weight: bold;\n";
		print "	background: $td_color1;\n";
		print "	filter: Alpha(opacity=100,finishOpacity=30,style=2);\n";
		print "}\n";
		print ".done {\n";
		print "	text-decoration:underline;\n";
		print "}\n";
		print ".day {\n";
		print "	font-size: $ss_size;\n";
		print "	text-align: center;\n";
		print "	line-height: 20px;\n";
		print "}\n";
		print ".new,.past,.cat {\n";
		print "	padding-left: 5px;\n";
		print "	line-height: 20px;\n";
		if ($list_gif) { print "	background: url($list_gif);\n"; }
		print "}\n";
		print ".menu {\n";
		print "	font-size: $fs_size;\n";
		print "	line-height: 15pt;\n";
		print "	text-align: center;\n";
		print "	font-weight: bold;\n";
		print "	background: $th_color;\n";
		print "	filter: Alpha(opacity=100,finishOpacity=45,style=3);\n";
		print "}\n";
		print ".date {\n";
		print "	text-align: right;\n";
		print "	text-decoration:underline;\n";
		print "}\n";
		print ".com {\n";
		print "	padding-left: 5px;\n";
		print "	line-height: 20px;\n";
		print "}\n";
		print ".ccw {\n";
		print "	font-size: $ss_size;\n";
		print "	text-align: right;\n";
		print "}\n";
		print ".week {\n";
		print "	font-size: $ss_size;\n";
		print "	text-align: center;\n";
		print "	background: $td_color1;\n";
		print "	filter: Alpha(opacity=100,finishOpacity=15,style=2);\n";
		print "}\n";
		print ".img {\n";
		print "	border-top: 1px solid #EEEEEE;\n";
		print "	border-left: 1px solid #EEEEEE;\n";
		print "	border-bottom: 1px solid #999999;\n";
		print "	border-right: 1px solid #999999;\n";
		print "}\n";

		if (-e "./lightbox.js") {
			print "#lightbox{\n";
			print "	background-color:#eeeeee;\n";
			print "	padding: 10px;\n";
			print "	border-bottom: 2px solid #666666;\n";
			print "	border-right: 2px solid #666666;\n";
			print "}\n";
			print "#lightboxDetails{\n";
			print "	font-size: 1.0em;\n";
			print "	padding-top: 0.4em;\n";
			print "}\n";
			print "#lightboxCaption{ float: left; }\n";
			print "#keyboardMsg{ float: right; }\n";
			print "#closeButton{ top: 5px; right: 5px; }\n";

			print "#lightbox img{ border: none; clear: both;} \n";
			print "#overlay img{ border: none; }\n";

			print "#overlay{ background-image: url(overlay.png); }\n";

			print "* html #overlay{\n";
			print "	background-color: #333333;\n";
			print "	background-color: transparent;\n";
			print "	background-image: url(blank.gif);\n";
			print "	filter: progid:DXImageTransform.Microsoft.AlphaImageLoader(src=\"overlay.png\", sizingMethod=\"scale\");\n";
			print "}\n";
		}
		print "-->\n";
		print "</style>\n";
		if ($_[0]) { print "<title>$title - $_[0]</title>\n"; } else { print "<title>$title</title>\n"; }
		print "</head>\n";
		print "<body>\n";
	}
}

;## --- 各ページのフッタ設定（著作権表示の削除・改変は禁止！）
sub footer {
	if ($furiwake eq "mobile" && $pc ne "yes") {
		print "<center>-<a href=\"http://www.torworld.com/\">My Moblog</a>-<br></center></body></html>";
	}
	else {
		print "<div align=center>\n";
		print "   - <a href=\"http://www.torworld.com/\" target=\"_blank\" style=\"font-size:10pt\">$version</a> -\n";
		print "</div>\n";
		print "</body></html>\n";
    }
}

# --- 仮アップロードしたものを削除
sub tmp_del {
	foreach $n (1 .. $img_upload) {
		foreach $tl ('upl','jpg','gif') {
			if (-e "$img_dir/temp$n\.$tl") { unlink("$img_dir/temp$n.$tl"); }
		}
	}
}

;## --- エラー発生時
sub error {
	if ($furiwake eq "") { &furiwake; }

	&tmp_del;

	if ($_[2] ne "non") { &header; }
	if ($_[3]) { $t_color=$_[3]; } else { $t_color="#FF0000"; }

	if($furiwake eq "pc") {
		if ($home) { print "<a href=\"$home\">ホーム</a>\n"; }
		if (!$ider) { print " &gt; <a href=\"$script?$id_link\">$title</a>\n"; }
		print " &gt; <strong>$_[0]</strong><br><br>\n\n";

		print "<div align=\"center\">\n";
		&title("$_[0]","$t_color");
		print "$_[1]\n";
		print "</div>\n";
		print "<br><br><br>\n";
	}
	else {
		&title("$_[0]","$t_color");
		print "$_[1]";
		print "$hr";
		if (!($ider)) { print "$emoji[0]<a href=\"$script?$id_link$t_type\" $ackey=\"0\">トップに戻る</a>"; }
		elsif ($home) { print "$emoji[0]<a href=\"$home\" $ackey=\"0\">ホームに戻る</a>"; }
		print "<br><br>";
	}
	&footer;
	exit;
}

;## --- ファイルロック
sub lock {
	if ($_[0] ne "") { $lockfile = $_[0]; }

	if ($lockfile ne "") {
		local($flag) = 0;
		foreach (1 .. 5) {
			if (-e $lockfile) { sleep(1); }
			else {
				open(LOCK,">$lockfile");
				close(LOCK);
				$flag = 1;
				last;
			}
		}
		if ($flag == 0) {
			$past_lock = -M "$lockfile";
			if ($past_lock * 24 * 60 < 3) {
				&error("システムエラー","アクセスが集中しているため、タイムアウトとなりました。（ロックファイルが存在しています）");
			}
		}
	}
}

;## --- ファイルロック解除
sub unlock {
	if ($_[0] ne "") { $lockfile = $_[0]; }

	if (-e $lockfile) { unlink($lockfile); }
}

if ($img_upload > 9) { $img_upload = 9; } elsif ($img_upload < 1) { $img_upload = 1; }

1;