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 там пипку поставить - включить текст сообщения в пиьмо ) и только ПОТОМ подписываться на форум если вы сделали наоборот то все будет глючить вам в этом случае надо отписаться от темы/форума, включить эту опцию и снова подписаться Добавлено да, админы если вам не лень то в вашу базу хаков запихайте хак подписки Добавлено да и еще чтобы удобнее было все читатьто создайтеся в почтовом клиенте папочка и в нее по правилу (которые вы нарисуете сами) перекидываются все приходящие сообщения с форума.. и в этой папочке сделать сортировку по Теме |