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

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

# --------------------------------------
# takes input from "../newOrg.html",
# checks it and adds info to 
# list of Greek organizations
# --------------------------------------

#----------- define variables ----------
my $form;         # input form
my $orgName;      # organization name
my $contfn;       # contact first name
my $contln;       # contact last name
my $cphone;       # contact phone
my $contem;       # contact email
my @errstr="";    # error string

# --------- initialize error flags ----
$badOrg=0; $badfirst=0; $badlast=0;
$badphone=0; $badem=0; $error=0;

# --- Greek org file ----------
my $outfile = "../../org.txt";

# --- get and clean input ----
$form = "newOrg.html";
$orgName = param("orgName"); chomp $orgName;
$orgName = &cleaninput($orgName);
$contfn = param("contactFirstName"); chomp $contfn;
$contfn = &cleaninput($contfn);
$contln = param("contactLastName");  chomp $contln;
$contln = &cleaninput($contln);
$cphone = param("cphone"); chomp $cphone;
$cphone = &cleaninput($cphone);
$contem = param("contactEmail"); chomp $contem;
$contem = &cleaninput($contem);

# ----- check names -------
$badfirst = &ckname($contfn);
$badlast = &ckname($contln);

# ------ check phone -------
if ($cphone !~ /^\(?\d{3}[)-]? \d{3}[-]?\d{4}$/x)
 { $badphone=1; $error++; push (@errstr, "phone ");}

# ------ check org ---------
if ($orgName !~ /^[\w]+[ -]?\w*[ -]?\w*$/i)
 { $badOrg=1; $error++; push (@errstr, "org ");}

# ------ check email ------
if ($contem !~ /^[\w.]+@\w[\w.-]+\w\.[A-Za-z]{2,4}$/)
 { $badem=1; $error++; push (@errstr, "email ");}

# ----- process & output results ----
if (!$error) {
    &addinfo();
    $title = "Add contact successful";
	$subtitle = 'New contact information:';
    $content = '<p>Organization: ' . $orgName . '<br />' .
	'Contact: ' . $contfn . ' ' . $contln . '<br />' .
	'email: ' . $contem . '<br />' .
	'Phone: ' . $cphone . '</p>' . "\n" .
	'<p><a href="../newOrg.html">Add another</a></p>';
}
else { # return to form
    foreach (@errstr) {
    $errors .= $_; } # -- end foreach --
    $title = 'oops...';
	$subtitle = 'Invalid entry';
    $content = '<p>Please '.
'<a href="../newOrg.html">'.
       ' go back  and try again</a></p>'.
    "<p>Invalid $errors</p>";
}
        
&pgprint();   
 
# ------------ subroutines used -----------
sub cleaninput {
    my $string = $_[0];
    $string =~ s/<([^>]|\n)*>//g ; # strip HTML  
    $string =~ s/^\s+// ; # strip leading spaces
    $string =~ s/\s+$// ; # strip trailing spaces
    return $string;
}
    
sub ckname {
    my $input = $_[0];
    my $result=0; # returns bad/good name result
    if ($input !~ /^[\w]+[ -]?\w*$/i)
        { $result=1; $error++;}
    push (@errstr, $input);
    return $result;
}
     
sub addinfo {
    open (OUT, ">>$outfile") || die "Can't open $outfile: $!\n";
	my $fullname = "$contfn $contln";
    @tmpout = ($orgName,$fullname,$contem,$cphone);
    my $string = join (":", @tmpout);
    print (OUT "$string\n") ||
        die "Can't append $string to $outfile: $!\n";
    close OUT;
}   
    
sub pgprint {
    $logo = '<img src="../images/faviconbw.png" alt="logo" width="64" height="64" class="logo" />';
	my $css = '<link rel="stylesheet" ' .
    'type="text/css" href="../studylog3.css" />';
    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 "$content";
	
print <<EOF;

      <table>
      <tr>
        <td class="w33l">
           <form action="bugReport.cgi" method="get" name="bugReport" id="bugReport">
		   <input name="pageFrom" type="hidden" value="addNew.cgi" />
           <a href="javascript:document.bugReport.submit()">
		   <!--  onclick="return val_form_this_page()" -->
			<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();
}