ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Viktor Holoshivskiy                  2:5020/400     11 Dec 2002  19:12:32
 To : Andrey Savitsky
 Subject : Re: shtml -> аутоpизация
 -------------------------------------------------------------------------------- 
 

 Hi All !
 
 > выведи на стpанице каpтинку невидимую 1*1, соpц
 > котоpой будет somescript.pl - ну а тот уже выставит
 > куку...
 
 Делаю так:
 --
       <FORM action="/login.shtml"
  onsubmit="return login();" target="_self" method="get" name="login">
 <tr><td><img src="/img/1x1.gif" height=1 width=38><input type="hidden"
 name="action" value="action"></td><td></td></tr>
 EOD
 
 print <<EOD;
 <tr><td align=left>*
          Користувач: <br><INPUT type=text class=input size=15 name=nm
 maxLength=10> </td></tr>
 <tr><td align=left>*
          Пароль: <br><INPUT type=password class=input size=15 name=ps
 maxLength=10> </td></tr>
 
 <tr><td align=left>
         <INPUT class=button type=submit value="   Вх?д   "> 
       </FORM>
 --
 
 login.shtml
 <img src="/cgi-bin/login.cgi" height="1" width="1">
 <!--#set var="key" value="Головна стор?нка " -->
 <!--#set var="desc" value="Hовини,створення стор?нки,про..." -->
 <!--#set var="titl" value="Результат ходу в систему" -->
 <!--#set var="fil" value="/txt/index.shtml" -->
 <!--#include virtual="interface.shtml" -->
 ставлю куку
 login.cgi
 ...
 if ($action eq 'action')
 {&action();}
 sub action
 {use CGI qw/:standard/;
 use CGI::Cookie;
 ...
 $a = new CGI::Cookie(-name => 'login',
     -value => $login
 );
 
 $b = new CGI::Cookie(-name => 'stan',
     -value => $stan
 );
 ...
 print header(-cookie=>[$a,$b,$c,$d,$e,$f]);
 читаю куку
 
 print "Content-type: text/html\n\n";
 #$login='',$name='',$dep='',$access='',$stan='';
 ...
 %cookies = fetch CGI::Cookie;
 
 $name = $cookies{'name'}->value || my_html_die("Can't get cookie name <br>$!
 at line ?".__LINE__."");
 $login = $cookies{'login'}->value;
 $access = $cookies{'name'}->value;
 $dep = $cookies{'dep'}->value;
 $stan = $cookies{'stan'}->value;
 
 и при чтении
 Can't call method "value" on an undefined value at
 d:\home\main\cgi-bin\login.cgi line 157.
 
 ну тоесть кука не поставилась. Что где не так? Если в форме акшн сделать
 просто на скрипт, то работает, правда print header( чарсет выставляет  ISO
 With the best regards of the world :)
 Holoshivskiy Viktor
 vik@odpa.gov.if.ua
 --- ifmail v.2.15dev5
  * Origin: Ukranian Academic Research Network (2:5020/400)
 
 

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