($lastsec,$lastmin,$lasthour,$lastmday,$lastmon,$lastyear)=localtime(time);  
$lastmon           = $lastmon+1;
$lastyear          = $lastyear+1900;

sub checknull
  {
   if ($_[0] eq "")
     {
      &errorinput($_[1]);
     }
   else
     {
      if ($allow_html ==0)
        {
         $return=&filterhtml($_[0]);
        }
      else 
        {
         $return=$_[0];
        }
     }
   return $return;
  }
sub htmlhead
  {
   print "Content-type: text/html\n\n";
  }
sub errorinput
  {
   &htmlhead;
   open(FILE,"$filepath/html/error.htm");
   @file = <FILE>;
   close(FILE);
   foreach (@file)
     {
      $_ =~ s/\$bgcolor/$bgcolor/g;
      $_ =~ s/\$linkcolor/$linkcolor/g;
      $_ =~ s/\$textcolor/$textcolor/g;
      $_ =~ s/\$titledarkcolor/$titledarkcolor/g;
      $_ =~ s/\$titlelightcolor/$titlelightcolor/g;
      $_ =~ s/\$error/$_[0]/g;
      $_ =~ s/\$title/$title/g;
      print $_;
     }
   exit;
  }
sub okinput
  {
   &htmlhead;
   open(FILE,"$filepath/html/ok.html");
   @file = <FILE>;
   close(FILE);
   foreach (@file)
     {
      $_ =~ s/\$bgcolor/$bgcolor/g;
      $_ =~ s/\$linkcolor/$linkcolor/g;
      $_ =~ s/\$textcolor/$textcolor/g;
      $_ =~ s/\$titledarkcolor/$titledarkcolor/g;
      $_ =~ s/\$titlelightcolor/$titlelightcolor/g;
      $_ =~ s/\$title/$title/g;
      $_ =~ s/\$oktitle/$_[0]/g;
      $_ =~ s/\$okcontent/$_[1]/g;
      print $_;
     }
   exit;
  }
sub filterhtml
  {
   local($return)=$_[0];
   $return =~ s/<!--(.|\n)*-->//g;
   if ($allow_html == 0)
     {
      $return =~ s/\\n/<\/br>/g;
      #$return =~ s/<([^>]|\n)*>/<\/br>/g;
      $return =~ s/<//g;
     }
   return $return;
  }
sub checkmail
  {
   if (!($_[0] =~ /.*\@.*\..*/))
     {
      return "我不告訴你";
     }
   return $_[0];
  }
sub checkurl
  {
   if (!($_[0]   =~ /http:\/\/.*\..*/))
     {
      return "http://";
     }
   return $_[0];
  }
sub checkusermail
  {
   if (!($_[0] =~ /.*\@.*\..*/))
     {
      &errorinput("電子郵件地址錯誤!");
     }
   return $_[0];
  }
sub checkuserurl
  {
   if (!($_[0]   =~ /http:\/\/.*\..*/))
     {
      &errorinput("您的主頁地址錯誤!");
     }
   return $_[0];
  }

sub getform
{
binmode(STDIN);
read (STDIN,$postinfo,$ENV{'CONTENT_LENGTH'});
$temps=substr($postinfo,0,80);
$temps=~/(.*)\n/;
$bound=$1;
@fields=split(/$bound/,$postinfo);
foreach $field(@fields)
	{
	($name,$value)=split(/\x0d\n\x0d\n/,$field);
if (($name=~/Content-Disposition/)&&($value ne ''))
		{chomp($value);
	$value=~s/(\x0d)$//g;
	$name=~s/Content-Disposition: form-data; //g;
	($formdata,$filedata)=split(/ /,$name);
	($formvalue,$formname)=split(/=/,$formdata);
	$formname=~s/^\"//;
	$formname=~s/\;$//;
	$formname=~s/\"$//;
	if ($filedata ne '')
		{
		($filetitle,$filename)=split(/=/,$filedata);
		$fi