#!/usr/bin/perl
require 'parse.pl';
&parse_form;
print"Content-type:text/html\n\n"; 
$filename = join '.',$v{'id'},'txt';
$result = "Password incorrect or file not found";
if (substr($v{'passwd'},0,5) eq "thaia" && stat $filename) {
  open(myfile,$filename);
  @rec = <myfile>;
  close(myfile); 
  @r = split(":",$rec[0]);
  if ($r[2] eq "thaiall\@thaiabc.com" && $v{'passwd'} ne "thaiabc") {
    $result = "Can not detele of thaiall\@thaiabc.com";
  } else {
    unlink("$filename");		
    $result="Delete file : ok";
  }
}
print $result;