in reply to (jeffa) 5Re: CGI.pm error
in thread CGI.pm error

I change my server. The Sambar it's stupid to work
with CGI.pm . I work now with IIS and work ok, but i
write 2 files:

#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;

$query = new CGI;
$cookie = $query->cookie(-name=>'test',
-value=>'123456',-expires=>'+1y',-path=>'/'
,-domain=>'localhost',-secure=>0);
print $query->header(-cookie=>$cookie);

------------------------------------------------
 and the secound file dont work
-------------------------------------------------
#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;

print $query->header;
print "<html><head>";
print $query->title('Cookie');
print '</head><body>';
print $query->h3('The file cookie send to server');
print $ENV{'HTTP_COOKIE'};
print '</body></html>';

 ------------------------------------------------------
WHAY?

Replies are listed 'Best First'.
(jeffa) 7Re: CGI.pm error
by jeffa (Bishop) on Jul 12, 2003 at 18:43 UTC
    I have never used Sambar or IIS ... personally, if it's not Apache ... i don't consider it. I recommend you switch to Apache ... but that's just me.

    Anyhoo ... here is some code ... but if you still haven't bothered to read Ovids' Web Programming with Perl then you should - it's free you know. 

    use strict;
use warnings;
use CGI qw(:standard);
use CGI::Cookie;

my %cookie = CGI::Cookie->fetch;

if (exists $cookie{test}) {
   print header,
      start_html('got cookie'),
      p('found the cookie: ' . $cookie{test}->value),
      end_html,
   ;
}
else {
   my $cookie = CGI::Cookie->new(-name=>'test',-value=>12345);
   print header(-cookie=>$cookie),
      start_html('need cookie'),
      p('setting cookie, please reload'),
      end_html,
   ;
}

    [download]
    Now go back and look at the code i gave you at (jeffa) 3Re: CGI.pm error and see if you can get it to work. Advice webstudorio: you don't need to be building a commercial shopping cart right now ... you need to learn Perl first. Go buy a copy of Learning Perl - after you read it and understand it then read Perl For Web Site Management.

    Oh ... it's why, not 'whay'. And please, use code tags. You have been asked several times now and yet you still refuse to use code tags. You simply put a <code> tag on the line before your code and you put a </code> tag on the line after your code. Whay won't you listen? ;)

    jeffa

    L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
[reply]
[d/l]
      ok. I read right now "Perl" by R. Allen Wyke and Donald B. Thomas.
      And sorry for my english but i from Romania and ...
      Thank you.
[reply]

In Section Seekers of Perl Wisdom