#!/usr/bin/perl
#  Author : bobf 	http://frenock.net
#         Date : 06 April 2005
#

unshift (@INC, "_CGI-BIN");
unshift (@INC, "_MAIL");
require "cgi-lib.pl" ;
require "addCss.pl" ;
require "emailCheck.pl" ;
require "basicSendmail.pl" ;


&ReadParse(*input);
print &PrintHeader;

$sendingPage = $ENV{'HTTP_REFERER'} ;

$templateStartPath = "CONTENT/templateStart.dat" ;
$templateEndPath = "CONTENT/templateEnd.dat" ;




if($input{func} eq "contact"){
   &contact ;
}


if(! $input{p}){
   $input{p} = "home" ;
}

$path = "CONTENT/" . $input{p} . ".dat" ;
unless (open (CONTENT, "<$path")){ 
   $msg = "Unable to open content file ($path) for reading (line# 83).";
   &pageError($msg) ;
}
@content = <CONTENT> ;
close (CONTENT);

&templateStart ;
&addCss ;


if($content[0] =~ /imgDisplay/){
   ($null,$input{dir},$null) = split(/\|/,$content[0]) ;
   
   # ---- START CONTENT ----

   &getPicListing ;				# Get pics from user input dir, excluding files that begin with _tn ...
   &picPageSettings ;				# Get variables from $input{dir}/picPageSettings into assoc array $setting{} ...
						#   headerText (like "CDC - Alder Hill Project" -- printed both thumb and indiv pages), 
						#   footerText (like "Alder Hill Project" -- only printed if individual pic) 
						#   and picture descriptions (not invoked yet) ...
   &print_pContent ;				# if a particular pic input, get it and display it ...
   &dispThumbsOrOnePic ;			# if(! $input{pic}, disp thumbnail page, else display one pic with prev and next links ...
   if(! $input{pic} ){&printPicPageEnd }	# Prints spacer and $setting{footerText} ...

   # ---- END CONTENT ----
}else{
   &printContent ;
}


&templateEnd ;
exit ;




sub printContent{

   undef $twoColumns ;
   undef $columnOne ;
   undef $columnTwo ;
   undef $colOneOutput ;
   undef $colTwoOutput ;
   undef $output ;
   
   foreach $line (@content){
      if($line =~ /columnone/i ){
         $columnOne = 1 ;
      }elsif($line =~ /columntwo/i ){
         $columnTwo = 1 ;
      }elsif($columnOne && ! $columnTwo){
         $colOneOutput .= $line ;
      }elsif($columnOne && $columnTwo){
         $colTwoOutput .= $line ;
      }else{
         $output .= $line ;
      }
   }   # END of foreach $line (@content){
   
   if($columnOne && $columnTwo){
      $output = qq~
         <TABLE width=100% border=0 cellpadding=0 cellspacing=0><TR>
           <TD width=50% valign=top>
             <TABLE width=100% cellpadding=0 cellspacing=0 border=0><TR><TD width=100% valign=top align=justify>
                $colOneOutput
             </TD></TR></TABLE>
           </TD>
           <TD width=50% valign=top>
             <TABLE width=100% cellpadding=0 cellspacing=0 border=0><TR><TD width=100% valign=top align=justify>
                $colTwoOutput
             </TD></TR></TABLE>
           </TD></TR>
        </TABLE>
      ~ ;
   }	# END of if($columnOne && $columnTwo){
   
   print $output ;
   
}	# END of sub printContent{












sub printTemplateEnd{
   foreach $line (@templateEnd){
      print $line ;
   }
   &housingSummitReport ;
}









sub housingSummitReport{
    if($input{p} eq "housingSummit"){
      $path = "REGISTER/registrations.DB" ;
      unless (open (REG, "<$path")){ 
         print"Cant open DB<P>";
	 exit;
      }
      @regs = <REG> ;
      close (REG);
      foreach $line (@regs){
         $count++ ;
	 @rec = split(/\|/,$line) ;	#Yes|HomeOwnership|None|Yes
	 if($rec[12] eq "Yes"){ $lunch++}
	 if($rec[15] eq "Yes"){ $evening++}
	 if($rec[13] eq "Homeless"){ $mHome++}
	 if($rec[14] eq "Homeless"){ $aHome++}
	 if($rec[13] eq "Special Needs / Transitional"){ $mSpecial++}
	 if($rec[14] eq "Special Needs / Transitional"){ $aSpecial++}
	 if($rec[13] eq "Multi-Family / Subsidized"){ $mMulti++}
	 if($rec[14] eq "Multi-Family / Subsidized"){ $aMulti++}
         if($rec[13] eq "Home Ownership"){ $mHome++}
	 if($rec[14] eq "Home Ownership"){ $aHome++}
      }
      print"<P>&nbsp;<P><FONT size=1>($count:$lunch,$evening.morn:$mHomeless,$mSpecial,$mMulti,$mHome.after:$aHomeless,$aSpecial,$aMulti,$aHome)<P>&nbsp;<P>";
   }
}






sub contact{
   if($input{origEmail}){
      if(! &emailCheck($input{origEmail})){             # returns 0 (failed) or 1 (passed)
         $msg = "You have entered an invalid email address.  Please back up and correct your entry" ;
         &pageError($msg) ;
      }
   }


   $input{orig} =~ s/[^a-zA-Z0-9 \.']//g ;
   $input{body} =~ s/[`\\]//g ;
   $input{body} =~ s/\n/<BR><BR>/g ;
   $input{sendingPage} =~ s/[^a-zA-Z0-9 \.',:;?\n\t\$#@\/]//g ;
   $input{textColor} =~ s/[a-zA-Z0-9#]//g ;
   $subject = "Lincolncdc.org Contact Form Response" ;
   $scriptFromAddress = "website\@lincolncdc.org" ;
   $toRecipients = "support\@lincolncdc.org, Debra\@lincolncdc.org" ;	#  support@lincolncdc.org, Debra\@lincolncdc.org
   $bccRecipients = "2005\@frenock.com, bob.fren\@frenock.com" ;
   $mailFormat = "100" ;
   $pageHTML = qq~
      <BODY bgcolor="#ccffff">
      <P> &nbsp; <P>
      Sender's Name: $input{orig}
      Sender's Email: $input{origEmail}
      Referring Page: $input{sendingPage}
      <P> &nbsp; <P>
      Message:
      
      <style type="text/css"><!-- .edit { font-size: 16px; color: #005db6; margin-left: 40px; margin-right: 60px; padding-right: 10px; padding-left: 10px; padding-top: 10px; padding-bottom: 20px; border: 2px solid #000000; background-color: #efffff; } --></style>
      
      <P class="edit">
      $input{body}
      </P>
   ~ ;
   $success = &basicSendmail ;
   if(! $success){
      $input{p} = "contactResponse" ;
   }else{
      print"\$success = :$success: <P>";
      $input{p} = "poorContactResponse" ;
   }

}














sub pageError{
   if(! $templateStart && ! $templateStartError){
      &templateStart ;
   }
   my $msg = shift ;
   print qq~
      <P> &nbsp; <P>\n
      <div id=blue_backgrnd_border>\n
      <P> &nbsp; <P>
      <P class="default_med" align=left>
      $msg
      </P>
      <P> &nbsp; <P>
      </div>
      <P class="_space"><img src="" width="0" height="300"></P>
   ~ ;
   if(! $templateEndError){
      &templateEnd ;
   }
   exit ;
}

#_________________________________________________________________________________________________________________________

sub templateStart{
   
   if(! $templateStart){
      unless (open (TEMPLATE, "<$templateStartPath")){ 
         $msg = "Unable to open \$templateStartPath ($templateStartPath) for reading (line# 2093).<P>";
         $templateStartError = 1 ;
         &pageError($msg) ;
      }
      @templateStart = <TEMPLATE> ;
      close (TEMPLATE);

      foreach $line (@templateStart){
         print $line ;
      }
      $templateStart = 1 ;
   }
   
}




sub templateEnd{
   unless (open (TEMPLATE, "<$templateEndPath")){ 
      $msg = "Unable to open \$templateEndPath ($templateEndPath) for reading (line# 2118).<P>";
      $templateEndError = 1 ;
      &pageError($msg) ;
   }
   @templateEnd = <TEMPLATE> ;
   close (TEMPLATE);

   foreach $line (@templateEnd){
      print $line ;
   }
}



























# Script name: imgDisplay.cgi
# Usage: imgDisplay.cgi?dir=dir/Path[&p=hou_ald][&pic=indivPicName]
# Prints any pics found in user input directory ("dir") as thumbnails that are linked to full size pics.  Requires all pics in same 
#   directory with thumbnails named identical to full pics preceeded by "tn_".  Settings file required in same directory as pics 
#   containing header text (diplayed on both thumb and pic pages), footerText (diplayed only on individual pic pages, and picture 
#   descriptions.  Format is "varName|varValue|0\n".  Var names are "headerText", "footerText", and image name (ie: img_1656.jpg).
#
#   Web site specific page start and end are found in "CONTENT/templateStart.dat" and "CONTENT/templateEnd.dat"
#
#   Optional input is "p" which defines additional page content placed on thumbnail page before thumbnails.  This file is also placed
#     in the CONTENT directory, assuming it is info concerning the same subject as the pictures and leads into the pic pages.








&printHeader ;					# Get page start from CONTENT/templateStart.dat (web site specific header, nav, etc) and display ...



&printFooter ;					# Get page end from CONTENT/templateEnd.dat (web site specific footer, nav ends, etc) and display ...









sub dispThumbsOrOnePic{
   if(! $input{pic} ){     # dir only, display thumbnail page
      if($input{p}){
         undef $head
      }else{
         $head = $setting{headerText}
      }
      
      print qq~
         $head
         <blockquote>
         <table border="0" cellspacing="0" cellpadding="0" width="563">
           <tr>
             <td align="center" valign="top">
               <table align="center" border="0" cellspacing="0" cellpadding="0" width="510">
                 <tr valign="top">
      ~ ;
      $y = 0 ;


      foreach $pic (@pics){
         $dispPath = "?dir=" . $input{dir} . "&pic=" . $pic .$p ;
         $pPath =  $input{dir} . "/" . "tn_" . $pic ;
         print qq~
               <td align="center"><CENTER>
                <table align="left" border="0" cellspacing="0" cellpadding="0" width="188">
                  <tr align="center" valign="top"><td align="center" valign="top" width="100%" height="150"><font face="Arial, Helvetica, Sans Serif" size="-2"><a name="01"></a></font>
                   <br>
                   <table align="center" border="5" cellspacing="3" cellpadding="0" bordercolor=black>
                    <tr>
                     <td align=center><a href="$dispPath"><img src="$pPath" width="150" height="112" border="0" alt="Click to see big picture)"></a></td>
                    </tr>
                   </table>
                   
                  </td></tr>
                </table>
               </td>
         ~ ;
         undef $rowEnd ;
         if(++$y == 3){
            $y = 0 ;
            print" </tr><tr>" ;
            $rowEnd = 1 ;
         }
      }
      if(! $rowEnd){
         print" </tr></tr>" ;
      }
      print"</tr></table></td></tr></table>" ;
   }else{
      $currentPic = $input{pic} ;
      $currentPath = $input{dir} . "/" . $input{pic} ;
      $x = 0 ;
      $notFound = 1 ;
      $y = @pics ;
      while(@pics[$x] && $notFound){
         if(@pics[$x] eq $input{pic}){
            $prevIndex = $x - 1 ;
            if($x == 0){
               undef $prevPath ;
               $prevLink = "First Picture" ;
            }else{
               $prevPic = @pics[$prevIndex] ;
               $prevPath = $input{dir} . "/" . @pics[$prevIndex] ;
            }
            $nextIndex = $x + 1 ;
            if($nextIndex == $y){
               undef $nextPath ;
               $nextLink = "No More Pics" ;
            }else{
               $nextPic = @pics[$nextIndex] ;
               $nextPath = $input{dir} . "/" . @pics[$nextIndex] ;
            }
            undef $notFound ;
            last ;
         }
         $x++ ;
      }
   
   
      $thumbLink = "<a href=\"?dir=$input{dir}" . $p . "\" title=\"Go to thumbs page\">Thumbnail Page</a>" ;

      if(-e "$prevPath"){
         $prevLink = "<a href=\"?dir=$input{dir}&pic=$prevPic" . $p . "\" title=\"Go to previous picture\">&lt;&lt; &nbsp; Previous</a>" ;
      }

      if(-e "$nextPath"){
         $nextLink = "<a href=\"?dir=$input{dir}&pic=$nextPic" . $p . "\" title=\"Go to next picture\">Next&nbsp;&gt;&gt;</a>" ;
      }

      print qq~
      $setting{headerText}
      <blockquote>
        <table align="center" border="0" cellspacing="0" cellpadding="0" width="496">
        <tr>
          <td align="center">
            <font face="Arial, Helvetica, Sans Serif"><strong>
              $prevLink
                &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
              $thumbLink
                &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
              $nextLink
            </strong></font>
          </td>
         </tr>
         <tr><td colspan="2">
               <table align="center" border="5" cellspacing="3" cellpadding="0" bordercolor=blue><tr>
                 <td>
                   <img src="$currentPath" width="480" border="0" ></td>
                 </tr>
               </table>
         </td></tr>
        </table>
      </blockquote>
      ~ ;
   }
}	# END of sub dispThumbsOrOnePic









sub getPicListing{
   @pictures = `ls $input{dir}` ;
   undef @pics ;
   undef $pics ;
   foreach $file (@pictures){
      if($file !~ /^tn_/ && ($file =~ /$\.jpg/ || $file =~ /$\.gif/ || $file =~ /$\.png/)){
         $file =~ s/[^a-zA-Z0-9_\.\-]//g ;
         push(@pics,$file) ;
      }
   }
   undef @pictures ;
   @pics = sort(@pics) ;


   # if a particular pic was input, create addon to link for it ...
   if($input{p}){$p = "&p=" . $input{p}}
}







sub picPageSettings{
   undef @settings ;
   $path = $input{dir} . "/picPageSettings.dat" ;
   if(-e "$path"){
      unless (open (SETTINGS, "<$path")){
         $msg="Cannot find, or could not open $path for reading (line# 25)!" ;
         &errFatalClose($msg) ;
      }
      @settings = <SETTINGS> ;
      close (SETTINGS);
   }
   foreach $line(@settings){
      ($name,$var,$reminder) = split(/\|/,$line) ;
      $setting{$name} = $var ;
   }
}

sub printHeader{
   unless (open (HEAD, "<CONTENT/templateStart.dat")){
      $msg="Cannot find, or could not open CONTENT/templateStart.dat for reading (line# 41)!" ;
      &errFatalClose($msg) ;
   }
   @header = <HEAD> ;
   close (HEAD);
   foreach $l (@header){
     print $l ;
   }
}






sub print_pContent{
   if($input{p} && ! $input{pic}){				# print only if thumbnail page ...
      $path = "CONTENT/" . $input{p} . ".dat" ;
      unless (open (CONTENT, "<$path")){ 
         $msg="Cannot find, or could not open $path for reading (line# 41)!" ;
         &errFatalClose($msg) ;
      }
      @pContent = <CONTENT> ;
      close (CONTENT);
      foreach $l (@pContent){
         print $l ;
      }
      undef @pContent ;
   }
}






sub printPicPageEnd{
   print qq~
      <P> &nbsp; <P>
      $setting{footerText}
   ~ ;
}

sub printFooter{
   unless (open (FOOT, "<CONTENT/templateEnd.dat")){
      $msg="Cannot find, or could not open CONTENT/templateEnd.dat for reading (line# 59)!" ;
      &errFatalClose($msg) ;
   }
   @footer = <FOOT> ;
   close (FOOT);
   foreach $l (@footer){
     print $l ;
   }
}






sub errFatalClose{

   my $msg = shift ;
   print qq~
      <CENTER>
      <TABLE WIDTH=500><TR>
         <TD><P>
            <CENTER><FONT SIZE=5 COLOR=FF0000>
             $msg
             </FONT>
             <FONT SIZE=4 COLOR=maroon>Terminating script.  Unable to continue.
        </TD></TR>
     </TABLE>
     </CENTER>
  ~ ;
  exit ;
}