Dynamic variables

[Kelicula]

I am trying to set a variable to one of two things depending on if the client has cookies enabled. I have decided NOT to have a prompt saying "cookies must be enabled" if they don't have cookies enabled, I am going to silently use their IP instead.

The cookie has been added already in the calling page with javascript, with no tests done to see if it actually got written.

But I have also recorded the ip in a hidden form field called "ip".

I need to test if the cookie "id" exists, to decide what my scalar "$id" will contain.


Will this work?

#!/usr/bin/perl -T
 
use strict;
use warnings;
 
use CGI qw(:standard);
 
my $ip = param('ip');
my $cook = cookie('id');
 
my $id = (defined($cook))? $cook : $ip;
 
 

Thanks!

[numberwhun]

I am trying to set a variable to one of two things depending on if the client has cookies enabled. I have decided NOT to have a prompt saying "cookies must be enabled" if they don't have cookies enabled, I am going to silently use their IP instead.

The cookie has been added already in the calling page with javascript, with no tests done to see if it actually got written.

But I have also recorded the ip in a hidden form field called "ip".

I need to test if the cookie "id" exists, to decide what my scalar "$id" will contain.


Will this work?

#!/usr/bin/perl -T
 
use strict;
use warnings;
 
use CGI qw(:standard);
 
my $ip = param('ip');
my $cook = cookie('id');
 
my $id = (defined($cook))? $cook : $ip;
 
 

Thanks!

While not having much experience with cookies, I did some searching of CPAN and found a couple of things.

First is HTTP::Cookies::Find. This is a module to find cookies on a machine for the present user. This may help you locate cookies.

Second, if that doesn't help, you could always take the Javascript out of the way and set the cookie(s) with Perl so you know what's going on (and can actually log the success and failure of it, unlike the Javascript routines). That other module is called HTTP::Cookies.

Hope this helped in some way.

Regards,

Jeff

[Kelicula]

While not having much experience with cookies, I did some searching of CPAN and found a couple of things.

First is HTTP::Cookies::Find. This is a module to find cookies on a machine for the present user. This may help you locate cookies.

Second, if that doesn't help, you could always take the Javascript out of the way and set the cookie(s) with Perl so you know what's going on (and can actually log the success and failure of it, unlike the Javascript routines). That other module is called HTTP::Cookies.

Hope this helped in some way.

Regards,

Jeff

Thanks, Jeff!

That sounds a lot better. The only reason I was using javascript was because the referring page is a "static" document with no perl in it.
But I am in the process of switching everything to a Embperl dynamic site, and
should probably generate that page with cgi. It will eliminate a lot of these kinda troubles.

Do you know if that statement:

 
my $id = (defined($cook)? $cook : $ id;
 
 

will work?

I have never used the "defined" function before.

[numberwhun]

Thanks, Jeff!

That sounds a lot better. The only reason I was using javascript was because the referring page is a "static" document with no perl in it.
But I am in the process of switching everything to a Embperl dynamic site, and
should probably generate that page with cgi. It will eliminate a lot of these kinda troubles.

Do you know if that statement:

 
my $id = (defined($cook)? $cook : $ id;
 
 

will work?

I have never used the "defined" function before.

From what I can see in the documentation of the defined function, it looks like it should. I guess the only way would be to test it out.

Regards,

Jeff