;
close(LOG);
}
# ファイルロック
sub file_lock {
$count = 0;
while ( !symlink("$$","$lock_file") ) {
if ( $count == 5 ) {
&g_accessErr;
}
$count++;
sleep(2);
}
}
# ログファイルへ出力
sub write_File {
# ファイルのロック
# &file_lock;
$in{'text'} =~ s/\r\n/
/g;
$in{'text'} =~ s/\r/
/g;
if (substr($keiji_logs[0],1,2) eq ': ') {
$number = substr($keiji_logs[0],0,1);
} elsif (substr($keiji_logs[0],2,2) eq ': ') {
$number = substr($keiji_logs[0],0,2);
} elsif (substr($keiji_logs[0],3,2) eq ': ') {
$number = substr($keiji_logs[0],0,3);
}
$number++;
$new_log = "$number: $buf_jikan: $in{'text'}: \n";
@keiji_logs = ($new_log,@keiji_logs);
$count = 0;
foreach $addlog (@keiji_logs) {
$count++;
if ($count > $max_log) { last; }
push (@newlogs,$addlog);
}
open(LOG,">$log_data");
flock(LOG,2);
print LOG @newlogs;
flock(LOG,8);
close(LOG);
# ロック解除
# unlink($lock_file);
}
# メッセージ表示画面
sub g_Main {
print "Content-type: text/html\n\n";
&read_tmpl("keijiban_tmpl.html");
# ヘッダ出力
print $html{'head'};
# 記事出力
$count = 0;
if (! $in{'next'}) { $in{'next'} = 0; }
foreach ($in{'next'}..$#keiji_logs) {
if ($count >= $page_log) {
$nextpage = "on";
$in{'next'} = $in{'next'} + $count;
last;
}
$count++;
($out_number,$out_jikan,$out_kiji,$out_text) = split(/: /,$keiji_logs[$_]);
#print "$out_jikan\n";
if ( $out_kiji eq "釣果") {
$out_kijidisp = " $out_kiji\n";
} else {
$out_kijidisp = " $out_kiji\n";
}
$out_text =~ /(\d+)年\s*(\d+)月\s*(\d+)日/;
my ($y,$m,$d) = ($1,$2,$3);
my ($weather,$kion,$water_t,$water_l,$water,$wind);
if ($out_text =~ /天気(:|：)(\S+)\s/) {
$weather = $2;
}
if ( $out_text =~ /気温(:|：)(\S+)\s/) {
$kion = $2;
}
if ($out_text =~ /水温(:|：)(\S+)\s/) {
$water_t = $2;
}
if ($out_text =~ /水位(:|：)(\S+)\s/) {
$water_l = $2;
}
if ($out_text =~ /水(:|：)(\S+)\s/) {
$water = $2;
}
if ($out_text =~ /風向(:|：)(\S+)\s/) {
$wind = $2;
}
$out_text = (split(/
/, $out_text))[-1];
if ( $out_kiji eq "釣果") {
$status = <<"EOF";
| 天気：$weather |
気温：$kion |
水温：$water_t |
水位：$water_l |
水質：$water |
風向：$wind |
EOF
} else {
$status = '';
}
print <<"EOF";
$out_kijidisp [$y年 $m月 $d日]
$status
$out_text |
EOF
}
# ページフッタ出力
if ($nextpage eq "on") {
#print "１ページに表\示されるのは、最高$page_log件までです。
\n";
#print "さらに過去の記事を見たいときは、下のボタンを押して下さい。\n";
print "
\n\n";##
} else {
#print "現在登録されている記事は以上です。
\n";
#print "$max_log件を越えると古い記事から自動的に削除しています。\n";
print "ＴＯＰへ戻る\n";
#print "
\n";
}
print $html{'foot'};
exit;
}
# 管理者画面
sub g_Kanri {
print "Content-type: text/html\n\n";
print "$head_title\n";
print "$body\n";
print "管理者
\n";
print "
\n";
print "
\n";
print "\n\n";
exit;
}
# 追加・削除画面
sub g_mente {
print "Content-type: text/html\n\n";
print "$head_title\n";
print "$body\n";
print "登録・削除
\n";
print "
\n";
print "
\n";
print "\n";
print "