diff options
| author | fukachan <fukachan> | 2002-07-15 15:27:13 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-15 15:27:13 +0000 |
| commit | 67ca162e475b706fe2c48bd0898b72b4e686e4e6 (patch) | |
| tree | a013ae7a4399ffa230abe03fd1e4dd2ecf232119 /fml/lib/FML/Command/DataCheck.pm | |
| parent | 09aa33f70f3ee62223bab571f4e658ab23cf808b (diff) | |
| download | fml8-67ca162e475b706fe2c48bd0898b72b4e686e4e6.tar.gz fml8-67ca162e475b706fe2c48bd0898b72b4e686e4e6.tar.bz2 fml8-67ca162e475b706fe2c48bd0898b72b4e686e4e6.zip | |
define the following access methods:
config()
pcb()
incoming_message_header()
incoming_message_body()
incoming_message()
article_header()
article_body()
article_message()
modified to use incoming_message_header() incoming_message_body()
incoming_message() article_header() article_body() article_message().
Diffstat (limited to 'fml/lib/FML/Command/DataCheck.pm')
| -rw-r--r-- | fml/lib/FML/Command/DataCheck.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/FML/Command/DataCheck.pm b/fml/lib/FML/Command/DataCheck.pm index 4820c804..28d44272 100644 --- a/fml/lib/FML/Command/DataCheck.pm +++ b/fml/lib/FML/Command/DataCheck.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: DataCheck.pm,v 1.2 2002/04/26 10:29:12 fukachan Exp $ +# $FML: DataCheck.pm,v 1.3 2002/05/19 11:23:57 fukachan Exp $ # package FML::Command::DataCheck; @@ -122,7 +122,7 @@ sub find_commands_for_stranger my ($self, $curproc) = @_; my $config = $curproc->{ config }; my $commands = $config->get_as_array_ref('commands_for_stranger'); - my $body = $curproc->{ incoming_message }->{ body }; + my $body = $curproc->incoming_message_body(); my $msg = $body->find_first_plaintext_message(); my (@body) = split(/\n/, $msg->message_text ); my $comname = ''; |