#!/usr/bin/perl -w use strict; my $setuidtoday = "/var/log/setuid.today"; my $setuidyest = "/var/log/setuid.yesterday"; my $DIFF = "/usr/bin/diff -u"; my $out = `$DIFF $setuidtoday $setuidyest`; print "Content-type: text/html\n\n"; print "SET SUID FILE CHECK\n"; print "\n"; print "

SET SUID FILE CHECK

\n"; if(-e $setuidtoday && -e $setuidyest) { print "

Setuid lists exist!

\n"; print "


\n";
        print "$out\n";
    }

#print `$DIFF $setuidtoday $setuidyest`;    
print "";