?? pcanywhere.pm
字號:
## pcanywhere.pm: Fwctl service module to handle the PC Anywhere protocol.## This file is part of Fwctl.## Author: Francis J. Lacoste <francis@iNsu.COM>## Copyright (c) 1999,2000 iNsu Innovations Inc.## This program is free software; you can redistribute it and/or modify# it under the terms of the GNU General Public License as published by# the Free Software Foundation; either version 2 of the License, or# (at your option) any later version.#package Fwctl::Services::pcanywhere;use strict;use Fwctl::RuleSet qw(:tcp_rulesets :udp_rulesets :masq :ports);use IPChains;sub new { my $proto = shift; my $class = ref $proto || $proto; bless {}, $class;}sub prototypes { my ($self,$target,$options) = @_; # Build prototype rule my ($udp_port,$tcp_port); if ( $options->{old} ) { $udp_port = 22; $tcp_port = 65301; } else { $udp_port = 5632; $tcp_port = 5631; } ( IPChains->new( Rule => $target, Prot => 'udp', SourcePort => UNPRIVILEGED_PORTS, DestPort => $udp_port, %{$options->{ipchains}}, ), IPChains->new( Rule => $target, Prot => 'tcp', SourcePort => UNPRIVILEGED_PORTS, DestPort => $tcp_port, %{$options->{ipchains}}, ), );}sub block_rules { my $self = shift; my ( $target, $src, $src_if, $dst, $dst_if, $options ) = @_; my ( $udp, $tcp ) = $self->prototypes( $target, $options ); block_udp_ruleset( $udp, $src, $src_if, $dst, $dst_if ); block_tcp_ruleset( $tcp, $src, $src_if, $dst, $dst_if );}sub accept_rules { my $self = shift; my ( $target, $src, $src_if, $dst, $dst_if, $options ) = @_; my ( $udp, $tcp ) = $self->prototypes( $target, $options ); my $masq = defined $options->{portfw} ? PORTFW : $options->{masq} ? MASQ : NOMASQ; accept_udp_ruleset( $udp, $src, $src_if, $dst, $dst_if, $masq, $options->{portfw} ); accept_tcp_ruleset( $tcp, $src, $src_if, $dst, $dst_if, $masq, $options->{portfw} );}sub account_rules { my $self = shift; my ( $target, $src, $src_if, $dst, $dst_if, $options ) = @_; my ( $udp, $tcp ) = $self->prototypes( $target, $options ); my $masq = defined $options->{portfw} ? PORTFW : $options->{masq} ? MASQ : NOMASQ; acct_udp_ruleset( $udp, $src, $src_if, $dst, $dst_if, $masq, $options->{portfw} ); acct_tcp_ruleset( $tcp, $src, $src_if, $dst, $dst_if, $masq, $options->{portfw} );}sub valid_options { my $self = shift; ( );}1;=pod=head1 NAMEFwctl::Services::pcanywhere - Fwctl module to handle the PC Anywhere protocol.=head1 SYNOPSIS accept pcanywhere -src INT_NET -dst REMOTE -masq -account -name PCA=head1 DESCRIPTIONThis module encapsulates the different TCP and UDP connections used bythe PC Anywhere protocol. Use the -old option to use the older set ofnon registered ports.=head1 AUTHORFrancis J. Lacoste <francis.lacoste@iNsu.COM>=head1 COPYRIGHTCopyright (c) 1999,2000 iNsu Innovations Inc.All rights reserved.This program is free software; you can redistribute it and/or modifyit under the terms of the GNU General Public License as published bythe Free Software Foundation; either version 2 of the License, or(at your option) any later version.=head1 SEE ALSOfwctl(8) Fwctl(3) Fwctl::RuleSet(3)=cut
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -