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

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

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

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

# ---- files --------------
$orgfile = '../../org.txt';
$tempfile= '../tempfile.txt';

# --- get and clean input ----
$form = "editorg.cgi";
$orgName = param("orgName"); chomp $orgName;
$orgName = &cleaninput($orgName);
$contact = param("contactName"); chomp $contact;
$contact = &cleaninput($contact);
$cphone = param("cphone"); chomp $cphone;
$contem = param("contactEmail"); chomp $contem;
$contem = &cleaninput($contem);

# ----- check name -------
$badname = &ckname($contact);


# ------ check phone -------
$cphone =~ s/^\s+// ; # strip leading spaces
$cphone =~ s/\s+$// ; # strip trailing spaces
# if ($cphone !~ /^\(?\d{3}[)-]? \d{3}[-]?\d{4}$/x)

if ($cphone !~ /^\W{0,1}\d{3}\W{0,1}\s{0,1}
                 \W{0,1}\s{0,1}\d{3}\s{0,1}
				 \W{0,1}\s{0,1}\d{4}$/x )
 { $badphone=1; $error++; push (@errstr, " phone $cphone ");}

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

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

# ----- process & output results ----
if (!$error) { # replace file data
    &update1();
    $title = "Update complete.";
    $content = '<p><a href="listorg.cgi">Update another</a> 
	   OR back to <a href="sl2.cgi">Main Menu</a></p>';
}
else { # return to form
    foreach (@errstr) {
    $errors .= $_; } # -- end foreach --
    $title = "Invalid entry";
    $content = '<p>Please '.
       '<a href="javascript: history.go(-1)">'.
       ' 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*[ -]?\w*$/i)
        { $result=1; $error++;
        push (@errstr, " name: $input");
		}
    return $result;
}

sub update1 {
    my ($orgName2, $contact2, $contem2, $contph2);
    open (MEGADATA, "<$orgfile") ||
       die "Can't open $orgfile: $!\n";

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

       ( $orgName2, $contact2, $contem2, $contph2 ) = split( /:/, $_ );
       if ($orgName eq $orgName2) { # found org  
          $tmpout = join( ":", $orgName, $contact, $contem, $cphone);
		  $tmpout .= "\n";
       	  print (TMPMEGADATA "$tmpout") ||
             die "Can't append $tmpout to $orgfile: $!\n";
       } else {
	       $tmpout = join(":", $orgName2, $contact2, $contem2, $contph2 );
           print (TMPMEGADATA $tmpout) ||
               die "Error writing $tempfile: $!\n";
       }
    } # ---- end while loop -----
    
    close MEGADATA;    # close files
    close TMPMEGADATA;
       
    unlink $orgfile ||
       die "Can't delete old $orgfile: $!\n";
 
    rename $tempfile, $orgfile ||
      die "Can't rename $tempfile to $orgfile: $!\n";

} # ---- end update1 sub -----------

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 "$content";
print <<EOF;

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