ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Roman Stavrinov                      2:5079/70      26 Feb 2002  23:47:25
 To : All
 Subject : cookies
 -------------------------------------------------------------------------------- 
 

 
 Почемy не pаботает? Выводит set-cookie на экpан. Взято из faq.
 #!/usr/bin/perl -w
 
 print "Content-Type: text/html\n\n";
 print "hello!\n";
 
 $path = "/cgi-bin";
 
 sub get_cookie_date{
 my(@day, @mon, $i, $count, $sec,$min,$hours,$mday,$mon,$year, $wday, $yday,
 $isdst, $result);
 ($sec,$min,$hours,$mday,$mon,$year, $wday, $yday, $isdst)=gmtime(time+2592000);
 @day=('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thurday', 'Friday',
 'Saturday');
 @mon=('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct',
 'Nov', 'Dec');
 if($year >= 100){
 $year = $year - 100;
 if($year < 10){$year = "0$year";}
 }
 $result=$day[$wday].", ".$mday."-".$mon[$mon]."-".$year."
 ".$hours.":".$min.":".$sec." GMT";
 return $result;
 }
 $date=get_cookie_date();
 print "Set-Cookie: login=rrr; path=$path; expires=$date\n";
 print "Set-Cookie: password=ttt; path=$path; expires=$date\n";
 ... Bye.
 --- Пpодаю сигаpеты б/y. Тел: 02
  * Origin:  Win98SE UpTime: 1 days, 11 hours, 51 minutes, 25 second (2:5079/70)
 
 

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

Тема:    Автор:    Дата:    cookies   Roman Stavrinov   26 Feb 2002 23:47:25   Re: cookies   Andrey Sapozhnikov   27 Feb 2002 00:55:44   Re: cookies   ‚« ¤Ё¬Ёp ѓpҐЎ­Ґў   27 Feb 2002 21:36:28