20251016-2
PHAM GIA HANindex.html
<html>
<head>
<title>フォトデータベース</title>
</head>
<body bgcolor=”#FFFFFF” text=”#000000″>
<h2>フォトデータベース input</h2>
<hr size=”1″>
<form method=”POST” name=”formin” action=”dinput.cgi” enctype=”multipart/form-data”>
画像の名前:<input type=”text” name=”name” value=””><br>
カテゴリー:<input type=”text” name=”category” value=””><br>
住所:<input type=”text” name=”add”><br>
電話番号:<input type=”text” name=”tel”><br>
<p><input type=”file” name=”upload_file” size=”32″></p>
<input type=”submit” name=”submit” value=”送信”>
<input type=”reset” name=”submit” value=”リセット”>
</form>
</body>
</html>
dinput.cgi
#!/usr/bin/perl
BEGIN{ $| = 1; print “Content-type: text/html\n\n”; open(STDERR, “>&STDOUT”); }
use CGI;
$query = new CGI;
# ファイル名の取得
$filename = $query->param(‘upload_file’);
$add = $query->param(‘add’);
$tel = $query->param(‘tel’);
if($filename !~m/\.jpg$/)
{die “画像ファイルが適応しておりません。jpg ファイルでお願いします。”;}
####### 画像 MIME タイプの取得
$type = $query->uploadInfo($filename)->{‘Content-Type’};
while($bytesread = read($filename, $buffer, 2048)) {$file .= $buffer;}
#画像の名前をアクセスタイムから取得##################
local($nsec,$nmin,$nhour,$nmday,$nmon,$nyear)=localtime(time);
$nmon++;
$nyear+=1900;
$gazouname=”$nyear$nmon$nmday$nhour$nmin$nsec”;
$day = “$nyear/$nmon/$nmday”;
$gazou = “$gazouname.jpg”;
#外部ファイルに書き込む#################
# 画像ファイルの保存##################################
open(OUT, “> images/$gazou”) or die(“ファイルの保存に失敗しました。”);
binmode(OUT);
print(OUT $file);
close(OUT);
#######################################################
$name = $query->param(‘name’);
$category = $query->param(‘category’);
##################################
#外部ファイルに書き込む##################
@data=”$day\t$name\t$category\t$gazou\n”;
open(FILE,”>>save.txt”)||&error(“$datafile 外部ファイルが開きませんでしたエラー”);
print FILE @data;
close(FILE);
######################################
print <<END;
<html>
<head>
<title>フォトデータベース input</title>
<meta http-equiv=”Content-Type” content=”text/html; charset=Shift_JIS”>
</head>
<body bgcolor=”#FFFFFF” text=”#000000″>
<div align=”center”>
<h1><b>フォトデータベース 入力</b></h1>
</div>
<hr>
データが保存されました。<br>
END
print”<img src =\”images/$gazou\” width=\”200px\” height=\”auto\”>\n”;
print”ご住所:$add<br>\n”;
print”電話番号:$tel<br>\n”;
print”</body></html>\n”;
