?? syslog.pm
字號:
## syslog.pm - Fwctl module to handle syslog message.## This file is part of Fwctl.## Author: Francis J. Lacoste <francis.lacoste@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::syslog;use strict;use Fwctl::RuleSet qw(:ip_rulesets :masq);use IPChains;sub new { my $proto = shift; my $class = ref $proto || $proto; bless {}, $class;}sub prototypes { my ($self,$target,$options) = @_; my $local_port; if ( $options->{client} ) { $local_port = "1024:65535"; } else { $local_port = "514"; } # Build prototype rule ( IPChains->new( Rule => $target, Prot => 'udp', SourcePort => $local_port, DestPort => 514, %{$options->{ipchains}}, ), );}sub block_rules { my $self = shift; my ( $target, $src, $src_if, $dst, $dst_if, $options ) = @_; my ($fw) = $self->prototypes( $target, $options ); block_ip_ruleset( $fw, $src, $src_if, $dst, $dst_if );}sub accept_rules { my $self = shift; my ( $target, $src, $src_if, $dst, $dst_if, $options ) = @_; my ($fw) = $self->prototypes( $target, $options ); my $masq = defined $options->{portfw} ? PORTFW : $options->{masq} ? MASQ : NOMASQ; accept_ip_ruleset( $fw, $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 ($fw) = $self->prototypes( $target, $options ); my $masq = defined $options->{portfw} ? PORTFW : $options->{masq} ? MASQ : NOMASQ; acct_ip_ruleset( $fw, $src, $src_if, $dst, $dst_if, $masq );}sub valid_options { my $self = shift; ( "client" );}1;=pod=head1 NAMEFwctl::Services::syslog - Fwctl module to handle syslog UDP traffic.=head1 SYNOPSIS accept syslog -src ROUTER -dst LOGGER=head1 DESCRIPTIONThis modules handles syslog traffic. Syslog traffic is unidirectionalUDP message from client to server.=head1 OPTIONSIn addition to the standard options, it accepts the following ones.=over=item --clientThis will accepts message coming from a syslog client not boundto port 514. The default is to accept messages only coming fromport 514.=back=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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -