mkfilters.sh revision 7c478bd95313f5f23a4c958a745db2134aa03244
# for best results, bring up all your interfaces before running this
if ($^O =~ m/^irix/i)
{
&irix_mkfilters || regular_mkfilters || die $!;
}
else
{
®ular_mkfilters || irix_mkfilters || die $!;
}
}
#
# print out route suggestions
#
print "#\n";
print "# The following routes should be configured, if not already:\n";
print "#\n";
}
print "#\n";
#
# print out some generic filters which people should use somewhere near the top
#
print "block in log quick from any to any with ipopts\n";
print "block in log quick proto tcp from any to any with short\n";
$grpi = 0;
next;
}
$grpi += 100;
}
}
}
}
sub irix_mkfilters
{
{
{
next;
}
{
close I; # being neat... - Allen
}
}
return 1;
}
{
close I; # being neat... - Allen
return 1;
}
sub scan_ifconfig
{
while (<I>) {
chop;
next;
}
if (/\-\-\>/) { # PPP, (SLIP?)
} else {
}
}
}
}
}
}