@MKline[1]";
}
print ")
\n";
}
#-------------------------------------------
# 年表HTMLプリントルーチン
#-------------------------------------------
sub HTML_Print1 {
if ($#P_FILE_C >= 0) {
print "
\n";
$wtbl_flg = "0";
$HLD_key = "DUMMY_MOJI";
for ($I = 0; $I <= $#P_FILE_C; $I++) {
@P_koumoku = split(/\,/,@P_FILE_C[$I]);
if (@P_koumoku[0] eq "") { @P_koumoku[0] = $HLD_key;}
if (@P_koumoku[0] ne $HLD_key) {
if ($wtbl_flg eq "1") {
print "\n\n\n";
}
&HTML_Chart;
print "\n";
&HTML_Year;
print "\n";
&HTML_event;
$wtbl_flg = "1";
}
$Work_Line = @P_koumoku[1];
&search_j; #キーワード検索
if (($MatFlg eq "1") && (@Form_checked[2] eq "checked")) {
&HTML_Model;
}
$HLD_key = @P_koumoku[0];
}
print " \n | \n\n";
}
}
#-------------------------------------------
# チャートHTML書込み
#-------------------------------------------
sub HTML_Chart {
print "\n";
foreach $cpline (@chart_parm) {
@cpline = split(/,【同系】,/, $cpline);
$chart_color = "";
foreach $cpyouso (@cpline) {
@cpValue = split(/\,/, $cpyouso);
if ((@P_koumoku[0] ge @cpValue[0]) && (@P_koumoku[0] le @cpValue[1])) { # 期間範囲内？
$chart_color = "bgcolor = \"@cpValue[2]\"" ;
last;
}
}
print "| | \n";
}
}
#-------------------------------------------
# 年の行 HTML書込み
#-------------------------------------------
sub HTML_Year {
$YEAR_Write = "";
@S_File = split(/\n/, @file[5]); # 年コード
foreach $S_Line(@S_File) {
@S_koumoku = split(/\,/, $S_Line);
if (@P_koumoku[0] eq @S_koumoku[0]) {
if (@S_koumoku[2] ne "") {
if (@S_koumoku[3] eq "") {
print " @P_koumoku[0]";
print "(@S_koumoku[1])\n";
}
else {
print " @P_koumoku[0]";
print "(@S_koumoku[1])\n";
print " @S_koumoku[3]... ";
}
}
else {
print " @P_koumoku[0]";
print "(@S_koumoku[1])\n";
}
$YEAR_Write = "1";
last;
}
}
if ($YEAR_Write ne "1"){ # 年の属性なし
print " @P_koumoku[0]";
}
# サーチエンジン連動
@S_File = split(/\n/, @file[6]);
foreach $S_Line(@S_File) {
@S_koumoku = split(/\,/, $S_Line);
if (@S_koumoku[0] ne "") {
$Search_url = @S_koumoku[0] . @P_koumoku[0];
print "@S_koumoku[1]...";
}
}
}
#-------------------------------------------
# 記事データ HTML書込み
#-------------------------------------------
sub HTML_event {
@S_File = split(/\n/, @file[3]); #年代別記事
$event_name = "";
foreach $S_Line(@S_File) {
@S_koumoku = split(/\,/, $S_Line);
if (@P_koumoku[0] eq @S_koumoku[0]) {
$event_name = @S_koumoku[1];
last;
}
}
if ($event_name ne "") {
print <<"EOL";
$event_name
EOL
}
}
#-------------------------------------------
# モデル HTML書込み
#-------------------------------------------
sub HTML_Model {
&model_marker;
if ((@P_koumoku[3] ne "") && (@P_koumoku[4] eq "")) {
print "@P_koumoku[1]...";
}
else{ print "@P_koumoku[1]...";}
if (@Form_checked[4] eq "checked") { # モデル名表示する？
&model_name;
if ($model_name ne "") {
print <<"EOL";
$model_name...
EOL
}
&model_Link;
print "
";
}
else {
&model_Link;
print "\n";
}
# モデル別リンク
sub model_Link {
if ((@P_koumoku[3] ne "") && (@P_koumoku[4] ne "")) {
print "@P_koumoku[4]...";
}
@S_File = split(/\n/, @file[6]); # サーチエンジン連動
$w_flg = "0";
foreach $S_Line(@S_File) {
@S_koumoku = split(/\,/, $S_Line);
if ((@S_koumoku[0] ne "") && (@P_koumoku[1] ne "他調査中")) {
if ($w_flg eq "0") {
print "";
$w_flg = "1";
}
$Search_url = @S_koumoku[0] . @P_koumoku[0] . "+" . @P_koumoku[1];
print " @S_koumoku[1]...";
}
}
if ($w_flg eq "1") {print "";}
}
#
}
#-------------------------------------------
# マーカータグ
#-------------------------------------------
sub model_marker {
$model_marker = "";
if (@P_koumoku[2] ne "") {
$model_marker = @model_marker[@P_koumoku[2]];
}
}
#-------------------------------------------
# 名称ルーチン
#-------------------------------------------
sub model_name {
@S_File = split(/\n/, @file[4]); #モデル名称カナ
$model_name = "";
foreach $S_Line(@S_File) {
@S_koumoku = split(/\,/, $S_Line);
if (@P_koumoku[1] eq @S_koumoku[0]) {
$model_name = @S_koumoku[1];
last;
}
}
}
#-------------------------------------------
# サーチ結果判定
#-------------------------------------------
sub search_j {
$MatFlg = "";
if ($Form_Keywords eq "") {
$MatFlg = "1";
}
else {
foreach $Keyword (@Keywords) {
if ($Work_Line =~ /$Keyword/i) {
$MatFlg = "1";
Last;
}
}
}
}
############################################
# 更新メニュー処理 (action="up_index")
############################################
sub up_index {
print <<"EOL";
*データを更新する
";
}
############################################
# （仮）更新用フォーム処理 (action="alter")
############################################
sub alter {
if ($in{'password'} eq $password) {
$file = $in{'file_name'};
open ($file, "$BaseDir/$file.txt");
@file = <$file>;
close($file);
print <<"EOL";
（仮）更新フォーム $in{'file_name'}_temp.txt
";
}
else {
print "*パスワードが一致しません。
\n";
}
print "BACK\n";
}
############################################
# （仮）更新処理 (action="up")
############################################
sub up {
if ($in{'password'} eq $password) {
$Form_textarea = $in{'tx1'};
$Form_textarea =~ s/\r\n/\r/g;
$Form_textarea =~ s/\r/\n/g;
&test_search;
&Form_HTML;
print "*（仮）更新明細 $in{'file_name'}_temp.txt
";
@Form_text = split(/\n/, $Form_textarea);
if ($in{'sort'} eq "") {@Form_sort = @Form_text;}
if (($in{'sort'} eq "sort") || ($in{'sort'} eq "reverse")) {
$HLD_key = "DUMMY_MOJI";
for ($I = 0; $I <= $#Form_text; $I++) {
if (substr($Form_text[$I], 0, 1) eq ",") {
$Form_text[$I] = $HLD_key.$Form_text[$I];
}
$HLD_key = substr($Form_text[$I], 0, index($Form_text[$I], ","));
}
}
if ($in{'sort'} eq "sort") {@Form_sort = sort @Form_text;}
if ($in{'sort'} eq "reverse") {@Form_sort = reverse @Form_text;}
open(OUT, "> $BaseDir/$in{'file_name'}_temp.txt");
foreach $Form_sort (@Form_sort) {
print(OUT "$Form_sort\n");
print "$Form_sort↓(LF)<\/font>
\n";
}
close(OUT);
}
else {
print "*パスワードが一致しません。
\n";
print "
BACK\n";
}
}
#-------------------------------------------
# テスト検索フォーム
#-------------------------------------------
sub test_search {
$backurl = $CGIURL ."?". "action=alter" . "&file_name=" . $in{'file_name'} . "&password=" . $in{'password'};
print <<"EOL";
*（仮）更新明細、テスト検索の確認後、問題なければ最終更新してください。
BACK