| $res_nai[0] ＞ $res_nai[6] $res_nai[7] | \n"; $ret .= "
\n"; # 著作権表示（削除不可） print "〓ENJOY-WEBフリーCGI素材〓
\n"; # 著作権表示ここまで print "
戻 る
\n"; print "$my_name\n"; print "
/g; $value =~s/\n/
/g; $FORM{$name} = $value; } } }else{ if($method eq 'post') { read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); }else{ $query = $ENV{'QUERY_STRING'}; } @assocarray = split(/&/, $query); foreach $assoc (@assocarray){ ($name, $value) = split(/=/, $assoc); $value =~ tr/+/ /; $value =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg; &jcode'convert(*value, 'sjis'); if($tagu == 2){ $value = &tagu_hen($value); } $value =~s/\t/ /g; $value =~s/\r\n/
/g; $value =~s/\n/
/g; $FORM{$name} = $value; } } } #画像サイズ取得サブルーチン #第一引数に$IMGW{'name'}で得た拡張子(gif or jpeg) #第二引数に$FORM{'name'}で得た画像名 sub img_size { my($which,$names) = @_; my($in,$w1,$w2,$h1,$h2,$length,$buf,$marker,$code,$i); if($which eq 'gif'){ open FILE, "<$names"; binmode(FILE); &lock_ck(FILE); seek(FILE, 6, 0); unless (read(FILE, $in, 4) == 4) { $width = '1'; $height = '1'; }else{ ($w1, $w2, $h1, $h2) = unpack("CCCC", $in); $width = $w1 + $w2 * 256; $height = $h1 + $h2 * 256; } &unlock_ck(FILE); close(FILE); }elsif($which eq 'jpg'){ open JPEG, "<$names"; binmode(JPEG); &lock_ck(JPEG); read(JPEG, $buf, 20); $i = 0; while ( 1 ) { $length = 4; read (JPEG, $buf, $length); ($marker, $code, $length) = unpack ( "a a n", $buf ); if((ord($code) >= 0xC0) && (ord($code) <= 0xC3)){ $length = 5; read ( JPEG, $buf, $length ); ($height, $width) = unpack ("xnn", $buf); last; }else{ read ( JPEG, $buf, ($length - 2) ); } $i++; if($i > 1000000){ $width = 10; $height = 10; last; } } &unlock_ck(JPEG); close JPEG; } } sub get_ji { my($time,@now,$yban,$nen,$gatu,$niti,$jiji,$hun,@yobj); @now = localtime(time); $yban = $now[6]; $nen = $now[5]; $gatu = $now[4]; $niti = $now[3]; $jiji = $now[2]; $hun = $now[1]; $nen = $nen + 1900; $gatu++; @yobj = ("日","月","火","水","木","金","土"); return "$nen年$gatu月$niti日($yobj[$yban])$jiji時$hun分"; } #タグ変換 sub tagu_hen { my($msg) = $_[0]; $msg =~ s/&/&/g; $msg =~ s/"/"/g; $msg =~ s//>/g; return $msg; } #自動リンク sub url_hen { my($msg) = $_[0]; $msg =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1$2<\/A>/g; return $msg; } #エラー表示 sub print_error { my($msg) = @_; &page_head("$msg"); print "
エラーです
\n"; print "$msg
\n"; print "再度試されるか$my_nameまでお知らせ下さい
\n"; &page_end("$my_pgm"); exit(0); } #ホスト名を返す sub get_host { my($atai) = $ENV{'REMOTE_HOST'}; my($addr) = $ENV{'REMOTE_ADDR'}; if($atai eq "" || $atai eq "$addr") { $atai = gethostbyaddr(pack("C4",split(/\./,$addr)),2); } return $atai; } #ページを表示させる sub page_set { my($mode,$onepage) = @_; my($i,$col,@see,$resdat,$title,$beg_line,$end_line,$back_form,$next_form); &get_cook("FFBBS"); if($mode eq 'com'){ &set_cook("$my_title","name<>$FORM{name}<<>>mail<>$FORM{mail}<<>>url<>$FORM{url}<<>>color<>$FORM{color}","$cook_day","FFBBS"); $gcook{name} = $FORM{name}; $gcook{mail} = $FORM{mail}; $gcook{url} = $FORM{url}; $gcook{color} = $FORM{color}; }elsif($mode eq 'res'){ &set_cook("$my_title","name<>$FORM{res_name}<<>>mail<>$gcook{mail}<<>>url<>$gcook{url}<<>>color<>$FORM{res_color}","$cook_day","FFBBS"); $gcook{name} = $FORM{res_name}; $gcook{color} = $FORM{res_color}; }else{ &page_head("$my_title"); } if($my_title_img ne ''){ $title = "
\n"; }else{ $title = "