ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Babunin Sergej                       2:5020/400     22 Jul 2001  19:56:56
 To : All
 Subject : Help
 -------------------------------------------------------------------------------- 
 

 Hi тебе ALL,
 Hарод есть у меня проблема Hелп мне
 
 #!/usr/bin/perl
 #main.cgi
 if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN,
 $buffer,$ENV{'CONTENT_LENGTH'})}
 if ($ENV{'REQUEST_METHOD'} eq "GET") {$buffer = $ENV{'QUERY_STRING'}}
 @pairs = split(/&/, $buffer);
  foreach $pair (@pairs){
   ($name, $value) = split(/=/, $pair);
   $value =~ tr/ / /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex ($1))/eg;
   $value =~ s///g;
   $FORM{$name} = $value;
   }
 
 $nick = $FORM{'user_name'};                                         #Здесь
 сохраняю имя  пользователя
 if ($FORM{'user_name'} ne ""){
 print "Content-Type: text/html\n\n";
 print "Hi $nick\n";         #Здесь приветствую его
 print "<a href='/cgi-bin/main.cgi?win'>Другое окно</a>\n";     #здесь
 переход в другое окно
 exit;
 }
 if ($name eq "win"){
  print "Content-Type: text/html\n\n";
 print "Привет $nick ты в другом окне\n";        #Здесь хочу его
 попреветствовать и не могу
 exit;                                                                   #Hе
 показывает переменную $nick
 }
 
 print "Content-Type: text/html\n\n";
 print "Poka $nickr\n";
 
 Если кто знает в чем глюк опешите пожалуйста поподробнее
 
 Заранее благодарю!
 --- ifmail v.2.15dev5
  * Origin: Tiscali / Nacamar (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Help   Babunin Sergej   22 Jul 2001 19:56:56   Re: Help   Alexei Ptshelnikov   22 Jul 2001 21:16:46   Help !!!   Fred Musiutchuk   30 Jul 2001 16:24:03   Re: Help !!!   Andrew A. Sabitov   01 Aug 2001 06:49:20   Help !!!   Denis Zwerew   01 Aug 2001 13:36:40   Re: Help !!!   Pavel Ammosov   02 Aug 2001 15:25:48   Re: Help   Anton Fedosin   23 Jul 2001 14:20:09   Help   Aleksey Oleynikov   24 Jul 2001 11:29:04