yurezg2
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
есть такой хак - подписка на форум
т.е внизу каждого ФОРУМА появляется ссылка - подписаться на форум
то есть почти эха, только без возможности отвечать по мылу
экономится жуткая куча времени и трафика, весь форум- в почтовом ящике
сам хак лежит вот тут
http://www.ibhackers.com/ikonboard.cgi?s=3ca8042e09ecffff;act=ST;f=6;t=21453
но письма вялятся одной кучей и фиК поймешь что к чему, потому какк у них тема одинаковая...
в итоге я заковырял так что когда высылается письмо о новом сообщении то в теме письма указывается тема на форуме и имя автора так что можно по теме письма сортировать и все будет прекрасно видно
когда вы ставите хак и редактируете /sources/Post.pm то надо вместо
Код: my %seen;
for my $Row (@{$subs}) {
next unless ($Row->{'DATE_STARTED'} > time - ($Row->{'PRUNE'} * 3600 * 24));
next unless $Row->{'EMAIL_ADDRESS'};
#Remove multiple emails to one address
next if exists $seen{ $Row->{'EMAIL_ADDRESS'} };
$seen{ $Row->{'EMAIL_ADDRESS'} } = 1;
my $message = $Row->{'rFULL'} ? $with : $without;
$mail->Send( TO => $Row->{'EMAIL_ADDRESS'},
FROM => '',
SUBJECT => $Post::lang->{'email_title'},
MESSAGE => $message
);
}
for my $Row (@{$subs2}) {
next unless ($Row->{'DATE_STARTED'} > time - ($Row->{'PRUNE'} * 3600 * 24));
next unless $Row->{'EMAIL_ADDRESS'};
#Remove multiple emails to one address
next if exists $seen{ $Row->{'EMAIL_ADDRESS'} };
$seen{ $Row->{'EMAIL_ADDRESS'} } = 1;
my $message = $Row->{'rFULL'} ? $with : $without;
$mail->Send( TO => $Row->{'EMAIL_ADDRESS'},
FROM => '',
SUBJECT => $Post::lang->{'email_title'},
MESSAGE => $message
); |
нарисовать
Код:
my $info = $Post::lang->{'email_title'};
$info .= ' "';
$info .= ($obj->{'TOPIC'}->{'TOPIC_TITLE'}|$iB::IN{'TopicTitle'});
$info .= '" , author - ';
$info .= $the_poster;
my %seen;
for my $Row (@{$subs}) {
next unless ($Row->{'DATE_STARTED'} > time - ($Row->{'PRUNE'} * 3600 * 24));
next unless $Row->{'EMAIL_ADDRESS'};
#Remove multiple emails to one address
next if exists $seen{ $Row->{'EMAIL_ADDRESS'} };
$seen{ $Row->{'EMAIL_ADDRESS'} } = 1;
my $message = $Row->{'rFULL'} ? $with : $without;
$mail->Send( TO => $Row->{'EMAIL_ADDRESS'},
FROM => '',
SUBJECT => $info,
MESSAGE => $message
);
}
for my $Row (@{$subs2}) {
next unless ($Row->{'DATE_STARTED'} > time - ($Row->{'PRUNE'} * 3600 * 24));
next unless $Row->{'EMAIL_ADDRESS'};
#Remove multiple emails to one address
next if exists $seen{ $Row->{'EMAIL_ADDRESS'} };
$seen{ $Row->{'EMAIL_ADDRESS'} } = 1;
my $message = $Row->{'rFULL'} ? $with : $without;
$mail->Send( TO => $Row->{'EMAIL_ADDRESS'},
FROM => '',
SUBJECT => $info,
MESSAGE => $message
); |
автор оригинального хака - Camil
автор дополнения - Camil  целую неделю я это из него выжимал
только вот что, смотрте сюда
для того чтобы получать в письме сам текст сообщения, вам нужно СНАЧАЛА эту опцию установить (панель управление
свойства email
там пипку поставить - включить текст сообщения в пиьмо ) и только ПОТОМ подписываться на форум
если вы сделали наоборот то все будет глючить
вам в этом случае надо отписаться от темы/форума, включить эту опцию и снова подписаться
Добавлено
да, админы
если вам не лень то в вашу базу хаков запихайте хак подписки
Добавлено
да
и еще
чтобы удобнее было все читатьто создайтеся в почтовом клиенте папочка и в нее по правилу (которые вы нарисуете сами) перекидываются все приходящие сообщения с форума.. и в этой папочке сделать сортировку по Теме
|
