Мастера помогите.

[XEN__]

Мастера помогите.
Надо сделать скрипт где нибудь на сайте чтобы принимал сообщения и удалял само сообщения оставляя только
тему сообщения, и от кого письмо, а дальше пересылал эту информацию на другой е-мэйл.
Если сайты кто-нибудь такие знает, где есть редирект с изменением текста сообщения при пересылке,
скажите пожалуйста.

[NeoNox]

Подумай пару часов и напиши подробнее что именно тебе нужно.

[XEN__]

Ну спасибо тебе.

Ладно мне нужно сделать, чтобы письма которые я получал,
принимал скрипт, брал только имя отправителя и тема и затем
пересылал на другой адрес.

Насчет редиректа я имел ввиду, на многих серверах почты,
возможен редирект на другой адрес эл. почты, но кроме этого мне нужно чтобы текст из сообщения удалялся, а было лишь только поле, от кого и тема.

[Chs]

perldoc Net::Pop3
+ sendmail

[NeoNox]

Ну спасибо тебе.

Да не за что.
Chs: perldoc Net::IMAP

[Макс]

еще в Юнихе можно настроить чтобы почта приходящая на определенный почтовый ящик автоматом попадала на стандартный вход скрипту.
Описание принципов (с примерами на пхп) можно посмотреть http://php.spb.ru/php/mail_robot.html
И кстати я где-то видел примеры на перле, ссылку не помню.

[Макс]

Насколько я помню скрипт назывался Perldesk.

[NeoNox]

Макс
http://www.hotscripts.com/Detailed/13093.html ?
Слегка из другой оперы...
Ближе вещи из http://www.hotscripts.com/Perl/Scripts_and_Programs/Email_Systems/Web-based_Email/

[Макс]

Насчет PerlDesc-а, то я его привел как пример perl-скрипта работающего через алиасы к почтовым ящикам  (правда я не знал что он платный). ИМХО этот вариант удобнее чем POP3/IMAP так как скрипт будет запускаться автоматически по приходу письма.

[XEN__]

Спасибо.
http://php.spb.ru/php/mail_robot.html !! - как раз-то что нужно!!!
Веб интерфейс не нужен слишком дого с ним разбираться,
а такой робот как раз.

Есть ли что нибудь подобное уже готовое, чтобы оставалось
только залить на сервер и там уже настроить?

[XEN__]

Мне, что собственно надо сделать:
чтобы по пришествию почты, мне на сотовый приходило извещение в виде "от кого" и "тема".

[Макс]

готового ничего нет.
в perldesc было сделано (насколько я помню) через MIME :: Parser
примерно так:

Код: [Выделить]


#!/usr/bin/perl
use MIME::Parser;

my $parser = new MIME::Parser;
$entity = $parser->parse(\\*STDIN);
....

дальше вытаскивай адрес и сабж (как это делается не помню) и посылай письмо