#!/usr/bin/perl -w
use CGI qw(:standard -debug);
use CGI::Carp qw(fatalsToBrowser);

########### Credits #################
# Script written by R. Todd Vandenbark
#####################################

# --------------------------------------
# Coming from smaint.html, creates form
# with bulleted list of existing staff
# users with radio buttons for selection.
# Submit deletes selected user from list.
# --------------------------------------

#----------- define variables ----------
my $bsuname;      # BSU id name
my $username;     # staff system username
my $passwd;       # staff system password
my $findName;     # name input, whether bsu or staff
my $choice;       # edit or delete script
my @sfile="";     # array of staff info

# -------- password file --------
my $inputfile = "../../staff.txt";

# ---- get staff list -----
open (IN, "<$inputfile")
    or die "Can't open $inputfile: $!\n";
@sfile = <IN>;
close IN;


# ---- start selection form ----
$action = 'deletestaff.cgi';
$method = 'post';
$encoding = 'application/x-www-form-urlencoded';

my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />' . "\n";
my $title = 'List of staff accounts';

print header();
print start_html(-title => $title,
                 -head => $css,
                 -class => 'oneColFixCtrHdr');
print '<div id="container"><div id="header">' . "\n";
print h1("Select from list:");
print '</div> <!-- end #header -->' . "\n";
print '<div id="mainContent">' . "\n";
print startform($method,$action,$encoding);

print '<ul class="nearmid">';

foreach $key ( @sfile ) { # -- create list --
    ( $bsuname, $username, $passwd ) = split( /:/, $key);
    print '<li>'.
      '<input type="radio" name="staff" value="'.
      $key . '" id="staff" />'. $bsuname . ', ' .
      $username . '</li>' . "\n";	
} # -- end foreach --
print '</ul>' . "\n";
print '<p>';
print reset;
print ' &nbsp; ';
print submit(-name=>'submit', -value=>'Delete');
print '</p>' . "\n";
print end_form();

print <<EOF;

      <table>
      <tr>
        <td class="w33l">
           <form action="bugReport.cgi" method="get" name="bugReport" id="bugReport">
		   <input name="pageFrom" type="hidden" value="findstaff2.cgi" />
           <a href="javascript:document.bugReport.submit()">
			<img src="../images/problemButton1.gif" alt="Report a problem." /></a>
			</form>
          </td>
        <td class="w33ctr"><a href="sl2.cgi"><img src="../images/mainmenudiamond.gif" alt="Main menu." width="100" height="75" /></a></td>
		<td class="w33rt"><a href="../helpfaq.html"><img src="../images/helpButton1.gif" alt="Help function" /></a></td>
      </tr>
    </table>
    
EOF

print '<!-- end #mainContent --></div>'. "\n" .
    '<div id="footer">'.
    '<p>Created by Michael Pierce, Todd Vandenbark, Crystal White'.
    '<br />S517: Web Programming <br />'. "\n" .
     'March 28th, 2009 <br />'. "\n" .
    '<a href="http://studylog.firesidelibrarian.com/contact.htm">'.
    'Contact Us</a></p>'. "\n" .
    '<!-- end #footer --></div>'. "\n" .
    '<!-- end #container --></div>' . "\n";

print end_html;