#!/Perl/bin/perl

require "cgi-lib.pl";
require "common.pl";
require "cookie.lib";

print &PrintHeader;

$aon=1;

&initial;

&check_admin;

&print_skel;

sub do_content {


   opendir (IDSDIR,"$idspath");
   @idfiles=readdir IDSDIR;
   closedir IDSDIR;

print "<center><table width=70% border=1 cellpadding=0 cellspacing=0><tr>\n";
print "<th>User:</th><th>Password:</th><th>Action:</th></tr>\n";

   foreach $i (0 .. $#idfiles) {
        $userfile=$idfiles[$i];
        if (substr($userfile,0,2) eq "U_") {
                $user=substr($userfile,2);
                $userfile=$idspath . $s . $userfile;
                open (T,"$userfile");
                $up=<T>;
                close T;
                print "<tr><td><font face=verdana color=navy size=4>$user</font></td>";
                print "<td><font face=verdana color=yellow size=4>$up</font></td>";
                print "<td><a href=/cgi-bin/deluser.pl?user=$user>Delete</a></td></tr>\n";

        }
   }

print "</table>\n";




}
exit;

#---> Subs