カレッヂ |
質問者 kenta
投稿日 5/15(木) 16:01:37
[削除] (返信・回答が付いた後にこの質問の削除はできません)
minibbs.cgiB rslBqgKB B ^CgAy[W\ヲA{^ uwv\ヲB AXNvgB 1j minibbs.cgi if($in{'action'} eq 'Search' ){ @messages = &ReadFile($message_file); &Search ; } if ($in{'action'} eq 'Set_MasterPassword ') { &Set_MasterPassword ; } exit; Tu[` (&Search) B 2j sub Search{ #y[W $page_control=0; $hit=0;#### $ff=$in{'next_num'}; # y[Ws if($ff eq ""){$ff=1;} # foreach $line (@messages) { #y[W $line=~s/\n//; $page_control++; if( $ff > $page_control) { next; } # y[W 3j# I #y[W $hit++; if ( $hit <= $page ) { push ( @NEWS,$line) ; } #$pagey[W\ヲ else { $next_num = $page_control; last; } } 4jmy[Wnf[^MXNvg if (@NEWS) { #y[W print "<form action=\"$ENV{'SCRIPT_NAME'}?log=$cmd{'log'}\" method=\"POST\">\n"; @foreach $message (@NEWS) { @@r if(@NEWS) { #y[W print "<input type=\"hidden\" name=\"next_num\" value=\"$next_num\">\n"; print "<input type=\"hidden\" name=\"action\" value=\"Search\">\n"; print "<input type=\"submit\" value=\"y[W\"></bn>\n"; } }else { print "w.<p>\n"; } print "</form> @@r } B XNvgAmy[Wn{^A NWESf[^uw.v \ヲAy[W\ヲB ゥAB AhoCXKB B
プロバイダ参照: |
返信(回答)する
Web裏技 |