#!/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();