Gecko [ www.foryou-vip.com ]

Name	Size	Permission	Date
applybinddate	2.71 KB	-rwxr-xr-x	2017-01-21 17:44
applyeurodate	1.69 KB	-rwxr-xr-x	2017-01-21 17:44
applyhttpdate	1.48 KB	-rwxr-xr-x	2017-01-21 17:44
applystddate	2.14 KB	-rwxr-xr-x	2017-01-21 17:44
applytaidate	2.56 KB	-rwxr-xr-x	2017-01-21 17:44
applyusdate	1.47 KB	-rwxr-xr-x	2017-01-21 17:44
eventlogonlyservice	1.98 KB	-rwxr-xr-x	2017-01-21 17:44
eventlogremoveservice	2.77 KB	-rwxr-xr-x	2017-01-21 17:44
expandrepeats	1.6 KB	-rwxr-xr-x	2017-01-21 17:44
hosthash	1.54 KB	-rwxr-xr-x	2017-01-21 17:44
hostlist	1.79 KB	-rwxr-xr-x	2017-01-21 17:44
journalctl	2.47 KB	-rwxr-xr-x	2016-07-26 19:43
multiservice	1.89 KB	-rwxr-xr-x	2017-01-21 17:44
onlycontains	1.17 KB	-rwxr-xr-x	2017-01-21 17:44
onlyhost	2.03 KB	-rwxr-xr-x	2017-01-21 17:44
onlyservice	1.64 KB	-rwxr-xr-x	2017-01-21 17:44
remove	1.2 KB	-rwxr-xr-x	2017-01-21 17:44
removeheaders	1.88 KB	-rwxr-xr-x	2017-01-21 17:44
removeservice	1.86 KB	-rwxr-xr-x	2017-01-21 17:44

Rename

#!/usr/bin/perl
########################################################
# Copyright (c) 2008 Kirk Bauer
# 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.
########################################################

use strict;

sub hostcmp {
  my ($a,$b) = @_;

my ($an) = ($a =~ /(\d*)$/);
  my $ap = $`;
  my ($bn) = ($b =~ /(\d*)$/);
  my $bp = $`;
  return ($ap cmp $bp) || ($an <=> $bn);
}

my $TempDir = $ENV{'LOGWATCH_TEMP_DIR'};

my ($line, $host,$tothost);
my %hostlist;
my $HostFile = ("$TempDir/hostfile");
if (-f $HostFile) {
   open (TEMPFILE,$HostFile);
   foreach (<TEMPFILE>) {
      chomp;
      $hostlist{$_} = 1;
   }
   close (TEMPFILE);
}

while (defined($line = <STDIN>)) {
   #Would this miss some hosts?
   if ($line =~ m/^... .. ..:..:.. (\S*)/io) {
      $host = $1;
      $hostlist{$host} = 1 unless defined $hostlist{$host};
   }
}

open (TEMPFILE,">$HostFile") || die $!;
foreach $tothost (sort {&hostcmp($a,$b)} keys %hostlist) {
   chomp $tothost;
   if (length($tothost) == "0") {
   } else {
      print TEMPFILE "$tothost\n";
   }
}
close TEMPFILE;

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