#!/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
#####################################

#----------- define variables ----------
my ($staff,$bsuname,$username,$passwd);
my $inputfile  = "../../staff.txt";
my $tempfile = "../tempfile.txt";

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

open (MEGADATA, "<$inputfile") ||
	die "Can't open $inputfile: $!\n";

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

# ---- scan entries for item to delete ----	
while ( <MEGADATA> ) {
	my ( $name ) = split( /:/, $_);
	if ( $bsuname eq $name ) { 
	next; # -- skip record --
	}
	
	print (TMPMEGADATA $_) ||
		die "Error writing $tempfile: $!\n";
}

close MEGADATA;
close TMPMEGADATA ||
	die "Error closing $tempfile: $!\n";

unlink $inputfile ||
	die "Can't delete old $inputfile: $!\n";
	
rename $tempfile, $inputfile ||
	die "Can't rename '$tempfile' to '$inputfile': $!\n";

# ---- print results page ----
my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
my $title = 'Deletion successful';

print header();
print start_html(-title => $title,
                 -head => $css,
                 -class => 'oneColFixCtrHdr');
print '<div id="container"><div id="header">';
print h1("Deleted from list:");
print '</div> <!-- end #header -->' . "\n";
print '<div id="mainContent">' . "\n";
print p("User $username deleted from system");
print '<p><a href="../smaint.html"> Return to staff system menu </a></p>' . "\n";

print <<EOF;

      <table>
      <tr>
        <td class="w33l">
           <form action="bugReport.cgi" method="post" name="bugReport" id="bugReport">
		   <input name="pageFrom" type="hidden" value="deletestaff.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." /></a></td>
		<td class="w33rt"><a href="../helpfaq.html"><img src="../images/helpButton1.gif" alt="Help function" /></a></td>
      </tr>
    </table>
    
EOF

# ---- print footer, etc. ---
    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;