|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexander Demin 2:5020/400 20 Feb 2006 20:03:12
To : All
Subject : HTTP::Cookies
--------------------------------------------------------------------------------
Ещё раз всем привет.
Подскажите где я не прав.
#!/usr/bin/perl -w
use strict;
use CGI qw( -no_xhtml :all );
use CGI::Pretty qw( :html4 );
use HTTP::Request;
use HTTP::Cookies;
use LWP::UserAgent;
my $cgi = new CGI;
my $cookie_jar = HTTP::Cookies->new;
$cookie_jar->set_cookie( undef, "SessionId", "kjahjjk", undef,
"www.spectrum.ru", undef, undef, undef, undef, undef, undef );
print $cgi->header(-type=>'text/html');
print $cookie_jar->as_string;
exit;
$cookie_jar->set_cookie - создаю cookie.
Hо почему ничего не выводится на экран?
Подскажите пожалуйста.
--
=======================================================
Demin Alexander / Network Administarator
Group of companies Spectrum / tel. (+7 495) 995-8999
Moscow, 103009, Strastnoy blvr. 8
=======================================================
--- ifmail v.2.15dev5.3
* Origin: Group of companies Spectrum (2:5020/400)
Вернуться к списку тем, сортированных по:
|
