#!/usr/bin/perl -w
use strict;
my $setuidtoday = "/var/log/setuid.today";
my $setuidyest = "/var/log/setuid.yesterday";
my $DIFF = "/usr/bin/diff";
print "Content-type: text/html\n\n";
print "SET SUID FILE CHECK\n";
print "SET SUID FILE CHECK\n";
if(-e $setuidtoday && $setuidyest) {
print "Setuid lists exist!
\n";
print `$DIFF $setuidtoday $setuidyest`;
}
print "";
####
print `$DIFF $setuidtoday $setuidyest`;