diff options
| author | fukachan <fukachan> | 2001-01-28 16:43:12 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-28 16:43:12 +0000 |
| commit | c8280b2860fcf7ea6d06ae453fe23a1b601019b0 (patch) | |
| tree | edfeaa1de44da46f0e48726b27262ad04107b66b /fml/lib/FML/Process | |
| parent | 3d686edce6f92bb67e953c00088716beb5d64f8a (diff) | |
| download | fml8-c8280b2860fcf7ea6d06ae453fe23a1b601019b0.tar.gz fml8-c8280b2860fcf7ea6d06ae453fe23a1b601019b0.tar.bz2 fml8-c8280b2860fcf7ea6d06ae453fe23a1b601019b0.zip | |
s/incoming_mail/incoming_message/
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 6 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 8 | ||||
| -rw-r--r-- | fml/lib/FML/Process/TicketSystem.pm | 36 |
3 files changed, 8 insertions, 42 deletions
diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index b4400f50..d997935c 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -245,7 +245,7 @@ incoming mail to elena@fml.org kicks off libexec/distribute via libexec/fml.pl, whereas mail to elena-ctl@fml.org kicks off libexec/command finally. - incoming_mail => + incoming_message => elena@fml.org => fml.pl => libexec/distribute elena-ctl@fml.org => fml.pl => libexec/command elena-admin@fml.org => forwarded to administrator(s) @@ -261,8 +261,8 @@ C<-d> | load configuration files | start logging service | - | STDIN => FML::Parse - | $CurProc->{'incoming_mail'} <= + | STDIN => FML::Parse + | $CurProc->{'incoming_message'} <= | $CurProc->{'credential'} | | (lock) diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index d79b8f6c..2dbd3feb 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.pm @@ -65,7 +65,7 @@ sub new sub prepare { my ($curproc, $args) = @_; - $curproc->parse_incoming_mail(); + $curproc->parse_incoming_message(); } @@ -143,7 +143,7 @@ sub ValidateInComingMail sub verify_sender_credential { my ($curproc, $args) = @_; - my $r_msg = $curproc->{'incoming_mail'}; + my $r_msg = $curproc->{'incoming_message'}; my $from = $r_msg->{'header'}->get('from'); use Mail::Address; @@ -189,7 +189,7 @@ sub load_config_files } -sub parse_incoming_mail +sub parse_incoming_message { my ($curproc, $args) = @_; @@ -200,7 +200,7 @@ sub parse_incoming_mail # $r_msg is the reference to the memory area. my $r_msg = {}; ($r_msg->{'header'}, $r_msg->{'body'}) = new FML::Parse $curproc, \*STDIN; - $curproc->{'incoming_mail'} = $r_msg; + $curproc->{'incoming_message'} = $r_msg; } diff --git a/fml/lib/FML/Process/TicketSystem.pm b/fml/lib/FML/Process/TicketSystem.pm index 6486b372..eafeebf6 100644 --- a/fml/lib/FML/Process/TicketSystem.pm +++ b/fml/lib/FML/Process/TicketSystem.pm @@ -84,46 +84,12 @@ sub AUTOLOAD =head1 NAME -distribute -- fml5 article distributer program. +TicketSystem -- primitive fml5 ticket system =head1 SYNOPSIS - distribute [-d] config.cf - =head1 DESCRIPTION -libexec/fml.pl, the wrapper, executes this program. For example, The -incoming mail to elena@fml.org kicks off libexec/distribute via -libexec/fml.pl, whereas mail to elena-ctl@fml.org kicks off -libexec/command finally. - - incoming_mail => - elena@fml.org => fml.pl => libexec/distribute - elena-ctl@fml.org => fml.pl => libexec/command - elena-admin@fml.org => forwarded to administrator(s) - OR - => libexec/mead - -C<-d> - debug on. - -=head1 FLOW AROUND COMPONENTS - - | <=> FML::BaseSystem - | load configuration files - | start logging service - | - | STDIN => FML::Parse - | $CurProc->{'incoming_mail'} <= - | $CurProc->{'credential'} - | - | (lock) - | prepare article - | $CurProc->{'article'} is spooled in. - | $CurProc->{'article'} <=> Service::SMTP - | (unlock) - V - =cut 1; |