Отправляет email-рассылки с помощью сервиса Sendsay

Perl - подпишись и учись!

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 5.084 RSS
  Декабрь 2000   →
 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
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://perl.dp.ua
Открыта: 03-12-2000

Автор
Nick

Статистика

5.084 подписчиков
0 за неделю
←   Все выпуски   →

Perl - подпишись и учись!


Служба Рассылок Subscribe.Ru проекта Citycat.Ru

Привет всем!

Это третья рассылка моего сайта http://perl.bos.ru
Я благодарен тем немногим(уже больше, чем в второй и первый раз, но надеюсь, что будет больше), которые нашли в себе смелость и подписались на мою рассылку.
Здесь я буду вам рассказывать способы программирования на языке Perl, а также всё, что с ним связано, да и вообще о сайтостроительстве.

Вы наверное сталкивались с такой ситуацией, когда вы регистрируетесь на каком-либо сайте, вводя адрес электронной почты в одно из полей, и буквально в считанные секунды вам приходит электронная почта с приветствием и словами "Спасибо за регистрацию" и т.д. Понятно, что это вам посылает не админ сайта, на котором вы зарегистрировались. Как это делается? Дело всё в том, что при помощи скрипта и программы отсылки почты на сервере возможно сделать отсылку почты. И для осуществления этого, как минимум, необходимо знать путь к программе почты. Пусть она находится по адресу "/usr/sbin/sendmail/". Зададим его некоторой переменной (для удобства работы). Также посоветую вам ввести ещё одну переменную, например $sendmail_allow, для разрешения или запрещения отсылки писем, т.к. на сервере программа будет работать, а на домашнем компьютере будут выдаваться ошибки, так вот чтобы этого не было и для того, чтобы постоянно не вырезать и не вставлять процедуру отсылки почты, сделайте так, как написано выше и просто меняйте значение переменной $sendmail_allow на 0(запрещение отсылать) или 1. 
  $sendmail_allow=1;
  $mailprog='/usr/sbin/sendmail/';
Теперь откроем программу отсылки почты: 

  if ($sendmail_allow){
  open (MAIL,"| $mailprog") || die "Ошибка в программе почты";
Далее вводим основные заголовки email: 

  print MAIL "To: receiver\@hisdomain.com\n";#кому
  print MAIL "Subject: Hello!\n";#тема сообщения
  print MAIL "From: sender\@yourdomain.ru \n";#ваш email
Заметьте, что значок "@" в Perl нужно писать как "\@".
Далее пишете текст послания, например: 
  print MAIL "Спасибо за заход на мою страничку.\n";
  print MAIL "Это пробная отсылка почты\n";
  print MAIL "Пока!.. и удачи!";
И закроем программу почты: 
  close(MAIL);}# фигурная скобка стоит, как закрытие "if"
Вот собственно и всё, удачного применения! 
                                                That's all, Folks!
                                                                Nick
P.s Мой сайт находится в состоянии не только разработки и обновления, но и в состоянии раскрутки, по-этому, если вас не затруднит, посоветуйте мой сайт друзьям.
Также, вероятно, что у всех вас есть сайты, по-этому предлагаю обменяться ссылками.
На сайте также открылся форум, заходите туда, задавайте вопросы, обсуждайте!
Если у вас есть какие-либо вопросы и предложения, то направляйте их на мой e-mail: nicky@nm.ru

Хороших скриптов!

Tenet Banner System
http://subscribe.ru/
E-mail: ask@subscribe.ru
Поиск
В избранное