#!/usr/local/bin/perl $size = $ENV{'CONTENT_LENGTH'}; if ($size < 10000) { binmode (STDIN); read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @data = split (/Content-Type/, $buffer); $data[0] = 'Content-Type'; if ($data[1] =~ /image\/gif/i || $data[1] =~ /image\/jpeg/i) { ($fileend, $delete) = split (/\x0d\x0a\x2d\x2d/, $data[$#data]); $buffer = ''; for ($i = 0; $i < $#data; $i++) { $buffer = "$buffer$data[$i]"; } $buffer = "$buffer$fileend"; binmode (STDOUT); print "$buffer"; exit (0); } else { print "Content-Type: text/html\n\n"; print 'このファイルは表示できるタイプではありません'; exit (1); } } else { print "Content-Type: text/html\n\n"; print 'ファイルのサイズが大きすぎます'; exit (1); }