$MAIN_TITLE

$PROG_NAME $PROG_VERSION __HTML__ $message; } # ============================================================================= # メニュー表示 sub PrintMenu { local($message); $message .= <<"__HTML__"; [記事をツリー表\示] [記事を時間順に表\示] [新しく記事を投稿] [管理ページ] [ホームページへ] __HTML__ $message; } # ============================================================================= # タグ許可と閉じ忘れ防止用の配列を用意（ログ） sub SetTag { local(*TagS, *TagE, *taglist) = @_; local($_); foreach(keys(%taglist)) { push(@TagS, $_); push(@TagE, $taglist{$_}); } } package Error; # ============================================================================= # エラーメッセージを出して終了 sub PrintMessage { local ($errormsg) = @_; local($_, $message); $message .= <<"__HTML__"; Content-type: text/html $main'MAIN_TITLE エラーが発生しました

エラーが発生しました。内容は以下の通りです。

$errormsg

$main'MAIN_TITLE __HTML__ &jcode'convert(*message, $main'USE_JCODE); print $message; exit(0); } package HTML; # ============================================================================= # タグの禁止 sub AvoidTag { local(*temp) = @_; local($_, $i); for($i = 0; $i < scalar(@temp); $i++) { $temp[$i] =~ s/&/&/g; $temp[$i] =~ s/"/"/g; $temp[$i] =~ s//>/g; } } # ============================================================================= # タグの許可 sub ValidateTag { local(*alias,*tagAs,*tagBs) = @_; local($tagA,$tagB,$match,$b,$f,$_); $alias =~ tr/<>/\x1e\x1f/; foreach (0 .. scalar(@tagAs) - 1) { ($tagA = $tagAs[$_]) =~ tr/<>/\x1e\x1f/; ($tagB = $tagBs[$_]) =~ tr/<>/\x1e\x1f/; while($alias =~ /$tagA/i) { $b = $`; $f = $'; ($match = $&) =~ tr/\x1e\x1f/<>/; (($match =~ s/"/"/g) % 2) && ($match =~ s/>/">/); if (($tagB) && ($f =~ s/$tagB/$tagBs[$_]/i)) { $alias = join("",$b,$match,$f); } else { $alias = join("",$b,$match,$f,$tagBs[$_]); } } } $alias =~ s/\x1e/</g; $alias =~ s/\x1f/>/g; 1; } # ============================================================================= # 文字列をURL形式に変換("*.@-"も変換) sub UrlEncode { local(*alias) = @_; local($_); $alias =~ s/([^0-9A-Za-z_])/"%".unpack("H2",$1)/ge; $alias =~ tr/ /+/; } # ============================================================================= # URL形式を文字列に変換 sub UrlDecode { local(*alias) = @_; local($_); $alias =~ s/%([\dA-F]{2})/pack("c",hex($1))/ge; } package basic; @wday = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'); @jwday = ('日', '月', '火', '水', '木', '金', '土'); @weekday = ( 'Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday'); @mon = ( 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); @month = ( 'January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'); @holiday = ( '0101', '0115', '0211', '0321', '0429', '0503', '0504', '0505', '0720', '0915', '0923', '1010', '1103', '1123', '1223'); # ============================================================================= # 漢字コード変換 sub ConvertEncode { local($str, $encoding) = @_; local($_, *LOG); &jcode'convert(*str, $encoding); $str; } # ============================================================================= # 空のファイルを作る sub MakeNewFile { local($fname) = @_; open(NEW, ">$fname") || return(0); close(NEW); return(1); } # ============================================================================= # パス名からファイル名をとりだす sub GetFileName { local($fname) = @_; if ($fname =~ /\\|\//) { $fname =~ /[^\\\/]*$/; $fname = $&; } $fname; } # ============================================================================= # 配列から改行を除く sub DelCrFromList { local(*list) = @_; local($_); foreach(@list) { $_ =~ s/\n//g; } } # ============================================================================= # フォームのデコード sub GetForm { local(*temp) = @_; local($key,$value); ($ENV{'REQUEST_METHOD'} eq 'GET') && ($_ = $ENV{'QUERY_STRING'}); ($ENV{'REQUEST_METHOD'} eq 'POST') && read(STDIN,$_,$ENV{'CONTENT_LENGTH'}); tr/+/ /; foreach (split(/&/)) { ($key,$value) = split(/=/); $key =~ s/%(..)/pack("c",hex($1))/ge; $value =~ s/%(..)/pack("c",hex($1))/ge; if (defined($temp{$key})) { $temp{$key} = join("\0", $temp{$key}, $value); } else { $temp{$key} = $value; } } } # ============================================================================= # パスワードを暗号化 sub MakePasswd { local($plain) = @_; local($salt, $passwd); srand($$ | time); $salt = pack("c*", int(rand(26))) + 0x41 + 0x20 * int(rand(2)); $salt .= pack("c*", int(rand(26))) + 0x41 + 0x20 * int(rand(2)); $salt .= int(rand(10000)); $passwd = crypt($plain, $salt); #暗号化されたパスワードを返す $passwd; } # ============================================================================= # パスワードチェック # # 引数 = チェックしたいパスワード、暗号化されたパスワード # 返値 = 合格=1 不合格=0 sub CheckPasswd { local($guess, $pass) = @_; if(crypt($guess, $pass) eq $pass){ return(1); } else { return(0); } } # ============================================================================= # 曜日->RGBカラー # # 引数 = 日曜-0 ～土曜-6 # 返値 = #rrggbb sub WdayToRGB { local($wday, $col) = @_; if($wday == 0) { $col = "#FF0000"; } elsif ($wday == 6) { $col = "#0077FF"; } else { $col = "#000000"; } $col; } # ============================================================================= # 曜日の算出 # # 引数=年(4ケタ）、月、日の順番で渡す # 返値=曜日(0-sun,6-sat) sub DayOfWeek { local($year, $month, $day) = @_; if($month == 1 || $month == 2) { $year--; $month += 12; } return(($year + int($year / 4) - int($year / 100) + int($year / 400) + int((13 * $month + 8) / 5) + $day) % 7); } # ============================================================================= # 分->hh:mmの算出 # # 引数=0:00からの経過分 # 返値=hh:mm (hh=00-24) sub MinToStr24 { local($minutes) = @_; local($hour, $min); $hour = int($minutes / 60) % 24; $min = $minutes % 60; sprintf("%d:%02d", $hour, $min); } # ============================================================================= # 分->hh:mmの算出(経過時間） # # 引数=0:00からの経過分 # 返値=hh:mm sub MinToStr { local($minutes) = @_; local($hour, $min); $hour = int($minutes / 60); $min = $minutes % 60; sprintf("%d:%02d", $hour, $min); } #============================================================== # hh:mm->0:00からの経過分数の算出(経過時間） # # 引数=(hh, mm) # 返値=経過分数 sub StrToMin { local($hour, $min) = @_; $hour * 60 + $min; } # ============================================================================= # 現在の時間を取得 # # 引数=日本との時差 # 返値=（秒、分、時、日、月、年、曜日(0-sun,6-sat) sub GetNowTime { local($t_zone) = @_; local(@ret_day); #現在時刻を取得 @ret_day = (localtime(time+60*60*$t_zone))[0..6]; $ret_day[4]++; @ret_day; } # ============================================================================= # クッキーをもらう sub GetCookies { local(*cookies) = @_; local($_, $key, $value); foreach (split(/; /,$ENV{'HTTP_COOKIE'})) { ($key,$value) = split(/=/,$_); $cookies{$key} = $value; } } # ============================================================================= # グリニッジ標準時刻(引数 = time , 返り値 = 文字列) sub GetGMT { local($sec,$min,$hour,$mday,$mon,$year,$wday,$_); ($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime($_[0]); $wday = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat")[$wday]; $mon = ("Jan","Feb","Mar","Apr","May","Jun", "Jul","Aug","Sep","Oct","Nov","Dec")[$mon]; if($year < 70) { $year += 2000; } else { $year += 1900; } sprintf("$wday, %02d-$mon-$year %02d:%02d:%02d GMT", $mday,$hour,$min,$sec); } 1;