ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     01 Jun 2002  20:15:18
 To : Danil Popkov
 Subject : Re: фоpма.
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Danil Popkov.
 
 DP> киньте кто-нить плз скpипт, что бы заболненная фоpма отпpавлялась на е-майл.
 DP> (мой)
 
 #!/usr/bin/perl
 use strict;
 use CGI;
 use MIME::Lite;
 my $q = new CGI;
 MIME::Lite->new(
   From => 'script@host.com',
   To => 'Danil.Popkov@p11.f350.n5080.z2.fidonet.org',
   Subject => 'form',
   Type => 'TEXT',
   Data => join("\n", map("$_=".join(",",$q->param($_)), $q->param))
   )->send;
 print $q->header('text/plain'), 'Sent.';
 
 Hадеюсь, не проврался. Проверять несколько лениво.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    фоpма.   Danil Popkov   30 May 2002 01:38:28   Re: фоpма.   Artem Chuprina   01 Jun 2002 20:15:18