#!/usr/bin/perl
########## - Ver 3.5 - [InterGB] -------- #####################################################
#
#  Created by Paul Williams
#  E-Mail: paul@rainbow.nwnet.co.uk
#  http://scripts.marschall.net/
#  Created: 5 July 1996
#  Last Updated: 18 Feb 1998
#
########## - ? Copyright 1998 Cougasoft - #####################################################
#
#  About: The  redistribution or  reselling of  this code  is strictly
#         prohibited,  I don't  mind if you alter the  code but please
#         give credit where credit is due ;)
#
#         Basically, all I ask is you don't try and make a profit from
#         this script.  If you are in the webhosting  business, please
#         visit my website for a serverpack.
#
#  Source  [IS  NOT]  to be redistributed in any form of medium.
#
########## ------------------------------ #####################################################
#
        $admin = 'igb-admin.cgi';
#
########## ------------------------------ #####################################################
#
#  M  A  I  N     P  R  O  G  R  A  M
#
########## ------------------------------ #####################################################
#
  unless (do "data/igb-pref.pref" || do "igb-pref.pref")
   {
	print "Content-type: text/plain\n\n" .
		"_________________________________________________________\n\n" .
		"-  找不到 [igb-pref.pref] 档案 !  -\n" .
		"-  你必须上传这个档案，  -\n" .
		"-  并确定你的档案路径是正确的 -\t\t\t\t-\n\n" . 
		"_________________________________________________________\n\n";
	exit(0);
   }
#
########## ------------------------------ #####################################################
#
########## - READ_STDIN [] -------------- #####################################################
#
 read(STDIN, $input, $ENV{'CONTENT_LENGTH'});

        @pairs = split(/&/, $input);

                foreach $pair (@pairs) {
                ($name, $value) = split(/=/, $pair);

                $value =~ tr/+/ /;
                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                $value =~ tr/;/:/;
                $value =~ s/<([^>]|\n)*>//g if ($html);

        $INPUT{$name} = $value;
 }
#
########## ------------------------------ #####################################################
#
########## - ACTION:SIGN_BOOK [] -------- #####################################################
#
  if ($ENV{'QUERY_STRING'} eq "action=sign-guestbook")
   {
        &top_html("Sign in...", 1);
            print "<BR><CENTER>以下凡是有 * 记号者，一定要填写<P>\n" .
                "<FORM METHOD=POST ACTION=\"$ENV{'SCRIPT_NAME'}?action=signed-guestbook\">\n" .
                "<TABLE CELLSPACING=0 CELLPADDING=4  BGCOLOR=\"$TBCOLOR\">\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>访客姓名*</FONT></TD>\n" .
                "<TD><INPUT type=\"text\" name=\"FIRST-NAME\" size=\"45\" maxlength=\"20\" ></TD></TR>\n\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>Email</FONT></TD>\n" .
                "<TD><INPUT type=\"text\" name=\"EMAIL\" size=\"45\" maxlength=\"30\" > </TD></TR>\n\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>访客性别*</FONT></TD>\n" .
                "<TD><INPUT TYPE=radio NAME=\"sex\" VALUE=\"m\" CHECKED>男\n" .
                "<INPUT TYPE=radio NAME=\"sex\" VALUE=\"w\">女</TD></TR>\n\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>现在心情*</FONT></TD>\n" .
                "<TD><SELECT name=\"pic\"><OPTION VALUE=\"1.gif\">欢笑" .
                "<OPTION VALUE=\"2.gif\">愤慨" .
                "<OPTION VALUE=\"3.gif\">伤心" .
                "<OPTION VALUE=\"4.gif\">唱歌" .
                "<OPTION VALUE=\"5.gif\">大哭" .
                "<OPTION VALUE=\"6.gif\">OK!!" .
                "<OPTION VALUE=\"7.gif\">惊喜" .
                "<OPTION VALUE=\"8.gif\">发火" .
                "<OPTION VALUE=\"9.gif\">害怕" .
                "<OPTION VALUE=\"10.gif\">歹势" .
                "<OPTION VALUE=\"11.gif\">扁嘴" .
                "<OPTION VALUE=\"12.gif\">正常" .
                "<OPTION VALUE=\"13.gif\">冒冷汗" .
                "<OPTION VALUE=\"14.gif\">伤脑经" .
                "<OPTION VALUE=\"15.gif\">笑到肚子痛" .
                "<OPTION VALUE=\"16.gif\">气到说不出话" .
                "</SELECT></td></tr>\n\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>ICQ UIN</FONT></TD>\n" .
                "<TD><INPUT type=\"text\" name=\"icq\" size=\"45\" maxlength=\"20\" > </TD></TR>\n\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>居住城市</FONT></TD>\n" .
                "<TD><INPUT type=\"text\" name=\"CITY\" size=\"45\" maxlength=\"100\" > </TD></TR>\n\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>居住省州</FONT></TD>\n" .
                "<TD><INPUT type=\"text\" name=\"STATE\" size=\"45\" maxlength=\"100\" > </TD></TR>\n\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>居住国家</FONT></TD>\n" .
                "<TD><INPUT type=\"text\" name=\"COUNTRY\" size=\"45\" maxlength=\"100\" > </TD></TR>\n\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>首页网址</FONT></TD>\n" .
                "<TD><INPUT type=\"text\" name=\"LINK\" size=\"45\" maxlength=\"400\" > </TD></TR>\n\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>首页名称</FONT></TD>\n" .
                "<TD><INPUT type=\"text\" name=\"web\" size=\"45\" maxlength=\"400\" > </TD></TR>\n\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>留言内容*</FONT></TD>\n" .
                "<TD><TEXTAREA NAME=\"comments\" COLS=\"60\" ROWS=\"5\"></TEXTAREA></FONT></TD></TR>\n\n" .

                "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>留言加密</FONT></TD>\n" .
                "<TD><FONT SIZE=-1><INPUT type=\"checkbox\" name=\"nopost\" value=\"1\">[如果选择加密，本篇留言将直接送到板主信箱，不会出现在留言簿上] </FONT></TD></TR>\n\n" .

                "<TR><TD BGCOLOR=\"$BGCOLORPG\"><INPUT TYPE=\"submit\" VALUE=\" 送出 \"></TD>\n" .
                "<TD BGCOLOR=\"$BGCOLORPG\">&nbsp;</TD></TR>\n\n";
            print "</TABLE></CENTER>\n";
	&bottom(1);
  }
#
########## ------------------------------ #####################################################
#
########## - ACTION:REDIRECT [] --------- #####################################################
#
 elsif ($ENV{'QUERY_STRING'} eq "action=random-link")
  {
        open(DATA, "$data") || &notify("501 Data Server Error", "找不到 \$data 档<BR>请上传以後再尝试.", 0);
           @data = <DATA>;
	close(DATA);

        srand(time ^ $$);

	print "Content-type: text/html\n";

        for ($n = 0;$n < 3; $n++)
         {
            $l = $data[rand($#data)];
            ($email, $name, $sex, $pic, $icq, $city, $state, $comment, $link, $web, $date, $country) = split('\|\|', $l);

            if ($link =~ m`^http://`)
              {
                  print "Location: $link\n\n";
                  exit(0);
              }
            print "Location: http://scripts.marschall.net/\n\n" if ($n == 2);
         }
  }

#
########## ------------------------------ #####################################################
#
########## - ACTION:SIGN_BOOK [] -------- #####################################################
#
  elsif ($ENV{'QUERY_STRING'} eq "action=signed-guestbook")
   {
	&notify("500 Internal Server Error", "[BAD HTTP_REFERER !]", 2) if ($ENV{'HTTP_REFERER'} !~ /^http:\/\/$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}/);
        &missing("FIRST NAME") unless $INPUT{'FIRST-NAME'};
	&missing("COMMENTS") unless $INPUT{'comments'};

        if ($INPUT{'LINK'})
         {
            &notify("501 Data Server Error", "有问题的网址.", 1) if ($INPUT{'LINK'} !~ /^http:\/\/[\w\W]+\.[\w\W]+$/);
         }

        $comments = $INPUT{'comments'};
            $INPUT{'comments'} =~s/\cM\n/<BR>/g;
            $INPUT{'EMAIL'} =~ tr/A-Z/a-z/;

#以下为脏话过滤功能
	$INPUT{'comments'} =~ s/fuck|twat\b|dick|bellend\b|poes\b|chood\b|coochka\b
                |mrdat\b|prcat\b|hai\b|chao\b|kurat\b|vitt\b|vittu\b|encule\b|foutre\b
                |fick\b|pule\b|cunt\b|fitte\b|pikk\b|coor-va\b|foda-se\b|bastard\b
                |bollocks\b|clit\b|faggot\b|gangbang\b|tosser\b|wanker\b|tosspot\b
                |shit\b|whore\b|pillock\b|frigging\b|shite\b/[BAD]/gi;

	&write();
	&sendmail();

        print "Content-type: text/html\n\n";
        print "<!-- ? Copyright 1998 Cougasoft [paul\@rainbow.nwnet.co.uk] -->\n";
        print "<HTML>\n";
        print "<HEAD>\n";
        print "        <TITLE>$gb_name - Success!!</TITLE>\n";
        print "<meta http-equiv=\"refresh\" content=\"3;url=$ENV{'SCRIPT_NAME'}?action=new-post\">\n";
        print "</HEAD>\n";
        print "<BODY TEXT=\"$BODYTEXT\" BGCOLOR=\"$BGCOLORPG\" LINK=\"$LINK\" VLINK=\"$VLINK\" ALINK=\"$ALINK\" BACKGROUND=\"$BGGIF\">\n\n";
        print "<CENTER><A HREF=\"http://scripts.marschall.net/\"><IMG SRC=\"$gif\" BORDER=\"0\" ><P></CENTER></A>\n\n" if ($my_link);
        print "<CENTER><IMG SRC=\"$gif\"><P></CENTER>\n\n" if (!$my_link);
        print "<CENTER><FONT SIZE=-1>[<A HREF=\"$ENV{'SCRIPT_NAME'}?action=sign-guestbook\">签写留言</A>] - [<A HREF=\"$HOME\">回到首页</A>] - ";
        print "[<A HREF=\"$ENV{'SCRIPT_NAME'}?action=random-link\" target=\"new\">随意连结</A>] - [<a href=\"$admin\">管理页面</a>]</FONT><br>\n" if ($_[1] != 1);
        print "<HR SIZE=5 WIDTH=\"400\">\n";
        print "<CENTER><font size=-1>本留言板最大容量为 $mlog 篇留言<BR>\n";
        print "留言板不支援HTML语法，断行请按ENTER键<BR></CENTER>\n\n" if($html);
        print "留言板支援HTML语法，断行请按ENTER键<BR></CENTER>\n\n" if(!$html);
        print "</font><HR SIZE=5 WIDTH=\"400\"></CENTER><BR>\n\n";
            print "<CENTER>\n<TABLE CELLSPACING=0 CELLPADDING=4 BGCOLOR=\"$TBCOLOR\" WIDTH=\"60%\">\n";
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>访客姓名</FONT></TD>\n<TD><FONT SIZE=-1>$INPUT{'FIRST-NAME'}</TD></TR>\n" if ($INPUT{'FIRST-NAME'});
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>Email</FONT>\n</TD><TD><FONT SIZE=-1>$INPUT{'EMAIL'} </TD></TR>\n" if ($INPUT{'EMAIL'} !~ /--/);
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>访客性别</FONT>\n</TD><TD><FONT SIZE=-1>$INPUT{'sex'} </TD></TR>\n";
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>现在心情</FONT>\n</TD><TD><FONT SIZE=-1>$INPUT{'pic'} </TD></TR>\n" ;
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>ICQ UIN</FONT>\n</TD><TD><FONT SIZE=-1>$INPUT{'icq'} </TD></TR>\n" if ($INPUT{'icq'} !~ /--/);
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>居住城市</FONT></TD>\n<TD><FONT SIZE=-1>$INPUT{'CITY'} </TD></TR>\n" if ($INPUT{'CITY'} !~ /--/);
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>居住省州</FONT></TD>\n<TD><FONT SIZE=-1>$INPUT{'STATE'} </TD></TR>\n" if ($INPUT{'STATE'} !~ /--/);
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>居住国家</FONT></TD>\n<TD><FONT SIZE=-1>$INPUT{'COUNTRY'} </TD></TR>\n" if ($INPUT{'COUNTRY'} !~ /--/);
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>首页网址</FONT></TD>\n<TD><FONT SIZE=-1>$INPUT{'LINK'} </TD></TR>\n" if ($INPUT{'LINK'} !~ /--/);
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>首页网址</FONT></TD>\n<TD><FONT SIZE=-1>$INPUT{'web'} </TD></TR>\n" if ($INPUT{'web'} !~ /--/);           
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>留言内容</FONT></TD>\n<TD><FONT SIZE=-1>$INPUT{'comments'}</FONT></TD></TR>\n" if ($INPUT{'comments'});
            print "<TR><TD BGCOLOR=\"$RESHADE\"><FONT SIZE=-1>加密 ?</FONT></TD>\n<TD><FONT SIZE=-1>这篇将直接送到板主信箱，不会出现在留言簿</FONT></TD></TR>\n" if ($INPUT{'nopost'});
            print "<TR><TD ALIGN=CENTER COLSPAN=2 BGCOLOR=\"$BGCOLORPG\"><FONT SIZE=-1><BR>谢谢您来填写留言! <A HREF=\"$ENV{'SCRIPT_NAME'}?action=new-post\">观看留言</A><br>3秒後转送至留言板" .
                  "</FONT></TD></TR>\n" if (!$INPUT{'nopost'});
            print "<TR><TD ALIGN=CENTER COLSPAN=2 BGCOLOR=\"$BGCOLORPG\"><FONT SIZE=-1><BR>谢谢您的意见! <A HREF=\"$HOME\">回首页</A> <br>3秒後转送至留言板" .
                  "</FONT></TD></TR>\n" if ($INPUT{'nopost'});
            print "</TABLE></CENTER>\n";
	&bottom(0);
}
#
########## ------------------------------ #####################################################
#
########## - ACTION:MAIN [] ------------ #####################################################
#
  else
   {
      if (!-e "$data" || !-e "$mailpgrm")
       {
	  $dataprf = "Guestbook Data File" if (!-e "$data");
	  $mailprf = "Mail Program [Sendmail]" if (!-e "$mailpgrm");

	  &top_html("500 Internal Server Error", 1);
	     print "<BR><CENTER><TABLE CELLSPACING=0 CELLPADDING=9 >\n" .
		"<TR>\n" .
		"<TD BGCOLOR=\"$TBCOLOR\"><FONT SIZE=-1>\n" .
		"<DT><B>状态 -</B></DT><DD>$dataprf</DD>\n" .
		"<DD>$mailprf</DD><DT><B>找不到.</B></DT>\n" .
                "<DD>请至 <A HREF=\"$admin\">管理区域</A>.</DD>\n" .
	        "</FONT></TD>\n";
	     print "</TR>\n</TABLE></CENTER>\n\n";
	  &bottom(1);
       }

	open(DISPLAY, "$data") || &notify("500 Internal Server Error", "找不到 \$data 档<BR>请上传以後再尝试.", 0);
	   if ($display == 2) { @lines = reverse(<DISPLAY>); }
           else { @lines = <DISPLAY>; }
	close(DISPLAY);

        &top_html("Welcome !");
           print "<CENTER><TABLE CELLSPACING=0 CELLPADDING=1 WIDTH=\"80%\" >\n";

        foreach (@lines)
         {
	   ($email, $name, $sex, $pic, $icq, $city, $state, $comment, $link, $web, $date, $country) = split('\|\|');

                print "<TR BGCOLOR=\"$RESHADE\">\n<TD><FONT SIZE=-2>&nbsp;</FONT>";
                print "</TD>\n</TR>\n\n";

		print "<TR>\n<TD>";
             if("$email" eq "--") {
                print "<FONT SIZE=-1 COLOR=$VLINK><B>$name</B></font><FONT SIZE=-1> - <I>$date</I></font><BR>\n"; 
                }
             else {
                print "<FONT SIZE=-1><B><A HREF=\"mailto:$email\">$name</A></B> - <I>$date</I></font><BR>\n"; 
                }
                print "<table border=0><tr align=left width=70><td><img src=$pic_url/$sex$pic border=0></td><td ALIGN=LEFT><font size=-1>\n";
                print "<img src=$pic_url/url.gif border=0 alt=首页><A HREF=\"$link\" target=\"new\">$web</A><br>\n" unless $link eq "--";
                print "<img src=$pic_url/icq.gif border=0><a href=\"mailto:$icq\@pager.mirabilis.com\">$icq</a>" unless $icq eq "--";
                print "<p>";
                print "$comment \n\n";
                print "</FONT></td></tr></table><p align=right>";
                print "<font size=-1>($country)</font>"  unless $country eq "--";
                print "<font size=-1>- $state </font>" unless $state eq "--";
                print "<font size=-1>- $city </font>" unless $city eq "--";
                print "</p>"  unless $state eq "--" && $city eq "--";
                print "</TD>\n</TR>\n\n";
	 }

           print "<TR BGCOLOR=\"$RESHADE\">\n<TD><FONT SIZE=-2>&nbsp;</FONT>";
           print "</TD>\n</TR>\n\n";
           print "</TABLE></CENTER>\n";
           print "<CENTER><P><HR SIZE=1 WIDTH=\"45%\" NOSHADE><FONT SIZE=-1>Script written by Paul Williams <A HREF=\"http://scripts.marschall.net/\" target=\"new\">" .
                  "CougaSoft</A><br>人物表情图提供<a href=\"http://www2.nsysu.edu.tw/alex/\" target=\"new\">小正正的家</a> - 程式修改<a href=\"http://come.to/kenwu\" target=\"new\">衣剑舞</a> 整理<a href=\"http://oh.yeah.net\" target=\"new\">Oh Yeah Net</a></FONT></P></CENTER>";
	&bottom(1);
 }
#
########## ---------------------- #############################################################
#
#  S  U  B  R  O  U  T  I  N  E  S
#
########## - ADDITIONAL STUFF []  #############################################################
#
 sub top_html
  {
        print "Content-type: text/html\n\n" .
                "<!-- ? Copyright 1998 Cougasoft [paul\@rainbow.nwnet.co.uk] -->\n" .
                "<HTML>\n" .
                "<HEAD>\n" .
                "        <TITLE>$gb_name - $_[0]</TITLE>\n" .
                "<STYLE>\n".
                "<!--A{text-decoration:none}-->\n".
                "</STYLE>\n".
                "</HEAD>\n" .
                "<BODY TEXT=\"$BODYTEXT\" BGCOLOR=\"$BGCOLORPG\" LINK=\"$LINK\" VLINK=\"$VLINK\" ALINK=\"$ALINK\" BACKGROUND=\"$BGGIF\">\n\n";
        print "<CENTER><A HREF=\"http://scripts.marschall.net/\"><IMG SRC=\"$gif\" BORDER=\"0\" ><P></CENTER></A>\n\n" if ($my_link);
        print "<CENTER><IMG SRC=\"$gif\"><P></CENTER>\n\n" if (!$my_link);

        print "<CENTER><FONT SIZE=-1>[<A HREF=\"$ENV{'SCRIPT_NAME'}?action=sign-guestbook\">签写留言</A>] - [<A HREF=\"$HOME\" target=\"_top\">回到首页</A>] - " .
              "[<A HREF=\"$ENV{'SCRIPT_NAME'}?action=random-link\" target=\"new\">随意连结</A>] - [<a href=\"$admin\">管理页面</a>]</FONT><br>\n" if ($_[1] != 1);
        print "<HR SIZE=5 WIDTH=\"400\">\n";
        print "<CENTER><font size=-1>本留言板最大容量为 $mlog 篇留言<BR>\n";
        print "留言板不支援HTML语法，断行请按ENTER键<BR></CENTER>\n\n" if($html);
        print "留言板支援HTML语法，断行请按ENTER键<BR></CENTER>\n\n" if(!$html);
        print "</font><HR SIZE=5 WIDTH=\"400\"></CENTER><BR>\n\n";
  }
#
########## ---------------------- #############################################################
#
#  S  U  B     W  R  I  T  E  -  B  O  O  K
#
########## - WRITE_BOOK [] ------ #############################################################
#
 sub write
  {
        $INPUT{'EMAIL'}    = "--" unless $INPUT{'EMAIL'};
        $INPUT{'CITY'}    = "--" unless $INPUT{'CITY'};
        $INPUT{'STATE'}   = "--" unless $INPUT{'STATE'};
        $INPUT{'COUNTRY'} = "--" unless $INPUT{'COUNTRY'};
        $INPUT{'LINK'}    = "--" unless $INPUT{'LINK'};
        $INPUT{'web'}    = "--" unless $INPUT{'web'};
        $INPUT{'icq'}    = "--" unless $INPUT{'icq'};

	open(FILE, "$data") || &notify("500 Internal Server Error", "找不到 \$data 档<BR>请上传以後再尝试.", 0);
        while (<FILE>)
         {
	     ($email, $name, $sex, $pic, $icq, $city, $state, $comment, $link, $web, $date, $country) = split('\|\|');

             &notify("500 Internal Server Error", "重复填写留言，这篇留言已经出现过了.<BR>" .
                    "<A HREF=\"$ENV{'SCRIPT_NAME'}?action=read-post\">请回留言板</A> .", 0) if ($comment eq $INPUT{'comments'});
         }
        close(FILE);

     if (!$INPUT{'nopost'})
      {
        &date();
	$init = (0);
	$mlog = $mlog - 1;

		open(LINK, "$data");
			@link = <LINK>;
		close(LINK);

		open(FILE, ">$data") || &notify("500 Internal Server Error", "无法写入 \$data 档案<BR>chmod 666 以後再尝试.", 0);
	   		print FILE "$INPUT{'EMAIL'}||$INPUT{'FIRST-NAME'}||$INPUT{'sex'}||$INPUT{'pic'}||$INPUT{'icq'}||$INPUT{'CITY'}||" .
                      		   "$INPUT{'STATE'}||$INPUT{'comments'}||$INPUT{'LINK'}||$INPUT{'web'}||$date||$INPUT{'COUNTRY'}||\n";
			while ($init !=$mlog) {
			print FILE "$link[$init]";
			$init++;
			}
		close(FILE);
      }
  }
#
########## ---------------------- #############################################################
#
#  S  U  B     S  E  N  D  M  A  I  L
#
########## - SENDMAIL [] -------- #############################################################

 sub sendmail
   {
    if ($email_you)
      {            
          if ($INPUT{'EMAIL'} =~ /.*\@.*\..*/){
	$MAIL =~ s/%n/$INPUT{'FIRST-NAME'}/g;
	$MAIL =~ s/%e/$INPUT{'EMAIL'}/g;
	$MAIL =~ s/%u/$INPUT{'LINK'}/g;
	$MAIL =~ s/%c/$INPUT{'comments'}/g;
        $MAIL =~ s/%g/http:\/\/$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}/g;
	$MAIL =~ s/\\n/\n/g;

        open(MAIL, "| $mailpgrm -t") || &notify("500 Internal Server Error", "找不到送信路径<BR>请检查您的送信路径是否正确.", 0);
		print MAIL "To: $INPUT{'FIRST-NAME'} <$INPUT{'EMAIL'}>\n";
		print MAIL "From: $yourname <$youremail>\n";
		print MAIL "Subject: $subject\n";
		print MAIL "\n";
		print MAIL "$MAIL\n\n";
	close(MAIL);
          }
      }
     &date();

     if ($INPUT{'nopost'})
      {
        open(MAIL, "| $mailpgrm -t") || &notify("500 Internal Server Error", "找不到送信路径<BR>请检查您的送信路径是否正确.", 0);
		print MAIL "To: $yourname <$youremail>\n";
		print MAIL "From: $INPUT{'EMAIL'}\n";
		print MAIL "Subject: 保密留言 [$date]\n";
		print MAIL "\n";
		print MAIL "保密内容:-\n";
		print MAIL "\n";
		print MAIL "访客	: $INPUT{'FIRST-NAME'}\n";
		print MAIL "E-mail	: $INPUT{'EMAIL'}\n";
		print MAIL "内容	:\n";
		print MAIL "	  $comments\n\n\n";
		print MAIL "---------------------------------------->>-\n";
	close(MAIL);
      }
     if ($notify)
      {
        if ($INPUT{'nopost'} != '1')
           {
        open(MAIL, "| $mailpgrm -t") || &notify("500 Internal Server Error", "找不到送信路径<BR>请检查您的送信路径是否正确.", 0);
		print MAIL "To: $yourname <$youremail>\n";
		print MAIL "From: $INPUT{'EMAIL'}\n";
		print MAIL "Subject: 新的留言 [$date]\n";
		print MAIL "\n";
		print MAIL "留言内容:-\n";
		print MAIL "\n";
		print MAIL "访客	: $INPUT{'FIRST-NAME'}\n";
		print MAIL "E-mail	: $INPUT{'EMAIL'}\n";
		print MAIL "内容	:\n";
		print MAIL "	  $comments\n\n\n";
		print MAIL "---------------------------------------->>-\n";
	close(MAIL);
            }
      }
  }

########## ---------------------- #############################################################
#
########## ---------------------- #############################################################
#
#  S  U  B     D  A  T  E
#
########## - DATE [] ------------ #############################################################
#
 sub date
  {
        @days   = ('Sun','Mon','Tues','Wed','Thur','Fri','Sat');
        @months = ('01/','02/','03/','04/','05/','06/','07/',
                   '08/','09/','10/','11/','12/');

        ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = localtime(time+(3600*($addtime)));
                $hour = "0$hour" if ($hour < 10);
                $min  = "0$min"  if ($min < 10);
                $sec  = "0$sec"  if ($sec < 10);

        $date = "$year/$months[$mon]$mday - $hour:$min";

        $date;
  }
#
########## ---------------------- #############################################################
#
#  S  U  B     S  T  A  T  U  S
#
########## - STATUS [] ---------- #############################################################
#
 sub status
  {
        if (!-e "$link_file")
         {
            &top_html("Problema !", 0);
                print "<BR><CENTER><TABLE CELLSPACING=0 CELLPADDING=9 >" .
                        "<TR><TD BGCOLOR=\"$TBCOLOR\"><FONT SIZE=-1>" .
                        "<DT><I>状态 -</I></DT><DD>连结数据档案</DD>" .
                        "<DT><I>找不到.</I></DT><DD>请到 <A HREF=\"igb-admin.cgi\">管理区域</A>.</DD>\n" .
                        "</FONT></TD>" .
                        "</TR>";
                print "</TABLE></CENTER>\n\n";
            &bottom(1);
         }
  }
#
########## ---------------------- #############################################################
#
#  S  U  B     N  F  R  A  M  E
#
########## - NFRAME [] ---------- #############################################################
#
 sub nframe
  {
        print "<BR><CENTER><TABLE CELLSPACING=0 CELLPADDING=9 >\n" .
                " <TR>\n<TD ALIGN=CENTER BGCOLOR=\"$TBCOLOR\">\n" .
                " $_[0]</TD>\n </TR>\n";
        print "</TABLE></CENTER>\n\n";
  }
#
########## ---------------------- #############################################################
#
#  S  U  B     M  I  S  S  I  N  G
#
########## - MISSING [] --------- #############################################################
#
 sub missing
  {
        &top_html("Missing Field", 1);
        &nframe ("Missing Field [$_[0]]<BR> Return to the " .
                 "<a href=\"$ENV{'HTTP_REFERER'}\"> F O R M</a> and try again.");
        &bottom(1);
  }
#
########## ---------------------- #############################################################
#
#  S  U  B     N  O  T  I  F  Y
#
########## - NOTIFY [] ---------- #############################################################
#
 sub notify
  {
        $xtra = "<BR>请回到 <a href=\"$ENV{'HTTP_REFERER'}\">表单</a>再试一次." if ($_[2] ==1);
        $xtra = "<BR>请回到 <A HREF=\"$HOME\">首页</A>." if ($_[2] == 2);

        &top_html("$_[0]", 1);
        &nframe  ("<TT>$_[1] $xtra</TT>");
        &bottom(1);
  }
#
########## ---------------------- #############################################################
#
#  S  U  B     B  O  T  T  O  M
#
########## - BOTTOM [] ---------- #############################################################
#
  sub bottom
   {
        print "</BODY>\n";
        print "</HTML>\n";
        exit(0) if ($_[0]);
   }
#
########## ---------------------- #############################################################
#
########## - EXIT(0) ------------ #############################################################
#