ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Sly Golovanov                        2:5020/794.13  28 Jul 2000  23:58:15
 To : Pavel Reich
 Subject : CGI
 -------------------------------------------------------------------------------- 
 

  Когда часы с дятлом пробили Среда Июль 26 2000 12:13 и стену, сквозь дыру стало
 слышно разговор Pavel Reich и All:
 
  PR> Киньте плиз пример сабжа, например выполняющий следующее:
  PR> пусть есть форма, метод POST. Все поля сохраняются на винте сервера
 
 вот, авторство не мое. вместо сохранения скрипт отправляет все по мылу.
 -=< Коцаем >=-
 #!/usr/local/bin/perl
 
 #Программа SENDMAIL
 $mailprog = '/usr/sbin/sendmail';
 
 read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 
 @pairs = split(/&/, $buffer);
 
 foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $name =~ tr/+/ /;
    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $name =~ s/<!--(.|\n)*-->//g;
    $name =~ s/<([^>]|\n)*>//g;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ s/<!--(.|\n)*-->//g;
    $value =~ s/<([^>]|\n)*>//g;
    $FORM{$name} = $value;
 }
 
 $subject = $FORM{subject}; delete($FORM{subject});
 $to = $FORM{to}; delete($FORM{to});
 $from = $FORM{from}; delete($FORM{from});
 $followupurl = $FORM{followupurl}; delete($FORM{followupurl});
 
 # Open the mail program
 if (open MAIL,"|$mailprog -t -fgektor\@ag.ru")
 {
   print MAIL "To: $to\n";
   print MAIL "From: $from\n";
   print MAIL "Subject: $subject\n";
   print MAIL "\n";
   print MAIL
 "---------------------------------------------------------------------\n";
   foreach $key (keys %FORM)
   {
     print MAIL "$key: $FORM{$key}\n"
   }
   print MAIL
 "---------------------------------------------------------------------\n";
   close MAIL
 }
 print "Status: 302 Moved\n";
 print "Location: $followupurl\n\n";
 -=< Откоцали >=-
 
     Hе пpощаюсь                                            [Стадо Котов]
 
       > SLY <
 
 --- WinUx - операционка будущего
  * Origin: Absolute Games, http://www.ag.ru (2:5020/794.13)
 
 

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

Тема:    Автор:    Дата:    CGI   Pavel Reich   26 Jul 2000 12:13:05   CGI   Sly Golovanov   28 Jul 2000 23:58:15   CGI   Oleg N. Kotenko   29 Jul 2000 17:31:25