Had this old perl program to set and log cookies and id’s but now we needed it to run from wordpress.
\nFiguring out how to set custom cookies (before the html begins) from inside thesis \/ wordpress was harder than it should have been!<\/p>\n
So finally figured out that inside custom_functions.php you can add, for example,<\/p>\n
and this shows up before any headers \/ output are sent.<\/p>\n So now it’s a plugin, here is the code:<\/p>\n ## Note: To move this Cookie functionality, change below in 2 NOTED places! $log_file_line = str_replace(\"\\n\",\"\\t\",$log_file_line) . \"\\n\";<\/p>\n \/\/ need to use absolute path on server, data dir needs 777 permission #-----Create the random numbers - for myCookieMonster ---------# $myfile=0; \t# Already has cookie set $cooksplit = split(\"%7C\", $current_cookies[\"s\"]); #Reset tracking time \t$cookie_value = $current_cookies[\"s\"];<\/p>\n \t# Set cookie \t\/\/print \"cookie details: \".$cookie_name.\" , \".$cookie_value.\" , \".date(\"m-d-Y h:m:s\",$cookie_expiration).\" , \".$cookie_path .\" , \".$cookie_domain; \t\/\/ End of Cookiemonster function add_action('init', 'myCookieMonster');<\/code><\/p>\n","protected":false},"excerpt":{"rendered":" Had this old perl program to set and log cookies and id’s but now we needed it to run from wordpress. Figuring out how to set custom cookies (before the html begins) from inside thesis \/ wordpress was harder than … Continue reading add_action('init', 'myCookieMonster');<\/code><\/p>\n\/*
\nPlugin Name: myCookieMonster
\nPlugin URI: n\/a
\nDescription: Sets and updates custom cookie \"s\"
\nVersion: 1.0
\nAuthor: Joe
\nAuthor URI:
\nLicense:
\n*\/<\/p>\n
\n#-----Create the log file - for myCookieMonster ---------#
\nfunction writelog($tracking_id = '',$session_id = '') {
\n # Log visit
\n $timestamp=time();
\n $human_readable_timestamp=date(\"D M d h:m:s Y\", $timestamp);
\n $log_file_line =
\n\t$session_id .\"\\n\".
\n\tgetenv(\"HTTP_REFERER\") .\"\\n\".
\n\tgetenv(\"SCRIPT_URI\") .\"\\n\".
\n\tgetenv(\"REDIRECT_SCRIPT_URI\") .\"\\n\".
\n\tgetenv(\"REDIRECT_QUERY_STRING\") .\"\\n\".
\n\t$timestamp .\"\\n\".
\n\t$human_readable_timestamp .\"\\n\";<\/p>\n
\n ## NOTE: CHANGE FOLLOWING LINE, & CHECK 'data' DIR PERMISSIONS = 777
\n $filename = '\/home\/##NOTE SET THIS PATH##\/data\/'.$tracking_id;
\n $handle = fopen($filename, 'a');
\n fwrite($handle, $log_file_line);
\n fclose($handle);
\n}<\/p>\n
\nfunction CreateTrackingId() {
\n \/\/ create a 15 digit number <\/p>\n
\n while ($myfile<1){\n $newfile = rand(10000,99999).rand(10000,99999).rand(10000,99999);\n $testthis = '\/home\/##NOTE SET THIS PATH##\/data\/'.$newfile;\n if(!file_exists($testthis)){\n $myfile=1; \n }\n }\n return $newfile;\n}\n\t\nfunction myCookieMonster () { \n\t# Cookie params\n\t## NOTE: CHANGE FOLLOWING LINE\n\t$cookie_domain='##NOTE SET THIS DOMAIN##';\n\t$cookie_path='\/';\n\t$cookie_expiration='';\n\t$cookie_name='s';\n\t$tracking_id=\"\";\n\t$tracking_time = \"\";\n\t$session_id=\"\";\n\t$cookie_life=60*60*24*365; # 1 year\n\t$session_life = 1800; # 1\/2 hour\n\n # cookies are seperated by a semicolon and a space, this will split\n # them and return a hash of cookies\n $rawCookies = split (\"; \",getenv(\"HTTP_COOKIE\"));\n foreach($rawCookies as $thisCookie){\n $mysplit = split (\"=\",$thisCookie);\n $key = $mysplit[0];\n $val = $mysplit[1];\n $current_cookies[$key] = $val;\n \/\/echo $key.\" : \".$val.\"
\\n\";
\n }<\/p>\n
\n\tif (isset($current_cookies[\"s\"])) {
\n $message= \"yes s\"; \/\/ for debugging
\n \/\/ Lesson learned, from certain browsers, the cookie stores the '|' as '%7C'<\/p>\n
\n \t if (count($cooksplit)<3){\n\t\t\t\t $cooksplit = split(\"|\", $current_cookies[\"s\"]);\n\t\t }\n\n $tracking_id = $cooksplit[0];\n $session_id = $cooksplit[1];\n $tracking_time = $cooksplit[2];\n \t\t\n #Check previous tracking time???\n if ((time() - $tracking_time) > $session_life) {
\n $session_id=CreateTrackingId();
\n }<\/p>\n
\n $tracking_time=time();
\n $current_cookies[\"s\"] = $tracking_id . '|' . $session_id . '|' . $tracking_time;
\n $cookie_expiration=($tracking_time + $cookie_life);
\n \/\/echo \"
YES s, \".$tracking_id.\" , \".$session_id;
\n writelog($tracking_id,$session_id);
\n\t}
\n\t# No existing cookie
\n\telse {
\n $message= \"no s
\\n\";
\n # Pick a random tracking id
\n $tracking_id=CreateTrackingId();
\n \/\/echo $tracking_id.\"
\\n\";
\n $session_id=CreateTrackingId();
\n $tracking_time=time();
\n $current_cookies[\"s\"] = $tracking_id . '|' . $session_id . '|' . $tracking_time;
\n $cookie_expiration=($tracking_time + $cookie_life);
\n \/\/echo \"
NO s, \".$tracking_id.\" , \".$session_id;
\n writelog($tracking_id,$session_id);
\n\t}<\/p>\n
\n\t\/\/setcookie($cookie_name,$cookie_value,$cookie_expiration,$cookie_path);
\n\tsetcookie($cookie_name,$cookie_value,$cookie_expiration,$cookie_path,$cookie_domain);<\/p>\n
\n\t\/\/print $message; \/\/ for debugging, tells if the cookie was found or not<\/p>\n
\n}<\/p>\n