App-SilverSplash
view release on metacpan or search on metacpan
lib/App/SilverSplash/IPTables.pm view on Meta::CPAN
$Lease_file = $Config->sl_dhcp_lease_file || die 'oops';
%tables_chains = (
filter => [qw( slAUT slAUTads slNET slRTR )],
mangle => [qw( slBLK slINC slOUT slTRU )],
nat => [qw( slOUT )],
);
}
our $Blocked_mark = '0x100';
our $Trusted_mark = '0x200';
our $Paid_mark = '0x400';
our $Ads_mark = '0x500';
sub load_allows {
my ( $class, $file ) = @_;
my $fh;
open( $fh, '<', $Config->sl_root . "/conf/$file" ) or die $!;
my $ct = do { local $/; <$fh> };
lib/App/SilverSplash/IPTables.pm view on Meta::CPAN
slAUTads -p tcp -m tcp --dport 993 -j ACCEPT
slAUTads -p tcp -m tcp --dport 995 -j ACCEPT
slAUTads -p tcp -m tcp --dport 1723 -j ACCEPT
slAUTads -p udp -m udp --dport 1701 -j ACCEPT
slAUTads -p tcp -m tcp --dport 3389 -j ACCEPT
slAUTads -p tcp -m tcp --dport 5050 -j ACCEPT
slAUTads -p tcp -m tcp --dport 5190 -j ACCEPT
slAUTads -p tcp -m tcp --dport 5222 -j ACCEPT
slAUTads -p tcp -m tcp --dport 5223 -j ACCEPT
slNET -m mark --mark $Blocked_mark/0x700 -j DROP
slNET -m state --state INVALID -j DROP
slNET -p tcp -m tcp --tcp-flags SYN,RST SYN -j TCPMSS --clamp-mss-to-pmtu
slNET -m mark --mark $Trusted_mark/0x700 -j ACCEPT
slNET -m mark --mark $Paid_mark/0x700 -j slAUT
slNET -m mark --mark $Ads_mark/0x700 -j slAUTads
slNET -p icmp -j REJECT --reject-with icmp-port-unreachable
$hosts_accept
$sslhosts_accept
slNET -j DROP
slRTR -m mark --mark $Blocked_mark/0x700 -j DROP
slRTR -m state --state INVALID -j DROP
slRTR -m state --state RELATED,ESTABLISHED -j ACCEPT
slRTR -p tcp -m tcp ! --tcp-option 2 --tcp-flags SYN SYN -j DROP
slRTR -p tcp -m tcp --dport $Perlbal_port -j ACCEPT
slRTR -m mark --mark $Trusted_mark/0x700 -j ACCEPT
slRTR -p udp -m udp -s 10.69.0.1/16 --dport 53 -j ACCEPT
slRTR -p udp -m udp -s 10.69.0.1/16 --dport 67 -j ACCEPT
slRTR -p udp -m udp -s 10.69.0.1/16 --dport 68 -j ACCEPT
slRTR -p tcp -m tcp -s 10.69.0.1/16 --dport 20022 -j ACCEPT
slRTR -p icmp -s 10.69.0.1/16 -j ACCEPT
( run in 0.630 second using v1.01-cache-2.11-cpan-49f99fa48dc )