boarddel.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"; 
# รหัส 2 บรรทัดนี้ ได้จากการใช้คำสั่ง crypt แล้วก็ copy มาใส่ที่นี่เช่น
# เช่น print crypt("This is your password","aa");
$pnorm ="aaEzn4mS47aO2";
$pvip ="aaIQw6xjGdgbI";
$opasswd = substr($v{'passwd'},0,5);
$v{'passwd'} = crypt($v{'passwd'},"aa");
$filename = join '',$v{'id'},'.txt';
$chkfilename = join '',$v{'r'},"/",$v{'id'},'.txt';
&header;
$result = "Password incorrect or file not found";
if (crypt($opasswd,"aa") eq $pnorm && stat $chkfilename) {
  open(myfile,"$v{'r'}/$filename");
  @rec = <myfile>;
  close(myfile); 
  @r = split(":",$rec[0]);
  if (($v{'r'} eq "rcyl" || $r[2] eq "burin\@yonok.ac.th" || $r[2] eq "phimine\@yonok.ac.th" || $r[2] eq "atichart\@yonok.ac.th") && $v{'passwd'} ne $pvip) {
    $result = "Can not detele content of<br><font size=0>burin\@yonok.ac.th or phimine\@yonok.ac.th or in recycle board</font>";
  } else {
    unlink("$v{'r'}/$filename");		
    if ($v{'r'} eq "rcyl") {
      $result="Delete content [can not recover] : ok";
    } else {
      $result="Move to recycle board : ok";
      open(myfile,">rcyl/$filename");
      print myfile @rec;
      close(myfile);   
    }
  }
}
print "<font size=6 color=red><center>$result";
&footer;