Bill Platt wrote:
> I have set up the following code for the purpose of
> putting a cookie on my site:
>
> $Cookie_html = "Set-Cookie: latc_affid='$cookie_data';
> expires='$CookieExpires'; path=$CookiePath; domain=$CookieDomain;
> $CookieSecure\n";
What's in those vrbls ?
> print "Content-type: text/html\n\n$Cookie_html\n\n";
>
>
> This does not work. I have tried many variations to
> execute a cookie placement on my system, and so
> far I have struck out on dozens of runs.
>
> I have attempted putting the Cookie_html code in
> front of the Content-type code as was suggested
> on a couple of sites. This causes the whole page
> to print in plain text.
>
> I have attempted using a single \n after the
> Content-type, even single \n after the Cookie_html
> variable. After each attempt, I return to the \n\n
> and still see zero results.
>
> I am watching my IE cookie folder to find the cookie,
> and I have even attempted loading the found cookie
> to my browser window. Both show no cookie.
>
> Is there anyone available that could advise me in
> getting this to work correctly?
Thry this one (run it once and then again to see if the cookie is set :
use strict;
use warnings;
my $cookie_data = 'data';
my $CookieExpires = 'Wed, 29-Dec-2010 00:00:00 GMT';
my $CookiePath = '/';
my $CookieDomain = '';
my $CookieSecure = '';
print "Set-Cookie: latc_affid=$cookie_data; " .
"expires=$CookieExpires; path=$CookiePath; domain=$CookieDomain; " .
"$CookieSecure\n";
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<BODY>\n";
print "<BR>Cookies set:\n";
if ($ENV{'HTTP_COOKIE'}) {
print "<PRE>\n";
foreach (split (/;\s*/, $ENV{'HTTP_COOKIE'})) {
# Split the cookie name and value pairs
my ($name, $value) = split (/=/);
print "$name = $value\n";
}
print "</PRE>\n";
}
print "</BODY>\n";
print "</HTML>\n";
exit;
_______________________________________________
Perl-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
