diff options
| author | fukachan <fukachan> | 2002-07-31 13:22:01 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-31 13:22:01 +0000 |
| commit | c27ee209c0d01b30692bd8ad056faa224fcf76d6 (patch) | |
| tree | d36a92068ea4f4c4813f8c431f4415c83bbdfddd | |
| parent | c00d506aef4353f13ac03219715ca5bee34d3728 (diff) | |
| download | fml8-c27ee209c0d01b30692bd8ad056faa224fcf76d6.tar.gz fml8-c27ee209c0d01b30692bd8ad056faa224fcf76d6.tar.bz2 fml8-c27ee209c0d01b30692bd8ad056faa224fcf76d6.zip | |
use LogError() if appropriate
| -rw-r--r-- | fml/lib/FML/Article.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Header.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Distribute.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 6 |
4 files changed, 9 insertions, 9 deletions
diff --git a/fml/lib/FML/Article.pm b/fml/lib/FML/Article.pm index dca7e083..cc7d0c22 100644 --- a/fml/lib/FML/Article.pm +++ b/fml/lib/FML/Article.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: Article.pm,v 1.41 2002/06/30 14:27:47 fukachan Exp $ +# $FML: Article.pm,v 1.42 2002/07/31 13:00:46 fukachan Exp $ # package FML::Article; @@ -127,7 +127,7 @@ sub increment_id use File::Sequence; my $sfh = new File::Sequence { sequence_file => $seq_file }; my $id = $sfh->increment_id; - if ($sfh->error) { Log( $sfh->error ); } + if ($sfh->error) { LogError( $sfh->error ); } # save $id in pcb (process control block) and return $id $pcb->set('article', 'id', $id); diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm index 7f72cf26..af967362 100644 --- a/fml/lib/FML/Header.pm +++ b/fml/lib/FML/Header.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: Header.pm,v 1.45 2002/07/02 11:54:06 fukachan Exp $ +# $FML: Header.pm,v 1.46 2002/07/31 12:58:21 fukachan Exp $ # package FML::Header; @@ -387,7 +387,7 @@ sub rewrite_article_subject_tag $pkg->rewrite_article_subject_tag($header, $config, $args); } else { - Log("Error: cannot load $pkg"); + LogError("cannot load $pkg"); } } diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 869b047c..7f32d6f4 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.85 2002/07/23 13:03:13 fukachan Exp $ +# $FML: Distribute.pm,v 1.86 2002/07/31 13:02:54 fukachan Exp $ # package FML::Process::Distribute; @@ -372,7 +372,7 @@ sub _header_rewrite }); } else { - Log("Error: header->$rule is undefined"); + LogError("header->$rule is undefined"); } } } diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 88113c8e..399cc3ff 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.118 2002/07/25 00:10:29 fukachan Exp $ +# $FML: Kernel.pm,v 1.119 2002/07/30 04:02:33 fukachan Exp $ # package FML::Process::Kernel; @@ -739,8 +739,8 @@ sub _check_restrictions else { # A: No, deny distribution my $sender = $cred->sender; - Log("$sender is not a ML member"); - Log( $cred->error() ); + LogError("$sender is not an ML member"); + LogError( $cred->error() ); $curproc->reply_message_nl('error.not_member', "you are not a ML member." ); $curproc->reply_message( " your address: $sender" ); |