#!/usr/bin/perl # # Temporary registration # @2001.04.11 # $debug = 0; require("jcode.pl"); use CGI; # some command $NKF = "/usr/local/sbin/nkf"; # $TMPFILE = "/tmp/regtmp.dat"; $LOGFILE = "/tmp/debuglog.dat"; open(NKF, "|$NKF -BB") && select(NKF); $q = new CGI; $page = $q->param('page'); $school_name = $q->param('school_name'); $name = $q->param('name'); $address = $q->param('address'); $telno = $q->param('telno'); $fax = $q->param('fax'); $email = $q->param('email'); $misc = $q->param('misc'); &jcode'convert(*school_name, 'euc'); &jcode'convert(*name, 'euc'); &jcode'convert(*address, 'euc'); &jcode'convert(*telno, 'euc'); &jcode'convert(*fax, 'euc'); &jcode'convert(*email, 'euc'); &jcode'convert(*misc, 'euc'); $misc_tmp = $misc; if ($page eq "form") { PageForm(); } elsif ($page eq "confirm") { PageConfirm(); } elsif ($page eq "send") { PageSend(); } else { PageError(); } # # 情報入力用のフォーム # sub PageForm { #-------------------------------------------------- print < EOF #-------------------------------------------------- } # # 送信内容の確認画面 # sub PageConfirm { $misc_tmp =~ s/\r\n/
/g; $misc_tmp =~ s/\n\r/
/g; $misc_tmp =~ s/\n/
/g; $misc_tmp =~ s/\r/
/g; #-------------------------------------------------- print < 以下の情報で、仮登録を申請します。確認の上、よろしければ送信ボタンを押して下さい。 EOF #-------------------------------------------------- } # # 仮申請情報送信 # sub PageSend { my($command); $misc =~ s/
/\n/; #-------------------------------------------------- print < 申込ありがとうございます。

仮申請が完了しました。正式版のご郵送、お待ちしていますので、よろしくお願いします

ホームページへ EOF #-------------------------------------------------- $str = "学校名: $school_name\n"; $str = $str . "申請者名: $name\n"; $str = $str . "住所: $address\n"; $str = $str . "電話番号: $telno\n"; $str = $str . "ファックス: $fax\n"; $str = $str . "E-Mail: $email\n"; $str = $str . "その他\n"; $str = $str . "$misc"; &jcode'convert(*str, 'jis'); open (TMP, ">$TMPFILE") or die ("File write error!"); select (TMP); print $request; print "\n-------------------\n"; print $str; print "\n-------------------\n"; close (TMP); select (STDOUT); $command = `mail -s acid_tmp_regist bosyu\@pine.fukuyama.hiroshima-u.ac.jp < $TMPFILE`; print $command; } sub PageError { #-------------------------------------------------- print < ページエラー EOF #-------------------------------------------------- } sub loglog { if ($debug) { local($str) = @_; my($strdate); $strdate = localtime(time); open(F, ">>$LOGFILE"); print F "$strdate $str\n"; close(F); } } 1;

学校名(機関名)
申請者名
住所
電話番号
ファックス
E-Mail

学校名(機関名):	$school_name
申請者名:	$name
住所:	$address
電話番号:	$telno
ファックス:	$fax
E-Mail:	$email

仮参加申請