<?
session_start();

// start general page logging
include_once($_SERVER['DOCUMENT_ROOT']."/common/includes/classes/generalstats/DatabaseHandler.class.php");
include_once($_SERVER['DOCUMENT_ROOT']."/common/includes/classes/generalstats/LogGeneralViews.class.php");
$pgExtension = (empty($_SERVER['QUERY_STRING'])) ? '' : '?'.$_SERVER['QUERY_STRING'] ;
$logGenViews = new LogGeneralViews($_SERVER['PHP_SELF'].$pgExtension);
// end general page logging


//The default messagebody is stored in a file called "default_messagetext.txt"

//That file can be found in the /data directory.


//***********************************************************************

// You may change these variables to suite your purposes                 

//***********************************************************************


//After successfully completing, the user will be redirect here:

$Redirect="success.html";


//This is the subject of the e-mail message

$Subject_Value="Subject: Great site that I found!";


//Email Address of Person Getting reports

$Admin_Address[]="webmaster@kingstonlinks.com";


//*************************************************************************

//End of stuff that you should be changing

//*************************************************************************

	
$Message_Value=GetFile("data/default_messagetext.txt");

include("classes/form_handler.class");


 $FormHandler=new form_handler();

 
 if(empty($C))

 	$C="D";

 
$FormHandler->InsertGroup("Sender");

$FormHandler->InsertGroup("Friend 1");

$FormHandler->InsertGroup("Friend 2");

$FormHandler->InsertGroup("Friend 3");

$FormHandler->InsertGroup("Your Mailing List");

$FormHandler->InsertGroup("Subject");

$FormHandler->InsertGroup("Message");

 
//Subject

$ThisField=&$FormHandler->InsertField("Subject","Subject:","T","Subject");

$ThisField->ValidationTypes=array("R","MN:2");

$ThisField->Size=55;

if(empty($Subject))

	$ThisField->Value=$Subject_Value;


//Sender Name

$ThisField=&$FormHandler->InsertField("SName","You:","T","Sender");

$ThisField->ValidationTypes=array("R","MN:2");

$ThisField->Size=12;


//Sender Email

$ThisField=&$FormHandler->InsertField("SEmail","* Your Email Address:","T","Sender");

$ThisField->ValidationTypes=array("R","TL","MX:128","E");

$ThisField->Size=12;


//Friend 1 Name

$ThisField=&$FormHandler->InsertField("F1Name","Friend 1:","T","Friend 1");

$ThisField->ValidationTypes=array("R","MN:2");

$ThisField->Size=12;


//Friend 1 Email

$ThisField=&$FormHandler->InsertField("F1Email","* Email Address:","T","Friend 1");

$ThisField->ValidationTypes=array("R","TL","MX:128","E");

$ThisField->Size=12;


//Friend 2 Name

$ThisField=&$FormHandler->InsertField("F2Name","Friend 2:","T","Friend 2");

$ThisField->Size=12;


//Friend 2 Email

$ThisField=&$FormHandler->InsertField("F2Email","* Email Address:","T","Friend 2");

$ThisField->Size=12;


//Friend 3 Name

$ThisField=&$FormHandler->InsertField("F3Name","Friend 3:","T","Friend 3");

$ThisField->Size=12;


//Friend 3 Email

$ThisField=&$FormHandler->InsertField("F3Email","* Email Address:","T","Friend 3");

$ThisField->Size=12;


//Your Mailing List Name

$ThisField=&$FormHandler->InsertField("F4Name","Friend 4:","T","Your Mailing List");

$ThisField->Size=12;


//Your Mailing List Email

$ThisField=&$FormHandler->InsertField("F4Email","* Email Address:","T","Your Mailing List");

$ThisField->Size=12;


//Message

$ThisField=&$FormHandler->InsertField("Message","* Message:","A","Message");

$ThisField->ValidationTypes=array("R");

$ThisField->Rows=10;

$ThisField->Cols=40;


$FormHandler->Load();


if(empty($Message))

	$ThisField->Value=$Message_Value;

else{

	$ThisField->Value=stripslashes($ThisField->Value);

}


if($C=="V"){

	$FormHandler->Validate();

	
	$FF=&$FormHandler->DumpFields();

	$StillValid=true;

	if(!empty($FF["F2Email"]->Value)){

		$FF["F2Email"]->ValidationTypes=array("R","TL","MX:128","E");

		$FF["F2Name"]->ValidationTypes=array("R","MN:2");

		
		$StillValid=$StillValid & $FF["F2Email"]->Validate();

		$StillValid=$StillValid & $FF["F2Name"]->Validate();

	}

	
	if(!empty($FF["F3Email"]->Value)){

		$FF["F3Email"]->ValidationTypes=array("R","TL","MX:128","E");

		$FF["F3Name"]->ValidationTypes=array("R","MN:2");

		
		$StillValid=$StillValid & $FF["F3Email"]->Validate();

		$StillValid=$StillValid & $FF["F3Name"]->Validate();

	}

	
	if(!empty($FF["F4Email"]->Value)){

		$FF["F4Email"]->ValidationTypes=array("R","TL","MX:128","E");

		$FF["F4Name"]->ValidationTypes=array("R","MN:2");

		
		$StillValid=$StillValid & $FF["F4Email"]->Validate();

		$StillValid=$StillValid & $FF["F4Name"]->Validate();

	}

	
	if($StillValid=$StillValid && $FormHandler->IsValid())

			$C="P";

		else

			$C="D";

}


if($C=="D"){

//**************************************************************************************************

//**************************************************************************************************

//**************************************************************************************************

//			Start OF THE PAGE								  //

//**************************************************************************************************

//**************************************************************************************************

//**************************************************************************************************


?>

<html>

<head>

<title>Send This Page!</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>


<body bgcolor="#FFFFFF" text="#000000">

<form action=index.php method="post">

<input type=hidden name=C value="V">

  <table width="374" border="0" cellspacing="0" cellpadding="0" bgcolor="#F0F0F0" align="center">

    <tr> 

      <td width="374" height="35" bgcolor="#3366CC"><div align="center"><font color="#FFFFFF" size="3" face="Arial, Helvetica, sans-serif"><strong>Tell 
          A Friend about Kingston Links</strong></font> </div></td>

    </tr>

    <tr> 

      <td width="374" valign="top"> 

        <table width="374" border="0" cellspacing="0" cellpadding="0">

          <tr> 

            <td valign="top"> 

              <table width="374" border="0" cellspacing="0" cellpadding="0">

              <tr>

              <td width="64">&nbsp;</td>

                  <td width="122" align="center"><font color="#006699" face="Arial, Helvetica, sans-serif" size="1"><b><font size="2">Name</font></b></font></td>

                  <td width="188" align="center"><font color="#006699" face="Arial, Helvetica, sans-serif" size="1"><b><font size="2">E-mail</font></b></font></td>

                </tr>

 
                 <?

	while($CurrentGroup=$FormHandler->GetNextGroup()){

		if($CurrentGroup->Name!="Message" & $CurrentGroup->Name!="Subject" ){

			$Counter=0;

			while($CurrentField=$CurrentGroup->GetNextField()){

				if($Counter==0){

print("<tr><td valign=top width=\"64\"><font color=\"#006699\" face=\"Arial, Helvetica, sans-serif\" size=\"1\"><font size=\"2\"><b>");

					$CurrentField->GetCaption();

					print("</font></b></font>");

					print("</td>");

				}

print("<td width=\"122\" align=\"center\">");

					$CurrentField->Display();

				if(!$CurrentField->IsValid()){

print("<br><font color=red face=\"Arial, Helvetica, sans-serif\" size=-1>".$CurrentField->GetError()."</font>");

				}

				print("</td>");

			
				if($Counter==1){

					print("</tr>");					

				}

				
				$Counter++;

			}

		}//end the if

		else{

			$CurrentField=$CurrentGroup->GetNextField();

			if($CurrentGroup->Name=="Subject"){

?>

</table>

            </td>

          </tr>

          <tr> 

            <td>&nbsp;</td>

          </tr>

          <tr> 

            <td align="center"> 
              <?

				$CurrentField->Display();

				print("</td></tr>");

				
			}

			
			if($CurrentGroup->Name=="Message"){

?>
          <tr> 

            <td align="center">&nbsp;</td>

          </tr>

          <tr> 

            <td align="center"> 
              <?

				$CurrentField->Display();

				print("</td></tr>");		

			}

			
		}

		
	}

?>
          <tr> 

            <td align="center"> <font face="Arial, Helvetica, sans-serif" size="1"> 

              <input type="submit" name="Submit" value="Send!">

              </font></td>

          </tr>

        </table>

      </td>

    </tr>

    <tr> 

      <td width="374" bgcolor="#3366CC">&nbsp;</td>

    </tr>

  </table>

</form>

        </body>

</html>


<?


//**************************************************************************************************

//**************************************************************************************************

//**************************************************************************************************

//			END OF THE PAGE								  //

//**************************************************************************************************

//**************************************************************************************************

//**************************************************************************************************

}


if($C=="P"){

Send_Email();

header("Location: $Redirect");

}


function Send_Email(){

	
	global $FormHandler;

	global $Admin_Address;

	global $HTTP_ENV_VARS;

	global $REMOTE_ADDR;

	
	$IP=getenv ("REMOTE_ADDR");

	$Browser=getenv ("HTTP_USER_AGENT");

	
	$FF=&$FormHandler->DumpFields();

	$Subject=$FF["Subject"]->Value;

	
	$Emails[]=$FF["F1Email"]->Value;

	$Names[]=$FF["F1Name"]->Value;

	
	if(!empty($FF["F2Email"]->Value)){

		$Emails[]=$FF["F2Email"]->Value;

		$Names[]=$FF["F2Name"]->Value;	

	}

	
	if(!empty($FF["F3Email"]->Value)){

		$Emails[]=$FF["F3Email"]->Value;

		$Names[]=$FF["F3Name"]->Value;	

	}

	
	if(!empty($FF["F4Email"]->Value)){

		$Emails[]=$FF["F4Email"]->Value;

		$Names[]=$FF["F4Name"]->Value;	

	}

	
	//First Send The Message to the admin

	$Message="[Send this page to a friend]\r\n\r\n";

	$Message.="Sender Information:\r\n";

	$Message.="-----------------------------\r\n";

	$Message.=$FF["SName"]->Value." <".$FF["SEmail"]->Value.">\r\n\r\n";

	$Message.="Browser: $Browser \r\nIP: $IP \r\n\r\n";

	$Message.="The message was sent to the following people:\r\n";

	$Message.="-----------------------------------------------------\r\n";

	for($Index=0;$Index<count($Emails);$Index++){

		$Message.=$Names[$Index]." <".$Emails[$Index].">\r\n";

	}

	$Message.="\r\n";

	
	$Message.="Subject:\r\n-------------------------------\r\n".$FF["Subject"]->Value."\r\n\r\n";

	$Message.="Message:\r\n-------------------------------\r\n".$FF["Message"]->Value."\r\n\r\n";

	
	$headers = "From: TheServer <server@kingstonlinks.com>\n"; 

	$headers .= "X-Mailer: XSF 1.0 Zaam 2001 \n"; // mailer 

	
	for($Index=0;$Index<count($Admin_Address);$Index++)

		Mail($Admin_Address[$Index],"KingstonLinks Server -- Referral Update",$Message,$headers);

	
	//Now, on the the messages for the referrals

	
	$headers = "From:". $FF["SName"]->Value." <".$FF["SEmail"]->Value.">\n"; 

	$headers .= "X-Mailer: XSF 1.0 Zaam 2001 \n"; // mailer 

	
	for($Index=0;$Index<count($Emails);$Index++){

	
		Mail($Emails[$Index],$FF["Subject"]->Value,$FF["Message"]->Value,$headers);

		
	}

	
}


function GetFile($FileName){

	$FilePointer=fopen($FileName,"r");

	$Data=fread($FilePointer,filesize($FileName));

	fclose($FilePointer);

	return($Data);

}


?>