#!/usr/bin/perl
# evi, june 2000, $evi @ cest-ma-maison.net
# rule added october 2008 to block disgraceful visitors
# disclaimer.pl

require "netiquette.pl";
require "mature.pl"; 

print "EEEEEE VV     VV  IIIIII\n";
print "EE      VV   VV     II\n";   
print "EEEE     VV VV      II\n";
print "EE        VVV       II\n";
print "EEEEEE     V      IIIIII\n\n\n\n"; 

$_ =<STDIN>; chop($_);
if (((/SPAMMER/)  || (/IMMORAL/) || (/DIRTY/) || (/JUNK/)) && !(/PERSONAL/)) {
  return 0; # false, visit me next time when you are ready, k?
}
$not_accepted=0;
while ($not_accepted==0) {
  print "DISCLAIMER\n";
  print "=============================================================\n\n";
  print "THIS SITE HAS NO CONNECTION WITH ANY INSTITUTION OR COMPANY\n";
  print "ALL OF ITS CONTENT IS UNDER FULL RESPONSIBILITY OF THE
      AUTHOR\n";
  print "UNDER NO CIRCUMSTANCES SHOULD ITS CONTENT BECOME MISUSE\n";
  print "NO PROFIT TAKING SHOULD BE RAISED FROM THIS SITE\n";
  print "BE POLITE, ALL YOUR ACTIVITIES ON THIS SITE ARE MONITORED\n";
  print "(For this last point, yuppe..., I mean it";
  print "that sometimes I check the statistic and other captured data, ummm,";
  print "remove dirty entry in guestbook... sorta";
  print "Anyway, aren't all of our daily activities monitored too?)\n";
  print "===========================================================\n"
  $not_accepted=<STDIN>; chop($not_accepted);
}
print "\n\nThank you, welcome to my personal homepage";
print "\n\nEnjoy your staying here!";
 
                            .^^^\ ../~/\       .==...==.
                           .^\ /\  \    ^-------^^ O    O,
                           / \  \/    ---         ,..++---,
                          / \_\-          _,v.v^V^ ,/\^^^/
                         | \/       /^v^V^   _,.-^^  .;+^
                          \-\   (   \..,+-=~^   .-+/^
                           \--.__________.--+'^^
                        ...^--.__________.---^^^^~+._
       _            _,=^\                            ".
       \'\.       .^             EEEeeeeEE            '
        \-/\     /  \             EE           )   /    \
         \-/\   | -      /        EE           )^`\,... |
         /\-\)  | ,,../^^\        EEeeEE       /  /     \
        /\.-\)  |^     \  \       EE          /  (      )
       /\. \/   (     \/  /\      EE         /    \/_/_/
      /==)-/\_   \_\_\/ / |      EEEeeeeEE  )|
     (=== /. /^^^~~~~~^^\  \               ) |
     (/:/:/ /. /  /  /   \  ^+..........,^^  /
      \/:/:(:.(:.(:.(  (  \,             ,.;|
       \$$(:(:(::(::(::(::: ^^""""""""""^  /\
        ^=U$$$$$Sb\;:\;:\:''"*********+++_/ \)
            ^"=*UUU$$$$$++ /$$$$&&PP!*=/^\ \/
                       |++|            \+ + \_ _
                      _/ . \_           \ .  ___>
                             `--
                        .    ___>
                        \/^\/