ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : George Krasotin                      2:5020/400     15 May 2000  15:06:57
 To : All
 Subject : cookies
 -------------------------------------------------------------------------------- 
 

 Вот прога, выводит список куков.
 ##########################################################
 #!perl -w
 #
 ##########################################################
 
 use CGI;
 use CGI::Cookie;
 
 $co = new CGI;
 
 print   $co->header,
         $co->start_html(
             -title => "Список куков",
             -author => 'gk',
             -meta => { 'keywords' => 'CGI Perl'},
             -BGColor => 'white',
             -LINK => 'red'
         ),
         $co->center("Список куков"),
         $co->hr,
         $co->p;
 
 %cookies = fetch CGI::Cookie;
 foreach my $kyka ( keys %cookies) {
         print $cookies{$kyka}->name, $co->br;
 }
 
 print   $co->center("Список куков"),
         $co->endform,
         $co->end_html;
 
 ##########################################################
 Hа самом деле не выводится ничего. Apach, ActivePerl 5.6, winnt4.0.
 
 Где в русском 5-ом экслорере разрешают/запрещают куки не знаю.
 Hо.. в регистри на поиск "cook" там было все enablled. Мало того,
 в своей директории профайлез я нашел директорию Cookies и там
 даже созданную мной куку.
 
 Где я тут чайник? :)
 
 Спасибо.
 
 Regards,
 George.
 
 p.s.  Кстати, просветите начинающего, кука работает только на той странице
 где сделана
 - или вообще на броузере?
 --- ifmail v.2.15dev5
  * Origin: Rostelecom/Internet Centre (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор