#!/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); # Cookie alternative ############################# $Time = `date '+%Y_%m_%d_%H_%M_%S'`; chop($Time); $junk = "./junk/".$Time."_junk.txt"; open (WR, ">$junk"); print WR "$junk"; close(WR); ################################################## ################################### ### 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 Address: 
Subject: 

* Compose the mail message to $nameMem:

Note:
1. * Mandatory fields.
2. Please preview your mail by pressing PREVIEW MAIL button.
___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___ print $bottomPublic; &bottom("","",3,"00","10","01","99","99","99",$title,$heading); }