Code :
- <?
- /* Ce script a été conçu par la Katarn Corp.
- pour de plus amples informations vous n'avez qu'à
- contacter la Katarn Corp. (http://www.katarncorp.com)
- */
- $name = trim($name);
- $mail = trim($mail);
- $bon = "3";
- if ($accept == "" ){
- if ($name == "" ) {
- echo "<CENTER>Invalid or missing name</CENTER>";
- $bon--;
- }
- if (eregi("^[0-9a-z]([-_.]?[0-9a-z])*@[0-9a-z]([-.]?[0-9a-z])*\\.[a-z]{2,3}$", $mail)) {
- }
- else {
- echo '<CENTER>Invalid or missing email address</CENTER>';
- $bon--;
- }
- if ($list == "" ) {
- echo "<CENTER>Please choose at least one list.</CENTER>";
- $bon--;
- }
- if ($bon == "3" ) {
- confirm();
- }
- else {
- echo "<CENTER><H4>Error. Please click <a href='javascript:history.go(-1)'>here</a>";
- }
- }
- else {
- proceed();
- }
- function confirm() {
- global $mail, $name, $list, $sub, $accept, $mlist, $REMOTE_HOST, $SERVER_NAME, $REMOTE_ADDR;
- echo "<CENTER><H2>Confirmation</H2><H5>To change anything, click <a href='javascript:history.go(-1)'>here</a></H5>";
- if ($sub == "off" ) {
- echo "Operation in progress : <I>Unsubscribe</I><BR>";
- }
- if ($sub == "on" ) {
- echo "Operation in progress : <I>Subscribe</I><BR>";
- }
- echo "Name : <I>", $name, "</I><BR>";
- echo "E-mail : <I>", $mail, "</I><BR>";
- echo "Lists you're applying for : <I>";
- if($list) {
- while(list($key,$val)=each($list)) {
- if($mlist == "" ) {
- $mlist = $mlist.$val;
- }
- else {
- $mlist = $mlist.",".$val;
- }
- }
- }
- else
- $list=array();
- echo $mlist;
- echo '<form method="POST" action="'.$PHP_SELF.'">';
- echo '<input type=hidden name="name" value="'.$name.'">';
- echo '<input type=hidden name="mail" value="'.$mail.'">';
- echo '<input type=hidden name="sub" value="'.$sub.'">';
- echo '<input type=hidden name="mlist" value="'.$mlist.'">';
- echo '<input type=hidden name="accept" value="1">';
- echo '<input type="submit" value="Send">';
- }
- function proceed() {
- global $mail, $name, $list, $sub, $accept, $mlist, $REMOTE_HOST, $SERVER_NAME, $REMOTE_ADDR;
- if ($REMOTE_HOST == "" ) { //Vérification
- $REMOTE_HOST = "N/A"; //Des variables
- }
- if ($SERVER_NAME == "" ) { //S'il existe
- $SERVER_NAME = "N/A"; //Sinon remplace
- }
- if ($REMOTE_ADDR == "" ) { //Par N/A
- $REMOTE_ADDR = "N/A"; //Meilleur présentation
- }
- $msg = "\nDate: ".date('l dS of F Y h:i:s A')."\nServer: ".$SERVER_NAME."\nIP: ".$REMOTE_ADDR." [".$REMOTE_HOST."]\n----------------------------------------\n\nName : ".$name."\nE-mail : ".$mail."\nLists ".$mlist;
- $msg2 = "Subscribe\n\nName : $name\nE-mail : $mail\nLists $mlist\n";
- $msg3 = "Unsubscribe\n\nName : $name\nAE-mail : $mail\nLists $mlist\n";
- $enteter = "Date: ".date("D, j M Y H:i:s" )."\n"."X-Mailer: K-ML";
- $entete = "From: $name <$mail> \n".$enteter;
- $entete2 = "From: ADMIN <ADMIN@MAIL.COM> \n".$enteter;
- $f = fopen ("mlist.dat", "a" );
- if ($sub == "on" ) {
- $contenu = "SUB\n$name\n$mail\n$mlist\n";
- fputs($f, $contenu);
- //--> Removed by K-MLmail("ADMIN <mkinney@ettaingroup.com>", "[K-ML] Subscribe", "----------------------------------------\nSubscribe".$msg, $entete);
- mail("$name <$mail>", "[K-ML] Subscribe", $msg2, $entete2);
- }
- else {
- $contenu = "UNSUB\n$name\n$mail\n$mlist\n";
- fputs($f, $contenu);
- //--> Removed by K-MLmail("ADMIN <mkinney@ettaingroup.com>", "[K-ML] Unsubscribe", "----------------------------------------\nUnsubscribe".$msg, $entete);
- mail("$name <$mail>", "[K-ML] Unsubscribe", $msg3, $entete2);
- }
- fclose($f);
- echo "<CENTER>Request sent successfully !<BR>Click <A HREF='http://www.charlottencstateclub.com'>here</a> to get back to the main page";
- }
- ?>
|
