|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Serge Chervjakov 2:5020/400 03 Sep 2004 23:22:21
To : Dmitriy Bogun
Subject : email
--------------------------------------------------------------------------------
Tue May 25 2004 08:23, Dmitriy Bogun wrote to All:
DB> Люди, быть может немножко не в теся, но я подозреваю, что вы это знаете.
DB> Так вот - как приходяще по емылу письма отдавать на обработку скрипту?
DB> Допустим нас интересуют письма с сабжем=='AAA'.
DB> Письма забираются fetchmail'ом, который потом их скармливает сендмылу.
DB> ЗЫ ОС Linux.
У меня делается так:
my $mail=getfile('/var/spool/mail/userx'); - получает все что в файле
/var/spool/mail/userx
printfile('/var/spool/mail/userx',''); - записывает туда пустоту
my
@pages=$mail=~/(#email#:(?:.*?\n)#(?:get|post)#:(?:.*?\n)(?:#refer#:(?:.*?)\n)?
(?:#data#:(?:.*?)\n)?(?:#html#:(?:.*?)\n)?)/g; - выбирает из писем нужные
строчки.
Используется в целях обхалявливания инета в универе (ну кто ж их просил
писать, что 3 метра мыла дают, при этом проходящий через мыло траффик - фри:)
):)). Думаю немного модернизировав получишь то что тебе нада... Правда
возможно, что я тогда еще что-то с серваком делал (правил что-нибудь в
настройках) - потому не могу быть увереным, что оно у тебя сразу заработает...
--- ifmail v.2.15dev5.3
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по:
| Тема: |
Автор: |
Дата: |
|
email |
Dmitriy Bogun |
25 May 2004 08:23:28 |
 Re^5: заpаботок |
Ivan Frolkov |
03 Sep 2004 22:50:05 |
 email |
Serge Chervjakov |
03 Sep 2004 23:22:21 |
 Re: email |
Artem Chuprina |
04 Sep 2004 14:22:44 |
|
Re: email |
Serge Chervjakov |
04 Sep 2004 15:05:10 |
|
Re: email |
Artem Chuprina |
04 Sep 2004 16:42:16 |
|
|
