boardsearch.pl

#!/usr/local/bin/perl
# ปรับปรุง 28 กรกฎาคม 2545
# Version สำหรับ lovelampang.com และเปิดให้คนลำปางนำไปใช้ได้
############################################################
# เพื่อนำ 10 กะทู้ล่าสุดไปแสดง 
# <iframe src=http://www.thaiall.com/lovelampang/board/board10.pl height="205" width="500" marginwidth="0" marginheight="0" vspace="0" hspace="0" frameborder="0"></iframe>
# เพิ่มข่าว หรือแสดงความเห็น 
# <a href=http://www.lovelampang.com/board>http://www.lovelampang.com/board</a>
############################################################
require 'parse.pl';
&parse_form;
print "Content-type:text/html\n\n";  
&headers;
if (length($v{'keyword'}) < "3") { &breakerror('Keyword ไม่เหมาะสม โปรดกรอกใหม่'); }
$rm[0] = "rynk";
$rm[1] = "rart";
$rm[2] = "rcyl";
for $j (0 .. 2) {
  $filename = "$rm[$j]/."; 
  opendir(flist,"$filename");
  @allf = readdir flist;	
  closedir(flist);   
  @allf = sort @allf;
  for $i (0 .. @allf) {		
    if (length($allf[$i]) eq "17") {    
      open(myfile,"$rm[$j]/$allf[$i]");
      @getrec = <myfile>;
      close(myfile);  
      $found = 0;
      foreach $r(@getrec) { 
        if($r =~ /(.*)$v{'keyword'}(.*)/) { 
          $found = 1; 
          $foundtxt = $r;
          $newtxt = "$v{'keyword'}";
          $foundtxt =~ s/$v{'keyword'}/<b>$v{'keyword'}<\/b>/g;           
        } 
      }
      if ($found eq "1") { 
        push @ar,$getrec[0]; 
        push @arftxt,$foundtxt; 
      }
    }
  }
}  
@ar = reverse sort @ar;
$tot = @ar-1;
print'<center><form action=boardsearch.pl method=post>';
print'สืบค้นในฐานข้อมูลกะทู้ <input name=keyword size=15><input type=submit value=Search></form>';
print'<table width=90% border=0 cellpadding=1 cellspacing=1 bgcolor=black><td bgcolor=white>';
print"ผลการสืบค้น คำว่า : <b>$v{'keyword'}</b><ol>";
for $i (0..$tot) {		  
  @rec = split (/:/,$ar[$i]);
  print "<li><a href=boardread.pl?id=$rec[0]>$rec[1]</a> ";
  print "<font color=#808080>$rec[2]</font><br>.. <font color=black>$arftxt[$i]</font> ..";          
}
print'</ol>';
print'</td></table></center>';
&footer;