#!/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 $orgzn;          # input from previous form
my $orgname;        # Greek organization name
my $contact;        # contact name
my $cphone;         # contact phone
my $contem;         # contact email
my $outfile='../../org.txt';  # file containing org info
my $tempfile= '../tempfile.txt';
my @orglist="";
my $key;

# ---- process input -----
$orgzn = param("orgzn");  chomp $orgzn;
($orgname,$contact,$contem,$cphone) = split (/:/, $orgzn);

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

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

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

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

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

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

print header();
print start_html(-title => $title,
                 -head => $css,
                 -class => 'oneColFixCtrHdr');
print '<div id="container"><div id="header">';
print h1("$title");
print "\n";
print '</div> <!-- end #header -->' . "\n";
print '<div id="mainContent">' . "\n";
print h2("$subtitle");
print "\n";
print p("$orgname contact $contact, $contem, $cphone.");
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;