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

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

#----------- 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 @sfile="";     # array of staff info

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

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

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

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

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

print '<ul>';

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

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

print end_html;