Сообщения

1

Perl / как отключить создание страницы?

« : 26 Февраля 2007, 14:03:02 »

arto
... ну стер с адресами еще и     my $summ;   ...

... вопрос не в том что и как выводится в письмо, а в том как выключить создание новой страницы, текст остальной программы может быть практически любой...

2

Perl / как отключить создание страницы?

« : 26 Февраля 2007, 13:36:38 »

NeoNox ок, вот текст (адреса убрал чтобы не посчитали раскруткой ресурса) :

#!/usr/bin/perl
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

my $query = CGI->new;
print $query->header(-type => \'text/plain\', -status=> \'204 No Response\');

sub main
{
  my $n1 = param(\'n1\'); my $n2 = param(\'n2\'); my $n3 = param(\'n3\');
  $summ = " $n1 $n2 $n3 ";
  &sendmail(\'aaaaaaaaaaaa\',\'bbbbbbbbbbbb\',$summ);
}

sub sendmail
{ my ($email, $subject, $data) = @_;
 my $login = \'cccccccccccccccc\';    
 my $From = \'dddddddddddddddddd\';
 my $FromName = \'eeeeeeeeeeee\';
 my $mail = "/usr/sbin/sendmail -t -f$login";
 local(*SM);
 if (open(SM, "|$mail")) {
   print SM "From: $FromName <$From>\\n";
   print SM "To: $email\\n";
   print SM "Subject: $subject\\n";
   print SM "Content-Type: text/plain; charset=Windows-1251\\n\\n";
   print SM "$data\\n";
   close(SM);
 } else { die "Ошибка: не найден $mail"; }
}

&main;

3

Perl / как отключить создание страницы?

« : 26 Февраля 2007, 11:36:40 »

NeoNox
Попробую подробнее.
В программе на Perl всего около 20 строк. Беру данные из формы и отправляю их себе на почтовый адрес. Если в программу не вставлять ни одного print, то у юзера открывается новое коно с текстом - ошибка 502, если вставить, то содержимое print выводится опять же в новом окне. Мне нужно сделать так чтобы новое окно вообще не появлялось. Где-то прочитал что нужно отправить заголовок 204, но пока не получается.

4

Perl / как отключить создание страницы?

« : 22 Февраля 2007, 15:52:30 »

очень ценный совет, по эффекту сравним с "удалить волосы"

5

Обсуждение сайтов / попытка объяснить необъяснимое

« : 22 Февраля 2007, 15:28:36 »

Завезут на следующей неделе, заходите еще ...

6

Perl / как отключить создание страницы?

« : 22 Февраля 2007, 14:23:30 »

эффект тот же ... пытается сгенерить окно

7

Обсуждение сайтов / попытка объяснить необъяснимое

« : 22 Февраля 2007, 13:31:32 »

Пробую собрать интересные материалы о ламповом звуке  http://musicangel.ru и скомпоновать их с реальными аппаратами, чтоб не получился банальный магазин ... Как результат?

8

Perl / как отключить создание страницы?

« : 22 Февраля 2007, 12:48:05 »

Из известных модулей собрал небольшую программу, которая берет данные формы и отправляет в почту.
Но при этом программа при каждом обращении открывает у юзера новое окно, которое мне не нужно. Его, конечно можно тутже закрыть, вставив в него скрипт на JS, но тогда на экране получается эффект моргания.
Если ничего не сообщать для нового окна, то оно все равно открывается, но с ошибкой 502.
Заголовок программы такой:
#!/usr/bin/perl
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

Есть простое решение задачи?