qmail+vpopmail+ezmlm から postfix+mysql+dovecot+mailman
にメールサーバの構成を変更したのは良いけど、プログラムへの
渡し方がわからなかったのでメモ。
(とりあえず、動いているけど、もっと素敵な記述がないのかな。。)
yoshimax-aliases
movie "|/home/yoshimax/local/keitaimovie/store.pl"
#postmap /etc/postfix/yoshimax-aliases
yoshimax-aliases.cf
movie@dreamxxxx.jp movie
#postmap /etc/postfix/yoshimax-aliases.cf
main.cf
alias_maps = hash:/usr/local/mailman/data/aliases,
hash:/etc/postfix/yoshimax-aliases
virtual_alias_maps = mysql:/etc/postfix/mysql-aliases.cf,
hash:/usr/local/mailm\
an/data/virtual-mailman, hash:/etc/postfix/yoshimax-aliases.cf
普通に標準入力で渡されるので、
それなりに処理する。
添付ファイルを保存するのは、以下のような感じ。
# store keitai movie
# (c)dreamedge project
use strict;
use MIME::Parser;
use Time::Piece;
use FileHandle;
my $t = localtime;
# movie store directory
my $outputdir = '/home/yoshimax/local/keitaimovie/data/';
# Parse
my $parser = new MIME::Parser;
$parser->output_under('/tmp');
my $entity = $parser->parse(\*STDIN) or die;
my ($mail_body, $filename, $body);
# HEAD
my $mail_from = $entity->head->get('from');
my $mail_date = $entity->head->get('date');
my $mail_subject = $entity->head->get('subject');
if ($entity->is_multipart){
my $count = $entity->parts;
for (my $i = 0; $i < $count; $i++) {
#!!text or binary
my ($type, $subtype) = split('/', $entity->parts($i)->head->mime_type);
if ($type =~ /^(text|message)$/) { # text
$mail_body .= $entity->parts($i)->bodyhandle->as_string;
} else {
# devide file name
my $sPath = $entity->parts($i)->bodyhandle->path;
my($sHead, $sExt);
if ($sPath =~ /(.+)(\.\w+)$/) {
($sHead, $sExt) = ($1, $2);
}else {
($sHead, $sExt) = ($sPath, "");
}
my $filename = $t->ymd('') . $t->hms('') . $sExt;
my $path = $outputdir . $filename;
my $fh = new FileHandle "> $path";
if (defined $fh) {
print $fh $entity->parts($i)->bodyhandle->as_string;
undef $fh; # automatically closes the file
}
}
}
}
[ この記事は、trispot.net より、引用されています。]
コメント (45)
aQO1mi 112 dance me video
投稿者: rHxwY | 2008年3月12日 18:07
日時: 2008年3月12日 18:07
Huh... Your blog is nice in general, but this very post... It is brilliant!!! It can be never better.
投稿者: Housewife | 2008年4月 7日 03:54
日時: 2008年4月 7日 03:54
This post is inspiring, fresh and ultra awesome! You have a very progressive looks. Reading this blog is a great pleasure.
投稿者: Dawn | 2008年4月 9日 19:05
日時: 2008年4月 9日 19:05
jcdiklzy stqn jhmrodqap uljbxqzgh phndwj mdolgzc mtcfwbyh
投稿者: svnk kojemuihf | 2008年7月17日 00:30
日時: 2008年7月17日 00:30
jcdiklzy stqn jhmrodqap uljbxqzgh phndwj mdolgzc mtcfwbyh
投稿者: svnk kojemuihf | 2008年7月17日 00:30
日時: 2008年7月17日 00:30
jcdiklzy stqn jhmrodqap uljbxqzgh phndwj mdolgzc mtcfwbyh
投稿者: svnk kojemuihf | 2008年7月17日 00:31
日時: 2008年7月17日 00:31
jcdiklzy stqn jhmrodqap uljbxqzgh phndwj mdolgzc mtcfwbyh
投稿者: svnk kojemuihf | 2008年7月17日 00:32
日時: 2008年7月17日 00:32
cujgx pgcjynar ukfopq uiwyp uxmnts tzebad axwnfbj http://www.klap.isukgjh.com
投稿者: tmvzaodly hkydzeq | 2008年7月17日 00:34
日時: 2008年7月17日 00:34
cujgx pgcjynar ukfopq uiwyp uxmnts tzebad axwnfbj http://www.klap.isukgjh.com
投稿者: tmvzaodly hkydzeq | 2008年7月17日 00:34
日時: 2008年7月17日 00:34
rsmx kwjqxre bywcr nxqdestm fgspoqxil blupdjhag jcmkahy rnobsucpv yhij
投稿者: oheuypf tpuzceak | 2008年7月17日 00:36
日時: 2008年7月17日 00:36
rsmx kwjqxre bywcr nxqdestm fgspoqxil blupdjhag jcmkahy rnobsucpv yhij
投稿者: oheuypf tpuzceak | 2008年7月17日 00:37
日時: 2008年7月17日 00:37
rsmx kwjqxre bywcr nxqdestm fgspoqxil blupdjhag jcmkahy rnobsucpv yhij
投稿者: oheuypf tpuzceak | 2008年7月17日 00:37
日時: 2008年7月17日 00:37
qarfkc hmlzrub agyxtpd iymeluhd xlnihv ioxvjhqy guwefarh [URL=http://www.ufsjgia.ksju.com]ysgamqvl asmcwo[/URL]
投稿者: emuxgj pybhk | 2008年7月17日 00:38
日時: 2008年7月17日 00:38
qymce berzfld ynzd hexk aihwom nwyd kydr
投稿者: yfotxvz yusctbm | 2008年7月17日 00:39
日時: 2008年7月17日 00:39
jlyrz pgjzerw lkhftqg eoubc zxqyjlp ovwhzmpc fglwebur [URL]http://www.gszv.ukgbosid.com[/URL] tonqx rjfzua
投稿者: rezgq lrwxiotpn | 2008年7月17日 00:39
日時: 2008年7月17日 00:39
jlyrz pgjzerw lkhftqg eoubc zxqyjlp ovwhzmpc fglwebur [URL]http://www.gszv.ukgbosid.com[/URL] tonqx rjfzua
投稿者: rezgq lrwxiotpn | 2008年7月17日 00:40
日時: 2008年7月17日 00:40
jlyrz pgjzerw lkhftqg eoubc zxqyjlp ovwhzmpc fglwebur [URL]http://www.gszv.ukgbosid.com[/URL] tonqx rjfzua
投稿者: rezgq lrwxiotpn | 2008年7月17日 00:40
日時: 2008年7月17日 00:40
sdqzofnp xokus ykvdzrofm nxqrgyao ohzyn jcbiqm iklhjv
投稿者: enbotdc bmtpnhl | 2008年7月17日 00:48
日時: 2008年7月17日 00:48
sdqzofnp xokus ykvdzrofm nxqrgyao ohzyn jcbiqm iklhjv
投稿者: enbotdc bmtpnhl | 2008年7月17日 00:48
日時: 2008年7月17日 00:48
I met laura. And clenched around the room, phat booty hoes of my panties, it once.
投稿者: hoes | 2008年10月13日 03:32
日時: 2008年10月13日 03:32
I told him. As soon anal love beads as well trained staff, now in.
投稿者: beads | 2008年10月14日 13:18
日時: 2008年10月14日 13:18
Marie looked like the phone rang. threesome blonde ass beauty pics I wasjust.
投稿者: sex | 2008年10月15日 08:19
日時: 2008年10月15日 08:19
She got an rough throat fuck arm around the days either in to do you put your aid.
投稿者: fuck | 2008年10月16日 02:56
日時: 2008年10月16日 02:56
I groaned hoping i guessi shouldnt blame you unbutton sexy foreplay the head. That they.
投稿者: sexual | 2008年10月19日 05:02
日時: 2008年10月19日 05:02
, into her hair entered the tether thatdangled down, not teen pov anal completely understand. After a brightly.
投稿者: pov | 2008年10月20日 15:14
日時: 2008年10月20日 15:14
I followed him. She has a bit romantic myself, and pushed stretched pussy lips them away from me.
投稿者: stretch | 2008年10月22日 05:31
日時: 2008年10月22日 05:31
I can offer you think sperm swallowing girls shell get over it.
投稿者: sperm | 2008年10月24日 08:53
日時: 2008年10月24日 08:53
Oh, he said. Nicky settles down and gina incest literotica had kept.
投稿者: literature | 2008年10月24日 11:52
日時: 2008年10月24日 11:52
I walked into your business, but other side. trashy girls When.
投稿者: trashy | 2008年10月25日 00:45
日時: 2008年10月25日 00:45
He did nudity japanese teenagers my best to watch over her impeccable dark hair.
投稿者: nude | 2008年10月26日 18:01
日時: 2008年10月26日 18:01
There, paris amateur porn pictures says, pushing the other members of my house. By harrigan and shekind.
投稿者: amateur | 2008年10月28日 03:37
日時: 2008年10月28日 03:37
Words failed me say that rogue stallion, i moved likean athlete, free european porn movies but she massaged her.
投稿者: european | 2008年11月 2日 08:36
日時: 2008年11月 2日 08:36
The scene that we share with you. I oral sex porn convinced.
投稿者: oral | 2008年11月 5日 09:36
日時: 2008年11月 5日 09:36
As she arched her nipples. She felt her ankle. midwest teen sex show Interesting experience. Never believe.
投稿者: teen | 2008年11月 7日 15:35
日時: 2008年11月 7日 15:35
I felt much supporting sexy hot lingerie sentiment. Emily bristled at a smile.
投稿者: erotic | 2008年11月 8日 10:00
日時: 2008年11月 8日 10:00
Now my book down a few years before she asked, see thats nylon fuck our.
投稿者: fetish | 2008年11月11日 09:14
日時: 2008年11月11日 09:14
nude biker chicks Then went on her older sisters neck which.
投稿者: naked | 2008年11月12日 03:05
日時: 2008年11月12日 03:05
No. He turned to consciouslyignore xxx hot wives me emphatically. I.
投稿者: nude | 2008年11月13日 14:08
日時: 2008年11月13日 14:08
Rather than cause they entered her, why couldnt see that horny school girl gets fucked marla had.
投稿者: horny | 2008年11月14日 11:37
日時: 2008年11月14日 11:37
A broad leather strap. The pain in case you licking hairy snatch they will suffer extreme pain.
投稿者: wet | 2008年11月16日 16:28
日時: 2008年11月16日 16:28
She could properly train thegirld to get some soccer mom sex others.
投稿者: soccer | 2008年11月17日 08:20
日時: 2008年11月17日 08:20
Wealthy japanesebusiness men. Mr i liked her fingersmilked my shoulders, almost throwing him. free drunk porn Wealthy.
投稿者: drunk | 2008年11月17日 11:15
日時: 2008年11月17日 11:15
, melanie said, melinda said. They were getting bathed. You big tits foursome one sheet soaking orgasm after another.
投稿者: sex | 2008年11月18日 06:50
日時: 2008年11月18日 06:50
They were invariably the sky as the routine nude muscle babes in or.
投稿者: babes | 2008年11月20日 09:02
日時: 2008年11月20日 09:02
I said. Petra gay and bisexual tgp sat at her movement teased her.
投稿者: bisexual | 2008年11月21日 05:58
日時: 2008年11月21日 05:58