\n );
printForm();
if($chk){
print <
END
if($BBSTYPE eq 'popup'){print qq( \n); }
}
my ($i, $nextpage, $len_url, $len_author);
my $begin = $FORM{'page'} * $PAGEVIEW;
my $end = $begin + $PAGEVIEW;
if($end > @DATA) { $end = @DATA; }
# 記事の出力
for($i = $begin ; $i < $end ; ++$i) {
print bbstext($i);
}
if($chk){ print qq(\n); }
print qq(
END
}
sub printForm
{
print qq(
name
url/mail
END if($FLAG_SMILE){ addSmileTag(); } print qq(); if($CALL_CLOSE){ print qq(); } print qq(); } ########## 記事を書き込む ########## sub putDate { #引数 0 "$year,$mon,$mday,$wday,$hour,$min,$sec" #引数 1 "$author" my $name,$date= $DT_FRMT; my @dt = split(/\//,$_[0]); if( $dt[1] ne ''){ my @mnth = split(/\,/,$SHOW_MNTH); my @week = split(/\,/,$SHOW_WKDY); my @ap = split(/\,/,$SHOW_AMPM); my $ampm = $dt[4] < 12 ? $ap[0] : $ap[1]; # AM･PMの設定 if($CHK_12H){$dt[4] = $dt[4] < 12 ? $dt[4] : $dt[4] - 12; }# 12時間ごとの表示にする my $YY = sprintf("%04d", $dt[0]); my $yy = substr($dt[0],2,2); my $DD = sprintf("%02d", $dt[2]); my $dd = sprintf("%2d", $dt[2]); my $HH = sprintf("%02d", $dt[4]); my $hh = sprintf("%2d", $dt[4]); my $MM = sprintf("%02d", $dt[5]); my $mm = sprintf("%2d", $dt[5]); my $SS = sprintf("%02d", $dt[6]); my $ss = sprintf("%2d", $dt[6]); $date =~ s/YY/$YY/g; $date =~ s/yy/$yy/g; $date =~ s/DD/$DD/g; $date =~ s/dd/$dd/g; $date =~ s/HH/$HH/g; $date =~ s/hh/$hh/g; $date =~ s/MM/$MM/g; $date =~ s/mm/$mm/g; $date =~ s/SS/$SS/g; $date =~ s/ss/$ss/g; $date =~ s/MONTH/$mnth[$dt[1]]/g; $date =~ s/WEEK/$week[$dt[3]]/g; $date =~ s/AMPM/$ampm/g; $date =~ s/NAME/$_[1]/g; }else{ #旧表示互換 if( $date =~ /NAME/ ){ $name = 'by '.$_[1]; } if( $date =~ /(YY|yy|DD|dd|HH|hh|MM|mm|SS|ss|MONTH|WEEK|AMPM)/){ $dt[0] = ' at '.$dt[0]; } else{$dt[0]='';} $date = "$name$dt[0]"; } return $date; } sub writeArticle { $ENV{'TZ'} = $TZONE; my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time); $year+=1900; my $date = "$year/$mon/$mday/$wday/$hour/$min/$sec"; unshift @DATA, "$date\t$FORM{'title'}\t$FORM{'author'}\t$FORM{'url'}\t$FORM{'text'}\t\n"; while(@DATA > $MAXLINE) { open(FILE, ">>$OVRFILE") or ERRORPAGE("$OVRFILEが開けません。"); eval{ flock(FILE, 2) }; seek(FILE,0,0); print FILE $DATA[$MAXLINE]; close FILE; pop @DATA; } ### $delmode=0; @RDATA = ("$date\t$FORM{'title'}\t$FORM{'author'}\t$FORM{'url'}\t$FORM{'text'}\t$delmode\t"); } sub bbstext #$i { my $bbstext,$i=@_[0]; my ($date, $title, $author, $url, $text) = split(/\t/, $DATA[$i]); $len_author = length($author); if($len_author < 1){ $author=$UNKNOWN; } convert2url($text,$url); if($FLAG_SMILE){ repSmileTag($text); repSmileTag($author); } $len_url = length($url); if($url=~/mailto/i or $url=~/http:\/\//i and $len_url>7) { if($SHOW_HPMAIL){ if($url=~/mailto/i){ $hpmail="$url$MAIL_MARK";} else{$hpmail="$url$HP_MARK";} $author="$url$author $hpmail"; }else{ $author="$url$author"; } } $date=putDate($date,$author); $bbstext =qq(;
close FILE;
open(FILE, "<$RDATAFILE") or ERRORPAGE("$RDATAFILEが開けません。");
eval{ flock(FILE, 1) };
@RDATA = ;
close FILE;
}
########## アドレス変換 ##########
sub convert2url
{
foreach ($_[0]) { #foreach ($text) {
&jcode::convert(\$_,'euc');
s/(http:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\,]+)
/$LINK_ICON<\/a>/giox;
s/(https:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\,]+)
/$LINK_ICON<\/a>/giox;
s/(ftp:\/\/[\w\.\~\-\/]+)
/$LINK_ICON<\/a>/giox;
s/([\w\.\-\_]+)\@([\w\.\-\_]+)
/$MAIL_ICON<\/a>/giox;
&jcode::convert(\$_,$conv);
}
foreach ($_[1]) { #foreach ($url) {
&jcode::convert(\$_,'euc');
s/(http:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\,]+)
//giox;
s/(https:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\,]+)
//giox;
s/(ftp:\/\/[\w\.\~\-\/\?\&\+\=\:\@\%\;\,]+)
//giox;
s/([\w\.\-\_]+)\@([\w\.\-\_]+)
//giox;
&jcode::convert(\$_,$conv);
}
}
########## スマイリータグ ##########
sub addSmileTag
{
my $i;
print qq( ![\"(:$SMILETAG[$i]:)\"](\"$SMILEIMG[$i]\")
/g;
$i+=1;
}
}
##########モノログ書き出し##########
sub monoData
{
my $begin = 0;
my $end = $PAGEVIEW;
if($end > @DATA) { $end = @DATA-1; }
my ($i, @header, $write_form, @footer);
for($i = $end ; $i >= $begin ; --$i)
{
unshift @MONO, bbstext($i);
while(@MONO > $PAGEVIEW) { pop @MONO; }
}
if($CALL_WRITE){
$write_form=qq( );
unshift @MONO, "$write_form";
}
if($LOGTYPE ne 'js'){ $header[0]=qq( ";}
if($LOGTYPE eq 'js'){ $header[3]=" document.writeln(' ";}
$header[4]=qq( );
unshift @MONO, "$header[0]$header[1]$header[2]$header[3]$header[4]";
if($CHK_LOG){
$footer[0]=qq( $PLZLOG );
}
if($CHK_LOG and $COPYRIGHT){
$footer[1]=qq( \/ );
}
if($COPYRIGHT){
$footer[2]= qq(inobbs ver.$version);
}else{
$footer[2]= qq();
}
push @MONO,"
/\n/g; $mail = "To: $MAILTO\n"; $mail .= "From: $MAILTO\n"; $mail .= "Subject: " . MAIL64("$SUBJECT"); $mail .= "Content-Type: text/plain\; charset=\"iso-2022-jp\"\n\n"; $mail .= "name: $FORM{'author'}\n"; $mail .= "comment: $FORM{'text'}\n"; $mail .= "url/mail: $FORM{'url'}\n"; &jcode::convert(\$mail,'jis'); open(MAIL, "| $SENDMAIL -i -t -f $MAILTO") or die("ERROR: exec sendmail."); print MAIL "$mail\n"; close (MAIL); } ###### 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); }
);
# 次ページへのリンク
if($PAGEVIEW !=0 ){
if($end < @DATA) {
$nextpage = $FORM{'page'} + 1;
print qq(«prev\n);
$flag_prev=1;
}else{ $flag_prev=0; }
if($FORM{'page'}>0 && $end <= @DATA) {
$nextpage = $FORM{'page'} - 1;
print qq( next»\n);
$flag_next=1;
}else{ $flag_next=0; }
}
if($flag_prev or $flag_next){ print qq(
); } if($COPYRIGHT==1){ print qq(inobbs ver.$version); } else{ print qq(); } print qq(
);
print <); } if($COPYRIGHT==1){ print qq(inobbs ver.$version); } else{ print qq(); } print qq(
);
if($BBSTYPE eq 'embed'){
if($form){
$CALL_CLOSE=0;
formStyle();
}
elsif($form ==0){
print <
END
}
}
elsif($BBSTYPE eq 'popup'){
if($FORM{'ppmode'} ne 'w'){
if($CALL_WRITE){
print qq($PLZWRITE\n);
}
}
elsif($FORM{'ppmode'} eq 'w'){
formStyle();
}
}
elsif($BBSTYPE eq 'external'){
if($FORM{'ppmode'} ne 'r'){ formStyle(); }
if($FORM{'ppmode'} eq 'r'){ $PAGEVIEW=$LOGVIEW; }
}
elsif($BBSTYPE eq 'mailform'){
$AF_BOTTON='送信';
$PAGEVIEW=0;
$FLAG_SMILE=0;
$CALL_CLOSE=0;
formStyle();
}
print qq(
);
}
sub formStyle
{
print <url/mail
END if($FLAG_SMILE){ addSmileTag(); } print qq(); if($CALL_CLOSE){ print qq(); } print qq(); } ########## 記事を書き込む ########## sub putDate { #引数 0 "$year,$mon,$mday,$wday,$hour,$min,$sec" #引数 1 "$author" my $name,$date= $DT_FRMT; my @dt = split(/\//,$_[0]); if( $dt[1] ne ''){ my @mnth = split(/\,/,$SHOW_MNTH); my @week = split(/\,/,$SHOW_WKDY); my @ap = split(/\,/,$SHOW_AMPM); my $ampm = $dt[4] < 12 ? $ap[0] : $ap[1]; # AM･PMの設定 if($CHK_12H){$dt[4] = $dt[4] < 12 ? $dt[4] : $dt[4] - 12; }# 12時間ごとの表示にする my $YY = sprintf("%04d", $dt[0]); my $yy = substr($dt[0],2,2); my $DD = sprintf("%02d", $dt[2]); my $dd = sprintf("%2d", $dt[2]); my $HH = sprintf("%02d", $dt[4]); my $hh = sprintf("%2d", $dt[4]); my $MM = sprintf("%02d", $dt[5]); my $mm = sprintf("%2d", $dt[5]); my $SS = sprintf("%02d", $dt[6]); my $ss = sprintf("%2d", $dt[6]); $date =~ s/YY/$YY/g; $date =~ s/yy/$yy/g; $date =~ s/DD/$DD/g; $date =~ s/dd/$dd/g; $date =~ s/HH/$HH/g; $date =~ s/hh/$hh/g; $date =~ s/MM/$MM/g; $date =~ s/mm/$mm/g; $date =~ s/SS/$SS/g; $date =~ s/ss/$ss/g; $date =~ s/MONTH/$mnth[$dt[1]]/g; $date =~ s/WEEK/$week[$dt[3]]/g; $date =~ s/AMPM/$ampm/g; $date =~ s/NAME/$_[1]/g; }else{ #旧表示互換 if( $date =~ /NAME/ ){ $name = 'by '.$_[1]; } if( $date =~ /(YY|yy|DD|dd|HH|hh|MM|mm|SS|ss|MONTH|WEEK|AMPM)/){ $dt[0] = ' at '.$dt[0]; } else{$dt[0]='';} $date = "$name$dt[0]"; } return $date; } sub writeArticle { $ENV{'TZ'} = $TZONE; my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time); $year+=1900; my $date = "$year/$mon/$mday/$wday/$hour/$min/$sec"; unshift @DATA, "$date\t$FORM{'title'}\t$FORM{'author'}\t$FORM{'url'}\t$FORM{'text'}\t\n"; while(@DATA > $MAXLINE) { open(FILE, ">>$OVRFILE") or ERRORPAGE("$OVRFILEが開けません。"); eval{ flock(FILE, 2) }; seek(FILE,0,0); print FILE $DATA[$MAXLINE]; close FILE; pop @DATA; } ### $delmode=0; @RDATA = ("$date\t$FORM{'title'}\t$FORM{'author'}\t$FORM{'url'}\t$FORM{'text'}\t$delmode\t"); } sub bbstext #$i { my $bbstext,$i=@_[0]; my ($date, $title, $author, $url, $text) = split(/\t/, $DATA[$i]); $len_author = length($author); if($len_author < 1){ $author=$UNKNOWN; } convert2url($text,$url); if($FLAG_SMILE){ repSmileTag($text); repSmileTag($author); } $len_url = length($url); if($url=~/mailto/i or $url=~/http:\/\//i and $len_url>7) { if($SHOW_HPMAIL){ if($url=~/mailto/i){ $hpmail="$url$MAIL_MARK";} else{$hpmail="$url$HP_MARK";} $author="$url$author $hpmail"; }else{ $author="$url$author"; } } $date=putDate($date,$author); $bbstext =qq(
$text);
$bbstext.=qq(
);
return $bbstext;
}
########## 記事を削除する ##########
sub deleteArticle
{
my $key;
if($FORM{'pass'} ne $PASSWORD) {
ERRORPAGE("管理パスワードが違います。");
}
foreach $key (sort {$b cmp $a} keys %FORM) {
if($key =~ /del_([0-9]+)/) {
splice @DATA, $1, 1;
}
}
###
$delmode=1;
my ($olddate,$oldtitle,$oldauthor,$oldurl,$oldtext) = split(/\t/,$DATA[0]);
$oldtext =~ s/\s+$//;
@RDATA = ("$olddate\t$oldtitle\t$oldauthor\t$oldurl\t$oldtext\t$delmode\t");
}
########## 記事データの書き込み ##########
sub openFile
{
open(FILE, ">$DATAFILE") or ERRORPAGE("$DATAFILEが開けません。");
eval{ flock(FILE, 2) };
print FILE @DATA;
close FILE;
}
########## 記事データの読み込み ##########
sub readFile
{
open(FILE, "<$DATAFILE") or ERRORPAGE("$DATAFILEが開けません。");
eval{ flock(FILE, 1) };
@DATA = );
if($chk){$bbstext.= qq();}
$bbstext.=qq($date
);
$bbstext.=qq( \n);
foreach( @SMILEIMG ) {
print qq( ![\(:$SMILETAG[$i]:\)]($SMILEIMG[$i])
\n);
$i+=1;
}
if( length($SMILETAGNOTE)>0 ){ print qq(
\n);
}
sub repSmileTag
{
my $i;
foreach( @SMILEIMG ) {
$_[0] =~ s/\(:$SMILETAG[$i]:\)/$SMILETAGNOTE
\n); }
print qq( $footer[0]$footer[1]$footer[2]
";
if($LOGTYPE eq 'js'){
push @MONO,"\'); ";
}
foreach( @MONO ) {
&jcode::convert(\$MONO[$i],'euc');
$MONO[$i] =~ s/\~/%7E/g;
&jcode::convert(\$MONO[$i],$CODETYPE);
$i+=1;
}
if($LOGTYPE eq 'js'){
$LOGFILE= $LOGPATH.'mono.js';#Javascript型のログ書き出しファイル
}elsif($LOGTYPE eq 'php'){
$LOGFILE= $LOGPATH.'mono.txt'; #PHP or SSI型のログ書き出しファイル
}
if(-e $LOGFILE){ unlink $LOGFILE}
open(FILE, ">>$LOGFILE") or ERRORPAGE("$LOGFILEが開けません。");
eval{ flock(FILE, 2) };
print FILE @MONO;
close FILE;
}
###### 携帯からのアクセス UserAgentを調べる ######
sub srchUserAgent
{
my $myagent=1;
@user_agent = split(/\//,$ENV{'HTTP_USER_AGENT'});
if ($user_agent[0] =~ /ASTEL/) {
# ドットi 用の処理
$myagent=0;
} elsif ($user_agent[0] =~ /^UP.Browser/) {
# EZweb 旧端末用の処理
$myagent=0;
} elsif ($user_agent[0] =~ /^KDDI/) {
# EZweb WAP2.0 対応端末用の処理
$myagent=0;
} elsif ($user_agent[0] =~ /PDXGW/) {
# H" 用の処理
$myagent=0;
} elsif ($user_agent[0] =~ /DoCoMo/) {
# i-mode 用の処理
$myagent=0;
} elsif ($user_agent[0] =~ /J-PHONE/) {
# J-SKY 用の処理
$myagent=0;
} elsif ($user_agent[0] =~ /L-mode/) {
# L-mode 用の処理
$myagent=0;
} else {
# それ以外
$myagent=1;
}
return $myagent;
}
################## for Cookie ##################
###### Cookie Header ######
sub printCookieHeader
{
my (@cpairs, $cname, $cvalue, $value);
# それぞれの$COOKIEから%COOKIEにまとめる
foreach $cname (keys %COOKIE) {
$cvalue = $COOKIE{$cname};
$cvalue =~ s/(\W)/sprintf("%%%02X", ord $1)/eg;
push @cpairs, "$cname#$cvalue";
}
$value = join('&', @cpairs);
# グリニッジ標準時の文字列
my @mon_str = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my @wdy_str = qw(Sun Mon Tue Wed Thu Fri Sat);
my $life = $COOKIE_LIFE * 24 * 60 * 60;
my ($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime(time + $life);
my $date = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",
$wdy_str[$wday], $mday, $mon_str[$mon], $year + 1900, $hour, $min, $sec);
print "Set-Cookie: $COOKIE_NAME=$value; expires=$date\n";
}
###### Cookie 取得 ######
sub getCookie
{
my ($pair, $cpair);
foreach $pair (split(/;\s*/, $ENV{'HTTP_COOKIE'})) {
my ($name, $value) = split(/=/, $pair);
# まとめた%COOKIEからそれぞれの$COOKIEに分割
if($name eq $COOKIE_NAME) {
foreach $cpair (split(/&/, $value)) {
my ($cname, $cvalue) = split(/#/, $cpair);
$cvalue =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;
$COOKIE{$cname} = $cvalue;
}
last;
}
}
}
################## for sendmail ##################
###### メールを送る ######
sub sendNotice
{
my $mail;
$FORM{'text'} =~ s/&/&/g;
$FORM{'text'} =~ s/<//g;
$FORM{'text'} =~ s//\n/g; $mail = "To: $MAILTO\n"; $mail .= "From: $MAILTO\n"; $mail .= "Subject: " . MAIL64("$SUBJECT"); $mail .= "Content-Type: text/plain\; charset=\"iso-2022-jp\"\n\n"; $mail .= "name: $FORM{'author'}\n"; $mail .= "comment: $FORM{'text'}\n"; $mail .= "url/mail: $FORM{'url'}\n"; &jcode::convert(\$mail,'jis'); open(MAIL, "| $SENDMAIL -i -t -f $MAILTO") or die("ERROR: exec sendmail."); print MAIL "$mail\n"; close (MAIL); } ###### 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); }