#!/usr/local/bin/perl
#==========================================================
# RO Member List CGI - MIKADUKI - ver.1.00
# last update 2006/1/19
# riarisu@hotmail.com
#==========================================================
#----------------------------------------------------------
# 外部ファイル
require './jcode.pl';
require './cgi-lib.pl';
require './common.pl';
require './common_image.pl';
require './mikaduki_ini.cgi';
#----------------------------------------------------------
$version = '1.00';
&decode;
&initialize;
&setting_file_check;
&log_read;
if($in{'act'} eq 'management') { &management; }
elsif($in{'act'} eq 'register_form') { ®ister_form; }
elsif($in{'act'} eq 'register') { ®ister; }
elsif($in{'act'} eq 'edit_pass') { &edit_pass; }
elsif($in{'act'} eq 'edit') { &edit; }
elsif($in{'act'} eq 'readme') { &readme; }
&top_page;
exit;
#==========================================================
# デコード
#==========================================================
sub decode
{
my $key,$val;
undef(%in);
&ReadParse;
while(($key,$val) = each(%in))
{
if($key eq 'image') { next; }
# シフトJISコード変換
&jcode'convert(*val, "sjis", "", "z");
# タグ処理
$val =~ s/&/&/g;
$val =~ s/"/"/g;
$val =~ s//>/g;
$val =~ s/\n//g;
$val =~ s/\,/，/g;
if($key eq 'del')
{
# 管理削除
@DEL = split(/\0/,$val);
}
else
{
$in{$key} = $val;
}
}
}
#==========================================================
# 初期化
#==========================================================
sub initialize
{
$flag_error = 0; # エラー 0/1 = No/Yes
$flag_header = 0; # ヘッダ表示 0/1 = 無し/有り
# ログファイルの選択
$l_no = $in{l_no};
if($l_no eq '') { $l_no = 0; }
if(!open(NOTE,"$log_file[$l_no]")) { $l_no = 0; }
$title_name = $title_name[$l_no];
$title_img = $title_img[$l_no];
$home = $home[$l_no];
$log_file = $log_file[$l_no];
$lock_file = $lock_file[$l_no];
$img_dir = $img_dir[$l_no];
$img_url = $img_url[$l_no];
$pass_write = $pass_write[$l_no];
$password = $password[$l_no];
if($l_no == 0)
{
@GUILD_NAME = @GUILD_NAME[0 .. $guild_number[$l_no]-1];
}
else
{
@GUILD_NAME = @GUILD_NAME[$guild_number[$l_no-1] .. $guild_number[$l_no-1]+$guild_number[$l_no]-1];
}
$cgi_top = $cgi;
$cgi .= "?l_no=$l_no";
# タイトル
$title_header = $title_name;
if($title_img ne '') { $title_name = "$title_header
本文へ移動
HERE
}
#==========================================================
# HTMLフッタ
#==========================================================
sub html_footer
{
print "\n";
print "";
}
#==========================================================
# トップページ
#==========================================================
sub top_page
{
&html_header;
&member_show;
&html_footer;
exit;
}
#==========================================================
# メンバーの表示
#==========================================================
sub member_show
{
# 総登録数の表示
print "現在の登録数：$data_number
\n";
foreach $line(@DATA)
{
&value_read($line);
if($image eq '') { $image = " "; }
else { $image = "
$name No.$no / LastUpdate:$date $image
$LABEL[1]： $nname
$LABEL[2]： $job $LABEL[3]： $gender $LABEL[4]： $base_lv $LABEL[5]： $job_lv $LABEL[6]： $hp $LABEL[7]： $sp
HERE
if($flag_status == 1)
{
print <<"HERE";
$LABEL[8]： $str
$LABEL[14]： $atk
$LABEL[15]： $def $LABEL[9]： $agi
$LABEL[16]： $matk
$LABEL[17]： $mdef $LABEL[10]： $vit
$LABEL[18]： $hit
$LABEL[19]： $flee $LABEL[11]： $int
$LABEL[20]： $critical
$LABEL[21]： $aspd $LABEL[12]： $dex
$LABEL[22]： $guild $LABEL[13]： $luk
$LABEL[23]： $position $LABEL[22]： $guild
$LABEL[23]： $position
[編集・削除]
HERE
}
}
#==========================================================
# 登録フォーム
#==========================================================
sub register_form
{
my $input_no,$button,$male_select,$female_select,$now_image;
&html_header;
if($in{'no'} eq '')
{
print "\n";
$button = '登録する';
}
else
{
print "\n";
$button = '編集する';
}
if(($in{'no'} eq '') && ($in{'p_write'} ne $pass_write) && ($in{'p_write'} ne $password))
{
print <<"HERE";
登録するにはパスワードが必要となります。
HERE
exit;
}
$input_no = 0;
if($in{'job'} eq '') { $in{'job'} = $LABEL_JOB[0]; }
if($in{'gender'} eq '') { $in{'gender'} = 'male'; }
if($in{'guild'} eq '') { $in{'guild'} = $GUILD_NAME[0]; }
print <<"HERE";
HERE
&html_footer;
exit;
}
#==========================================================
# 登録
#==========================================================
sub register
{
my $new_no,$new_value,$new_image;
&input_check;
&file_lock;
if($in{'no'} eq '')
{
# 新規投稿
# ナンバーの取得と、2重投稿の確認
$new_no = 1;
if(@DATA != '')
{
foreach $line(@DATA)
{
&value_read($line);
if($no > $new_no) { $new_no = $no; }
if($name eq $in{'name'})
{
&file_unlock;
return;
}
}
$new_no++;
}
$no = $new_no;
&value_set;
$new_value = &value_write;
push(@DATA,$new_value);
}
else
{
# 編集
$new_no = $in{'no'};
$no = $in{'no'};
&value_set;
$new_value = &value_write;
$new_image = $image;
foreach $line(@DATA)
{
&value_read($line);
if($no == $new_no)
{
&value_read($line);
if((($in{'image_del'} eq 'on') || ($new_image ne '')) && ($new_image ne $image))
{
unlink $img_dir.$image;
}
else
{
$new_image = $image;
&value_read($new_value);
$image = $new_image;
$new_value = &value_write;
}
$line = $new_value;
last;
}
}
}
&log_write;
&file_unlock;
&log_read;
}
#==========================================================
# 入力内容の確認
#==========================================================
sub input_check
{
my $i,$value_name;
# 入力確認
if($in{'name'} eq '') { &error_input('キャラクター名を入力して下さい。',0); }
if(($in{'base_lv'} ne '') && (($in{'base_lv'} < 1) || ($in{'base_lv'} > 99)))
{ &error_input("$LABEL[3]には数値を入力して下さい。",0); }
if(($in{'job_lv'} ne '') && (($in{'job_lv'} < 1) || ($in{'job_lv'} > 99)))
{ &error_input("$LABEL[4]には数値を入力して下さい。",0); }
if(($in{'hp'} ne '') && (($in{'hp'} < 1) || ($in{'hp'} > 99999)))
{ &error_input("$LABEL[5]には数値を入力して下さい。",0); }
if(($in{'sp'} ne '') && (($in{'sp'} < 1) || ($in{'sp'} > 9999)))
{ &error_input("$LABEL[6]には数値を入力して下さい。",0); }
# ステータスの入力確認
for($i=0;$i<=13;$i++)
{
$value_name = 'status' . $i;
if($in{$value_name} ne '')
{
if(($in{$value_name} < 0) || ($in{$value_name} > 999))
{ &error_input("$LABEL[8+$i]には数値を入力して下さい。",0); }
$value_name = 'status' . $i . '_2';
if(($in{$value_name} ne '') && (($in{$value_name} < 0) || ($in{$value_name} > 999)))
{ &error_input("$LABEL[8+$i]には数値を入力して下さい。",0); }
elsif($in{$value_name} eq '')
{ $in{$value_name} = 0; }
}
else
{
$value_name = 'status' . $i . '_2';
$in{$value_name} = '';
}
}
# パスワードの入力確認
if($in{'pass'} eq '') { &error_input("パスワードを入力して下さい。",0); }
}
#==========================================================
# 値のセット
#==========================================================
sub value_set
{
$name = $in{'name'};
$nname = $in{'nname'};
$gender = $in{'gender'};
$job = $in{'job'};
$base_lv = $in{'base_lv'};
$job_lv = $in{'job_lv'};
$hp = $in{'hp'};
$sp = $in{'sp'};
if($in{'status0'} ne '') { $str = $in{'status0'} . '+' . $in{'status0_2'}; }
else { $str = ''; }
if($in{'status1'} ne '') { $agi = $in{'status1'} . '+' . $in{'status1_2'}; }
else { $agi = ''; }
if($in{'status2'} ne '') { $vit = $in{'status2'} . '+' . $in{'status2_2'}; }
else { $vit = ''; }
if($in{'status3'} ne '') { $int = $in{'status3'} . '+' . $in{'status3_2'}; }
else { $int = ''; }
if($in{'status4'} ne '') { $dex = $in{'status4'} . '+' . $in{'status4_2'}; }
else { $dex = ''; }
if($in{'status5'} ne '') { $luk = $in{'status5'} . '+' . $in{'status5_2'}; }
else { $luk = ''; }
if($in{'status6'} ne '') { $atk = $in{'status6'} . '+' . $in{'status6_2'}; }
else { $atk = ''; }
if($in{'status7'} ne '') { $def = $in{'status7'} . '+' . $in{'status7_2'}; }
else { $def = ''; }
if($in{'status8'} ne '') { $matk = $in{'status8'} . '〜' . $in{'status8_2'}; }
else { $matk = ''; }
if($in{'status9'} ne '') { $mdef = $in{'status9'} . '+' . $in{'status9_2'}; }
else { $mdef = ''; }
$hit = $in{'status10'};
if($in{'status11'} ne '') { $flee = $in{'status11'} . '+' . $in{'status11_2'}; }
else { $flee = ''; }
$critical = $in{'status12'};
$aspd = $in{'status13'};
$guild = $in{'guild'};
$position = $in{'position'};
$comment = $in{'comment'};
$comment =~ s/\r/
登録する 新規登録 から登録できます。
「 $input_essential 」と書かれている項目については必ず記入する。
ステータスの数値は半角で記入する。
利用可能\な画像フォーマットは JPEG 、GIF 、PNG です。
登録可能\な最大画像サイズは 縦$img_height_maxピクセル×横$img_width_maxピクセル です。
画像のファイルサイズは $cgi_lib'maxdata bytes まで。
登録情報の編集 登録情報の削除
HERE
&html_footer;
exit;
}
#==========================================================
# 管理モード
#==========================================================
sub management
{
if($in{'pass'} ne '')
{
if($in{'pass'} eq $password) { &management_delete; }
else { &error("パスワードが違います"); }
}
&html_header;
print <<"HERE";
パスワードを入力して下さい
HERE
&html_footer;
exit;
}
#==========================================================
# 管理モード（削除）
#==========================================================
sub management_delete
{
my $line,$del;
unless(@DEL == '')
{
&file_lock;
foreach $line(@DATA)
{
&value_read($line);
foreach $del(@DEL)
{
if($no == $del)
{
if($image ne '') { unlink $img_dir.$image; }
$line = '';
last;
}
}
}
&log_write;
&file_unlock;
&log_read;
}
&html_header;
print <<"HERE";
削除したい記事にチェックを入れて削除ボタンを押して下さい
\n";
&html_footer;
exit;
}
#==========================================================
# 現在時刻の取得
#
# return : 現在時刻
#==========================================================
sub get_now_date
{
return(&common'get_now_date(1,1,1,0,0,0,0));
}
#==========================================================
# ファイルのロック
#==========================================================
sub file_lock
{
if($flag_lock == 1)
{
if(&common'file_lock($lock_file) == 1)
{
&error_input('アクセスが集中しているため処理を続行できません;
close(NOTE);
$data_number = @DATA;
}
#==========================================================
# ログデータの書込み
#==========================================================
sub log_write
{
if(!open(NOTE,">$log_file")) { &error_end("ログファイルを開けません"); }
print NOTE @DATA;
close(NOTE);
$data_number = @DATA;
}
#==========================================================
# エラーメッセージの表示
#
# input : 0 = メッセージ
#==========================================================
sub error
{
$flag_error = 1;
&html_header;
print "error： $_[0]