#!/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"); $method = $ENV{'REQUEST_METHOD'}; &parseCGI($method,*Form); &printHeader(); ########################################################################### $memberId = $Form{'memberId'}; &removeXtraChars(*memberId); $senderName = $Form{'senderName'}; &removeXtraChars(*senderName); $senderEmail = $Form{'senderEmail'}; &removeXtraChars(*senderEmail); $MailSendFlag = $Form{'MailSendFlag'}; &removeXtraChars(*MailSendFlag); $sendMsg = $Form{'sendMsg'}; &removeXtraChars(*sendMsg); #---------- Parse data from CGI ------------------------------- $profession = $Form{'profession'}; &removeXtraChars(*profession); $memTitle = $Form{'memTitle'}; &removeXtraChars(*memTitle); $nameLast = $Form{'nameLast'}; &removeXtraChars(*nameLast); $nameFirst = $Form{'nameFirst'}; &removeXtraChars(*nameFirst); $nameMiddle = $Form{'nameMiddle'}; &removeXtraChars(*nameMiddle); $gender = $Form{'gender'}; &removeXtraChars(*gender); $credentials = $Form{'credentials'}; &removeXtraChars(*credentials); $affiliation = $Form{'affiliation'}; &removeXtraChars(*affiliation); $isStudent = $Form{'isStudent'}; &removeXtraChars(*isStudent); $curSpecialty = $Form{'curSpecialty'}; &removeXtraChars(*curSpecialty); $countryGrad = $Form{'countryGrad'}; &removeXtraChars(*countryGrad); $univName = $Form{'univName'}; &removeXtraChars(*univName); $yearIntoUniv = $Form{'yearIntoUniv'}; &removeXtraChars(*yearIntoUniv); $phoneHome = $Form{'phoneHome'}; &removeXtraChars(*phoneHome); $phoneBus = $Form{'phoneBus'}; &removeXtraChars(*phoneBus); $phoneFax = $Form{'phoneFax'}; &removeXtraChars(*phoneFax); $phoneCell = $Form{'phoneCell'}; &removeXtraChars(*phoneCell); $emailPref = $Form{'emailPref'}; &removeXtraChars(*emailPref); $emailOther = $Form{'emailOther'}; &removeXtraChars(*emailOther); $addrFlag = $Form{'addrFlag'}; &removeXtraChars(*addrFlag); $addrStreet = $Form{'addrStreet'}; &removeXtraChars(*addrStreet); $addrSuite = $Form{'addrSuite'}; &removeXtraChars(*addrSuite); $addrCity = $Form{'addrCity'}; &removeXtraChars(*addrCity); $addrProv = $Form{'addrProv'}; &removeXtraChars(*addrProv); $addrCode = $Form{'addrCode'}; &removeXtraChars(*addrCode); $addrCountry = $Form{'addrCountry'}; &removeXtraChars(*addrCountry); $websiteURL = $Form{'websiteURL'}; &removeXtraChars(*websiteURL); $isActiveMem = $Form{'isActiveMem'}; &removeXtraChars(*isActiveMem); $wantActiveMem = $Form{'wantActiveMem'}; &removeXtraChars(*wantActiveMem); $userName = $Form{'userName'}; &removeXtraCharsPW(*userName); $passWord01 = $Form{'passWord01'}; &removeXtraCharsPW(*passWord01); $passWord02 = $Form{'passWord02'}; &removeXtraCharsPW(*passWord02); $pwQuestion = $Form{'pwQuestion'}; &removeXtraChars(*pwQuestion); $pwAnswer = $Form{'pwAnswer'}; &removeXtraChars(*pwAnswer); $description = $Form{'description'}; &restoreHtMLChars(*description); $descriptionDisp = $description; &processQuote(*description,"1"); ########################################################################### ################################### ### Read a record from database ... ################################### @attrKeyArr = ("memberId", "profession", "nameLast", "nameFirst", "nameMiddle", "credentials", "curSpeciality", "emailPref", "emailOther", "addrCity", "addrProv", "addrCountry", "memTitle", "statEmailPref", "statEmailOther"); %valueAssoArray = &getSpecificAttrUsingMemberId( $memberId, *foundflag, *attrKeyArr, *dbh, $database, $hostname, $port, $user, $password, *rc); ################################### if($foundflag == 1){ # Not all the attr info is retrieved. Below is just for information. # Some attr (otherthan in attrKeyArr will have NULL values ... $pendingId = $valueAssoArray{'pendingId'}; $memberId = $valueAssoArray{'memberId'}; $isStudent = $valueAssoArray{'isStudent'}; $profession = $valueAssoArray{'profession'}; $countryGrad = $valueAssoArray{'countryGrad'}; $univName = $valueAssoArray{'univName'}; $yearIntoUniv = $valueAssoArray{'yearIntoUniv'}; $nameLast = $valueAssoArray{'nameLast'}; $nameFirst = $valueAssoArray{'nameFirst'}; $nameMiddle = $valueAssoArray{'nameMiddle'}; $credentials = $valueAssoArray{'credentials'}; $curSpecialty = $valueAssoArray{'curSpecialty'}; $phoneHome = $valueAssoArray{'phoneHome'}; $phoneBus = $valueAssoArray{'phoneBus'}; $phoneFax = $valueAssoArray{'phoneFax'}; $phoneCell = $valueAssoArray{'phoneCell'}; $emailPref = $valueAssoArray{'emailPref'}; $emailOther = $valueAssoArray{'emailOther'}; $addrStreet = $valueAssoArray{'addrStreet'}; $addrSuite = $valueAssoArray{'addrSuite'}; $addrCity = $valueAssoArray{'addrCity'}; $addrProv = $valueAssoArray{'addrProv'}; $addrCode = $valueAssoArray{'addrCode'}; $addrCountry = $valueAssoArray{'addrCountry'}; $websiteURL = $valueAssoArray{'websiteURL'}; $isActiveMem = $valueAssoArray{'isActiveMem'}; $wantActiveMem = $valueAssoArray{'wantActiveMem'}; $statusMember = $valueAssoArray{'statusMember'}; $description = $valueAssoArray{'description'}; $userName = $valueAssoArray{'userName'}; $passWord01 = $valueAssoArray{'passWord01'}; $pwQuestion = $valueAssoArray{'pwQuestion'}; $pwAnswer = $valueAssoArray{'pwAnswer'}; $memTitle = $valueAssoArray{'memTitle'}; $gender = $valueAssoArray{'gender'}; $statEmailPref = $valueAssoArray{'statEmailPref'}; $statEmailOther = $valueAssoArray{'statEmailOther'}; $miftMsg2Mem = $valueAssoArray{'miftMsg2Mem'}; $addrFlag = $valueAssoArray{'addrFlag'}; $affiliation = $valueAssoArray{'affiliation'}; $timeStampEntered = $valueAssoArray{'timeStampEntered'}; $timeStampUpdated = $valueAssoArray{'timeStampUpdated'}; $sourceFlag = $valueAssoArray{'sourceFlag'}; #Construct the mail flag################################# $mailflag_pref = ""; $mailflag_other = ""; if($emailPref){$mailflag_pref .= "1";} else{$mailflag_pref .= "0";} if($statEmailPref eq "active"){$mailflag_pref .= "1";} else{$mailflag_pref .= "0";} if($emailOther){$mailflag_other .= "1";} else{$mailflag_other .= "0";} if($statEmailOther eq "active"){$mailflag_other .= "1";} else{$mailflag_other .= "0";} $mailflag = $mailflag_pref.$mailflag_other; # 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($emailPref){$emailPref = "Available/Active";} else{$emailPref = "Not Available";} if($emailOther){$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 "
"; $title = "Compose a mail to ".$nameMem; $heading = $title; &top("","",3,"00","10","01","99","99","99",$title,$heading); print $topPublic; print <<___HtmlCodeEnd___; ___HtmlCodeEnd___ if(($profession eq "P01" || $profession eq "P02") && $curSpecialtyDisp ne ""){ print <<___HtmlCodeEnd___; ___HtmlCodeEnd___ } print <<___HtmlCodeEnd___; ___HtmlCodeEnd___ print <<___HtmlCodeEnd___; ___HtmlCodeEnd___ print " "; if($mailflag_pref eq "11" && $mailflag_other ne "11") { print <<___HtmlCodeEnd___; ___HtmlCodeEnd___ } elsif($mailflag_pref ne "11" && $mailflag_other eq "11") { print <<___HtmlCodeEnd___; ___HtmlCodeEnd___ } elsif($mailflag_pref eq "11" && $mailflag_other eq "11") { print <<___HtmlCodeEnd___; ___HtmlCodeEnd___ } print <<___HtmlCodeEnd___;
Send To:

Name: 
$nameMem
Credentials:  $credentials
Profession:  $professionDisp
Specialty:  $curSpecialtyDisp
Location  $location
Member Id:  $memberId


Preferred Email: 

$emailPref
Alternate Email:  $emailOther
Note: Mail will be sent to the Preferred Email address only.
 
Note: Mail will be sent to the Alternate Email address only.
 
Note: Both Preferred and Alternate email addresses are available.
Do you want to send mail to both addresses? Yes No
 
 
Send From:
Your Name: 
Your E-mail: 

Compose the mail message to $nameMem:

Note:
Please preview your mail and then press SEND button in the Mail viewer Page to send it ...
___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 valid email address"; &top("","",3,"00","10","01","99","99","99",$title,$heading); print $topPublic; print <<___HtmlCodeEnd___;
$nameMem does not have a valid e-mail address

Click here to go back to information page of $nameMem.

-OR-

Click here to go to the current online member list.

-OR-

Click here to contact MIFT.

___HtmlCodeEnd___ print $bottomPublic; &bottom("","",3,"00","10","01","99","99","99",$title,$heading); exit; } } #end-if foundflag = 1 else{ $title = "Info Not Found"; $heading = "Info Not Found"; &top("","",3,"00","10","01","99","99","99",$title,$heading); print $topPublic; print <<___HtmlCodeEnd___;
The Information you have requested is not found.

Click here to go back to the current online member list.

-OR-

Click here to contact MIFT.

___HtmlCodeEnd___ ########################################## ################ This will go to the bottom print $bottomPublic; &bottom("","",3,"00","10","01","99","99","99",$title,$heading); } ########################################## print " 
 MemberId = $memberId
Send Name = $senderName
    Email = $senderEmail
     Flag = *$MailSendFlag*
     Msg  = $sendMsg

Extended .......
"; exit; $Time = `date '+%Y_%m_%d_%H_%M_%S'`; chop($Time); $junk = $turfDir."junk/".$Time."_junk"; if(($sendMsg =~ /This chain letter comes from Thirupathi written by/) || ($sendMsg =~ /GOOD LUCK will go away/)){ print "

Errored Message!
Check your message please...

"; exit; } $needed_string = &read4Hartleyites("$COLS","$hartleyites_dbase","$SERIAL"); @array_tmp = split(/<::>/, $needed_string); $BATCH = $array_tmp[0]; $LASTNAME = $array_tmp[1]; $FIRSTNAME = $array_tmp[2]; $CITY = $array_tmp[6]; $COUNTRY = $array_tmp[7]; $REmail = $array_tmp[8]; $submit_perl="submit.cgi"; $Rec_Subject = "Mail From $FIRSTNAME $LASTNAME "; $emailFlag = &emailChecker($senderEmail); if ($emailFlag eq "bad"){ &senderEmailError($senderEmail); } if (!$sendMsg){ print "User Error - No Message\n"; print "\n"; print "

User Error - No Message


"; print "
  • You did not enter any Message
  • Please go back to the previous level and
    enter your message..."; 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 "User Error - No Message\n"; print "\n"; print "

    User Error - Message is Lengthy


    "; print "
  • You did not Hit Enter after each line $times  in your Message
  • $word

    $lenthMsgs


  • Please go back to the previous level and
    correct your message..."; exit; } $title = "E-mail Viewer"; $heading = "First-Contact/Quick-mail Viewer (Hartley On-line)"; &top($title,$heading,"600","hr_no","hartleyites"); print "

    Hartley On-line : First-Contact/Quick-mail Viewer

    \n
    \n \n \n \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 " 

    $mail

    \n"; print "\n"; print "\n"; print "
    Your Message will be sent to:
    $FIRSTNAME$LASTNAME

    Please Note:

  • If you would like to edit your mail, please press Back button from netscape menu.
    (This can be accessed mostly by pressing right mouse button in the client window area.)
    • "; &bottom(); #########( Subroutines are below here )############################################# sub senderEmailError{ local ($Email)=@_; if($Email eq ""){$Email = "None";} print "User Error E-mail\n"; print "\n"; print "

    User Error (E-mail)


    "; print "
  • The E-mail addresses have to be filled out properly
  • Submitted Email: $Email
  • Please go back to the previous level and
    edit the Your E-mail Field..."; exit; } sub RecEmailError{ local ($num,$rec_num)=@_; print "User Error E-mail\n"; print "\n"; print "

    User Error (E-mail)


    "; print "
  • The E-mail addresses have to be filled out properly\n"; if($rec_num > 1){ print "
  • Please go back to the previous level and Check the Receiver No: $num's E-mail Field...\n"; } else{ print "
  • Please go back to the previous level and Check the Receiver E-mail Field...\n"; } print ""; 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
    "; @hart_array = ; $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."
    "; } } return 1; } #endfunction