#!/usr/bin/perl

#first print HTTP headers (NO response code!)
print "Content-Type: text\/html\r\n";

#print mandatory crlf
print "\r\n";

$USER_DIR="/home/";

#Collect names of users (actually, files in /home) and dump them to tempfile.

#this gets ALL users, even if they don't exist...could filter out
#anybody who doesn't have /home in homedir...
system("cat /etc/passwd | awk -F \":\" '{print \$1}' > /tmp/ul$$");

#this gets all users with homedir in /home
#system("/bin/ls /home > /tmp/ul$$");

#print out header crap
print "<SCRIPT LANGUAGE=\"JavaScript\" SRC=\"..\/code\/code.js\"><\/SCRIPT>\n";
print "<LINK REL=\"Stylesheet\" HREF=\"..\/code\/style.php3\">\n";
print "\n";
print "<SCRIPT><!--\n";
print "    setRoot(\"..\/\");\n";
print "    writeTitleBar();\n";
print "    writeMenus();\n";
print "    writeBodyHeader();\n";
print "\/\/--><\/SCRIPT>\n";
print "<TITLE>DDD | List of Thibs' Users<\/TITLE>\n";
print "<H1>List of Thibs' Users<\/H1>\n\n";

#open list for reading
open(DATA,"/tmp/ul$$");

#spit out table headers
print "<TABLE CELLSPACING=0 CELLPADDING=5 BORDER=0>\n";
print "<TR><TH>User<\/TH><TH>E-Mail Address<\/TH><\/TR>\n";

#css crap
$style = "normal";
$styletoggle = 0;

#while we're not done reading data...
while(! eof (DATA)) {
    #read in all data
	$check_user=<DATA>;
	
	#remove newlines
	$check_user=~s/\n//g;
	
	#check for presence of indices...
	open(DATA2,$USER_DIR.$check_user."\/public_html\/index.html");
	open(DATA3,$USER_DIR.$check_user."\/public_html\/index.shtml");
	open(DATA4,$USER_DIR.$check_user."\/public_html\/index.htm");
	open(DATA5,$USER_DIR.$check_user."\/public_html\/default.htm");		
	open(DATA6,$USER_DIR.$check_user."\/public_html\/index.php3"); 

    #get a whole lot of userinfo
	@test=getpwnam($check_user);
	
	#and strip out everything in column 6 (which is username, office, etc)
	@test[6] =~ s/,.*$//g; #Ignore everything after comma.
	
	#if we have a non-blank username...
	if(@test[6] ne "") {
	
		#holds HTML code for userdata.  If user has webpage, then it's a link.
		$username = "";
	
		#if any of those six are a real file...
		if (!eof(DATA2) || !eof(DATA3) || !eof(DATA4) || !eof(DATA5) || !eof(DATA6)) {
	    	#format a link to user...
	    	$username = "<A HREF=\"\/\~".$check_user."\/\">".@test[6]."</A>";	
		} else {
	    	#otherwise just output name
	    	$username = @test[6];
		}
		
		#now output all HTML data
		print "<TR><TD CLASS=\"".$style."\">".$username."<\/TD><TD CLASS=\"".$style."\"><A HREF=\"mailto:";
                print $check_user."\@thibs.menloschool.org\">".$check_user."\@thibs.menloschool.org";
                print "<\/A><\/TD><\/TR>\n";		
                if($styletoggle ne 0) {
                    $style = "normal";
                    $styletoggle = 0;
                } else {
                    $style = "normalo";
                    $styletoggle = 1;
                }
	}
	close DATA2;
	close DATA3;
	close DATA4;
	close DATA5;
	close DATA6;
	#...and the cycle begins again.
}

#close datafile and remove
close DATA;
system("rm -rf /tmp/ul$$");

#close table
print "<\/TABLE><P>\n";

#dump out footer
#output userlist header
print "<!-- standard footer -->\n";
print "<script><!--\n";
print "    writeStatusBar();\n";
print "\/\/--><\/script>\n";
print "<!-- eof -->\n";