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

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


# --------------------------------------
# Takes input from findstaff.cgi, 
# creates pre-populated form for
# editing staff system user's info.
# Calls updatestaff.cgi to insert
# info into staff.txt file.
# --------------------------------------

#---------- define variables ------------
# == form input variables ==
my ($staff,$bsuname,$username,$passwd);
my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';

# == script variables ==
my $inputfile  = "../../staff.txt";
my $tempfile = "../tempfile.txt";
my @inarray=();     # array to read in file
# ---- end define variables -------------

# ---- process input -----
$staff = param("staff");  chomp $staff;
($bsuname,$username,$passwd) = split (/:/, $staff);

if (!$staff) { # if no selection made, generate error msg
	$title = 'oops...';
	print header();
	print start_html(-title => $title,
	                 -head => $css,
	                 -class => 'oneColFixCtrHdr');
	print '<div id="container"><div id="header">';
	print h1("Missing input");
	print '</div> <!-- end #header -->'. "\n";
	print '<div id="mainContent">'. "\n";
	print h2("Please select item for editing");
	print "\n". 
		'<p><a href="findstaff.cgi">Go back to list</a>.</p>'. "\n";
	&footerprint();
	exit;
}

# --------------------------------------
# create temp file of all other records
# to be appended-to in updatestaff.cgi
# --------------------------------------
open (MEGADATA, "$inputfile") ||
    die "Can't open $stafffile: $!\n";
@inarray = <MEGADATA>;
chomp @inarray;
close MEGADATA;   # close input file

open (TMPMEGADATA, ">$tempfile") ||
    die "Can't open temporary file $tempfile: $!\n";

foreach $key (@inarray) {
	my ($bsuname2, $username2, $passwd2 ) = split(/:/,$key);
	if ($bsuname eq $bsuname2) { # found match
		next; # skip adding record to temp file
	} else {
		$tmpout = join(":", $bsuname2, $username2, $passwd2 );
        print (TMPMEGADATA "$tmpout\n") ||
            die "Error writing $tempfile: $!\n";
       } # append non-matching record to file

} # ---- end while ----
    
close TMPMEGADATA;    # close temp file


# ----- create editing form -------
$method = 'post';
$action = 'updatestaff.cgi';
$encoding = 'application/x-www-form-urlencoded';
	
my $title = 'Update staff information';
$logo = '<img src="../images/faviconbw.png" alt="logo" width="64" height="64" class="logo" />';

print header();
print start_html(-title => $title,
                 -head => $css,
                 -class => 'oneColFixCtrHdr');
print '<div id="container"><div id="header">';
print h1("$logo Update organization information");
print '</div> <!-- end #header -->'. "\n";
print '<div id="mainContent">';

print p("Please edit information, then click the UPDATE button.");

# ---- form ------------------------
print startform($method,$action,$encoding);

print qq{ <table>
   <tr>
   <td class="textRight"><label for="bsuname">BSU username: </label></td>
   <td class="textLeft">
   <input type="text" name="bsuname" id="bsuname" value="$bsuname" />
    </td></tr>
   <tr><td class="textRight">
    <label for="username">Study Log username: </label>
    </td>
    <td class="textLeft">
	<input type="text" name="username" id="username" value="$username" />
     </td></tr>
     <tr>
        <td class="textRight"><label for="passwd">Password:
          </label></td>
        <td class="textLeft">
		  <input type="text" name="passwd" id="passwd" value="$passwd" />
          </td>
      </tr>
	   
      <tr>
          <td class="textRight"><input name="reset" type="reset" value="Clear form" />&nbsp;</td>
          <td class="textLeft"><input name="add" type="submit" value="Update" />&nbsp;</td>
      </tr>
     </table>
};
    
print end_form;

print <<EOF;

      <table>
      <tr>
        <td class="w33l">
           <form action="bugReport.cgi" method="post" name="bugReport" id="bugReport">
		   <input name="pageFrom" type="hidden" value="editstaff.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
         
&footerprint();         
        


# ---- subroutines used ----------------------------------
sub footerprint {

print '<!-- end #mainContent --></div>'. "\n" .
    '<div id="footer">'. "\n" .
    '<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;
}