#!/usr/local/bin/perl
$dot = "../../..";

require("$dot/.BIN/lib/general_subroutine.lib");
require("$dot/.BIN/lib/members_subroutine.lib");
require("$dot/.BIN/setup/core_setup.lib");
require("$dot/.BIN/setup/members_setup.lib");
require("$dot/ssi/public/top_bottom.lib");
require("$dot/ssi/public/html_functions.lib");
require("./fetch_attr.lib");
require("./error.lib");


$method = $ENV{'REQUEST_METHOD'};
&parseCGI($method,*Form);
&printHeader();

###########################################################################

$Time         = $Form{'Time'}; &removeXtraChars(*Time);
$memberId     = $Form{'memberId'}; &removeXtraChars(*memberId);
$senderName   = $Form{'senderName'}; &removeXtraChars(*senderName);
$senderEmail  = $Form{'senderEmail'}; &removeXtraChars(*senderEmail);
$MailSendFlag = $Form{'MailSendFlag'}; &removeXtraChars(*MailSendFlag);
$sendMsg      = $Form{'sendMsg'}; 

$sendMsg4NextPage = $sendMsg;
&replaceHtMLChars(*sendMsg4NextPage);

#$sendMsgDisp  = &processMsg2Disp($sendMsg,"50");


$sendMsgDisp  = $sendMsg;
$sendMsgDisp  =~ s/([\n]+)/<BR>/g;


######### Validation of message ##########################################

if(!$memberId){
   $title = "Member's Id is missing";
   $heading = $title;
   $messge   = "Go back to the previous page to correct the problem";
   #print "$message";
   &userError($title,$heading,$message);
   exit;
   }

if (!$senderName ){
   $title = "Sender Name is Missing!";
   $heading = $title;
   $message   = "Go back to the previous page to enter the sender name.";
   &userError($title,$heading,$message);
   exit;
   }

$emailFlag = &emailChecker($senderEmail);
#print "<HR>$emailFlag<HR>";
if ($emailFlag eq "bad"){
   if($senderEmail eq ""){$senderEmail = "Nothing entered!";}
   $title = "Sender E-mail failed during validation!";
   $heading = $title;
   $message   = "Go back to the previous page to correct your email address";
   $message  .= "<BR><BR>Entered E-mail address:";
   $message  .= "<FONT SIZE=+1><B>$senderEmail</B></FONT>";

   &userError($title,$heading,$message);
   exit;
   }


&removeXtraChars(*sendMsg);
if (!$sendMsg){
   $title = "Send Message is Missing!";
   $heading = $title;
   $message   = "Go back to the previous page to enter the email message.";
   &userError($title,$heading,$message);
   exit;
   }








#---------- Parse data from CGI HIDDEN Data -------------------------------

      $memberId    = $Form{'memberId'}; &removeXtraChars(*memberId);
    $profession    = $Form{'profession'}; &removeXtraChars(*profession);
      $nameLast    = $Form{'nameLast'}; &removeXtraChars(*nameLast);
     $nameFirst    = $Form{'nameFirst'}; &removeXtraChars(*nameFirst);
    $nameMiddle    = $Form{'nameMiddle'}; &removeXtraChars(*nameMiddle);
   $credentials    = $Form{'credentials'}; &removeXtraChars(*credentials);
 $curSpeciality    = $Form{'curSpeciality'}; &removeXtraChars(*curSpeciality);
     $emailPref    = $Form{'emailPref'}; &removeXtraChars(*emailPref);
    $emailOther    = $Form{'emailOther'}; &removeXtraChars(*emailOther);
      $addrCity    = $Form{'addrCity'}; &removeXtraChars(*addrCity);
      $addrProv    = $Form{'addrProv'}; &removeXtraChars(*addrProv);
   $addrCountry    = $Form{'addrCountry'}; &removeXtraChars(*addrCountry);
      $memTitle    = $Form{'memTitle'}; &removeXtraChars(*memTitle);
 $statEmailPref    = $Form{'statEmailPref'}; &removeXtraChars(*statEmailPref);
$statEmailOther    = $Form{'statEmailOther'}; &removeXtraChars(*statEmailOther);


#--------------------------------------------------------------------------


#Construct the mail flag#################################
$mailflag       = $Form{'mailflag'}; &removeXtraChars(*mailflag);
$mailflag_pref  = $Form{'mailflag_pref'}; &removeXtraChars(*mailflag_pref);
$mailflag_other = $Form{'mailflag_other'}; &removeXtraChars(*mailflag_other);

#$x0 = "siva"; $xx0 = length($x0);
#$x1 = "a"; $xx1 = length($x1);
#print "<HR>$xx0/$xx1<HR>";

#print "<HR>$mailflag/$mailflag_pref/$mailflag_other<HR>";
# 00 00 
# 01 00
# 10 00
# 11 00 Pref only

# 00 01
# 01 01
# 10 01
# 11 01 Pref only

# 00 10
# 01 10
# 10 10
# 11 10 Pref only
 
# 00 11 Alt only
# 01 11 Alt only
# 10 11 Alt only
# 11 11 Both.

#########################################################

if($mailflag_pref eq "11" || $mailflag_other eq "11") {
  
if($mailflag_pref eq "11"){$emailPref = "Available/Active";}
else{$emailPref = "Not Available";}

if($mailflag_other eq "11"){$emailOther= "Available/Active";}
else{$emailOther = "Not Available";}


$curSpecialtyDisp = $SPECIALTY{$curSpecialty};
$professionDisp   = $PROFESSION{$profession};
$descriptionDisp  = $description;
&processQuote(*descriptionDisp,"0");

# Build Name ....
$nameMem  = $memTitle.". ";
$nameMem .= $nameFirst." ";
if($nameMiddle){$nameMem .= $nameMiddle." ";}
$nameMem .= $nameLast;

# Build Location....
$location = $addrCity;
if($addrProv){$location .= ", ".$addrProv;}
$location .= ", ".$addrCountry;

#print " <center><img src=$dot/image/mift-banner.gif>";
$title = "Preview the mail to ".$nameMem;
$heading = $title;
&top("","",3,"00","10","01","99","99","99",$title,$heading);

print $topPublic;
print <<___HtmlCodeEnd___;
<!------------------------------------------------------->
<TABLE BGCOLOR=#FFFFFD WIDTH=500 CELLPADDING=0 CELLSPACING=0 BORDER=0 ALIGN=CENTER>
<TR><TD COLSPAN=2>
</TD></TR>

<TR><TH COLSPAN=2 BGCOLOR=#F7F4F4 ALIGN=LEFT><FONT FACE=VERDANA SIZE=1>Send To:</FONT></TH></TR>
<TR><TD ALIGN=RIGHT WIDTH="40%">
<FONT FACE=VERDANA SIZE=1><BR>Name:&nbsp;</FONT></TD><TD>
<FONT FACE=VERDANA SIZE=1 COLOR=RED><BR>$nameMem</TD></TR>
<TR><TD ALIGN=RIGHT>
<FONT FACE=VERDANA SIZE=1>Credentials:&nbsp;</FONT></TD><TD>
<FONT FACE=VERDANA SIZE=1 COLOR=RED>$credentials</TD></TR>
<TR><TD ALIGN=RIGHT>
<FONT FACE=VERDANA SIZE=1>Profession:&nbsp;</FONT></TD><TD>
<FONT FACE=VERDANA SIZE=1 COLOR=RED>$professionDisp</TD></TR>
___HtmlCodeEnd___

if(($profession eq "P01" || $profession eq "P02") && $curSpecialtyDisp ne ""){
print <<___HtmlCodeEnd___;
<TR><TD ALIGN=RIGHT>
<FONT FACE=VERDANA SIZE=1>Specialty:&nbsp;</FONT></TD><TD>
<FONT FACE=VERDANA SIZE=1 COLOR=RED>$curSpecialtyDisp</TD></TR>
___HtmlCodeEnd___
    }

print <<___HtmlCodeEnd___;
<TR><TD ALIGN=RIGHT>
<FONT FACE=VERDANA SIZE=1>Location&nbsp;</FONT></TD><TD>
<FONT FACE=VERDANA SIZE=1 COLOR=RED>$location</TD></TR>
<TR><TD ALIGN=RIGHT>
<FONT FACE=VERDANA SIZE=1>Member Id:&nbsp;</FONT></TD><TD>
<FONT FACE=VERDANA SIZE=1 COLOR=RED>$memberId</TD></TR>
___HtmlCodeEnd___

print <<___HtmlCodeEnd___;
<!--------------------------------------------------------------------->
<TR><TD ALIGN=RIGHT>
<FONT FACE=VERDANA SIZE=1><BR><BR>Preferred Email:&nbsp;</FONT></TD><TD>
<FONT FACE=VERDANA SIZE=1 COLOR=RED><BR><BR>$emailPref</TD></TR>
<TR><TD ALIGN=RIGHT>
<FONT FACE=VERDANA SIZE=1>Alternate Email:&nbsp;</FONT></TD><TD>
<FONT FACE=VERDANA SIZE=1 COLOR=RED>$emailOther</TD></TR>
<!--------------------------------------------------------------------->
___HtmlCodeEnd___

print "
<FORM METHOD=POST ACTION=\"sendMail.cgi\">
";

if($mailflag_pref eq "11" && $mailflag_other ne "11") {
print <<___HtmlCodeEnd___;
<TR><TD COLSPAN=2>
<table bgcolor=#e0e0e0 align=right width=70%><tr><td>
<FONT FACE=VERDANA SIZE=1 COLOR=BLUE>
<B>Note</B>: Mail will be sent to the Preferred Email address only.
</FONT>
</td></tr></table>&nbsp;
</TD></TR>
___HtmlCodeEnd___
   }

elsif($mailflag_pref ne "11" && $mailflag_other eq "11") {
print <<___HtmlCodeEnd___;
<TR><TD COLSPAN=2>
<table bgcolor=#e0e0e0 align=right width=70%><tr><td>
<FONT FACE=VERDANA SIZE=1 COLOR=BLUE>                                           <B>Note</B>: Mail will be sent to the Alternate Email address only.
</FONT>
</td></tr></table>&nbsp;
</TD></TR>
___HtmlCodeEnd___
   }

elsif($mailflag_pref eq "11" && $mailflag_other eq "11") {
print <<___HtmlCodeEnd___;
<TR><TD COLSPAN=2>
<table bgcolor=#e0e0e0 align=right width=80%><tr><td>
<FONT FACE=VERDANA SIZE=1 COLOR=BLUE>
<B>Note</B>: Both Preferred and Alternate email addresses are available. 
<font color=red>
___HtmlCodeEnd___

if($MailSendFlag eq "Yes"){
   print "<BR>&gt;&gt; You have selected to send your e-mail message to both addresses!";
   }

if($MailSendFlag eq "No"){
   print "<BR>&gt; You have selected to send your e-mail message only to <BR>&gt; the Preferred Email address!";
   }


print <<___HtmlCodeEnd___;
</font>
</FONT>
</td></tr></table>&nbsp;
</TD></TR>
___HtmlCodeEnd___
   }



print <<___HtmlCodeEnd___;
<TR><TH COLSPAN=2 BGCOLOR=#FFFFFF>&nbsp;</TH></TR>
<TR><TH COLSPAN=2 BGCOLOR=#F7F4F4 ALIGN=LEFT><FONT FACE=VERDANA SIZE=1>Send From:</FONT></TH></TR>

<!---------------------------------------------------------------->
<!---------- Values to send next page ---------------------------->
<INPUT TYPE = "HIDDEN" NAME = "memberId"  VALUE = "$memberId">
<INPUT TYPE = "HIDDEN" NAME = "senderName"  VALUE = "$senderName">
<INPUT TYPE = "HIDDEN" NAME = "senderEmail"  VALUE = "$senderEmail">
<INPUT TYPE = "HIDDEN" NAME = "MailSendFlag"  VALUE = "$MailSendFlag">
<INPUT TYPE = "HIDDEN" NAME = "sendMsg"  VALUE = "$sendMsg4NextPage">
<INPUT TYPE = "HIDDEN" NAME = "Time"  VALUE = "$Time">

<!---------------------------------------------------------------->


<TR><TD ALIGN=RIGHT>
<FONT FACE=VERDANA SIZE=1>Your Name:&nbsp;</FONT></TD><TD>
<FONT FACE=VERDANA SIZE=1 COLOR=RED>$senderName</FONT></TD></TR>

<TR><TD ALIGN=RIGHT>
<FONT FACE=VERDANA SIZE=1>Your E-mail:&nbsp;</FONT></TD><TD>
<FONT FACE=VERDANA SIZE=1 COLOR=RED>$senderEmail</FONT></TD></TR>

<TR><TH COLSPAN=2 BGCOLOR=#F7F4F4 ALIGN=LEFT>
<BR><FONT FACE=VERDANA SIZE=1>Composed mail message to $nameMem:</FONT></TH></TR>

<TR><TD COLSPAN=2>
<table width=350 align=right><tr><td>
<font size=1>
$sendMsgDisp
</font>
</td></tr></table>
</TD></TR>

<TR><TD COLSPAN=2>
  <TABLE WIDTH=100%>
  <TR><TH ALIGN=LEFT><FONT FACE=VERDANA SIZE=1>
  <BR><!Input TYPE="reset" VALUE="Reset"></FONT></TD>
  <TD ALIGN=RIGHT><FONT FACE=VERDANA SIZE=1>
  <BR><Input TYPE="submit" VALUE="SEND MAIL">
  </TD></TR>
  </TABLE>
</TD></TR>

</FORM>
<TR><TD COLSPAN=2 BGCOLOR=#F7F4F4 ALIGN=LEFT>
<P><FONT FACE=VERDANA SIZE=1>
<HR>
<B><font color=red>Note:</font></B><BR>
1. If you are satisfied with the email message, please press the SEND MAIL button to send your email message to $nameMem.

<P>2. If you would like to edit your mail, please press <B>&lt;=&nbsp;Back</B> button
from the browser menu.
(This can be accessed mostly by pressing right mouse button in the client
window area.)
</font>
</FONT></TD></TR>
<!---------------------------------------------------------------->

</TABLE>
<!------------------------------------------------------->
___HtmlCodeEnd___

      print $bottomPublic;
      &bottom("","",3,"00","10","01","99","99","99",$title,$heading);
      } #end-if(email address valid)

   else{  #if invalid email address

# Build Name ....
$nameMem  = $memTitle.". ";
$nameMem .= $nameFirst." ";
if($nameMiddle){$nameMem .= $nameMiddle." ";}
$nameMem .= $nameLast;

$title = "$nameMem does not have a valid e-mail address";
$heading = "No&nbsp;valid&nbsp;email&nbsp;address";
&top("","",3,"00","10","01","99","99","99",$title,$heading);

print $topPublic;
print <<___HtmlCodeEnd___;
<!------------------------------------------------------->
<TABLE BGCOLOR=#FFFFFD WIDTH=500 CELLPADDING=0 CELLSPACING=0 BORDER=0 ALIGN=CENTER>
<TR><TH COLSPAN=2 BGCOLOR=#F7F4F4>
<FONT FACE=VERDANA SIZE=2>
$nameMem does not have a valid e-mail address
</FONT>
<FONT FACE=VERDANA SIZE=1>
<P><a href="../cgi/onlineFind.cgi?memberId=$memberId">Click</a>
here to go back to information page of $nameMem.
<P>-OR-
<P><A HREF=../current.shtml>Click</a> here to go to the current online member list.
<P>-OR-
<P><A HREF=../../../contactus/>Click</a> here to contact MIFT.
</FONT></TH></TR>
</TABLE>
___HtmlCodeEnd___

print $bottomPublic;
&bottom("","",3,"00","10","01","99","99","99",$title,$heading);
      exit;
      }



##########################################
sub processMsg2Disp{
   local($msg,$length) = @_;
   local($line, $lengthLine, $Msg2Disp,@singleLineArray,@singleCharArray,$linecount,$i, $j);

   $Msg2Disp = "";
   @singleLineArray = split(/\n/,$msg);

   foreach $line (@singleLineArray){
      $lengthLine = length($line);
      print "<HR>$line -- $lengthLine";
      
      if($lengthLine == 0){
         $Msg2Disp .= "&nbsp;&gt;Para\!<BR>\n";
         } # end if a paragraph
      else{
         $siva = 0; print "<HR>";
         @singleCharArray = split(//,$line);
         for($j=0; $j < $lengthLine; $j++){
            for($i=0; $i <= $length; $i++){
               #print "&lt;$singleCharArray[$j]&gt;";
               $sivaindex = $i + $siva * $length;
               print "$length/$j/$i/$siva/$sivaindex/$singleCharArray[$sivaindex]<HR>";
               $Msg2Disp .= $singleCharArray[$sivaindex];
               if($i > $lengthLine){$i = $length + 1;}
               }
            $siva++;
            $Msg2Disp .= "&nbsp;&gt;Ins\!<BR>\n";
            }
         } # end if not a paragraph
      $Msg2Disp .= "&nbsp;&gt;Usr\!<BR>\n";
      } #end foreach line
   $Msg2Disp;
   } #end function

exit;

if ($emailFlag eq "bad"){
	&senderEmailError($senderEmail);
        }                      	


if (!$sendMsg){
	print  "<HTML><HEAD><TITLE>User Error - No Message</TITLE></HEAD>\n";
	print  "<body background=/back.gif BGCOLOR=#FFFFEE>\n";
	print " <H3> User Error - No Message</H3><BR>";
	print " <LI> You did not enter any <b>Message</b>
                <LI> Please go back to the previous level and <br>
                     enter your message...</BODY></HTML>";
	exit; 
        }                      	

$sendMsg = &Split($sendMsg);
$Msg2Send = &ReplaceXtraChars($sendMsg);

#&checkMsg($sendMsg,*msglengthcount,"51",*lenthMsgs);
&checkMsg($sendMsg,*msglengthcount,"65",*lenthMsgs);

if ($msglengthcount > 0){
    $word = "They are:";
    if($msglengthcount == 1){$times = "Once"; $word = "It is:";}
    elsif($msglengthcount == 2){$times = "Twice";}
    else{$times = $msglengthcount." Times";}
        print  "<HTML><HEAD><TITLE>User Error - No Message</TITLE></HEAD>\n";
        print  "<body background=/back.gif BGCOLOR=#FFFFEE>\n";
        print " <H3> User Error - Message is Lengthy</H3><BR>";
        print " <LI> You <font color=red size=+2>did not</font> <B>Hit Enter</B> after each line
                <font color=red size=+2>$times</font> &nbsp;in your <b>Message</b>
               <LI>$word<P><PRE>$lenthMsgs</PRE><BR><BR> 
                <LI> Please go back to the previous level and <br>
                     correct your message...</BODY></HTML>";
        exit;
        }
 

$title = "E-mail Viewer";
$heading = "First-Contact/Quick-mail Viewer (Hartley On-line)";

&top($title,$heading,"600","hr_no","hartleyites");

print "
<CENTER>
<H2> Hartley On-line : <FONT COLOR=RED>First-Contact/Quick-mail Viewer</FONT></H2>\n

<FORM METHOD=POST ACTION=\"$submit_perl\" >\n
<INPUT TYPE = \"HIDDEN\" NAME = \"senderName\"  VALUE = \"$senderName\">\n
<INPUT TYPE = \"HIDDEN\" NAME = \"senderEmail\"  VALUE = \"$senderEmail\">\n
<INPUT TYPE = \"HIDDEN\" NAME = \"REC_NUM\"  VALUE = \"$REC_NUM\">
<INPUT TYPE = \"HIDDEN\" NAME = \"Time\"  VALUE = \"$Time\">
<INPUT TYPE = \"HIDDEN\" NAME = \"SERIAL\"  VALUE = \"$SERIAL\">\n";



#----------------------------------

$mail = 
"
Following mail was auto-generated by the 
Hartley On-line E-mail Utility ...
_________________________________________

Requested By : ".$senderName."
Sender E-mail: ".$senderEmail."

Message:

".$sendMsg."\n
_________________________________________
Service brought to you by Hartley On-line
http://www.HartleyCollege.org/
";
#----------------------------------
open (WR, ">$junk");
print WR $mail;
close(WR);

print "

<P>
<TABLE WIDTH=300 BORDER=1 BGCOLOR=#FFFDDD CELLPADDING=15><tr><TD>
<PRE>
$mail
</PRE>
</TD></TR>
<tr BGCOLOR=#EEEEEE><TD ALIGN=CENTER>
<BR>
<TABLE BORDER=0 CELLPADDING=1><TR><TH COLSPAN=3 BGCOLOR=#0000FF><FONT COLOR=#FFFDDD><B>Your Message will be sent to:</B></FONT></TH></TR>\n";

print "<TR><TD><B>$FIRSTNAME</B></TD>\n";
print "<TD></TD><TD><!I><B>$LASTNAME</B><!/I></TD></TR>\n";

print "
</TABLE>
<BR>
<B><INPUT TYPE=\"submit\" VALUE=\"Send Ur Mail\"></B>
</TD></TR></TABLE>
</FORM>
</CENTER>
<HR><FONT COLOR=RED> Please Note: </FONT><BR><BR>
<SMALL>
<LI>If you would like to edit your mail, please press <B>Back</B> button 
from netscape menu.<BR>
(This can be accessed mostly by pressing right mouse button in the client
window area.)
</CENTER>

";

&bottom();

#########( Subroutines are below here  )#############################################

sub senderEmailError{
	local ($Email)=@_; 
        if($Email eq ""){$Email = "None";}
	print  "<HTML><HEAD><TITLE>User Error E-mail</TITLE></HEAD>\n";
	print  "<body background=/back.gif BGCOLOR=#FFFFEE>\n";
	print "<H3> User Error (E-mail)</H3><BR>";
	print " <LI> The E-mail addresses have to be filled out <b>properly</b>
                <LI> Submitted Email: <FONT COLOR=RED SIZE=+2>$Email</FONT> 
                <LI> Please go back to the previous level and <br>
                     edit the <font color=red><B>Your E-mail</B></font> Field...</BODY></HTML>";
	exit; 
	}

sub RecEmailError{
	local ($num,$rec_num)=@_; 
	print  "<HTML><HEAD><TITLE>User Error E-mail</TITLE></HEAD>\n";
	print  "<body background=/back.gif BGCOLOR=#FFFFEE>\n";
	print " <CENTER><H3> User Error (E-mail)</H3></CENTER><BR>";
	print " <LI> The E-mail addresses have to be filled out <b>properly</b>\n";
	if($rec_num > 1){
		print " <LI>Please go back to the previous level and Check the <font color=red>Receiver No: <B>$num</B>'s E-mail</font> Field...\n";
		}
	else{
		print " <LI>Please go back to the previous level and Check the <font color=red><B>Receiver E-mail</B></font> Field...\n";
		}

  	print "</BODY></HTML>";
	exit; 
	}
sub Split{
        local ($msg)=@_;
        @fstory=split(//,$msg);

        $msg = &EditXtraChars($msg);
        $msg;
        }



sub Split_keepthis{
	local ($msg)=@_; 
 	@fstory=split(//,$msg);					
								
  	$tmp=$#fstory;
  	for($i=0; $i <= $tmp; $i++){
  		$kkk = $i+2;
  		if(($fstory[$i] eq "\n") && ($fstory[$kkk] eq "\n")) {
  			$fstory[$i]="\n";
  			$fstory[$kkk]="";
  			$i=$i+1;
  			}
  		}

  	for($i=0; $i <= $tmp; $i++){
  		if($fstory[$i] eq "\n"){
  			$fstory[$i]="";
  			}
  		}

	$tmpf_story="";
	for($i=0; $i <= $tmp; $i++){
		$tmpf_story = $tmpf_story.$fstory[$i];
		}
	$msg = $tmpf_story;
	$msg = &EditXtraChars($msg);
	$msg;
	}

sub RmoveXtraChars {
     local($variable) = @_;
     $variable =~ s/(["]+)//g; #Gets ride of special characters.
     $variable =~ s/([>]+)//g; #Gets ride of special characters.
     $variable =~ s/([<]+)//g; #Gets ride of special characters.
     $variable =~ s/([\f\r\t\n]+)/ /g; #Gets ride of special characters.
     $variable =~ s/( *$)//;  #Gets rid of extra spaces on end.
     $variable =~ s/(^ *)//;  #Gets rid of extra spaces at the beginning.
     $variable =~ s/( +)/ /g; #Gets rid of multiple spaces.
     $return = $variable;
     $return;
     }
	
sub EditXtraChars {
     local($variable) = @_;
     #$variable =~ s/([\f\r\n]+)/ /g; #Gets ride of special characters.
     #$variable =~ s/([
]+)/\n/g; #Gets ride of special characters.
     $variable =~ s/( *$)//;  #Gets rid of extra spaces on end.
     $variable =~ s/(^ *)//;  #Gets rid of extra spaces at the beginning.
     $variable =~ s/( +)/ /g; #Gets rid of multiple spaces.
     $variable =~ s/([\t]+)/    /g; #Gets ride of special characters.
     $return = $variable;
     $return;
     }

sub ReplaceXtraChars {
     local($variable) = @_;
     $variable =~ s/(["]+)/:::/g; #Gets ride of special characters.
     $variable =~ s/([>]+)/gtgt/g; #Gets ride of special characters.
     $variable =~ s/([<]+)/ltlt/g; #Gets ride of special characters.
     $return = $variable;
     $return;
     }

sub read4Hartleyites{
   local($col,$file,$serial) = @_;

   open(READ,"$file") || die"cannot open $file<BR>";
   @hart_array = <READ>;
   $num_hartleyites = $#hart_array + 1;
   close(READ);

   for ($i=0; $i < $num_hartleyites; $i++){
       $serial_db = (split(/<::>/,$hart_array[$i]))[4];
#print "********$serial_db = $serial*******";
       if($serial_db eq $serial){
           $needed_index = $i;
           $i            = $num_hartleyites;
         }
      }
   $return = $hart_array[$needed_index];
   $return;

   } #endfunction

sub checkMsg{
   local($msg,*counTer, $length, *lenthMsgs) = @_;
   local(@array,$linecount);
   $counTer = 0;
   $linecount = 0;
   $lenthMsgs = "";
   @array = split(/\n/,$msg);
   foreach $element (@array){
      $linecount++;
      if(length($element) > $length){
         $counTer++;
         $lenthMsgs = $lenthMsgs."Line ".$linecount.": ".$element."<BR>";
         }
      }
   return 1;
   } #endfunction