ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Roman Y Bogdanov                     2:5090/94.37   04 Feb 2001  00:01:06
 To : Stanislav Los
 Subject : Re: Perl & pager
 -------------------------------------------------------------------------------- 
 

 SL> Как используя Перл послать сообщение на пейджер?
 
  Фоpма для отпpавки:
 
     <table border=0 cellspacing=0 cellpadding=0 width=100%>
     <tr><td><form action="/cgi-bin/peps37-page.pl" method="post">
        <input type="text" name="text"><input type="submit"
 name="b" value="Send">
     </form></td></tr></table>
 
 ДДД все равно получишь файл   [ end Windows Clipboard here ] ДДД
 
 #!/usr/bin/perl
 
 sub parse_form {
         if ($ENV{'REQUEST_METHOD'} eq "POST") {$mode = 0}
         if ($ENV{'REQUEST_METHOD'} eq "GET") {$mode = 1}
         if ($mode == 0) {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'})}
         if ($mode == 1) {$buffer = $ENV{'QUERY_STRING'}}
         @pairs = split(/&/, $buffer);
         foreach $pair ( @pairs ) {
                 ( $thisname, $thisvalue ) = split( /=/, $pair );
                 $thisvalue =~ tr/+/ /;
                 $thisvalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
 hex($1))/eg;
                 $FORM{ $thisname } = $thisvalue;
         }
 }
 
 sub errormessage {
 my ( $sendmail, $bounce_mailer, $send_str, $s ) = '';
  $sendmail = "/usr/sbin/sendmail";
  $bounce_mailer = "$sendmail";
  $send_str = "| ".$bounce_mailer." cont\@continental.krsk.ru";
  open ( FILE, $send_str );
  print FILE "From: pagergate <me\@mail.de>\n";
  print FILE "To: cont\@continental.krsk.ru\n";
  print FILE "Reply-To: me\@mail.de\n";
  print FILE "Subject: 555353335535\n\n";
 
  print FILE "$_[0] - from site";
 
  close (FILE);
 }
 
 # ==== здесь реальное начало программы! ====
 
 &parse_form;
 
 $text = $FORM{'text'};
 
 print "Content-type: text/html\n\n";
 
 if ( $text eq '' ) { print "Izvenite, no Vi ne vveli text soobchenia! )-;" }
 else
                    { &errormessage($text);
        print "Spasibo! Vashe soobchenie bilo otpravlenno. IP address vill be
 logged (-;"; }
 
 ... IP only point, binkd & ifcico; [team SCSI]
 --- http://peps37.ktk.ru/ щ email: peps37#ktk.ru щ icq:5535950
  * Origin: Holland happy hardcore and 200 BPM (2:5090/94.37)
 
 

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

Тема:    Автор:    Дата:    Perl & pager   Stanislav Los   03 Feb 2001 05:55:14   Perl & pager   Alan Long   03 Feb 2001 17:41:57   Re: Perl & pager   Roman Y Bogdanov   04 Feb 2001 00:01:06   Perl & pager   Ilya Vishniakov   06 Feb 2001 00:52:30