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

##

##

Content-type: text/html

SET SUID FILE CHECK

SET SUID FILE CHECK
Setuid lists exist!


--- /var/log/setuid.today       Wed Jul 12 03:03:52 2006
+++ /var/log/setuid.yesterday   Fri Jun 30 03:03:13 2006
@@ -3,11 +3,11 @@
 31837 -r-sr-xr-x  1 root  wheel      21792 Nov  3 08:10:37 2005 /sbin/ping
 31838 -r-sr-xr-x  1 root  wheel      28660 Nov  3 08:10:37 2005 /sbin/ping6
 31850 -r-sr-x---  1 root  operator   10148 Nov  3 08:10:38 2005 /sbin/shutdown
-1040389 -rws--x--x  1 root  wheel     3348 Oct 12 20:39:40 2005 /usr/X11R6/bin/Eterm
+1040389 -rws--x--x  1 root   wheel       3348 Oct 12 20:39:40 2005 /usr/X11R6/bin/Eterm
 1040154 -rws--x--x  1 root   wheel    1664917 Oct 12 17:23:09 2005 /usr/X11R6/bin/Xorg
-1040397 -rws--x--x  1 root  wheel    94008 Oct 12 15:44:09 2005 /usr/X11R6/bin/aterm


####

SET SUID FILE CHECK

SET SUID FILE CHECK
Setuid lists exist!