$html_ttl

$backfw $fcnprt[$#fcnprt]-$i件目内に$t件発見 $nextfw

";}if($F{'msg'}&&!$new[0]){ print"検索対象は見つかりませんでした

";}elsif(!$new[0]){;}else{ &sled(3,2,1,0,$iconav,1);print"

\n

上へ";print" $nextfw

";}print"

"; &footer(); for(1..5){ print"

";} exit;}sub foundln_get {if(!open(LOG,"$log_fl")){ return("ログが存在しないか、開くことができません err pfv41");}$toplogln=;foreach(@findkey){if(substr($_,0,1) eq "-"){ push(@nasikey,substr($_,1));}else{ push(@arikey,$_);}} local($bgn)=$fcnprt[$#fcnprt]; local($cnnxtchk)="";$lnnox=0; local(@ttln)=();while(){ $lnnox++;if($lnnox<$bgn){ next;}if($cnnxtchk eq "1"){ $cnnxtchk=$lnnox; last;} local($splited)=local($fail)="";foreach $mn(@arikey){if(index($_,$mn) eq "-1"){ $fail=1; last;}$fail=1; @ttln=split(/<>/,$_); $splited=1; if (index($ttln[11],$mn) ne "-1"){ $fail="";}elsif(index($ttln[12],$mn) ne "-1"){ $fail="";}elsif(index($ttln[15],$mn) ne "-1"){ $fail="";}if($fail eq "1"){ last;}}if($fail){ next;} foreach $mn(@nasikey){if($splited ne "1"){ @ttln=split(/<>/,$_);}if (index($ttln[11],$mn) ne "-1"){ $fail=1;}elsif(index($ttln[12],$mn) ne "-1"){ $fail=1;}elsif(index($ttln[15],$mn) ne "-1"){ $fail=1;}if($fail eq "1"){ last;}}if($fail eq "1"){ next;} push(@new,$_);if($#new>$fvln-2){ $cnnxtchk=1;}}if($cnnxtchk<2){ $nextln=""; $lnnox++;} else{ push(@fcnprt,$cnnxtchk);$nextln=join(",",@fcnprt);#{}} pop(@fcnprt);}if($#fcnprt>0){$t=pop(@fcnprt);$backln=join(",",@fcnprt); push(@fcnprt,$t);}else{ $backln="";} return();}sub pov{if(substr($pdsp_swt,2,1) ne "0"){ if(&pastno_get){ $pastno="";}}else{ $pastno="";}if($pastno>0) { $pastnot="(現在ログはx、過去ログは( $pastno . . 1)です。)";}else { $pastnot="(現在ログはx、過去ログはありません。)";}if(!$f_lg){ $flgt=x;} else{ $flgt=$f_lg;} &header();#{"#;} &phead;print"ここから指定記事へ直接ジャンプできます。

・記事に直接ジャンプするにはログ番号と記事番号を入れて「ジャンプ」を押します。
・過去ログを見るには過去ログの番号を入れます。
・過去ログは数字が大きいほど新しいものです。
・現在ログを見るにはxと入れます。
・現在ログであふれたものが順次最新の過去ログに入っていきます。
・最新の過去ログは件数が少ない場合があります。
・すべての過去ログがあるとは限りません。
・過去ログでは投稿/削除できません。
";print""; &footer(); exit;}sub pplog{if(substr($pdsp_swt,2,1) eq "0"){ &error("この項目は使用不可");}if(&pastno_get){ $pastno="x";} &header(); &phead;if($pastno>0) { $pastnot="過去ログは( $pastno . . 1)、現在ログはxです。";}else { $pastnot="(過去ログはありません。現在ログはxです。)";}if($f_md eq "pplog" && !$f_lg){ $flgt=$pastno;}else { $flgt=$f_lg;}print"ここから過去ログを閲覧することができます。

・過去ログを見るには過去ログの番号を入れて「見る」を押します。
・過去ログは数字が大きいほど新しいものです。
・xと入れますと現在ログが見られます。
・現在ログであふれたものが順次最新の過去ログに入っていきます。
・最新の過去ログは件数が少ない場合があります。
・すべての過去ログがあるとは限りません。
・過去ログでは投稿/削除できません。
";print""; &footer(); exit;}sub pastno_get{if(substr($pdsp_swt,2,1)eq "0" && &epwd_chk($F{'pwd'})){ return();}if(!open(LOG,"$pastno_fl")){ return(200);}$pastno=; close(LOG);$pastno=~ s/\r//g; $pastno=~ s/\n//g;$pastno=int($pastno); return();}sub phow{if(substr($pdsp_swt,1,1) eq "0"){ &error("この項目は使用不可");}$l_sin1=($time-$l_sin1)/3600; $l_sin2=($time-$l_sin2)/3600;$l_sin3=($time-$l_sin3)/3600; $l_sin4=($time-$l_sin4)/3600; &header(); &phead;print"基本操作方法の説明です。

▼表\示について
画面右上のボックスで表\示を変更できます。
「一覧表\示」　では、新しい順に上から親記事が表\示され返信記事は親記事の下に表\示されます。";if($reptup_f){ print"返信があったツリーは一番上に移動します。";}print"
「内容表\示」　では、一覧表\示と同じ順序で各記事の内容も表\示されます。
「新着順表\示」では、親記事/返信記事の関係なく新しい順に上から表\示されます。内容も表\示されます。

▼投稿について
投稿ボタンを押しますと新規投稿ができます。
返信ボタンを押しますと返信ができます。
";if(substr($pdsp_swt,6,1)){ print"投稿時に暗号を設定しますとしばらくの間その記事の削除が可能\になります。
";}print"
▼その他
新は$l_sin1時間以内、新は$l_sin2時間以内、新は$l_sin3時間以内、新は$l_sin4時間以内の投稿につきます。
";if(!$tag_ok){ print"投稿時投稿内容の先頭に「>」と記入しますとその行の色を変えられます。
";}print"投稿時投稿内容の先頭に「|pre|」と記入しますと図表\として記録されます。
投稿時投稿内容の先頭に「|mono|」と記入しますと等幅フォントで記録されます。
通常よりも右に寄って表\示されている記事は返信記事です。
";if($f_md eq "mv"||$f_md eq "nv"){ print"一番右上の「上」「下」を押しますと記事を順に見られます。
";}if($reptup_f){ print"返信のあったツリーは最上に移動します。
但し投稿時投稿内容の先頭に「|stay|」と記入しますと上に移動しません。
";}if($email_dsp eq "2"){ print"メールアドレスは取り出し一記事画面で見ることができます。
";}print"

";print""; &footer(); exit;}sub phead{$wintt=substr($c_sur,2,1);if($wintt eq "2"){ $wintt=" target=_blank";}else{ $wintt="";}$t=substr($c_sur,1,1);if($t eq "2"){ $t="_ 内容へ _";}elsif($t eq "3"){ $t="_ _ 新着順へ";}else{ $t="一覧へ _ _";}print"$t
パネル - $html_ttl

| ";if($f_md eq "panel"){ print"紹介";}else { print"紹介";}if(substr($pdsp_swt,1,1) eq "1"){ print" | ";if($f_md eq "phow") { print"操作";}else { print"操作";}}if(substr($pdsp_swt,2,1) eq "1"){ print" | ";if($f_md=~ /pplog/) { print"過去ログ";}else { print"過去ログ";}}if(substr($pdsp_swt,3,1) eq "1"){ print" | "; #&phead;print"基本操作方法の説明です。

)# if ($f_md=~ /pfv/){ print"キーワード検索";}else { print"キーワード検索";}}print" | ";if($f_md eq "pov") { print"記事";}else { print"記事";}if(substr($pdsp_swt,5,1) eq "1"){ #[ print" | ";if($f_md eq "pset") { print"設定";}else { print"設定";}}if(substr($pdsp_swt,6,1) eq "1"){ print" | ";if($f_md eq "pudel"){ print"削除";}else { print"削除";}}print" | ";if($f_md eq "padmin"){ print"管理";}else { print"管理";}print" | ";print"

";}sub sval_set{ if($_[1]<0){ return();} if($_[2]<1){ return();}if(length($_[3])<0||$_[3]=~/[\W]/){ return();} local($sepai1)=13; local($lset)=$_[0]; local($inval)=$_[3];if(length($lset)<$_[1]+$_[2]){ while(length($lset)<$_[1]+$_[2]){ $lset.="0";}}if(length($inval)<$_[2]){ while(length($inval)<$_[2]){ $inval="0$inval";}} substr($lset,$_[1],$_[2])=substr($inval,0,$_[2]);if($_[1]+$_[2]>$sepai1 && substr($lset,$sepai1,2) ne "`."){ substr($lset,$sepai1,2)="`.";} return($lset);}sub hval_set{ if($_[1]<0){ return();} if($_[2]<1){ return();}if(length($_[3])<0||$_[3]=~/[\W]/){ return();} #&header(); local($sepai1)=3; local($lset)=$_[0]; local($inval)=$_[3];if(substr($lset,3,1) ne "."){ int($lset); if($lset<0){ $lset=0;} elsif($lset>999){ $lset=999;}$lset=sprintf("%03d",$lset).".";}if(length($lset)<$_[1]+$_[2]){ while(length($lset)<$_[1]+$_[2]){ $lset.="0";}}if(length($inval)<$_[2]){ while(length($inval)<$_[2]){ $inval="0$inval";}} substr($lset,$_[1],$_[2])=substr($inval,0,$_[2]);if($_[1]+$_[2]>$sepai1 && substr($lset,$sepai1,1) ne "."){ substr($lset,$sepai1,1)=".";} return($lset);}sub auth_get{if(!$_[0]){ return();}if($_[0]!~/\//){ if(&epwd_chk($_[0])){ return();} return("9");} #$#f_dno local(@t)=split(/\//,$_[0]);if($t[0]){ return(&sptauth_get($_[0]));} return();}sub sptauth_get{if($_[0]!~/\//||$#sptdata<0){ return();} local(@fpwd)=split(/\//,$_[0]);foreach(@sptdata){ local(@sd)=split(/\//);if($fpwd[0] eq @sd[0]){if(&sptpwd_match($fpwd[1],$sd[1])){ return();}; return($sd[2]);}} return();}sub sptpwd_match {if(!$_[0]||$_[0] ne $_[1]){ return(100);} #;{# return();}sub dlld{if($dlld_off){ &error("download 不可 err dlld43");} # if($qplf<1){ $qplf=0;}"#;} local($auth)=&auth_get($F{'pwd'});if($auth!~/2/ && $auth!~/3/){ &error("ダウンロード権限がありません($F{'pwd'})");}if($f_lg>0 && $auth!~/4/){ &error("過去ログダウンロード権限がありません($F{'pwd'})");}if(!open(LOG,$log_fl)){ &error("Can't open l_f 487");}if($auth=~/3/){#$#f_dno print"Content-type: text/plain\n\n";while(){ print $_;}}elsif($auth=~/9/||$auth=~/2/||$auth=~/1/){if($auth=~/9/||$auth=~/2/){ $t=2;} else{ $t=1;}print"Content-type: text/plain\n\n";while(){ local(@t)=split(/<>/);if($t eq "1" && $t[4]){ next;}print"$t[0]<>$t[1]<>$t[2]<>$t[3]<>$t[4]<>$t[5]<>$t[6]<>$t[7]<>$t[8]<>$t[9]<>$t[10]<>$t[11]<>$t[12]<><>$t[14]<>$t[15]<><><><><>\n";}} close(LOG); exit;}sub mailok{if(length($_[0])>50||$_[0]!~/(.+)\@(.+)\.(.+)/||$_[0]=~/[^a-zA-Z0-9_\@\-\.]/){ return();} #; return(1);}

題　名
お名前
内　容

	... ここから下は記入しなくても投稿できます ...
メール	";if($email_rq){ print"必須";} else { print"任意";}if($rmail_f\|\|$email_dsp){ print" ";}if($rmail_f eq "2"&&(split(/,/,$new[0]))[3]<$res_dp){ print"返信をメールで受信 ";}elsif($rmail_f eq "3"){ print"今後全同ツリー内返信をメール受信 ";}print"メール非表\示";print"
ＵＲＬ	";if($url_rq){ print"必須";} else { print"任意";}print"
暗号	説明

記事番号	$l_no
投稿者名	$l_name
ホストアドレス	$t

▼変更はここからです▼
題　名
お名前
内　容
$l_msg

メール
ＵＲＬ
▼注意:ここから下のデータを変更しますと問題が発生する可能\性があります。
no$it\"no\" $vt\"$l_no\" size=3>pn$it\"pn\" $vt\"$l_pn\" size=3>reno$it\"reno\" $vt\"$l_reno\" size=3>dp$it\"dp\" $vt\"$l_dp\" size=3>date$it\"date\" $vt\"$l_date\" size=18>time$it\"time\" $vt\"$l_time\" size=14>set$it\"set\" $vt\"$l_set\" size=3>hen$it\"hen\" $vt\"$l_hen\" size=3>elvl$it\"elvl\" $vt\"$l_lvl\" size=2>un$it\"un\" $vt\"$l_un\" size=3>ango$it\"ango\" $vt\"$l_ango\" size=18>host$it\"host\" $vt\"$l_host\" size=18>host2$it\"host2\" $vt\"$l_host2\" size=18>lg$it\"lg\" $vt\"$f_lg\" size=5>md$it\"md\" $vt\"eedit\" size=6>ln$it\"ln\" $vt\"$f_ln\" size=3>icon$it\"icon\" $vt\"$l_icon\" size=3>pwd$it\"pwd\" $vt\"$F{'pwd'}\" size=3>


$pastnot ▼「チェックBOX」にチェックを入れて「削除/更新」を押しますと削除できます。削除する記事に返信記事がある場合その内容は削除されますが記事は残ります。完全に消すには先にその返信記事をすべて消します。 ▼題名リンクを選択しますと編集画面に入ります。編集画面では投稿内容等を編集できます。 ▼ユーザーからの投稿/削除を禁止するには投稿/削除禁止を押します。投稿削除の禁止を中止するには投稿/削除解禁を押します。過去ログはこの設定をしなくても投稿/削除できません。 ▼パネル設定で一覧表\示件数を少なくしてからこの編集画面に入りますと表\示が早くなります。 ▼ご注意・編集/削除をしますと、編集/削除前のデータは復旧できません。・投稿/削除の禁止をしますと、投稿/削除の解禁をするまでの間ずっと投稿ができなくなります。操作を消す

Unable to access this URL.