Gecko [ www.foryou-vip.com ]

Name	Size	Permission	Date
afpd	3.84 KB	-rwxr-xr-x	2017-01-21 17:44
amavis	176.48 KB	-rwxr-xr-x	2017-01-21 17:44
arpwatch	1.43 KB	-rwxr-xr-x	2017-01-21 17:44
audit	15.59 KB	-rwxr-xr-x	2017-01-21 17:44
automount	5.24 KB	-rwxr-xr-x	2017-01-21 17:44
autorpm	2.25 KB	-rwxr-xr-x	2017-01-21 17:44
barracuda	11.85 KB	-rwxr-xr-x	2017-01-21 17:44
bfd	2.2 KB	-rwxr-xr-x	2017-01-21 17:44
cisco	44.38 KB	-rwxr-xr-x	2016-07-26 19:43
citadel	58.58 KB	-rwxr-xr-x	2017-01-21 17:44
clam-update	6.93 KB	-rwxr-xr-x	2017-01-21 17:44
clamav	6.17 KB	-rwxr-xr-x	2017-01-21 17:44
clamav-milter	4.17 KB	-rwxr-xr-x	2017-01-21 17:44
courier	23.28 KB	-rwxr-xr-x	2017-01-21 17:44
cron	12.58 KB	-rwxr-xr-x	2017-01-21 17:44
denyhosts	1.75 KB	-rwxr-xr-x	2017-01-21 17:44
dhcpd	11 KB	-rwxr-xr-x	2017-01-21 17:44
dirsrv	4.85 KB	-rwxr-xr-x	2017-01-21 17:44
dnssec	4.99 KB	-rwxr-xr-x	2017-01-21 17:44
dovecot	24.72 KB	-rwxr-xr-x	2017-01-21 17:44
dpkg	3.21 KB	-rwxr-xr-x	2017-01-21 17:44
emerge	4.44 KB	-rwxr-xr-x	2017-01-21 17:44
evtapplication	5.92 KB	-rwxr-xr-x	2017-01-21 17:44
evtsecurity	12.7 KB	-rwxr-xr-x	2017-01-21 17:44
evtsystem	14.95 KB	-rwxr-xr-x	2017-01-21 17:44
exim	24.79 KB	-rwxr-xr-x	2017-01-21 17:44
eximstats	1.91 KB	-rwxr-xr-x	2017-01-21 17:44
extreme-networks	10.91 KB	-rwxr-xr-x	2017-01-21 17:44
fail2ban	9.98 KB	-rwxr-xr-x	2017-01-21 17:44
fetchmail	3.53 KB	-rwxr-xr-x	2017-01-21 17:44
freeradius	10.22 KB	-rwxr-xr-x	2017-01-21 17:44
ftpd-messages	7.67 KB	-rwxr-xr-x	2017-01-21 17:44
ftpd-xferlog	6.18 KB	-rwxr-xr-x	2017-01-21 17:44
http	23.73 KB	-rwxr-xr-x	2017-01-21 17:44
http-error	4.22 KB	-rwxr-xr-x	2016-07-26 19:43
identd	5.54 KB	-rwxr-xr-x	2017-01-21 17:44
imapd	11.15 KB	-rwxr-xr-x	2017-01-21 17:44
in.qpopper	4.84 KB	-rwxr-xr-x	2017-01-21 17:44
init	3.48 KB	-rwxr-xr-x	2017-01-21 17:44
ipop3d	4.08 KB	-rwxr-xr-x	2017-01-21 17:44
iptables	14.96 KB	-rwxr-xr-x	2017-01-21 17:44
kernel	10.56 KB	-rwxr-xr-x	2017-01-21 17:44
knockd	2.8 KB	-rwxr-xr-x	2017-01-21 17:44
lvm	3.12 KB	-rwxr-xr-x	2017-01-21 17:44
mailscanner	27.15 KB	-rwxr-xr-x	2017-01-21 17:44
mdadm	4.58 KB	-rwxr-xr-x	2017-01-21 17:44
mod_security2	7.82 KB	-rwxr-xr-x	2017-01-21 17:44
modprobe	4.17 KB	-rwxr-xr-x	2017-01-21 17:44
mountd	4.35 KB	-rwxr-xr-x	2017-01-21 17:44
mysql	4.52 KB	-rwxr-xr-x	2017-01-21 17:44
mysql-mmm	4.84 KB	-rwxr-xr-x	2017-01-21 17:44
named	31.26 KB	-rwxr-xr-x	2017-01-21 17:44
netopia	14.98 KB	-rwxr-xr-x	2017-01-21 17:44
netscreen	20.63 KB	-rwxr-xr-x	2017-01-21 17:44
oidentd	5.47 KB	-rwxr-xr-x	2017-01-21 17:44
omsa	2.59 KB	-rwxr-xr-x	2017-01-21 17:44
openvpn	13.68 KB	-rwxr-xr-x	2017-01-21 17:44
pam	1.86 KB	-rwxr-xr-x	2017-01-21 17:44
pam_pwdb	7.84 KB	-rwxr-xr-x	2017-01-21 17:44
pam_unix	16.03 KB	-rwxr-xr-x	2017-01-21 17:44
php	5.1 KB	-rwxr-xr-x	2017-01-21 17:44
pix	13.29 KB	-rwxr-xr-x	2017-01-21 17:44
pluto	11.97 KB	-rwxr-xr-x	2017-01-21 17:44
pop3	15.18 KB	-rwxr-xr-x	2017-01-21 17:44
portsentry	5 KB	-rwxr-xr-x	2017-01-21 17:44
postfix	241.59 KB	-rwxr-xr-x	2017-01-21 17:44
postgresql	5.39 KB	-rwxr-xr-x	2017-01-21 17:44
pound	3.52 KB	-rwxr-xr-x	2017-01-21 17:44
proftpd-messages	10.6 KB	-rwxr-xr-x	2017-01-21 17:44
puppet	10.37 KB	-rwxr-xr-x	2016-07-26 19:43
pureftpd	8.17 KB	-rwxr-xr-x	2017-01-21 17:44
qmail	5.73 KB	-rwxr-xr-x	2017-01-21 17:44
qmail-pop3d	4.43 KB	-rwxr-xr-x	2017-01-21 17:44
qmail-pop3ds	3.98 KB	-rwxr-xr-x	2017-01-21 17:44
qmail-send	19.63 KB	-rwxr-xr-x	2017-01-21 17:44
qmail-smtpd	56.05 KB	-rwxr-xr-x	2017-01-21 17:44
raid	1.73 KB	-rwxr-xr-x	2017-01-21 17:44
resolver	3.43 KB	-rwxr-xr-x	2017-01-21 17:44
rsnapshot	3.33 KB	-rwxr-xr-x	2017-01-21 17:44
rsyslogd	1.79 KB	-rwxr-xr-x	2016-07-26 19:43
rt314	4.43 KB	-rwxr-xr-x	2017-01-21 17:44
samba	25.63 KB	-rwxr-xr-x	2017-01-21 17:44
saslauthd	4.06 KB	-rwxr-xr-x	2017-01-21 17:44
scsi	3.34 KB	-rwxr-xr-x	2017-01-21 17:44
secure	41.04 KB	-rwxr-xr-x	2017-01-21 17:44
sendmail	92.27 KB	-rwxr-xr-x	2017-01-21 17:44
sendmail-largeboxes	2.51 KB	-rwxr-xr-x	2017-01-21 17:44
shaperd	5.64 KB	-rwxr-xr-x	2017-01-21 17:44
slon	4.61 KB	-rwxr-xr-x	2017-01-21 17:44
smartd	16.1 KB	-rwxr-xr-x	2017-01-21 17:44
sonicwall	25 KB	-rwxr-xr-x	2017-01-21 17:44
spamassassin	7.56 KB	-rwxr-xr-x	2016-07-26 19:43
sshd	30.98 KB	-rwxr-xr-x	2017-01-21 17:44
sshd2	2.02 KB	-rwxr-xr-x	2017-01-21 17:44
sssd	2.45 KB	-rwxr-xr-x	2017-01-21 17:44
stunnel	5.61 KB	-rwxr-xr-x	2016-07-26 19:43
sudo	6.01 KB	-rwxr-xr-x	2017-01-21 17:44
syslog-ng	20.61 KB	-rwxr-xr-x	2017-01-21 17:44
syslogd	1.98 KB	-rwxr-xr-x	2017-01-21 17:44
systemd	7.53 KB	-rwxr-xr-x	2017-01-21 17:44
tac_acc	4.12 KB	-rwxr-xr-x	2017-01-21 17:44
tivoli-smc	4.41 KB	-rwxr-xr-x	2016-07-26 19:43
up2date	4.79 KB	-rwxr-xr-x	2017-01-21 17:44
vdr	8.3 KB	-rwxr-xr-x	2017-01-21 17:44
vpopmail	3.48 KB	-rwxr-xr-x	2017-01-21 17:44
vsftpd	8.28 KB	-rwxr-xr-x	2017-01-21 17:44
windows	16.12 KB	-rwxr-xr-x	2017-01-21 17:44
xntpd	8.59 KB	-rwxr-xr-x	2017-01-21 17:44
yum	2.8 KB	-rwxr-xr-x	2017-01-21 17:44
zypp	2.48 KB	-rwxr-xr-x	2017-01-21 17:44
zz-disk_space	6.02 KB	-rwxr-xr-x	2017-01-21 17:44
zz-fortune	1.69 KB	-rwxr-xr-x	2017-01-21 17:44
zz-lm_sensors	1.82 KB	-rwxr-xr-x	2017-01-21 17:44
zz-network	12.79 KB	-rwxr-xr-x	2017-01-21 17:44
zz-runtime	1.66 KB	-rwxr-xr-x	2017-01-21 17:44
zz-sys	3.01 KB	-rwxr-xr-x	2017-01-21 17:44
zz-zfs	5.91 KB	-rwxr-xr-x	2017-01-21 17:44

Rename

#!/usr/bin/perl
##########################################################################

#######################################################
## Copyright (c) 2008 Laurent Dufour
## Covered under the included MIT/X-Consortium License:
##    http://www.opensource.org/licenses/mit-license.php
## All modifications and contributions by other persons to
## this script are assumed to have been donated to the
## Logwatch project and thus assume the above copyright
## and licensing terms.  If you want to make contributions
## under your own copyright or a different license this
## must be explicitly stated in the contribution an the
## Logwatch project reserves the right to not accept such
## contributions.  If you have made significant
## contributions to this script and want to claim
## copyright please contact logwatch-devel@lists.sourceforge.net.
#########################################################

$| = 1;

use POSIX qw(uname);

my (%Config);

$ENV{PRINTING} = "y";

my $Debug = $ENV{'LOGWATCH_DEBUG'} || 0;
my $Detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;

my $pathto_chkconfig = $ENV{'pathto_chkconfig'} || '/sbin/chkconfig';
my $pathto_sysctl_conf = $ENV{'pathto_sysctl_conf'} || '/etc/sysctl.conf';
my $pathto_vtysh = $ENV{'pathto_vtysh'} || '/usr/bin/vtysh';
my $pathto_routeadm = $ENV{'pathto_routeadm'} || '/usr/sbin/routeadm';
my $pathto_ip = $ENV{'pathto_ip'} || '/sbin/ip';
my $pathto_ifconfig = $ENV{'pathto_ifconfig'} || '/sbin/ifconfig';

my @ethernet_iface_list;
my @other_iface_list;
my @short_ethernet_iface_list;
my @short_other_iface_list;
my $total_iface=0;
my $total_ethernet_iface=0;
my $total_other_iface=0;

my ($OSname, $hostname, $release, $version, $machine) = POSIX::uname();

if ( $Debug >= 5 ) {
    print STDERR "\n\nDEBUG: Inside zz-network Filter \n\n";
    $DebugCounter = 1;
}

sub show_which {
   my ($cmd) = $_[0];
   my $path = $ENV{'PATH'} || '.';
   @path_array = split(/:/,$path);
   foreach $element (@path_array) {
   my $testfile=$element .'/'.$cmd;
   if ( -f $testfile) { print "$testfile\n"; }
   }
}

sub chkcfg {
   my ($service) = $_[0];
   if (($OSname eq "Linux") && ( -f $pathto_chkconfig)) {
      system("$pathto_chkconfig --list $service");
   } else {
      show_which($service);
   }
}

sub routingCapabilities ()
{
        print "\n\n------------- Routing capabilities----------\n\n";
        chkcfg('routed');
        chkcfg('gated');
        chkcfg('zebra');
        chkcfg('ripd');
        chkcfg('ripngd');
        chkcfg('isisd');
        chkcfg('ospfd');
        chkcfg('ospf6d');
        chkcfg('bgpd');
        if ( -f $pathto_vtysh )
        {
         print "\n";
         system("$pathto_vtysh -e 'sh ver'");
        }

if ($OSname eq "SunOS") {
	  if ( ($release eq "5.10") || ($release eq "5.11") ) {

if ( -f $pathto_routeadm)
        	 {
                	open(FILE1, "$pathto_routeadm -p |")  || die "can't open $!";
                	while (<FILE1>)
                	{
                         print $_;
                	}
                	close(FILE1) || die "can't close $!";
         	}

}
	}
        print "\n\n------------- Routing capabilities----------\n\n";
        print "\n";
}

sub routingState ()
{
        print "\n\n------------- Routing states ---------------\n\n";
        if ($OSname eq "Linux") {
        if ( -f $pathto_sysctl_conf) {
                open(SYSCTL, "< $pathto_sysctl_conf")  || die "can't open $!";
                while (<SYSCTL>)
                {
                   if ($_ =~ /ip_forward/ ) {
                        print $_;
                        }
                }
         }
        else
         {
           open(SYSCTL,"< /proc/sys/net/ipv4/ip_forward")   || die "can't open $!";
           while (<SYSCTL>)
                {
                        print "/proc/sys/net/ipv4/ip_forward set to $_";
                }
           close(SYSCTL) || die "can't close $!";
         }
        }
	
	elsif ($OSname eq "SunOS") {
	  if ( ($release eq "5.10") || ($release eq "5.11") ) {

if ( -f $pathto_routeadm)
        	 {
                	open(FILE1, "$pathto_routeadm -p |")  || die "can't open $!";
                	while (<FILE1>)
                	{
                         if (/ipv(\d+)-forwarding .*default=(\S+) current=(\S+)/) {
			     print "IPv$1 fowarding is $3 (normal state is $2)\n";
			 }
                	}
                	close(FILE1) || die "can't close $!";
         	}

}
	}

else
        {
	 print "Unable to find routing information in your system.\n";
        }
        print "\n\n------------- Routing states ---------------\n\n";
        print "\n";
}

sub routingReport ()
{
        print "\n\n------------- Network routes ---------------\n\n";
        if ($OSname eq "Linux") {

open(NET, "netstat -r -n |")  || die "can't run netstat: $!";
        while (<NET>)
         {
           print $_;
         }
        close(NET)                    || die "can't close netstat: $!";
        }
        else
        {
        open(NET, "netstat -r -n |")  || die "can't run netstat: $!";
        while (<NET>)
         {
           print $_;
         }
        close(NET)                    || die "can't close netstat: $!";
        }
        print "\n\n------------- Network routes ---------------\n\n";
        print "\n";
}

sub ListeningSockets ()
{
        print "\n\n------------- Listening sockets ---------------\n\n";
        if ($OSname eq "Linux") {
        open(NET, "netstat -l |")  || die "can't run netstat: $!";
        while (<NET>)
         {
           if ($_ =~ /LISTEN/ ) { # grep LISTEN
                   if (($_ =~ /LISTENING/ ) == 0 ) { #grep -v LISTENING
                        print $_;
                        }
                }

}
        close(NET)                    || die "can't run netstat: $!";
        }
        else
        {

open(NET, "netstat -a -n |")  || die "can't run netstat: $!";
        while (<NET>)
         {
           if ($_ =~ /LISTEN/ ) {# grep LISTEN
                   if (($_ =~ /LISTENING/ ) == 0 ) { # grep -v LISTENING
                        print $_;
                        }
                }

}
        close(NET)                    || die "can't run netstat: $!";

}
        print "\n\n------------- Listening sockets ---------------\n\n";
        print "\n";
}

sub NetworkStats()
{
        my $awkprog='{printf("%s \t%6s %6s %6s \n", $1, $2, $5, $9 ); }';
        print "\n\n------------- Network statistics ---------------\n\n";
        if ($OSname eq "Linux") {

my $cmd_to_show_int="";

if ( -f $pathto_ip) {
         $cmd_to_show_int=$pathto_ip." a";
        }
        else
        {
         $cmd_to_show_int="$pathto_ifconfig -a";
        }

open(NET, "$cmd_to_show_int |")  || die "can't run $cmd_to_show_int: $!";
                while (<NET>)
                 {
                   print $_;
                 }
                close(NET)                    || die "can't close $cmd_to_show_int: $!";

print "\n";
	system("netstat  -i | grep -v Kernel | awk '$awkprog' ");
	}
	else {
		my $netstat_cmd = "netstat -i";
		if ($OSname eq "SunOS") {
		    $netstat_cmd .= " -a";
		}
                open(NET, "$netstat_cmd |")  || die "can't run netstat: $!";
                while (<NET>)
                 {
                   print $_;
                 }
                close(NET)                    || die "can't close netstat: $!";

}
        print "\n\n------------- Network statistics ---------------\n\n";
        print "\n";
}

sub IfconfigIface {

my ($iface) = $_[0];
                open(NET, "$pathto_ifconfig $iface |")  || die "can't run ifconfig: $!";
                while (<NET>)
                 {
                   print $_;
                 }
                close(NET)                    || die "can't close ifconfig: $!";
	print "\n";
}

sub InterfacesReport ()
{

print "\n\n------------- Network Interfaces ---------------\n\n";
        print "Ethernet : $total_ethernet_iface\n";
        print "Other    : $total_other_iface\n";
        print "Total    : $total_iface\n";
        print "\n\n------------- Ethernet -------------------------\n\n";

if ($OSname eq "Linux") {
         foreach $element (@ethernet_iface_list) { print "$element"; }
        }
        else
        {
         foreach $element (@short_ethernet_iface_list) { IfconfigIface ($element);}
        }

print "\n\n------------- Other ----------------------------\n\n";
        if ($OSname eq "Linux") {

foreach $element (@other_iface_list) { print "$element"; }

}
        else
        {
         foreach $element (@short_other_iface_list) { IfconfigIface ($element); }
        }

print "\n\n------------- Network Interfaces ---------------\n\n";
        print "\n";
}

sub InterfacesCheck
{
        if ($OSname eq "Linux") {

my $cmd_to_show_int="";

$cmd_to_show_int="$pathto_ifconfig -a";

open(NET, "$cmd_to_show_int |")  || die "can't use $cmd_to_show_int: $!";
        while (<NET>)
         {
           if ($_ =~ /Link/ ){# grep Link
            if ($_ =~ /Ether/ ){# grep Ether
			($if_name,$msg)=split(/ +/, $_ , 2);
			if ($if_name =~ /(\S+)/ ) {
                        push (@ethernet_iface_list, $_);
		        push (@short_ethernet_iface_list, $if_name);
                        $total_ethernet_iface++;
                        $total_iface++;
		 }
                }
                else
                 {
			($if_name,$msg)=split(/ +/, $_ , 2);
			if ($if_name =~ /(\S+)/ ) {
                        push (@other_iface_list, $_);
		        push (@short_other_iface_list, $if_name);
                        $total_other_iface++;
                        $total_iface++;
			}
                 }
            }
          }
        close(NET)                    || die "can't use $cmd_to_show_int: $!";

}

elsif ($OSname eq "SunOS") {

# Representative 'ifconfig -a' output from a local zone
	# (global zone is similar, but has the top-level lo0, in0, etc)
	# as well.
	#lo0:1: flags=2001000849<UP,LOOPBACK,RUNNING,MULTICAST,IPv4,VIRTUAL> mtu 8232 index 1
	#        inet 127.0.0.1 netmask ff000000 
	#in0:1: flags=1000843<UP,BROADCAST,RUNNING,MULTICAST,IPv4> mtu 1500 index 2
	#        inet 192.168.1.31 netmask ffffff00 broadcast 192.168.1.255
	#local1:1: flags=1000843<UP,BROADCAST,RUNNING,MULTICAST,IPv4> mtu 9000 index 4
	#        inet 172.16.0.3 netmask fffffff8 broadcast 172.16.0.7
	#out0:1: flags=1000843<UP,BROADCAST,RUNNING,MULTICAST,IPv4> mtu 1500 index 6
	#        inet 184.105.220.67 netmask fffffff8 broadcast 184.105.220.71
	#lo0:1: flags=2002000849<UP,LOOPBACK,RUNNING,MULTICAST,IPv6,VIRTUAL> mtu 8252 index 1
	#        inet6 ::1/128

# Run through twice; a single interface plumbed with both IPv4 and IPv6
	# can be listed separately, but shouldn't count as two interfaces
	foreach my $ip (qw( 4 6 )) {
	    open(NET, "$pathto_ifconfig -a$ip |")  || die "can't run '$pathto_ifconfig -a$ip': $!";
	    while (<NET>)
	     {
	       if ($_ =~ /^(\w+\d+(?::\d+)?): flags=\d+<[^>]+> mtu (\d+)/) {
	       		($if_name, $mtu) = ($1, $2);
			if (! grep { $_ eq $if_name } (@ethernet_iface_list, @other_iface_list)) {
			    # Not seen before; process it
			    $total_iface++;
			    if ($mtu == 1500) {
			    	# Guess that it's ethernet
				push @ethernet_iface_list, $if_name;
				push @short_ethernet_iface_list, $if_name;
				$total_ethernet_iface++;
			    } else {
				push @other_iface_list, $if_name;
				push @short_other_iface_list, $if_name;
				$total_other_iface++;
			    }
			}
		}
	      }
	    close(NET)                    || die "can't use '$pathto_ifconfig -a$ip': $!";
	}

}
        else
        {

open(NET, "netstat -i |")  || die "can't run netstat: $!";
        while (<NET>)
         {
           if (($_ =~ /Name/ ) == 0 ) {# grep -v Name
            if ($_ =~ /1500/ ){# grep Ether
			($if_name,$msg)=split(/ +/, $_ , 2);
			if ($if_name =~ /(\S+)/ ) {
                        push (@ethernet_iface_list, $_);
		        push (@short_ethernet_iface_list, $if_name);
                        $total_ethernet_iface++;
                        $total_iface++;
		 }
                }
                else
                 {
			($if_name,$msg)=split(/ +/, $_ , 2);
			if ($if_name =~ /(\S+)/ ) {
                        push (@other_iface_list, $_);
		        push (@short_other_iface_list, $if_name);
                        $total_other_iface++;
                        $total_iface++;
		  }
                 }
            }
          }
        close(NET)                    || die "can't run fconfig: $!";

}

InterfacesCheck();
   InterfacesReport();
   if ($Detail > 10) {
    ListeningSockets();
   }
   NetworkStats();
   if ($Detail > 5) {
    routingState();
    routingCapabilities();
    routingReport();
   }

# vi: shiftwidth=3 tabstop=3 syntax=perl et
# Local Variables:
# mode: perl
# perl-indent-level: 3
# indent-tabs-mode: nil
# End: