$bbstitle
\n"; } if ($headmsg) { print "\n\n$headmsg\n\n\n"; } print<<"_END_OF_HTML_";
| $msg |
"; if($adm) { $tmp = ''; if ($ico_a) { $tmp = "
| $tmp | " . "$adm " . "[from $adminname] |
| $num $tit $nam $tim $url |
| $ico | $mes $adm |
_END_OF_HTML_ } print "
/\n/g; $cadm =~ s/
/\n/g; if ($ade) { $rmh &&= "($rmh)"; $ipa = "[$ipa$rmh]"; } else { $ipa = ''; } print<<"_END_OF_HTML_";
| $num $tit $nam $tim $ipa | $url |
$ft2
/g; $def{footmsg} =~ s/,/
/g; $def{chtxt} =~ s/,/
/g; $txt{headmsg} = $headmsg; $txt{footmsg} = $footmsg; $txt{icons} = $icons; $txt{chtxt} = $chtxt; $txt{headmsg} =~ s/
/\n/g; $txt{footmsg} =~ s/
/\n/g; $txt{icons} =~ s/,/\n/g; $txt{chtxt} =~ s/,/\n/g; $hissu = ' 必須項目'; print<<"_END_OF_HTML_";
- HTMLタグは使えません。
- URL、メールアドレスは自動的にリンクされます。
- [ ]（四角カッコ）に半角数字を書くと、その番号以前の記事へリンクされます。
- 過去の記事の検索ができます。
- [ ]（四角カッコ）に半角数字を入れて送信すれば、その番号以前の記事が読めます。
- 半角数字と/（スラッシュ）で日付を指定すれば、その日付以前のの記事が読めます。
- 1バイト（半角一文字）では検索できません。
- 一度書き込んだメッセージを修正することができます。
- 記事の番号をクリックすると修正画面になります。
- 直したい部分を訂正して送信すれば修正できます。
- 修正できるのは本人の（クッキーを受け取った）パソ\コンのみです。
- 修正は$limit分以内、一度に限り可能\です。
- さらに修正したい場合は管理人にお問い合せください。
- i-mode、H"、J-SKY、EZweb、ドットiに対応しています。
次のURLでアクセスしてください。
$thisfile - $msg
\n"; if ($hmsg) { $hmsg =~ s/\$/&dol;/g; print "
\n
/\n/g; } else { print "Content-type: text/html\n\n"; print ""; unless (($mobile eq 'j') && ($mob{ver} <= 2)) { print "
\n"; } } # リスト開始 if ($msg) { print "$msg$br\n"; } if ($next) { if ($mobile eq 'h') { print "$key[3]次の$vnm件\n"; } else { print "$key[3]次の$vnm件"; print "
\n"; } } # リスト foreach (@print) { chomp; ($num,$key,$nam,$mal,$url,$ico,$tit,$mes,$adm,$tim,$ipa,$rmh) = split(/,/,$_); $mes =~ s/
/$br/g; $adm =~ s/
/$br/g; $tim = &GET_DATE('MM/dd HH:mm',$tim); print "$hr\n"; if ($mobile eq 'e') { # ez処理 foreach ($tit,$nam,$mes,$adm) { s/,/,/g; s/&/&/g; s/( )+/ /g; s/\$/&dol;/g; if ($ecut) { $_ = &CUT_EMOJI($_); } if (@chtxt) { &jcode::convert(\$_,'euc'); foreach $chtxt (@chtxt) { my($btxt,$atxt) = split(/=>/,$chtxt); s/(?:$btxt)/$atxt/g; } &jcode::convert(\$_,$ccode); } } if ($olebel) { foreach ($mes,$adm) { &jcode::convert(\$_,'euc'); s/(http:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\,]+) /$1<\/A>/giox; s/([\w\.\-\_]+)\@([\w\.\-\_]+) /$1\@$2<\/A>/giox; &jcode::convert(\$_,$ccode); } } if ($tit) { print "$tit/\n"; } if ($mal) { print "$nam
\n"; } else { print "$nam
\n"; } print "$tim
\n"; print "$mes
\n"; if ($adm) { print "[$adminname]$adm
\n"; } } elsif ($mobile eq 'h') { # ONC処理 foreach ($tit,$nam,$mes,$adm) { s/</</g; s/"/"/g; s/,/,/g; s/( )+/ /g; s/&/&/g; if ($ecut) { $_ = &CUT_EMOJI($_); } if (@chtxt) { &jcode::convert(\$_,'euc'); foreach $chtxt (@chtxt) { my($btxt,$atxt) = split(/=>/,$chtxt); s/(?:$btxt)/$atxt/g; } &jcode::convert(\$_,$ccode); } } if ($tit) { print "$tit/\n"; } if ($olebel) { $mal &&= "($mal)"; } else { $mal = ''; } print "$nam$mal\n$tim\n$mes\n"; if ($adm) { print "[$adminname]
\n"; } else { print "$nam
\n"; } print "$tim
\n"; print "$mes
\n"; if ($adm) { print "[$adminname]\n$adm\n
\n"; } } } # リスト終了 print "$hr\n"; if ($prev) { if ($mobile eq 'h') { print "$key[1]前の$vnm件\n"; } else { print "$key[1]前の$vnm件"; print "
\n"; } print "$hr\n"; } # フォームとフッタ if ($mobile eq 'e') { # ez処理 $thisfile = "$thisfile?t=" . time(); if ($backurl) { print "$key[7]戻る
\n"; } print "$key[9]cgipon info\n"; print "
\n"; if (($mobile eq 'j') && ($mob{ver} <= 2)) { print "\n"; print "$hr"; if ($backurl) { print "$key[7]戻る
\n$hr\n"; } print "$key[9]cgipon info
\n"; print ""; print ""; } exit; } #-------------------------------------------------------------------------- # [ アイコンリストの表示 ] sub ICONLIST { if ($colmbg) { $colmbg = " bgcolor=$colmbg"; } print "Content-type: text/html\n\n"; print "
| $iconam{$_} | "; print "
"; foreach (@option) { s/\n+$//; s/\n+/,/g; print OPT "$_\n"; } close (OPT); &UNLOCK_FILE("$datfile.1.txt"); &UNLOCK_FILE("$datfile.2.txt"); } &LOCK_FILE("$datfile.1.txt"); &LOCK_FILE("$datfile.2.txt"); open (OPT,"<$datfile") or $msg .= "設定ファイルが開けません。
"; @option =
/g; $footmsg =~ s/,/
/g; $imgfolder =~ s/\/$//; @chtxt = split(/,/,$chtxt); foreach (@chtxt) { &jcode::convert(\$_,euc); } if ($tabborder) { $border = " border=$tabborder"; } if ($pwidth) { $width = " width=$pwidth"; } if ($tsize) { $size = " size=-1"; } if (!$adminname || !$adminmail) { $pas = 1; } } #-------------------------------------------------------------------------- # [ ブラウザのチェック ] sub CHECK_BROWSER { ($mob{car},$mob{ver},$mob{mod}) = split(/\//,$ENV{'HTTP_USER_AGENT'}); if ($mob{car} eq 'J-PHONE') { $mobile = 'j'; $adkey = 'directkey'; $imgext = '.png'; $hr = '
'; $br = '
'; $href = 'href'; $mailto = 'mailto:'; @key = (); if ($back_j) { $backurl = $back_j; } else { $backurl = ''; } if ($hmsg_j) { $hmsg = $hmsg_j; } else { $hmsg = ''; } } elsif ($mob{car} eq 'DoCoMo') { $mobile = 'i'; $adkey = 'accesskey'; $imgext = '.gif'; $hr = '
'; $br = '
'; $href = 'href'; $mailto = 'mailto:'; @key = ('戀','驪','麗','黎','力', '曆','歷','轢','年','憐'); if ($back_i) { $backurl = $back_i; } else { $backurl = ''; } if ($hmsg_i) { $hmsg = $hmsg_i; } else { $hmsg = ''; } } elsif (($mob{car} eq 'PDXGW') || ($mob{car} eq 'Ginga')) { $mobile = 'h'; $imgext = '.gif'; @key[1..9] = ('@','A','B','C','D','E','F','G','H'); ($mob{ver},$pdx) = split(/\(/,$mob{ver}); $pdx =~ s/\)$//; @pdx = split(/;/,$pdx); foreach (@pdx) { my($name,$value) = split(/=/,$_); $pdx{$name} = $value; } if ($pdx{TX}) { $hr = '−' x $pdx{TX}; } else { $hr = '−' x 6; } if ($back_h) { $backurl = $back_h; } else { $backurl = ''; } if ($hmsg_h) { $hmsg = $hmsg_h; } else { $hmsg = ''; } $br = "\n"; } elsif ($mob{car} eq 'UP.Browser') { $mobile = 'e'; $adkey = 'accesskey'; if ($ENV{HTTP_X_UP_DEVCAP_ISCOLOR}) { $imgext = '.png'; } else { $imgext = '.bmp'; } $br = '
'; $href = 'task="go" dest'; @key = (); if ($ENV{HTTP_X_UP_DEVCAP_SCREENCHARS}) { ($ez{TX},$ez{TY}) = split(/,/,$ENV{HTTP_X_UP_DEVCAP_SCREENCHARS}); $hr = '-' x $ez{TX}; $hr .= '
'; } else { $hr = '------------
'; } if ($ENV{HTTP_X_UP_DEVCAP_MAX_PDU} <= 5000) { $in{vnm} = 3; } else { $in{vnm} = 5; } if ($back_e) { $backurl = $back_e; } else { $backurl = ''; } if ($hmsg_e) { $hmsg = $hmsg_e; } else { $hmsg = ''; } if (($ENV{HTTP_X_UP_UPLINK} =~ /ezweb/) && (!$ENV{HTTP_X_UP_FAX_LIMIT})) { $mailto = 'mailto:'; } else { $mailto = 'device:home/goto?svc=Email&SUB=sendMsg" vars="TO='; } } elsif ($mob{car} eq 'ASTEL') { $mobile = 'd'; $adkey = 'accesskey'; $imgext = '.gif'; $hr = '
'; $br = '
'; $href = 'href'; $mailto = 'mailto:'; for ($i = 0; $i <= 9; $i++) { $key[$i] = "$i."; } $in{vnm} = 5; if ($back_d) { $backurl = $back_d; } else { $backurl = ''; } if ($hmsg_d) { $hmsg = $hmsg_d; } else { $hmsg = ''; } } } #-------------------------------------------------------------------------- # [ URLのチェック ] sub CHECK_URL { $thisfile ||= 'http://' . $ENV{'SERVER_NAME'} . $ENV{'SCRIPT_NAME'}; $thisfile =~ s/\?\S+$//; } #-------------------------------------------------------------------------- # [ コードチェンジ ] sub CHANGE_CODE { my($text) = $_[0]; if ($ccode eq 'euc') { &jcode::h2z_euc(\$text); } elsif ($ccode eq 'jis') { &jcode::h2z_jis(\$text); } elsif ($ccode eq 'sjis') { &jcode::h2z_sjis(\$text); } &jcode::convert(\$text,$ccode); $text =~ s/&/&/g; $text =~ s/,/,/g; $text =~ s//>/g; $text =~ s/"/"/g; $text =~ s/ / /g; return $text; } #-------------------------------------------------------------------------- # [ クッキーの取得 ] sub GET_COOKIE { foreach (split(/; */,$ENV{'HTTP_COOKIE'})) { my($name,$value) = split(/=/,$_); $cookies{$name} = $value; } @cookies = split(/:/,$cookies{$cookiename}); foreach (@cookies) { $_ = &CHANGE_CODE($_); } } #-------------------------------------------------------------------------- # [ クッキーを食わせる ] sub PUT_COOKIE { my($cookies) = join(':',@_); $cookies =~ s/,/,/g; $cookies =~ s/<//g; $cookies =~ s/"/"/g; $cookies =~ s/ / /g; $cookies =~ s/&/&/g; my($expires) = time() + 30 * 24 * 60 * 60; $expires = &GET_DATE('DDD, dd-MM-yyyy HH:mm:ss',$expires,'en'); print "Set-Cookie: $cookiename=$cookies; expires=$expires GMT\n"; } #-------------------------------------------------------------------------- # [ 入力内容のチェック ] sub CHECK_DATA { if ($mobile eq 'h') { $thisfile =~ s/http://; if ($in{pdxturn} == 1) { $in{nam} = $in{pdxsubj}; } elsif ($in{pdxreq} eq 'mal') { print "Content-Type: text/plain\n\n"; print "X-PmailDX-CTRL: NameRequest\n"; print "From: $thisfile?pdxreq=nam\n"; print "Content-Type: Text/Plain\n\n"; print "メールアドレス入力\n"; exit; } elsif ($in{pdxreq} eq 'nam') { $mal = $in{pdxname}; print "Content-Type: text/plain\n\n"; print "From: $thisfile?mal=$mal&pdxreq=tit\n"; print "X-PmailDX-Input: KANJI\n"; print "Content-Type: Text/Plain\n\n"; print "お名前入力\n"; exit; } elsif (($in{pdxreq} eq 'tit') && ($nam = $in{pdxdata})) { $mal = $in{mal}; $nam =~ s/,/,/g; $nam =~ s/<//g; $nam =~ s/"/"/g; $nam =~ s/ / /g; $nam =~ s/&/&/g; $nam =~ s/([^a-zA-Z0-9_.-])/sprintf("%%%02X",ord($1))/eg; print "Content-Type: text/plain\n\n"; print "From: $thisfile?mal=$mal&nam=$nam&pdxreq=mes\n"; print "X-PmailDX-Input: KANJI\n"; print "Content-Type: Text/Plain\n\n"; print "タイトル入力\n"; exit; } elsif ($in{pdxreq} eq 'mes') { $mal = $in{mal}; $nam = $in{nam}; $nam =~ s/,/,/g; $nam =~ s/<//g; $nam =~ s/"/"/g; $nam =~ s/ / /g; $nam =~ s/&/&/g; $nam =~ s/([^a-zA-Z0-9_.-])/sprintf("%%%02X",ord($1))/eg; $tit = $in{pdxdata}; $tit =~ s/,/,/g; $tit =~ s/<//g; $tit =~ s/"/"/g; $tit =~ s/ / /g; $tit =~ s/&/&/g; $tit =~ s/([^a-zA-Z0-9_.-])/sprintf("%%%02X",ord($1))/eg; print "Content-Type: text/plain\n\n"; print "From: $thisfile?mal=$mal&nam=$nam&tit=$tit\n"; print "X-PmailDX-Input: KANJI\n"; print "Content-Type: Text/Plain\n\n"; print "メッセージ入力\n"; exit; } elsif ($in{pdxreq} eq 'end') { print "Content-Type: text/plain\n\n"; print "X-PmailDX-CTRL: LineDisconnect\n"; print "From: $thisfile\n"; print "Content-Type: Text/Plain\n\n"; print "ご利用ありがとうございました。\n"; print "情報サービスコンテンツに接続する際に"; print "件名(Subject)に名前、本文に内容を書けば"; print "オフラインから投稿できます。\n"; exit; } $in{mes} = $in{pdxdata}; $in{mal} =~ s/\r|\n//g; $in{nam} =~ s/\r|\n//g; $in{tit} =~ s/\r|\n//g; } if ($in{vnm}) { $vnm = $in{vnm}; } $vnm ||= 5; if ($in{pnm}) { $pnm = $in{pnm}; } else { $pnm = 1; } if ($in{sch}) { $sch = $in{sch}; } elsif (length($sch) == 1) { $msg .= "検索語が短すぎます。
"; $sch = ''; return 1; } if ($in{nam}) { $cnam = $in{nam}; } if ($in{mal} =~ /[\w\.\_\-]+\@[\w\.\_\-]+/) { $cmal = $in{mal}; } elsif ($in{nam}) { $cmal = ''; } if ($in{url} =~ /http:\/\/[\w\.\_\~\-\/\?\&\+\=\:\%\;\,]+/) { $curl = $in{url}; $curl =~ s/^http:\/\///; } elsif ($in{nam}) { $curl = ''; } if ($in{ico}) { $cico = $in{ico}; } if ($in{tit}) { $ctit = $in{tit}; } if ($in{mes}) { $cmes = $in{mes}; } if ($in{adm}) { $cadm = $in{adm}; } if ($mobile) { $cico = "&$mobile"; } $cico =~ s/&/&/; foreach ($cmes,$cadm) { s/\r//g; s/\n\n[\n]+/\n\n\n/g; s/^\n+//g; s/(\n| | | )+$//g; s/\n/
/g; } foreach ($cmal,$curl) { s/^( | | )+//g; s/( | | )+$//g; } $ctim = time(); $cipa = $ENV{'REMOTE_ADDR'}; $crmh = $ENV{'REMOTE_HOST'}; $crmh ||= gethostbyaddr(pack('C4',split(/\./,$cipa)),2); $crmh =~ tr/\r\n/ /; $ckey ||= substr(crypt($ctim,rand(100)),-4,4); $ckey =~ s/\,//; if (length($cnam) > 40) { $cnam = ''; $msg .= "名前が長すぎます。
"; } if (length($ctit) > 160) { $ctit = ''; $msg .= "タイトルが長すぎます。
"; } if (length($cmes) > 1200) { $cmes = ''; $msg .= "内容が長すぎます。
"; } if ($cnam && $cmes) { if (!$ecut) { foreach ($cnam,$ctit,$cmes) { $_ = &CUT_EMOJI($_); } } $input = "$cnam,$cmal,$curl,$cico,$ctit,$cmes,$cadm,$ctim,$cipa,$crmh"; } if ($in{use}) { $use = $in{use}; } if ($in{bak}) { $bak = $in{bak}; } if ($in{ade}) { $ade = $in{ade}; } if ($in{enm}) { $enm = $in{enm}; } if ($in{edt}) { $edt = $in{edt}; } if ($in{del}) { $del = $in{del}; } if ($in{pas}) { $pas = $in{pas}; } if ($in{pky}) { $pky = $in{pky}; } if ($in{ivw}) { $ivw = $in{ivw}; } } #-------------------------------------------------------------------------- # [ I/O ] sub IO { &LOCK_FILE("$logfile.1.txt"); &LOCK_FILE("$logfile.2.txt"); if ($input || $edt) { open (OLD,"<$logfile") or &DIE("ログファイルが開けません。"); open (NEW, "+>$logfile.tmp") or &DIE("一時ファイルが開けません。"); if ($edt) { while ($log =
"; } else { $msg .= "該当する記事はありませんでした。
"; } $msg .= "検索終了
"; } close (LOG); &UNLOCK_FILE("$logfile.1.txt"); &UNLOCK_FILE("$logfile.2.txt"); # メール送信 if ($input && !$edt && $mailpath) { $to ||= $adminmail; $ml = "To: $to\n"; $ml .= "From: $adminmail\n"; $ml .= "Subject: " . &MAIL64("$bbstitle [$cnum]"); $ml .= "Content-Type: text/plain\; charset=\"iso-2022-jp\"\n\n"; $ml .= "投稿者： $cnam"; if ($cmal) { $ml .= " <$cmal>"; } $ml .= "\n"; if ($curl) { $ml .= "ＵＲＬ： http://$curl\n"; } $ml .= "内 容： "; if ($ctit) { $ml .= "$ctit"; } $ml .= "\n$cmes"; $ml =~ s/
/\n/g; $ml =~ s/"/"/g; $ml =~ s/<//g; $ml =~ s/,/,/g; $ml =~ s/ / /g; $ml =~ s/&/&/g; &jcode::convert(\$ml,'jis'); open (MAIL, "| $mailpath -t"); print MAIL "$ml\n"; close (MAIL); } ($cnum,$ctit,$cmes,$cadm,$ctim,$cipa,$crmh) = (); $pmx = int(($dnm - 1) / $vnm) + 1; if ((!$enm) && ($pnm > $pmx)) { $pnm = $pmx; } if ($pnm != 1) { $next = $pnm - 1; } if ($pnm != $pmx) { $prev = $pnm + 1; } } #-------------------------------------------------------------------------- # [ ファイルロック ] sub LOCK_FILE { my($lockfile) = $_[0]; my($retry) = 5; while (-f $lockfile) { for ($retry-- <= 0) { if ((stat($lockfile))[9] < time() - 120) { &UNLOCK_FILE($lockfile); } &DIE("混雑しております。しばしお待ちを。"); } sleep 1; } open (LOCK,">$lockfile"); close(LOCK); return 1; } #-------------------------------------------------------------------------- # [ ファイルロック解除 ] sub UNLOCK_FILE { unlink($_[0]); } #-------------------------------------------------------------------------- # [ 検索 ] sub SEARCH { my($num,$key,$nam,$mal,$url,$ico,$tit,$mes,$adm,$tim) = split(/,/,$log); if ($enm) { if ($enm == $num) { return 1; } else { return 0; } } elsif (!$sch) { return 1; } if ($sch =~ /\[(\d+)\]/) { if ($num <= $1) { return 1; } } elsif (($sch =~ /\//) && ($sch =~ /^[\d\/]{3,10}$/)) { @sch = split(/\//,$sch); my($ye,$mo,$da); $da = $sch[-1]; $mo = $sch[-2]; $ye = $sch[-3]; $mo = substr($mo,-2,2); $da = substr($da,-2,2); $mo = sprintf("%02d",$mo); $da = sprintf("%02d",$da); if ($ye) { $ye = substr($ye,-2,2); if ($ye == 99) { $ye = "19$ye"; } else { $ye = "20$ye"; } } else { $ye = &GET_DATE('yyyy'); $sch = "$mo/$da"; if (&GET_DATE('MM/dd') lt $sch) { $ye--; } } $sch = "$ye/$mo/$da"; if (&GET_DATE('yyyy/MM/dd',$tim) le $sch) { return 1; } } else { $swrd = $sch; $swrd =~ s/\\/\\\\/go; $swrd =~ s/([\|\(\)\[\]\{\}\^\$\+\-\*\/\?\.])/\\$1/go; foreach $_ ($nam,$tit,$mes,$adm) { if ($_ =~ /$swrd/go) { return 1; } } } } #-------------------------------------------------------------------------- # [ 日付の取得 ] sub GET_DATE { my($timeformat,$time,$lang) = @_; my($s,$ss,$m,$mm,$H,$HH,$h,$hh,$d,$dd,$M,$MM,$yyyy,$yy,$DDD,$t); $timeformat ||= 'yyyy/MM/dd HH:mm'; $time ||= time(); $ENV{'TZ'} = "JST-9"; ($s,$m,$H,$d,$M,$yyyy,$DDD) = localtime($time); $yyyy += 1900; if ($H < 12) { $t = 0; } else { $t = 1; } if ($lang eq 'en') { $DDD = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$DDD]; $M = ('Jan','Feb','Mar','Apr','May','Jun', 'Jul','Aug','Sep','Oct','Nov','Dec')[$M]; $timeformat =~ s/MM/M/g; $t = ('a.m.','p.m.')[$t]; } else { $DDD = ('日','月','火','水','木','金','土')[$DDD]; $M++; $MM = sprintf("%02d",$M); $t = ('午前','午後')[$t]; } $h = $H % 12; $yy = substr($yyyy,2,2); $dd = sprintf("%02d",$d); $HH = sprintf("%02d",$H); $hh = sprintf("%02d",$h); $mm = sprintf("%02d",$m); $ss = sprintf("%02d",$s); $timeformat =~ s/yyyy/$yyyy/ig; $timeformat =~ s/yy/$yy/g; $timeformat =~ s/HH/$HH/g; $timeformat =~ s/H/$H/g; $timeformat =~ s/hh/$hh/g; $timeformat =~ s/h/$h/g; $timeformat =~ s/mm/$mm/g; $timeformat =~ s/m/$m/g; $timeformat =~ s/ss/$ss/ig; $timeformat =~ s/s/$s/ig; $timeformat =~ s/t/$t/ig; $timeformat =~ s/MM/$MM/g; $timeformat =~ s/M/$M/g; $timeformat =~ s/dd/$dd/g; $timeformat =~ s/d/$d/g; $timeformat =~ s/DDD/$DDD/ig; return "$timeformat"; } #-------------------------------------------------------------------------- # [ 絵文字の除去 ] sub CUT_EMOJI { # sjisから他の文字コードに変換する前に使用すること $_[0] =~ s/\G((?:[\x80-\x9f\xe0-\xf7\xfa-\xfc][\x40-\xff]|[\x00-\x7f])*?)([\xf8\xf9][\x40-\xff]|[\xf0-\xf4][\x40-\xff])/$1/g; return $_[0]; } #-------------------------------------------------------------------------- # [ 絵文字の10進コードへの置き換え ] sub REP_EMOJI { # sjisから他の文字コードに変換する前に使用すること $_[0] =~ s/\G((?:[\x80-\x9f\xe0-\xf7\xfa-\xfc][\x40-\xff]|[\x00-\x7f])*?)([\xf8\xf9][\x40-\xff]|[\xf0-\xf4][\x40-\xff])/$1.'&#'.(ord($2)*256+ord(substr($2,1,1))).';'/eg; return $_[0]; } #-------------------------------------------------------------------------- # [ BASE64エンコード ] sub MAIL64 { local($xx) = $_[0]; &jcode::convert(\$xx,'jis'); $xx =~ s/\x1b\x28\x42/\x1b\x28\x4a/g; $xx = &BASE64($xx); return("=?iso-2022-jp?B?$xx?=\n"); } sub BASE64 { my($base) = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" . "abcdefghijklmnopqrstuvwxyz" . "0123456789+/"; local($xx, $yy, $zz, $i); $xx = unpack("B*", $_[0]); for ($i = 0; $yy = substr($xx, $i, 6); $i += 6) { $zz .= substr($base, ord(pack("B*", "00" . $yy)), 1); if (length($yy) == 2) { $zz .= "=="; } elsif (length($yy) == 4) { $zz .= "="; } } return($zz); } #-------------------------------------------------------------------------- # [ エラー ] sub DIE { &HTML_HEADER; print "
\n"; print "$_[0]
\n"; print "