#!/usr/bin/perl

use strict;
use warnings;

my $maxage = '4';               # Maximales alter der Eintraege in Wochen

sub bin2ascii {
        system("/usr/lib/acct/fwtmp < ./wtmp_testfile > /tmp/wtmp.ascii");
}

sub ascii2bin {
        system("/usr/lib/acct/fwtmp -ci < /tmp/wtmp.ascii > ./wtmp_testfile");
}

sub mapmonth {
        my %mnr=('Jan', 1, 'Feb', 2, 'Mar', 3, 'Apr', 4, 'Mai', 5, 'Jun', 6, 'Jul', 7, 'Aug', 8, 'Sep', 9, 'Oct', 10, 'Nov', 11, 'Dec', 12);
        my $monat=$mnr{$_[0]};
        return($monat);
}

sub ripdates {
        my $date = `date`;
        my @date_now = split(/ /,$date);
        my $currentmonth = $date_now[1];
        my $mappedmonth = mapmonth($currentmonth);
#       print $mappedmonth;             # Test ob die funktion mapmonth funzt
        open(WTMP_ASCII,"/tmp/wtmp.ascii");
        chomp(my @wtmp = <WTMP_ASCII>);
        close(WTMP_ASCII);
        foreach (@wtmp) {
                my @wtmplines =~ ######## ??????  #######
                print "$_\n";
        }
}

print("Loesche wtmp Eintraege der letzten 4 Wochen...\n");
bin2ascii();
ripdates();
#ascii2bin();

#!/usr/bin/perl

use strict;
use warnings;

my $re = qr/((?:\w{3}\s+){2}\d+\s+(?:\d+:){2}\d\d\s+[A-Z]{3}\s+\d{4})$/;


if( 'irgendwas anderes, ein ganz langer Text Fri Jun  8 15:18:12 MSZ 2007' =~ $re ){
    print $1,"\n";
}

#!/usr/bin/perl

use strict;
use warnings;

# die Datei, die durchsucht werden soll
my $file = 'file.txt';

# oeffne die Datei
# < ist lesend, > ist schreibend, >> ist anhaengend
# 'or die $!' gibt eine Fehlermeldung aus wenn die Datei nicht
# geoeffnet werden kann (fehlende Rechte, Datei nicht da, etc)
open my $fh, '<', $file or die $!;

# so lange Zeilen ausgelesen werden
while( my $line = <$fh> ){
    # gib Zeilennummer und Zeile aus
    print $. . $line;
}

# schliesse Datei
close $fh;

#!/usr/bin/perl
#
# AIX wtmp Cleaner
#
###################
use strict;
use warnings;

my $tmpfile = '/tmp/wtmp.ascii';
my $regex = qr/((?:\w{3}\s+){2}\d+\s+(?:\d+:){2}\d\d\s+[A-Z]{3}\s+\d{4})$/;
my $date = `date`;
my @cdate = split(/ /, $date);
my $cmonth = mapmonth($cdate[1]);

sub bin2ascii {
        system("/usr/lib/acct/fwtmp < ./wtmp_testfile > /tmp/wtmp.ascii");
}
sub ascii2bin {
        system("/usr/lib/acct/fwtmp -ci < /tmp/wtmp.ascii > ./wtmp_testfile");
}
sub mapmonth {
        my %mnr=('Jan', 1, 'Feb', 2, 'Mar', 3, 'Apr', 4, 'Mai', 5, 'Jun', 6, 'Jul', 7, 'Aug', 8, 'Sep', 9, 'Oct', 10, 'Nov', 11, 'Dec', 12);
        my $monat=$mnr{$_[0]};
        return($monat);
}

sub ripdates {
        my $date = `date`;
        my @date_now = split(/ /,$date);
        my $currentmonth = $date_now[1];
        my $mappedmonth = mapmonth($currentmonth);
        open my $fh, '<', $tmpfile or die $!;
        unlink "wtmpfile.new";
        while(my $line = <$fh>) {
                        foreach ($line) {
                                my @regexped = ($line =~ $regex);
                                my @datestring = split(/ /,$regexped[0]);
                                my $daynr = $datestring[0];
                                my $monthnr = mapmonth($datestring[1]);
                                if ($monthnr eq $cmonth) {
                                        open(NEWWTMP,">>wtmpfile.new");
                                        print NEWWTMP $_;
                                        print ("Month: $cmonth -> $line\n");
                                }
                        }
        }
        close $fh;
        close (NEWWTMP);
}

print("Loesche wtmp Eintraege der letzten 4 Wochen...\n");
bin2ascii();
ripdates();
#ascii2bin();
#unlink $tmpfile;
#unlink wtmpfile.new;

my $date = `date`;
my @cdate = split(/ /, $date);
my $cmonth = mapmonth($cdate[1]);
my $delstart = ($cmonth - 2);
my $delstop = ($cmonth + 1);
my @range = ($delstop .. $delstart);

[...]

if ($monthnr != @range)  {
open(NEWWTMP,">>$newwtmp");
print NEWWTMP $_;
}

my $okaymonth1 = ($cmonth - 2);
my $okaymonth2 = ($cmonth - 1);

if (($monthnr eq $cmonth) or ($monthnr eq $okaymonth1) or ($monthnr eq $okaymonth2))

if ($okaymonth1 == '-1') {
        $okaymonth1 = '12';
}
if ($okaymonth2 == '-2') {
        $okaymonth2 = '11';
}

if ( !grep{ $_ == $monthnr }@range )  {
open(NEWWTMP,">>$newwtmp");
print NEWWTMP $_;
}

my @range;
if( $cmonth > 2 ){
    @range = ($cmonth-2 .. $cmonth);
}
else{
    my $start = 10 + $cmonth;
    my $mid   = $start == 11 ? 12 : 1;
    @range = ($start,$mid,$cmonth);
}

if( grep{ $_ == $monthnr }@range ){
    print "...";
}