[刪除] [編輯]\n"; } $date = &get_weekly_date($date); print &html_format($date,$title,$tenki,$message); } } # [ 網頁格式輸出 ] # sub page_log { local($start,$end); if ($page_layout == 0) { $start = $FORM{'start'}; $end = $start + $page; if ($start < 0 || $start > @logs) { $start = 0; } if ($end < 0) { $end = 0;} if ($end > @logs) { $end = @logs; } print "
\n"; $temp = $start-$page; if ($start>0) { print "[BACK] "; } else { print "[BACK] "; } $temp = $start+$page; if ($end<@logs) { print "[NEXT] "; } else { print "[NEXT] "; } } else { $start = $FORM{'start'}; $end = @logs; if ($start < 0 || $start > @logs) { $start = 0; } $target_time = substr((&get_data($start))[0],0,6); $flag = 0; for($i=0;$i<@logs;$i++) { $time = substr((&get_data($i))[0],0,6); if ($time eq $target_time) { if ($flag == 0) { $start = $i;$flag = 1; } } elsif ($flag == 1) { $end = $i; last;} } if ($start>0) { $start--; $time = substr((&get_data($start))[0],0,6); $temp = substr($time,0,4) . "/" . substr($time,4,2); print "$temp << "; $start++; } if ($end<@logs) { $time = substr((&get_data($end))[0],0,6); $temp = substr($time,0,4) . "/" . substr($time,4,2); print " >> $temp "; } } return ($start,$end); } # [ HTML格式輸出 ] # sub html_format { ($date,$title,$tenki,$message) = @_; $html = ""; if ($html_layout == 0) { $html .= "\n
\n"; $html .= "
\n";
$html .= "
|
\n"; $html .= "
\n";
$html .= "
|
/\n/g; } } $kiji = @logs; $size = (stat($logfile))[7]; $lmsize = $max_size - $size; print<<"_EOF_";
▲取消編輯
My Diary Editor
目前共有$kiji天分的日記，記錄檔現有$sizebyte的大小。
系統設定日記的大小限制為$max_sizebyte，目前還有$lmsizebyte的空間可以使用。
[注意]_EOF_ } # [ 日記內容之登錄編輯 ] sub editor_edit { # 檢查登錄內容 if ($FORM{'year'}< 1583 || $FORM{'year'}> 9999) { return; } if ($FORM{'mon'}< 1 || $FORM{'mon'}> 12) { return; } if ($FORM{'day'}< 1 || $FORM{'day'}> (0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)[$FORM{'mon'}]) { return; } if ($FORM{'mon'} == 2 && $FORM{'day'} == 29) { if (($FORM{'year'} % 4 != 0 && $FORM{'year'} % 100 == 0) || ($FORM{'year'} % 400 != 0)) { return; } } $FORM{'mon'} = substr("0$FORM{'mon'}",length($FORM{'mon'})-1,2); $FORM{'day'} = substr("0$FORM{'day'}",length($FORM{'day'})-1,2); $date = "$FORM{'year'}$FORM{'mon'}$FORM{'day'}"; $FORM{'message'} =~ s/\r\n/
輔助工具一般並不需要使用
真的需要使用的話，請詳讀readme.htm
/g; $FORM{'message'} =~ s/\r|\n/
/g; # 記錄檔登錄處理 $edit_flag = 0; foreach $data (@logs) { $target_date = (split(/<>/,$data))[0]; if (!$del{$target_date}) { # 不是刪除 if ($target_date eq $date) { if ($FORM{'message'} ne '') { # 覆蓋 push(@new,"$date<>$FORM{'title'}<>$FORM{'tenki'}<>$FORM{'message'}\n"); $edit_flag = 1; $edit{substr($target_date,0,6)} = 1; } } else { if ($target_date < $date && !$edit_flag) { if ($FORM{'message'} ne '') { # 寫入新記錄檔 push(@new,"$date<>$FORM{'title'}<>$FORM{'tenki'}<>$FORM{'message'}\n"); $edit_flag = 1; $edit{substr($target_date,0,6)} = 1; } } push (@new,$data); } } else { $edit_flag = 1; $edit{substr($target_date,0,6)} = 1; } } if (!$edit_flag && $FORM{'message'} ne '') { # 寫入新記錄檔 push(@new,"$date<>$FORM{'title'}<>$FORM{'tenki'}<>$FORM{'message'}\n"); $edit_flag = 1; $edit{substr($date,0,6)} = 1; } # 登錄限制刪除處理 if ($edit_flag) { $size = (stat($logfile))[7]; while ($size > $max_size) { $size -= length(pop(@new)); } @logs = &write_file($logfile,@new); undef @new; } # 過去記錄自動編輯為HTML功能 if (!$htmldir_flag) { return 0; } $target_date = 0;$edit_flag = 0; push(@logs,"dummy<><><>\n"); foreach $data (@logs) { if ($target_date ne substr((split(/<>/,$data))[0],0,6)) { if ($edit_flag) { $htmlfile = "$htmldir/wd$target_date.html"; if (!open(HTML,">$htmlfile")) { &error(1,"無法做成HTML檔案。"); } print HTML &html_header; print HTML "\n"; print HTML &html_title; $date = substr($target_date,0,4).'/'.substr($target_date,4,2); print HTML "
\n"; print HTML "以下是之前的日記，請點選想看的月份。\n\n"; print HTML &html_footer; close (HTML); chmod(0666,"$htmldir/diarykako.html"); } $target_date = substr((split(/<>/,$data))[0],0,6); $edit_flag = 0; undef @new; } if ($edit{$target_date}) { push(@new,$data); $edit_flag = 1; } } pop(@logs); } # [ 下載記錄檔（編輯模式） ] # sub editor_download { print "Content-type: text/download\n\n"; print @logs; exit 0; } # [ 記錄檔初期化（編輯模式） ] # sub editor_del { @logs = &write_file($logfile,''); @logs = (); } # [ CGI動作檢查 ] # sub check_mode { if (!(-f $logfile)) { $axs = "Not Found" } if (-r $logfile) { $axs = "r" } if (-w $logfile) { $axs .= "w" } print "Content-type: text/html\n\n"; print<<"_EOF_";
\n"; foreach $file (@files) { if (substr($file,0,2) eq "wd") { $date = substr($file,2,4)."年".substr($file,6,2)."月"; print HTML "過去的日記 ($date)"; if ($edit{substr($file,2,6)}) { print HTML " UPDATE"; } print HTML "
\n"; } } print HTML "
MyDiary Version 1.21.00c -TestMode-
[Option]
logfile[$axs] LockFlag:$lock_flag ImageUrl:$image_url
Method:$method FileName:$cginame TimeZone:$tz
Owner:$admin_name ($admin_email)
[Perl]
Path:#!$^X
Version:$]
[TestForm]
TestFormText:$FORM{'test'}
_EOF_
exit;
}
# [ 書籤登錄 ]
#
sub editor_bookmark {
print "Content-type: text/html\n\n";
print<<"_EOF_";
注意！
本工具提供管理者在我的最愛（書籤）中直接加入連往編輯模式的連結。
只要加入連結之後，不需打入密碼也能夠從連結進入編輯模式。
不過也因此必須注意，千萬別讓他人使用自己的電腦或瀏覽器。
（也就是不要讓他人能夠使用自己的書籤。）
‧確定要登錄的話，在ＩＥ中請按滑鼠右鍵之後選擇「加到我的最愛」。
‧ＮＮ則是選擇「加入書籤」。
請在這裡按滑鼠右鍵→ [進入MyDiaryEditor]
_EOF_
}
# [ 記錄檔之處理 ]
#
sub read_file {
local($logfile) = $_[0];
if (!open(IN,$logfile)) {
&error(1,"禁止寫入記錄檔");
}
local(@files) = ;
close(IN);
return @files;
}
sub write_file {
local($logfile,@lines) = @_;
&dubble_lock_file;
if ($lock_error) { &error(1,"發現鎖定用檔案，請稍待片刻之後再使用。"); }
if (!$savetype) {
# 所有OS共通之標準型
if (!open(OUT,">$logfile")) {
&dubble_unlock_file;
&error(1,"禁止寫入記錄檔");
}
print OUT @lines;
close(OUT);
} else {
# 使用改良型chmod
$tmpfile = "$$\.tmp";
if (!open(OUT,">$tmpfile")) {
&dubble_unlock_file;
&error(1,"並未對應使用暫存檔案之記錄方式。");
}
close(OUT);
chmod 0666,$tmpfile;
if (!open(OUT,">$tmpfile")) {
&dubble_unlock_file;
&error(1,"並未對應使用暫存檔案之記錄方式。");
}
print OUT @lines;
close(OUT);
rename($tmpfile,$logfile);
if (-e $tmpfile) { unlink($tmpfile); }
}
&dubble_unlock_file;
return @lines;
}
# [ 鎖定機制 ]
#
sub dubble_lock_file {
if (!(&lock_file($lock1))) { &dubble_unlock_file; }
elsif (!(&lock_file($lock2))) { &dubble_unlock_file; }
}
sub dubble_unlock_file {
&unlock_file($lock2);&unlock_file($lock1);
}
sub lock_file {
local($lockfile) = $_[0];
if (!$lock_flag) { return 1; }
local($retry) = 5;
while (-f $lockfile) {
if ($retry-- <= 0) {
local($mtime) = (stat($lockfile))[9];
if ($mtime < time()-60*15) { return 0; }
$lock_error = 1;
return 1;
}
sleep 1;
}
open (LOCK,">$lockfile");
close(LOCK);
return 1;
}
sub unlock_file {
local($lockfile) = $_[0];
unlink($lockfile);
}
# [ 取得日期 ]
#
sub get_date {
$ENV{'TZ'} = $tz;
($sec,$min,$hour,$day,$mon,$year,$youbi) = localtime(time);
if ($hour < 12 && $end_date) {
($sec,$min,$hour,$day,$mon,$year) = localtime(time-12*60*60);
}
$mon++;
if ($mon < 10) { $mon = "0$mon"; }
if ($day < 10) { $day = "0$day"; }
if ($year < 99) { $year += 100; }
$year += 1900;
$youbi = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$youbi];
return ($year,$mon,$day,$hour,$min,$sec,$youbi);
}
# [ 從表單中取得資料 ]
#
sub read_form {
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; }
local(@pairs) = split(/&/,$buffer);
foreach (@pairs) {
local($name,$value) = split(/=/,$_);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
if ($name eq 'edit') { $editno = $value; }
elsif ($name eq 'del') { $del{$value} = 1; }
else { $FORM{$name} = &change_code($value); }
}
}
# [ 符號更換 ]
#
sub change_code {
local($text)=$_[0];
$text =~ s/<>/<>/g;
return $text;
}
# [ 錯誤處理 ]
#
sub error {
($err,$err_msg) = @_;
if ($err) { print "Content-type: text/html\n\n"; }
print<<"_EOF_";
錯誤：$err_msg