Автор Тема: Mail::Mailer  (Прочитано 8836 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн novice2

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 11
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Mail::Mailer
« : 10 Июля 2002, 15:29:54 »
Братья и сестры! Объясните новичку.
Как можно узнать результат посылки письма?

У меня на хосте нет sendmail. Почту отправляю с помощью Mail::Mailer. Стоит скорее всего qmail, но хочется универсальности в скрипте (Mail::Mailer автоматом выбирает среди sendmail, mail, smtp, qmail...).

Спасибо.

Оффлайн Evgeny

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 272
  • +0/-0
  • 0
    • Просмотр профиля
Mail::Mailer
« Ответ #1 : 11 Июля 2002, 19:38:39 »
А сам напрямую с мэил сервером связываться непробовал? Это самый универсальный способ.

Оффлайн novice2

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 11
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Mail::Mailer
« Ответ #2 : 12 Июля 2002, 08:16:14 »
Evgeny
напрямую - это SMTP?
хочешь сказать, что все равно потом все по SMTP идет?
а какой сервер используется (я же его не указываю)?

попутно вопрос - существуют ли стандарты на ответ о недоставке "non-delivery notice"? хочется обработать ситуацию, когда письмо вроде ушло, а попозже ответ - типа "не могу доставить".

Оффлайн Evgeny

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 272
  • +0/-0
  • 0
    • Просмотр профиля
Mail::Mailer
« Ответ #3 : 12 Июля 2002, 15:50:47 »
Цитировать
напрямую - это SMTP?

Да.

Цитировать
а какой сервер используется (я же его не указываю)?

Это спросить у админов нужно.

Оффлайн Evgeny

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 272
  • +0/-0
  • 0
    • Просмотр профиля
Mail::Mailer
« Ответ #4 : 12 Июля 2002, 15:54:29 »
Вот код небольшой.
Правда только для unix mail сервера подходит.

#!/usr/bin/perl

$mailserver=\'mail.server.com\';  # здесь свой нужно подставить

$From=\'Me\';
$To=\'to_adress@mail.com\';
$Subject=\'Test Message\';
$Message="Test ok!\\nTest ok!\\nTest ok!";

$error=sendEmail($From,$To,$Subject,$Message);
if ($error)
{  print "\\nError: $error\\n";
}


sub sendEmail
{  local ($From,$To,$Subject,$Message)=@_;
   local ($remotehost,$port)=($mailserver,25);
   local ($AF_INET,$SOCK_STREAM,$sockaddr)=(2,1,\'S n a4 x8\');
   local ($thisaddr,$thataddr);
   $thisaddr=gethostbyname("");
   $thataddr=gethostbyname($remotehost);
   unless(socket(S, $AF_INET, $SOCK_STREAM, getprotobyname(\'tcp\')))
   {  return 41;
   }
   unless(bind(S,pack($sockaddr, $AF_INET, 0, $thisaddr)))
   {  return 42;
   }
   unless(connect(S,pack($sockaddr, $AF_INET, $port, $thataddr)))
   {  return 43;
   }
   select(S); $|=1; select(STDOUT);
   print S "helo uicserver\\n";
   print $l=;
   print S "mail from: <>\\n";
   print $l=;
   print S "rcpt to: $To\\n";
   print $l=;
   print S "data\\n";
   print $l=;
   print S "Subject: $Subject\\n";
   print S "From: $From\\n";
   print S "To: $To\\n";
   print S "Content-Type: text\\/plain\\n\\n";
   print S "$Message\\n";
   print S "\\n.\\n";
   print $l=;
   print S "quit\\n";
   print $l=;
   close(S);
   return 0;
}

Оффлайн kopachev

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 14
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Mail::Mailer
« Ответ #5 : 16 Февраля 2003, 14:02:17 »
Где взять Mail::Mailer и как с ним работать?

Оффлайн Макс

  • vir magni ingenii
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3534
  • +0/-0
  • 2
    • Просмотр профиля
Mail::Mailer
« Ответ #6 : 16 Февраля 2003, 14:40:19 »
Цитировать
Где взять Mail::Mailer и как с ним работать?

ppm install mailtools
First learn computer science and all the theory. Next develop a programming style. Then forget all that and just hack. ( George Carrette )

Оффлайн kopachev

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 14
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Mail::Mailer
« Ответ #7 : 16 Февраля 2003, 14:49:51 »
ppm install mailtools

Я не очень соображаю. Поподробнее пожалуйста.:)

Оффлайн Макс

  • vir magni ingenii
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3534
  • +0/-0
  • 2
    • Просмотр профиля
Mail::Mailer
« Ответ #8 : 16 Февраля 2003, 15:06:49 »
Ты под Win работаеш ?
зайди в каталог с перлом (если он у тебя в PATH не прописан) и в командной строке набери то что я выше написал. Под *nix по идее команда должна выглядеть также
First learn computer science and all the theory. Next develop a programming style. Then forget all that and just hack. ( George Carrette )

Оффлайн NeoNox

  • Координатор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 3012
  • +0/-0
  • 0
    • Просмотр профиля
Mail::Mailer
« Ответ #9 : 17 Февраля 2003, 11:08:55 »
Цитировать
Под *nix по идее команда должна выглядеть также

perl MCPAN -e shell;
The documentations is your friend

Оффлайн mike

  • ProPerl\'er
  • Старожил
  • ****
  • Сообщений: 435
  • +0/-0
  • 2
    • Просмотр профиля
    • http://
Mail::Mailer
« Ответ #10 : 17 Февраля 2003, 13:36:31 »
Есть еще модуль, который работает с почтовым сервером напрямую: Mail::Sender.
[ основной браузер когда-то был, теперь попробуй разберись =]

Оффлайн kopachev

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 14
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Mail::Mailer
« Ответ #11 : 18 Февраля 2003, 20:43:28 »
А где его взять и как пользоваться (примерчики)

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
Mail::Mailer
« Ответ #12 : 18 Февраля 2003, 22:07:37 »
Цитировать
А где его взять и как пользоваться (примерчики)

Фак читаем, да?
http://search.cpan.org/
2B OR NOT 2B = FF

Оффлайн kopachev

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 14
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Mail::Mailer
« Ответ #13 : 22 Февраля 2003, 17:36:08 »
Примерки посмотрел, как пользоваться понятно. Нужно ли что-то устанавливать. мне нужно на локале потестить.

Оффлайн Chs

  • Perl программер
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1108
  • +0/-0
  • 2
    • Просмотр профиля
    • http://chs.now.at/
Mail::Mailer
« Ответ #14 : 22 Февраля 2003, 22:24:01 »
Цитировать
Нужно ли что-то устанавливать. мне нужно на локале потестить.

Нужно.
2B OR NOT 2B = FF

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28