ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexey Volkogon                      2:5020/400     19 Oct 2000  17:46:13
 To : All
 Subject : Re: cookie
 -------------------------------------------------------------------------------- 
 

 Если еще точнее, то это голосование. Сначала в тело хтмл вставляется форма,
 которая является функцией скрипта. Когда пользователь голосует, вызывается
 тот же скрипт, который сохраняет в базе данные, редиректится на тот же хтмл
 и ставит куки. Так вот после голосования скрипт должен прочитать куки,
 убедиться, что уже головали и вместо функции показа формы голосования должен
 вызвать функцию показа результатов. И не работает :(
 
 Вот куски кода.
 
 #vote.cgi
 
 use CGI;
 
 my $query = new CGI;
 my $vote = $query->param('v');
 my $func = lc($query->param('f'));
 
 my $redirect = "../index.html";
 
 for ($func) {
   if    (/vote/)   { &vote(); }
   elsif (/show/)   { &show(); }
   elsif (/get/)    { &get(); }
 }
 
 sub vote {
   my $cookie =
 $query->cookie(-name=>"vote$vote", -value=>'1', -expires=>'+365d');
     print $query->redirect(-uri=>$redirect, -cookie=>$cookie);
 }
 
 sub get {
   my $voted = int($query->cookie(-name=>"vote$vote"));
   if ($voted){
     &show();
   } else {
     #... показ формы голосования
   }
 }
 
 sub show {
   #... показ результатов
 }
 
 #index.html
 
 <!--#include virtual="/cgi-bin/vote.cgi?v=4&f=get" -->
 --- ifmail v.2.15dev5
  * Origin: Customer of ISP Alfacom Online (2:5020/400)
 
 

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