05/12/17 00:22:32
init.cgiに追加
require './cgi-lib.pl';
$imgdir = './img/';
$imgurl = "http://（該当URL）/img/";
$imgurl = "./img/";
$clip_err = 1;
$maxData = 51200;
$gif = 1;# GIFファイル
（略）
$mp3 = 0;# MP3ファイル
$cgi_lib'maxdata = 102400;
$MaxW = 300;# 横幅
$MaxH = 150;# 縦幅
JoyfulNote(URLﾘﾝｸ(www.kent-web.com))から
sub upload 部分を丸写し
376: next if ($key eq "upfile"); 追加
regist.cgiに下記部分を
追加
69: if ($in{'upfile'}) { ($tail,$W,$H) = &upload; }
改変
027: local($sub,$key,$flag,$i,$tail,$W,$H,@top);
138: print OUT "0<>$in{'sub'}<>$i_nam2<>$in{'email'}<>$i_com<>$date<>
$host<>$pwd<>$in{'url'}<>$in{'mvw'}<>$my_id<>$tail<>$W<>$H<>\n";
207: push(@file,"$newno<>$in{'sub'}<>$i_nam2<>$in{'email'}<>$i_com<>
$date<>$host<>$pwd<>$in{'url'}<>$in{'mvw'}<>$my_id<>$tail<>$W<>$H<>\n");