#!/usr/local/bin/perl
#
# check to ensure that the firewall is turned on
#
        
     $mailf = "/tmp/firewall.mail";
     if (-e $mailf) {
         $mailcount = `cat $mailf`;
     } else {
         $mailcount = 0;
     }
     $fwstatus = `cat /var/log/firewall`;
     chop($fwstatus);
     if ($fwstatus ne "Firewall ON.") {
          if ($mailcount < 10) {
               open MAILMSG, "| /bin/mail -s Firewall_OFF root";
               print MAILMSG "Warning Firewall is OFF ...";
               close MAILMSG;
               ++$mailcount;
               `echo $mailcount >$mailf`;
          }
     } else {
        `rm -f $mailf`;
     }