#!/usr/bin/perl

# quicktrip  krotki program przypominajacy tripwire

# lista plikow do kontrolowania
my $lista_plikow = "/local/lib/quicktrip.list";
open LIST, "< $lista_plikow";

# lista wszystkich plikow typu setuid root na danym systemie
open SETUID, "find / -type f -perm -4000 -user root -print |";

# Uzyskanie listy plikow do sprawdzenia.
my @lista = (
            $lista_plikow, # nalezy upewnic sie, czy nikt nie zmienil listy
            <LIST>,        # wszystkie pliki na liscie
            <SETUID>,      # wszystkie pliki typu setuid root
        );

close LIST;
close SETUID;

# Pobranie informacji i przygotowanie porownania z wczesniejszymi danymi.
for (sort @lista) {
    my $info;
    if ( -f $_ ) {
        $info = lista_kontrolna_MD5_md5 $_;
    }
    print "$_: $info\n";
}

