#!/usr/bin/perl

binmode(STDIN);
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$filename = int(time/1000000).'/'.(time%1000000).'n.dat';
$buffer =~ /filename=\".+\.(.+)\"\r\n/;
$ext = $1;
$ext = 'jpg' if $ext eq "";
$buffer =~ /\r\n\r\n/;
$buffer = $';
$buffer =~ s/\r\n.+\r\n$//;
exit if $buffer eq "";
$filename = int(time/1000000).(time%1000000).'.'.$ext;
open(W, "> ../upload/$filename");
binmode(W);
print W $buffer;
close(W);
if($ENV{'CONTENT_LENGTH'} > 1100000){
	print "Content-type: text/html\n\nファイルが大きすぎます\n";
	exit;
}
print <<EOF;
Content-type: text/html

<h4>以下のアドレスへアップロードが完了しました。</h4>
<a href="http://tomozo.is.land.to/upload/$filename" target="_blank">http://tomozo.is.land.to/upload/$filename</a>
EOF