#!/usr/bin/perl -w use strict; #print < # #DOCTYPEHEADER print "Content-type: text/html; charset=US-ASCII\n\n"; print ""; print ""; print "A Cookie Based Wealth Tracker"; print < function setCookie( name, value, expires, path, domain, secure ) { var today = new Date(); today.setTime( today.getTime() ); if ( expires ) { expires = expires * 1000 * 60 * 60 * 24; } var expires_date = new Date( today.getTime() + (expires) ); document.cookie = name + "=" +escape( value ) + ((expires) ? ";expires=" + expires_date.toGMTString() : "") + ((path) ? ";path=" + path : "" ) + ((domain) ? ";domain=" + domain : "" ) + ( ( secure ) ? ";secure" : "" ); } function getSetCookie(name, info) { var all_cookies = document.cookie.split(';'); var cooky = ''; var nam = ''; var val = ''; for (i=0;i < all_cookies.length;i++) { cooky = all_cookies[i].split('='); nam = cooky[0].replace(/^\\s+|\\s+\$/g, ''); if (nam == name) { val = unescape( cooky[1].replace(/^\\s+|\\s+\$/g, '') ); val_parts = val.split('_'); var howManyVisits = Number(val_parts[0]); //alert("old visits number: " + howManyVisits); var visit_portion = val_parts[1]; var prev_info = val_parts[2]; if (prev_info) { var diff = info - prev_info; var msg = "This is your visit number " + (howManyVisits + 1) + ". " + "Your wealth changed by " + diff; alert(msg); } var newNumVisits = howManyVisits + 1; //alert("new visits number: " + newNumVisits); var newCookieVal = newNumVisits + '_' + visit_portion + '_' + info; setCookie( name, newCookieVal, 15 ); } else { var cookieValue = "1_visits" + '_' + info; setCookie( name, cookieValue, 15 ); } } } function deleteCookie(name, path, domain) { if ( getCookieValueForName( name ) ) { document.cookie = name + "=" + ( (path) ? "; path=" + path : "" ) + ( (domain) ? "; domain " : "" ) + "; expires=Thu, 01-Jan-70 00:00:01 GMT"; } } function load() { window.status="Checking user authentication"; } function checkEntry() { var body = document.getElementsByTagName( "body" ); var msg = "The information you entered for verification: "; var doc_element = document.createElement( "p" ); var textnode = document.createTextNode( msg ); doc_element.appendChild( textnode ); body[0].appendChild( doc_element ); var nameEntered = document.forms[0].yourname.value; var wealthEntered = document.forms["ACKentryform"].sizeofwealth.value; createHTML( nameEntered, wealthEntered ); getSetCookie( nameEntered, wealthEntered ); return false; } function createHTML( ) { var body = document.getElementsByTagName( "body" ); for( var i=0; i < arguments.length; i++ ) { var argtext = arguments[i]; var doc_element = document.createElement( "p" ); var newtext = "You entered: " + argtext; var textnode = document.createTextNode( newtext ); doc_element.appendChild( textnode ); body[0].appendChild( doc_element ); } } SCRIPTEND print ""; print ""; my $forminfo = ''; $forminfo = $ENV{QUERY_STRING}; $forminfo =~ tr/+/ /; $forminfo =~ s/%([a-fA-F0-9]{2,2})/chr(hex($1))/eg; #$forminfo =~ s///g; print "$forminfo"; #if ($forminfo =~ /document/) { #print << "TRYEND"; #