try:
#!/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 N.") {
if ($mailcount < 10) {
open MAILMSG, "| /bin/mail -s FFF root";
print MAILMSG "Warning Firewall is FF ";
close MAILMSG;
++$mailcount;
`echo $mailcount >$mailf`;
}
} else {
`rm -f $mailf`;
}
i hope this helps
Thanks,
-Kamal.
Message
From: perl-win32-users-bounces (AT) listserv (DOT) ActiveState.com
[@listserv.ActiveState.com] Behalf
Frank Pikelner
Sent: Saturday, November 12, 2005 11:46 AM
To: perl-win32-users (AT) listserv (DOT) ActiveState.com
Subject: Check for local firewall
Is there a way to check whether a local firewall is enabled? Also is there a
way to enable a firewall if it is not?
The Microsoft security center (firewall,virus,updates) seems to have a way
to check for whether the Microsoft or other vendor firewall is enabled.
Thanks,
Frank
Perl-Win32-Users mailing list
Perl-Win32-Users (AT) listserv (DOT) ActiveState.com
To unsubscribe:
Perl-Win32-Users mailing list
Perl-Win32-Users (AT) listserv (DOT) ActiveState.com
To unsubscribe: