#! /usr/local/bin/perl
use strict;
use warnings;
use lib qw(./lib);
use CGI;
use CGI::Session;
use utf8;
use Encode;
use Unicode::Japanese;
use Data::Dumper;
my $mail = 'sunnet@sun-net.cc';
my @mailto = (
'sunnet@sun-net.cc', 'yamamoto@sun-net.cc',
'allegro2015@i.softbank.jp', 'kameya@aone-web.net',
'kanno@aone-web.net'
);
my $password = 'rule110';
my $session_dir = 'private/.session';
my $cookie_name = 'jitensha';
my $cookie_path = '/rule';
my $sendmail = '/usr/sbin/sendmail';
my $rate = '0'; # 消費税（％）
my $hontai = '100'; # 価格
$CGI::POST_MAX = 10 * 1024 * 1024;
my $query = CGI->new();
# ログイン状態のチェック
my $logged = &login_check();
if ( defined $logged ) {
my $mode = $query->param('mode') || undef;
# フォームの処理
if ( defined $mode ) {
if ( $mode eq 'confirm' ) {
&form('confirm');
}
elsif ( $mode eq 'send' ) {
&mailsend();
}
elsif ( $mode eq 'finish' ) {
&finish();
}
else {
&form();
}
}
else {
&form();
}
}
else {
# ログインフォーム
&login();
}
exit;
sub html_header {
my $title = '申し込みログインページ';
if ( defined $logged ) {
$title = '申し込みフォーム';
}
my $html = qq|
「自転車交通ルールを学ぼう！」（合本）$title｜自転車駐車場整備センター
「自転車交通ルールを学ぼう！」（合本） $title
|;
if ( !defined $logged ) {
$html .= '
受付期間は終了しました。
';
}
$html .= qq|
|;
return $html;
}
sub html_footer {
my $html = qq|
|;
return $html;
}
sub login {
my $contents = qq|
|;
# 20200120 受付終了に伴いログインを封鎖
$contents = '';
$contents = &html_header . $contents;
$contents .= &html_footer;
$contents = Encode::encode( 'utf8', $contents );
print $query->header( -charset => 'utf8' );
print $contents;
exit;
}
sub form {
my $mode = shift;
my $number = $query->param('number') || undef;
if ( defined $mode && !defined $number ) {
&error('冊数を入力して下さい。');
}
if ( defined $mode && $number !~ /^\d+$/ ) {
&error('冊数は半角数字で入力して下さい。');
}
$number = Encode::decode_utf8($number) if defined $number;
$number = &xss($number) if defined $number;
my $use = $query->param('use') || undef;
if ( defined $mode && ( !defined $use || $use eq '' ) ) {
&error('使用目的を入力して下さい。');
}
$use = Encode::decode_utf8($use) if defined $use;
$use = &xss($use) if defined $use;
my $company = $query->param('company') || undef;
if ( defined $mode && !defined $company ) { $company = ''; }
$company = Encode::decode_utf8($company) if defined $company;
$company = &xss($company) if defined $company;
if ( defined $mode && !defined $company ) {
&error('団体名を入力して下さい。');
}
my $section = $query->param('section') || undef;
# if ( defined $mode && !defined $section ) { $section = ''; }
$section = Encode::decode_utf8($section) if defined $section;
$section = &xss($section) if defined $section;
if ( defined $mode && !defined $section ) {
&error('部署名を入力して下さい。');
}
my $name1 = $query->param('name1') || undef;
my $name2 = $query->param('name2') || undef;
if ( defined $mode && ( !defined $name1 || !defined $name2 ) ) {
&error('ご担当者姓名を入力して下さい。');
}
$name1 = Encode::decode_utf8($name1) if defined $name1;
$name1 = &xss($name1) if defined $name1;
$name2 = Encode::decode_utf8($name2) if defined $name2;
$name2 = &xss($name2) if defined $name2;
my $name3 = $query->param('name3') || '';
my $name4 = $query->param('name4') || '';
$name3 = Encode::decode_utf8($name3) if defined $name3;
$name3 = &xss($name3) if defined $name3;
$name4 = Encode::decode_utf8($name4) if defined $name4;
$name4 = &xss($name4) if defined $name4;
my $zipcode = $query->param('zipcode') || undef;
my $pref = $query->param('pref') || undef;
my $address = $query->param('address') || undef;
my $building = $query->param('building') || undef;
if ( defined $mode && ( !defined $zipcode || !defined $pref || !defined $address ) ) {
&error('所在地を入力して下さい。');
}
$zipcode = Encode::decode_utf8($zipcode);
$zipcode = &xss($zipcode) if defined $zipcode;
$pref = Encode::decode_utf8($pref);
$pref = &xss($pref) if defined $pref;
$address = Encode::decode_utf8($address) if defined $address;
$address = &xss($address) if defined $address;
$building = Encode::decode_utf8($building) if defined $building;
$building = &xss($building) if defined $building;
my $tel = $query->param('tel') || undef;
if ( defined $mode && !defined $tel ) {
&error('電話番号を入力して下さい。');
}
$tel = Encode::decode_utf8($tel) if defined $tel;
$tel = &xss($tel) if defined $tel;
my $mail = $query->param('mail') || undef;
if ( defined $mode && !defined $mail ) {
&error('メールアドレスを入力して下さい。');
}
$mail = Encode::decode_utf8($mail) if defined $mail;
$mail = &xss($mail) if defined $mail;
my $shipping_company = $query->param('shipping_company') || undef;
if ( defined $mode && !defined $shipping_company ) { $shipping_company = ''; }
$shipping_company = Encode::decode_utf8($shipping_company) if defined $shipping_company;
$shipping_company = &xss($shipping_company) if defined $shipping_company;
my $shipping_section = $query->param('shipping_section') || undef;
if ( defined $mode && !defined $shipping_section ) { $shipping_section = ''; }
$shipping_section = Encode::decode_utf8($shipping_section) if defined $shipping_section;
$shipping_section = &xss($shipping_section) if defined $shipping_section;
my $shipping_name1 = $query->param('shipping_name1') || undef;
my $shipping_name2 = $query->param('shipping_name2') || undef;
$shipping_name1 = Encode::decode_utf8($shipping_name1) if defined $shipping_name1;
$shipping_name1 = &xss($shipping_name1) if defined $shipping_name1;
$shipping_name2 = Encode::decode_utf8($shipping_name2) if defined $shipping_name2;
$shipping_name2 = &xss($shipping_name2) if defined $shipping_name2;
my $shipping_name3 = $query->param('shipping_name3') || undef;
my $shipping_name4 = $query->param('shipping_name4') || undef;
$shipping_name3 = Encode::decode_utf8($shipping_name3) if defined $shipping_name3;
$shipping_name3 = &xss($shipping_name3) if defined $shipping_name3;
$shipping_name4 = Encode::decode_utf8($shipping_name4) if defined $shipping_name4;
$shipping_name4 = &xss($shipping_name4) if defined $shipping_name4;
my $shipping_zipcode = $query->param('shipping_zipcode') || undef;
my $shipping_pref = $query->param('shipping_pref') || undef;
my $shipping_address = $query->param('shipping_address') || undef;
my $shipping_building = $query->param('shipping_building') || undef;
$shipping_zipcode = Encode::decode_utf8($shipping_zipcode);
$shipping_zipcode = &xss($shipping_zipcode) if defined $shipping_zipcode;
$shipping_pref = Encode::decode_utf8($shipping_pref);
$shipping_pref = &xss($shipping_pref) if defined $shipping_pref;
$shipping_address = Encode::decode_utf8($shipping_address) if defined $shipping_address;
$shipping_address = &xss($shipping_address) if defined $shipping_address;
$shipping_building = Encode::decode_utf8($shipping_building) if defined $shipping_building;
$shipping_building = &xss($shipping_building) if defined $shipping_building;
my $shipping_tel = $query->param('shipping_tel') || undef;
$shipping_tel = Encode::decode_utf8($shipping_tel) if defined $shipping_tel;
$shipping_tel = &xss($shipping_tel) if defined $shipping_tel;
my $shipping_flag;
if ( ( defined $shipping_company && $shipping_company ne '' )
|| ( defined $shipping_name1 && $shipping_name1 ne '' )
|| ( defined $shipping_name2 && $shipping_name2 ne '' )
|| ( defined $shipping_name3 && $shipping_name3 ne '' )
|| ( defined $shipping_name4 && $shipping_name4 ne '' )
|| ( defined $shipping_zipcode && $shipping_zipcode ne '' )
|| ( defined $shipping_pref && $shipping_pref ne '' )
|| ( defined $shipping_address && $shipping_address ne '' )
|| ( defined $shipping_building && $shipping_building ne '' )
|| ( defined $shipping_tel && $shipping_tel ne '' ) )
{
$shipping_flag = 1;
}
my $message = $query->param('message') || '';
$message = Encode::decode_utf8($message) if defined $message;
$message = &xss($message) if defined $message;
my $contents;
if ( !defined $mode ) {
$contents = qq|
