2015年12月9日水曜日

ファイルアップロードの CGI を gawk で作ってみよう!




【HTMLファイル】
<html>
<head>
<title>ファイルアップロード</title>
</head>
<body>

【gawk プログラム】



<!--  fromの属性に enctype="multipart/form-data" を付けるのを忘れずに! //-->
<form method="post" action="/cgi-bin/gawk.cgi" enctype="multipart/form-data">
<input type=text name="path">
<input type="file" name="file1" size="60" />
<input type="file" name="file2" size="60" />
<input type="submit" name="submit" value="送信" />
</form>

</body>
</html>
【受け取る gawk】

#! /usr/bin/gawk -f
BEGIN{
 print "Content-Type: text/plain"
 print ""
 print "This is test"
 print 1,ENVIRON["AUTH_TYPE"]
 print 2,ENVIRON["CONTENT_LENGTH"]
 print 3,ENVIRON["CONTENT_TYPE"]
 print 4,ENVIRON["GATEWAY_INTERFACE"]
 print 5,ENVIRON["PATH_INFO"]
 print 6,ENVIRON["PATH_TRANSLATED"]
 print 7,ENVIRON["QUERY_STRING"]
 print 8,ENVIRON["REMOTE_ADDR"]
 print 9,ENVIRON["REMOTE_HOST"]
 print 10,ENVIRON["REMOTE_IDENT"]
 print 11,ENVIRON["REMOTE_USER"]
 print 12,ENVIRON["REQUEST_METHOD"]
 print 13,ENVIRON["SCRIPT_NAME"]
 print 14,ENVIRON["SERVER_NAME"]
 print 15,ENVIRON["SERVER_PORT"]
 print 16,ENVIRON["SERVER_PROTOCOL"]
 print 17,ENVIRON["SERVER_SOFTWARE"]
 system("rm /var/www/win/up/myfile")
}
{
 print $0 >> "/var/www/win/up/myfile"
}

【関連する環境変数】
Content Type の環境変数
multipart/form-data; boundary=----WebKitFormBoundaryMU4Bxx8HoqSOyTQG

実際のデータ


【標準出力か取得できる】

------WebKitFormBoundaryMU4Bxx8HoqSOyTQG
Content-Disposition: form-data; name="path"
myPath
------WebKitFormBoundaryMU4Bxx8HoqSOyTQG
Content-Disposition: form-data; name="file1"; filename="README"
Content-Type: application/octet-stream
<テキストデータ;省略>
------WebKitFormBoundaryMU4Bxx8HoqSOyTQG
Content-Disposition: form-data; name="file2"; filename="google日本語.png"
Content-Type: image/png
?PNG
<PNG画像データ;省略>
------WebKitFormBoundaryMU4Bxx8HoqSOyTQG
Content-Disposition: form-data; name="submit"
送信
------WebKitFormBoundaryMU4Bxx8HoqSOyTQG--

0 件のコメント:

コメントを投稿