ワークショップに関するお問い合わせ

END_OF_DATA if($Error[0]){ print <

フォームを送信できませんでした。
申し訳ありませんが、以下の点をご確認下さい。

END_OF_DATA $Prof{'mode'} = 'normal'; } if($Prof{'mode'} eq 'normal'){ # ステップ1 # プルダウンメニューの作成 # 都道府県 my $tempTodofukenHTML = ''; foreach(@TodofukenName){ if($Prof{'todofuken'} eq $_){ $tempTodofukenHTML .= ""; }else{ $tempTodofukenHTML .= ""; } } # 年齢 my $tempAgeHTML = ''; foreach(@AgeSelection){ if($Prof{'age'} eq $_){ $tempAgeHTML .= ""; }else{ $tempAgeHTML .= ""; } } # 星景写真撮影経験年数 my $tempPhotoShootExpHTML = ''; foreach(@ExpSelection){ if($Prof{'photoshootexp'} eq $_){ $tempPhotoShootExpHTML .= ""; }else{ $tempPhotoShootExpHTML .= ""; } } # タイムラプス撮影経験撮影経験年数 my $tempTimeLapseShootExpHTML = ''; foreach(@ExpSelection){ if($Prof{'timelapseshootexp'} eq $_){ $tempTimeLapseShootExpHTML .= ""; }else{ $tempTimeLapseShootExpHTML .= ""; } } # カメラメーカー名 my $tempCameraBrandHTML = ''; foreach(@CameraBrandSelection){ if($Prof{'camerabrand'} eq $_){ $tempCameraBrandHTML .= ""; }else{ $tempCameraBrandHTML .= ""; } } #ラジオボタンとチェックボックスの作成 %tempChecked = (); $tempChecked{"gender $Prof{'gender'}"} = ' checked'; $tempChecked{"timertyperelease $Prof{'timertyperelease'}"} = ' checked'; $tempChecked{"notebookpc $Prof{'notebookpc'}"} = ' checked'; $tempChecked{"agreement $Prof{'agreement'}"} = ' checked'; print <

お名前
お名前（ふりがな）
メールアドレス
メールアドレス確認用
お問い合わせ内容	$Prof{'contents'}

END_OF_DATA }elsif($Prof{'mode'} eq 'confirm'){ print <

お名前	$Prof{'personname'}
お名前（ふりがな）	$Prof{'personnamekana'}
メールアドレス	$Prof{'mail'}
お問い合わせ内容	$Prof{'contents'}

END_OF_DATA }elsif($Prof{'mode'} eq 'done'){ my @time = localtime(time); $time[5]+= 1900; $time[4]++; foreach($time[2],$time[1],$time[0]){ if($_ < 10){ $_ = '0'.$_; } } my $dateTime = "$time[5]年$time[4]月$time[3]日 $time[2]:$time[1]:$time[0]"; # 共通のテキスト my $standardText = <|g; print <送信が完了しました

${setting_lastmessage}

戻る

END_OF_DATA } print <<'END_OF_DATA';

END_OF_DATA sub SubmitEmail{ my $returnAdress = shift; my $toAdress = shift; my $toName = shift; my $fromAddress = shift; my $fromName = shift; my $subject = shift; my $text = shift; my $emaildata = &DataOfSubmitEmail( $returnAdress, $toAdress, $toName, $fromAddress, $fromName, $subject, $text ); &SendEmailOfData($returnAdress, $emaildata); } sub DataOfSubmitEmail{ my $returnAdress = shift; my $toAdress = shift; my $toName = shift; my $fromAddress = shift; my $fromName = shift; my $subject = shift; my $text = shift; $returnAdress = &ToHankaku($returnAdress); $toAdress = &ToHankaku($toAdress); $fromAddress = &ToHankaku($fromAddress); my $EncodedToName = &MEncode($toName); my $EncodedFromName = &MEncode($fromName); my $EncodedSubject = &MEncode($subject); my $tempForReturn = ''; $tempForReturn .= "Content-Type: text/plain; charset=UTF-8\n"; $tempForReturn .= "Content-Transfer-Encoding: base64\n"; $tempForReturn .= "To: ${EncodedToName} <${toAdress}>\n"; $tempForReturn .= "From: ${EncodedFromName} <${fromAddress}>\n"; $tempForReturn .= "Subject: ${EncodedSubject}\n"; $tempForReturn .= "\n"; $tempForReturn .= &MEncodeLong($text); } sub SendEmailOfData{ my $returnAdress = shift; my $data = shift; open SENTMAIL,"| /usr/sbin/sendmail -t -oi -f${returnAdress}"; print SENTMAIL "Date: " . &EmailDateFormatte(time) . "\n"; print SENTMAIL $data; close SENTMAIL; } sub EmailDateFormatte{ my $input = shift; my @Days = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); my @Months = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); @times = gmtime $input; $times[5] += 1900; for(my $i = 0; $i < 5; $i++){ if($times[$i] < 10){ $times[$i] = '0' . $times[$i]; } } $times[6] = $Days[$times[6]]; $times[4] = $Months[$times[4]]; return "$times[6], $times[3] $times[4] $times[5] $times[2]:$times[1]:$times[0] +0000"; } sub MEncode{ #use URI::Escape; use Encode; use MIME::Base64; my $text = shift; $text = Encode::is_utf8($text) ? encode_utf8($text) : $text; return '=?utf-8?B?' . encode_base64($text, '') . '?='; } sub MEncodeLong{ use Encode; use MIME::Base64; my $text = shift; $text = Encode::is_utf8($text) ? encode_utf8($text) : $text; return encode_base64($text); } sub ToHankaku{ $in = $_[0]; $in =~ s/Ａ/A/g; $in =~ s/Ｂ/B/g; $in =~ s/Ｃ/C/g; $in =~ s/Ｄ/D/g; $in =~ s/Ｅ/E/g; $in =~ s/Ｆ/F/g; $in =~ s/Ｇ/G/g; $in =~ s/Ｈ/H/g; $in =~ s/Ｉ/I/g; $in =~ s/Ｊ/J/g; $in =~ s/Ｋ/K/g; $in =~ s/Ｌ/L/g; $in =~ s/Ｍ/M/g; $in =~ s/Ｎ/N/g; $in =~ s/Ｏ/O/g; $in =~ s/Ｐ/P/g; $in =~ s/Ｑ/Q/g; $in =~ s/Ｒ/R/g; $in =~ s/Ｓ/S/g; $in =~ s/Ｔ/T/g; $in =~ s/Ｕ/U/g; $in =~ s/Ｖ/V/g; $in =~ s/Ｗ/W/g; $in =~ s/Ｘ/X/g; $in =~ s/Ｙ/Y/g; $in =~ s/Ｚ/Z/g; $in =~ s/ａ/a/g; $in =~ s/ｂ/b/g; $in =~ s/ｃ/c/g; $in =~ s/ｄ/d/g; $in =~ s/ｅ/e/g; $in =~ s/ｆ/f/g; $in =~ s/ｇ/g/g; $in =~ s/ｈ/h/g; $in =~ s/ｉ/i/g; $in =~ s/ｊ/j/g; $in =~ s/ｋ/k/g; $in =~ s/ｌ/l/g; $in =~ s/ｍ/m/g; $in =~ s/ｎ/n/g; $in =~ s/ｏ/o/g; $in =~ s/ｐ/p/g; $in =~ s/ｑ/q/g; $in =~ s/ｒ/r/g; $in =~ s/ｓ/s/g; $in =~ s/ｔ/t/g; $in =~ s/ｕ/u/g; $in =~ s/ｖ/v/g; $in =~ s/ｗ/w/g; $in =~ s/ｘ/x/g; $in =~ s/ｙ/y/g; $in =~ s/ｚ/z/g; $in =~ s/０/0/g; $in =~ s/１/1/g; $in =~ s/２/2/g; $in =~ s/３/3/g; $in =~ s/４/4/g; $in =~ s/５/5/g; $in =~ s/６/6/g; $in =~ s/７/7/g; $in =~ s/８/8/g; $in =~ s/９/9/g; $in =~ s/．/\./g; $in =~ s/ー/\-/g; $in =~ s/＠/\@/g; $in =~ s/！/!/g; $in =~ s/＃/\#/g; $in =~ s/＄/\$/g; $in =~ s/％/\%/g; $in =~ s/＆/\&/g; $in =~ s/’/\'/g; $in =~ s/＊/\*/g; $in =~ s/＋/\+/g; $in =~ s/−/\-/g; $in =~ s/／/\//g; $in =~ s/＝/=/g; $in =~ s/？/\?/g; $in =~ s/＾/\^/g; $in =~ s/＿/_/g; $in =~ s/｀/\`/g; $in =~ s/｛/\{/g; $in =~ s/｜/\|/g; $in =~ s/｝/\}/g; $in =~ s/〜/~/g; return $in; } exit;