#!/opt/bin/perl

@USERID = `/bin/ypcat passwd | /bin/sort`;
open (FILE,">/export/vol2/httpd/htdocs/main/public_html_list.html"); 
foreach (@USERID) {
   ($userid,$passwd,$uid,$gid,$name,$homedir,$shell) = split(/:/);
   $userid="~".$userid;
   $userdir=$homedir."/public_html/index.html";
   if (-e $userdir) {
      print FILE "<a href=\"http://www.auburn.edu/",$userid,"\"> ",$name," (",$userid,") </a><br>\n";
   }
}