#!/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 $orgname;        # Greek organization name
my $contact;        # contact name
my $cphone;         # contact phone
my $contem;         # contact email
my $inputfile='../../org.txt';  # file containing org info
my @orglist="";     # list of Greek organizations
my $key;            # item in array
$logo = '<img src="../images/faviconbw.png" alt="logo" width="64" height="64" class="logo" />';

# ---- read input file ------
open (IN, "$inputfile") ||
    die "Can't open $inputfile: $!\n";
@orglist = <IN>;
close IN;


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

my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
my $title = 'List of organizations';
my $subtitle = 'Select one from list';

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

print '<ul>';

foreach $key (@orglist) {
    ($orgname,$contact,$contem,$cphone) = split (/:/, $key);
    print '<li>'.
      '<input type="radio" name="orgzn" value="'.
      $key . '" id="orgzn" />'.
      $orgname . ', ' . $contact . ', ' . 
	  $contem . ', ' . $cphone . '</li>' . "\n";
}
print '</ul>';
print '<p>';
print reset;
print ' &nbsp; ';
print submit(-name=>'submit', -value=>'Delete');
print '</p>';
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="listorg.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>'.
    '<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;