Website Evaluations
'; echo "Get a expert evaluation of your website. Find out how to make your own website more usable, accessible, functional and profitable.
"; echo "My website evaluations are based on more than ten years of investigating what makes websites effective.
"; function valid($mail) { $user = '[a-zA-Z0-9_\-\.\+\^!#\$%&*+\/\=\?\`\|\{\}~\']+'; $domain = '(?:(?:[a-zA-Z0-9]|[a-zA-Z0-9][a-zA-Z0-9\-]*[a-zA-Z0-9])\.?)+'; $ipv4 = '[0-9]{1,3}(\.[0-9]{1,3}){3}'; $ipv6 = '[0-9a-fA-F]{1,4}(\:[0-9a-fA-F]{1,4}){7}'; return preg_match("/^$user@($domain|(\[($ipv4|$ipv6)\]))$/", $mail); } function validurl($url) { $user = '[a-zA-Z0-9_\-\.\+\^!#\$%&*+\/\=\?\`\|\{\}~\']+'; $domain = '(?:(?:[a-zA-Z0-9]|[a-zA-Z0-9][a-zA-Z0-9\-]*[a-zA-Z0-9])\.?)+.(\.).([a-zA-Z])'; $ipv4 = '[0-9]{1,3}(\.[0-9]{1,3}){3}'; $ipv6 = '[0-9a-fA-F]{1,4}(\:[0-9a-fA-F]{1,4}){7}'; return preg_match("$domain", $url); } //$user = '[a-zA-Z0-9_\-\.\+\^!#\$%&*+\/\=\?\`\|\{\}~\']'; //$goodstyle = '/^[a-z0-9()\/\'":\*+|,.; \- !?&#$@]{2,75}$/i'; //$goodstyle ="^([1-zA-Z0-1@.\s]{1,255})$^"; $goodstyle = '[a-zA-Z0-9_\-\.\+\^!#\$%&*+\/\=\?\`\|\{\}~\']'; $gooddomain= "^[\w-\.]+([\w-]+\.)+[\w-]{2,4}$^"; $goodemail="^[a-zA-Z0-9\-\.]+\.[\w-]{2,4}$^"; if (isset($_SESSION['name'])) $_POST['name'] = $_SESSION['name']; if (isset($_SESSION['email'])) $_POST['email'] = $_SESSION['email']; if (isset($_SESSION['weburl'])) $_POST['weburl'] = $_SESSION['weburl']; if (isset($_POST['name'])) $name=trim($_POST['name']); else $name=""; if (isset($_POST['email'])) $email=trim($_POST['email']); else $email=""; if (isset($_POST['weburl'])) $weburl=trim($_POST['weburl']); else $weburl=""; if (isset($_POST['message'])) $message=$_POST['message']; else $message=""; if (isset($_POST['contactseen'])) $contactseen="y"; else $contactseen="n"; $contactform=' '; if($contactseen!="y") { //echo "$contactform"; //echo "Your personal information will be used only to provide your website evaluation. I won't sell it, keep it, or reuse it for any other purpose.
"; echo $copytext; echo "Sample Web Marketing Analyses • Sample Website Usability Reviews • Sample Web Design Critiques
"; } else { $errstr=""; //if ($name>" ") { // if (!preg_match($goodstyle, $name)){ // $errstr.="I think you hit the wrong key when typing your name."; // } //} if (strlen($name>50)) { $errstr.="Wow, is your name really longer than 50 letters?
"; } if (strlen($email)>128) { $errstr.="Your email address isn't really that long, is it?
"; } if (!valid($email)) { $errstr.="Something's wrong with that email address.
"; } if (!preg_match($goodemail, $email)){ $errstr.="We need an valid email address to send your free website evaluation.
"; } // if (!preg_match($goodstyle, $weburl)){ // $errstr.="Is there a problem with the website address you want to evaluate?
"; //} $webrul = rtrim($weburl,'/'); if (!preg_match($gooddomain, $webrul)){ $errstr.="That web address doesn't look right.
"; } if (strlen($message)>2000) { $errstr.="Could you make your message a little shorter (say, less than 2000 characters)?
"; } //if ($message>"") { //if (!preg_match($goodstyle, $message)){ //$errstr.="Could you go back and type your message in ordinary //letters, without special codes?
"; //} //} if ($errstr!='') { echo '
';
echo '
';
echo $contactform;
} else {
if (isSet($_SERVER)) {
if (isSet($_SERVER['HTTP_X_FORWARDED_FOR'])) {
$realip = $_SERVER['HTTP_X_FORWARDED_FOR'];
} elseif (isSet($_SERVER['HTTP_CLIENT_IP'])) {
$realip = $_SERVER['HTTP_CLIENT_IP'];
} else {
$realip = $_SERVER['REMOTE_ADDR'];
}
} else {
if ( getenv( 'HTTP_X_FORWARDED_FOR' ) ) {
$realip = getenv( 'HTTP_X_FORWARDED_FOR' );
} elseif ( getenv( 'HTTP_CLIENT_IP' ) ) {
$realip = getenv( 'HTTP_CLIENT_IP' );
} else {
$realip = getenv( 'REMOTE_ADDR' );
}
}
$custcoed = explode("@", $email);
$custdomain = str_replace("http://", "", $weburl);
$custdomain = strrev($custdomain);
$custdomain = strpbrk($custdomain, '.');
$custdomain = strrev($custdomain);
$custcoed = soundex($custcoed[0])."-".metaphone($custdomain)."-".substr(md5($custdomain), 0, 4);
$message = stripslashes($message);
$host = @gethostbyaddr($realip);
$today = date("F j, Y, g:i a");
$sendmessage = "--------------------\n";
$sendmessage.= "Name: $name\n";
$sendmessage.= "Email: $email\n";
$sendmessage.= "Website: $weburl\n";
$sendmessage.= "Code: $custcoed\n";
$sendmessage.= "Comment:\n\n$message\n";
$sendmessage.= "--------------------\n";
$sendmessage.= "\n\nFrom IP: $realip\n";
$sendmessage.= "HOST: $host\n\n";
$sendmessage.= "Sent: $today";
$subject="Webimize Website Evaluation: ".$weburl;
mail("mcreview@webimize.com", $subject, $sendmessage, "From: $name <$email>\r\nReply-To: $email\r\nX-Sender: Strong CONTACT (http://www.stronghtml.com)\r\nReturn-Path: <$email>");
echo "