VPF::подписка на рассылку со своего сайта на perl?

glusan

Дата 21.12.2004, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 20.12.2004

Репутация: нет
Всего: нет

как организовать рассылку подписки со своего сайта на perl

chaos

Дата 22.12.2004, 07:02 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

как как
пишешь скрипт каторый будет собирать базу(e-mail, интересы) подписавшихся, и второй каторый будет будет рассылать вот и все. Рассыльщик вообще к сайту не каким боком ...
Он будет отдельным скриптом по крону или еще чем нибудь запускаться, смотреть базу подписчиков и слать им в зависимости от интересов. Вот и все.
Или тебе примеры надо?

glusan

Дата 22.12.2004, 18:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 20.12.2004

Репутация: нет
Всего: нет

chaos
chaos
glusan

все ладно, но мне все-таки не понятно, можно пример показать

korob2001

Дата 22.12.2004, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

Алгоритм уже есть, что тебе мешает реализовать его самому?

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Гость_glusan

Дата 23.12.2004, 06:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

алгоритм есть, но он как я понимаю работает не для всех, а именно для тех кто на mail.ru
вот с чем я работаю
open (MZ,$MAIL_PROGRAM) or return;
print MZ "To: $email\n";
print MZ "From: \"$adminname\" \<$adminmail\>\n";
print MZ "Subject: $subj\n";
print MZ "MIME-Version: 1.0\n";
print MZ "Content-Type: $emode\; charset=\"$echarset\"\n";
print MZ "Content-Transfer-Encoding: 8bit\n\n";
print MZ "$buf\n";
close (MZ);

chaos

Дата 23.12.2004, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

хочу еще поинтересоваться, под виндой у тя все это будет или на никсах?

Кто то может сказать какая разница, для меня есть разница ;))

glusan

Дата 23.12.2004, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 20.12.2004

Репутация: нет
Всего: нет

этот скрипт у меня стоял на сервере провайдера и не работал с mail.ru,
кстати просвяти что такое никс

korob2001

Дата 23.12.2004, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

Цитата

кстати просвяти что такое никс

Операционные системы UNIX, Linux и т.п.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

chaos

Дата 24.12.2004, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

Репутация: нет
Всего: 44

Вот тебе не большой примерчик
Форм для подписки

Код


<form action=/cgi-bin/subs.pl method=POST>
e-mail: <input type="text" name="email" value="[email protected]">
<br>
<input type="checkbox" name="i1" valuе="интерес1"><br>
<input type="checkbox" name="i2" valuе="интерес2"><br>
<input type="checkbox" name="i3" valuе="интерес3"><br>
<input type="submit" value="send">
</form>

subs.pl

Код


#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
use Fcntl qw(:flock);

my $path_file = "/tmp/delivery.txt";
my $semaphore_file="/tmp/delivery.sem";

sub get_lock {
  open (SEM, ">$semaphore_file") || die "Невозможно создать семафор: $!";
  flock (SEM, LOCK_EX) || die "невозможно заблокировать файл";
}

sub release_lock {
  close(SEM);
}

sub save {
  get_lock();
  open (M, ">>$path_file") || die "$!";
  print M param('email'), "  ", param('i1'), "  ", param('i2'), "  ", param('i3'), "\n";
  close (M);
  release_lock();
}


print header;
if (defined param('submit')) {
  save();
}

моут быть ошибочки тк не проверял. это самый тривиальный вариант для подписки

Вот разберись пока с этим, разберешься пойдем далее

Это сообщение отредактировал(а) chaos - 27.12.2004, 12:39

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »