(password) bord.cgi
Nawoda| You are currently viewing a revision titled "(password) bord.cgi", saved on 2025年11月20日 9:13 PM by Nawoda | |
|---|---|
| タイトル | (password) bord.cgi |
| コンテンツ | #!/usr/bin/perl
BEGIN{ $| = 1; print "Content-type: text/html\n\n"; open(STDERR, ">&STDOUT"); }
use CGI;
$query = new CGI;
$password = $query->param('password');
#data フォルダーのテキストデータ読み込み###################
open(IN, "<init.txt");
@data=<IN>;
close (IN);
##########################################################
#時間を取得(locatime(time)アクセスした現在の時間(サーバーの時計)を取得#######
local($nsec,$nmin,$nhour,$nmday,$nmon,$nyear)=localtime(time);
$nmon++;
$nyear+=1900;
$daytime="$nyear/$nmon/$nmday/$nhour:$nmin:$nsec";
#################################
$name = $query->param('name');
$title = $query->param('title');
$contents = $query->param('contents');
##################################################
$bun="$daytime\t$name\t$title\t$contents\n";
#$bun を@data に代入
@dataa=$bun;
open(FILE,">>save.txt")||&error("$datafile 外部ファイルが開きませんでしたエラー");
print FILE"@dataa";
close(FILE);
##################################################
print <<END;
<html>
<head>
<title>password Bord</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<h1><b>password Bord</b></h1>
</div>
<hr>
END
#配列@data の中身を########################################
for($i=0;$i<@data;$i++){
@retudata=split(/\t/,$data[$i]);
if($data[$i]=~m/$password/){
print <<END;
<form action="bord.cgi" method="POST">
名前<br>
<input type="text" name="name"><br>
タイトル<br>
<input type="text" name="title"><br>
こんてんつ<br>
<textarea name="contents" rows="4" cols="40"></textarea><br>
<input type="hidden"name="pas" value="$password">
<input type="submit" value="送信">
<input type="reset" value="リセット">
</form>
<hr>
<table border="0" width="100%">
<tr>
<td>年月日時間</td><td>記入者</td><td>タイトル</td><td>内容</td>
<tr>
END
###############################################
open(IN, "<save.txt");
@datas=<IN>;
close (IN);
################################################
for($i=0;$i<@datas;$i++){
@retudata=split(/\t/,$datas[$i]);
for($j=0;$j<=$retudata;$j++)
{
print"<tr><td width=\"10%\">@retudata[0]</td><td width=\"10%\"><font
color=red>@retudata[1]</font></td><td width=\"20%\">@retudata[2]</td><td
width=\"60%\">@retudata[3]</td></tr>\n";
}
};
print"</table>";
print"<hr><form action=\"balos.cgi\" method=\"POST\"><input type=\"hidden\"name=\"pas\"
value=\"$password\"><input type=\"submit\" value=\"バルス\"></form>\n";
}else{
print"パスワードまちがってるよ~\n";
}
}
print"</body>\n";
print"</html>\n"; |
| 抜粋 | |
| 脚注 |
