#!/usr/bin/perl

print "Content-type: text/plain\n\n";

$\ = "\n";
$http_dir = "public_html";

open(PASSWD, "</etc/passwd");
while(<PASSWD>) {
   chomp;
   @user = split(":", $_);
   if($user[2] >= 1000) {
      print "Found user \"$user[0]\", scanning \"$user[5]/$http_dir\":";
      print "="x70;
      if(@found = `grep -slr 'connect' $user[5]/$http_dir/*`) {
         chomp(@found);
         foreach (@found) {
            print "Match in: $_";
         }
      }
      else {
         print "nothing found...";
      }
      print "\n";
   }
}
close PASSWD;