#!/usr/local/bin/perl use MIME::Base64 (); # アプできるファイルの最大サイズ $max_size = 65534; # スクリプトのタイトル $title = 'なんでもBase64変換機'; if ($ENV{'PATH_INFO'} eq '/source') { print "Content-type: text/plain; charset=utf-8;\n\n"; open(R, "./make_base64.cgi"); print while ; close(R); exit; } if ($ENV{'CONTENT_LENGTH'} > $max_size) { $error = 'ファイルが大きすぎます！'; } if (!$ENV{'CONTENT_LENGTH'} || $error) { &html; } binmode(STDIN); read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); $buffer =~ /filename=\".+\.(.+)\"\r\n/; $ext = $1; if ($ext eq "") { &html; } $buffer =~ /\r\n\r\n/; $buffer = $'; $buffer =~ s/\r\n.+\r\n$//; $value = MIME::Base64::encode($buffer); $error = "

Encode完了デス。

\n"; $error.= ""; &html; sub html { print "Content-type: text/html\n\n"; print <<"_HTML_"; $title

$title [ソース]

$stack $error

($max_size\Byteまで)
_HTML_ exit; }