$title

#! /usr/bin/perl #*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=* # Simple Change_Html text.ver # [change_html.cgi] ver0.25 # # # >> Created by eshima #>>Copyright (c) 2002.05 eshima. All rights reserved. #*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=*-*=* ############################ 各種設定 ################################## require './jcode.pl'; require './cgi-lib.pl'; $script = './change_html.cgi'; $title = "今月のおすすめ"; $logfile ="./logs.txt"; $pass = 'mentai3139'; $max = 10; $body = ''; #表示させるログの数（1～10まで） $p_log = 1; #タグの許可（0:不許可　1:許可） $tagkey= 1; #投稿処理の権限 #　0;誰でも投稿可能 # 1;管理者のみが投稿可能 $PostMode = 1; #++++++++++++++各種設定終了++++++++++++++++++ #if($ImgDir !~ /\/$/){ $ImgDir .= "/"; } #if($ImgUrl !~ /\/$/){ $ImgUrl .= "/"; } &decode; if ($mode eq 'regist') { ®ist; } elsif ($mode eq 'admin') { &admin; } elsif ($mode eq 'check') { ✓ } &html; #++++++++++++++記事表示処理+++++++++++++++++ sub html{ &header; print "\n"; #ページ区切り処理 $start = $in{'page'} + 1; $end = $in{'page'} + $p_log; open(IN,"$logfile") || &error("Open Error : $logfile"); $i=0; while(){ $i++; if ($i < $start){ next; } if ($i > $end){ last; } ($no,$com,$pw) = split(/<>/); # if (-e "$ImgDir$no$tail"){ # if ($tail eq ".gif" || $tail eq ".jpg" || $tail eq ".png"){ # if($W && $H){ # print " $\"$no$tail\"$ \n"; # }else{ # print " $\"$no$tail\"$ \n"; # } # print "
\n"; print "\n"; print "\n\n\n

$com

\n\n"; # } # } } close(IN); print <<"EOM";

【管理用】

EOM $next_page = $in{'page'} + $p_log; $back_page = $in{'page'} - $p_log; print "\n\n\n"; exit; } #++++++++++++++書き込み処理+++++++++++++++++ sub regist{ if (!&MethPost()) { &error("METHOD形式がPOSTでありません");} #パスワードチェック if ($PostMode && $in{'pass'} ne $pass){ &error("パスワードが認証できません");} if ($in{'comment'} eq ""){ &error("コメントが記入されていません");} open(IN,"$logfile") || &error("Open Error : $logfile"); @lines = ; close(IN); ($tno,$tcom,$tpw) = split(/<>/, $lines[0]); $no = $tno + 1; if ($in{'pwd'} ne "") { $PW = &encrypt($in{'pwd'}); } while($max <= @lines){ $del = pop(@lines); local($no,$com,$pw,) = split(/<>/, $del); # if (-e "$ImgDir$no$tail"){ unlink("$ImgDir$no$tail"); } } #ファイル添付 # if ($in{'upfile'}){ &UpFile; } #更新 unshift(@lines,"$no<>$in{'comment'}<>$PW<><>\n"); open(OUT,">$logfile") || &error("Write Error : $logfile"); print OUT @lines; close(OUT); if($PostMode && $in{'action'} eq "regist"){ &header; print "

書き込みました。\n"; print "

\n"; print "
\n"; print "\n\n\n"; exit; } } #+++++++++++++++管理モード++++++++++++++++++ sub admin{ if ($in{'pass'} ne "" && $in{'pass'} ne "$pass"){ &error("パスワードが違います"); } if ($PostMode && $in{'action'} eq "form"){ &PostForm; } &header; print "[$titleに戻る]\n"; print "

\n"; print "管理ページ\n"; print "

\n"; if ($in{'pass'} eq ""){ print "パスワードを入力してください

\n"; print "\n"; } print"\n\n\n"; exit; } #++++++++++++++投稿フォーム++++++++++++++++ sub form { print <<"EOM";
EOM } #++++++++++++++管理者用投稿フォーム+++++++++++++++ sub PostForm{ &header; print "[戻る]\n"; &form; print "\n\n"; exit; } #+++++++++++++++デコード処理++++++++++++++++ sub decode{ &ReadParse; while(($key,$val) = each %in) { if($key ne "upfile") { &jcode'convert(*val, "sjis", "", "z"); if ($tagkey) { $val =~ s/<>/<>/g; }else{ $val =~ s//>/g; } if($key eq "comment"){ $val =~ s/\r\n/
/g; $val =~ s/\r/
/g; $val =~ s/\n/
/g; } else { $val =~ s/\r//g; $val =~ s/\n//g; } } $in{$key} = $val; } $mode = $in{'mode'}; $in{'url'} =~ s/^http\:\/\///; } #+++++++++++++ヘッダー処理++++++++++++++++++ sub header { $head_flag = 1; print "Content-type: text/html\n\n"; print <<"EOM"; $title $body EOM } #++++++++++++++エラー処理+++++++++++++++++++ sub error{ &header if(!$head_flag); print "

\nERROR！
\n"; print "$_[0]

\n"; print "戻る
\n"; print "

\n\n\n"; exit; } #++++++++++++++パスワード暗号処理+++++++++++ sub encrypt { local($inpw) = $_[0]; local(@SALT, $salt, $encrypt); @SALT = ('a'..'z','A'..'Z','0'..'9','.','/'); srand; $salt = $SALT[int(rand(@SALT))] . $SALT[int(rand(@SALT))]; $encrypt = crypt($inpw, $salt) || crypt ($inpw, '$1$' . $salt); return $encrypt; } #++++++++++++++パスワード照合処理+++++++++++ sub decrypt{ local($inpw, $logpw) = @_; local($salt, $key, $check); $salt = $logpw =~ /^\$1\$(.*)\$/ && $1 || substr($logpw, 0, 2); $check = "no"; if (crypt($inpw, $salt) eq "$logpw" || crypt($inpw, '$1$' . $salt) eq "$logpw"){ $check = "yes"; } return $check; } #+++++++++++++チェックモード+++++++++++++++++++++ sub check{ &header; print "Check Mode

\n"; print "

ログファイル：パスOK\n";} else { print"
ログファイルのパスが不正です: $logfile\n"; } if (-r $logfile && -w $logfile){print "
ログパーミッション: OK\n";} else {print "
ログパーミッションが不正です。\n";} print "

\n\n\n"; exit; }

ページの内容を書き換えます。下のフォーム内に新着情報に掲載するコメントを書いて、送信ボタンを押してください。 ※送信ボタンを押しますと、前回の内容は消去され、新しい内容に変わります。間違えた場合は最初からやりなおしてください。


削除キー	\n"; print "（記事削除用。英数字8文字以内）