#!/usr/bin/perl #/////////////////////////////////////////////////////////////////////////////// # メールフォーム Easy Mail Form Ver.1.00 # ----- 2007(C) WEB INVENTOR(Solve) ----- # solve@wb-i.net # http://wb-i.net/ # #/////////////////////////////////////////////////////////////////////////////// #================================ [注意事項] =================================== # このスクリプトはフリーソフトです。このスクリプトを使用したいかなる損害に対して # も作者は一切の責任を負いません。 #====================================使用法===================================== # 次のようにして呼び出してください。 # http://・・/form.cgi #=============================================================================== # ▼設定▼ #=============================================================================== # jcode.plへのパス require './jcode.pl'; # MIMEコード変換ライブラリ require './mimew.pl'; # =============================================================================== # ▲設定終了▲ # =============================================================================== @kenmei=('-都道府県-','北海道','青森県','岩手県','秋田県','宮城県','山形県','福島県','東京都','神奈川県','埼玉県','千葉県','茨城県','栃木県','群馬県','新潟県','富山県','石川県','福井県','山梨県','長野県','岐阜県','静岡県','愛知県','三重県','滋賀県','京都府','大阪府','兵庫県','奈良県','和歌山県','鳥取県','島根県','岡山県','広島県','山口県','徳島県','香川県','愛媛県','高知県','福岡県','佐賀県','長崎県','熊本県','大分県','宮崎県','鹿児島県','沖縄'); local($key, $val, $buf, @in); if ($ENV{'REQUEST_METHOD'} eq "POST") { $postflag=1; read(STDIN, $buf, $ENV{'CONTENT_LENGTH'}); } else { $postflag=0; $buf = $ENV{'QUERY_STRING'}; } @in = split(/&/, $buf); @key=(); foreach (@in) { ($key, $val) = split(/=/); $key =~ tr/+/ /; $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $val =~ tr/+/ /; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*key, 'sjis'); &jcode'convert(*val, 'sjis'); $in{$key} = $val; push(@key_data,$key); } # 設定ファイル==================================== require './fset.pl'; #===== 戻り先===================================== $save_data="$script_ssl?f=$in{'f'}"; #===============入り口====================== if ( $in{'mode'} eq 'adm1' ) { &adm1; exit;} elsif ( $in{'mode'} eq 'adm_menu' ) { &adm_menu; exit;} elsif ( $in{'mode'} eq 'send' ) { &send_famil; exit;} elsif ( $in{'mode'} eq 'sure' ) { &ask_sure; exit;} else{&Mform;} exit; #=============デフォルト設定= sub default{ $f_no =$field_no; if($field_no > 15){$f_no = 2;} @info = split(/\<\>/,$FIELD[$f_no]); @d_info = split(/\<\>/,$FIELD[2]); $i =0; while($i < 11){ if($info[$i] eq ''){$info[$i] =$d_info[$i];} $i ++; } ($member_type,$shop_name,$shop_mail,$shop_mail2,$check_list,$mail_check_list,$sure_title,$end_title,$end_msg,$mail_title,$mail_msg,$ask_table) = @info; if($field_no > 15){$ask_table = '
';} elsif($ask_table eq ''){$ask_table = "(問合せフォーム$in{'f'}を記述してください)";} $mail_msg =~ s/