use $curproc->credential()

3 files changed, 12 insertions, 9 deletions

diff --git a/fml/lib/FML/Process/Digest.pm b/fml/lib/FML/Process/Digest.pm
index c24dd21b..478c5ca2 100644
--- a/fml/lib/FML/Process/Digest.pm
+++ b/fml/lib/FML/Process/Digest.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002,2003,2004,2005 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Digest.pm,v 1.23 2005/06/04 08:51:30 fukachan Exp $
+# $FML: Digest.pm,v 1.24 2005/08/10 15:03:25 fukachan Exp $
 #
 
 package FML::Process::Digest;
@@ -116,7 +116,8 @@ sub verify_request
     if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; }
 
     # set sender against further errors
-    $curproc->{'credential'}->set( 'sender', $maintainer );
+    my $cred = $curproc->credential();
+    $cred->set( 'sender', $maintainer );
 
     $eval = $config->get_hook( 'article_digest_verify_request_end_hook' );
     if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; }
@@ -147,7 +148,8 @@ sub run
     my ($curproc, $args) = @_;
     my $config     = $curproc->config();
     my $maintainer = $config->{ maintainer };
-    my $sender     = $curproc->{'credential'}->{'sender'};
+    my $cred       = $curproc->credential();
+    my $sender     = $cred->sender();
 
     my $eval = $config->get_hook( 'article_digest_run_start_hook' );
     if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; }
diff --git a/fml/lib/FML/Process/Error.pm b/fml/lib/FML/Process/Error.pm
index b8bf10d3..d1690c67 100644
--- a/fml/lib/FML/Process/Error.pm
+++ b/fml/lib/FML/Process/Error.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002,2003,2004,2005 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Error.pm,v 1.53 2005/08/10 15:03:25 fukachan Exp $
+# $FML: Error.pm,v 1.54 2005/08/19 12:17:09 fukachan Exp $
 #
 
 package FML::Process::Error;
@@ -117,7 +117,8 @@ sub verify_request
 
     # set dummy sender to avoid unexpected error
     if ($maintainer) {
-	$curproc->{'credential'}->set( 'sender', $maintainer );
+	my $cred = $curproc->credential();
+	$cred->set( 'sender', $maintainer );
     }
     else {
 	$curproc->logerror("maintainer not defined.");
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index 05e332fb..a6cd18a6 100644
--- a/fml/lib/FML/Process/Utils.pm
+++ b/fml/lib/FML/Process/Utils.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: Utils.pm,v 1.139 2005/08/31 11:15:43 fukachan Exp $
+# $FML: Utils.pm,v 1.140 2005/11/30 21:58:27 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -1315,7 +1315,7 @@ sub __ml_home_prefix_from_main_cf
 sub ___search_in_ml_home_prefix_maps
 {
     my ($curproc, $main_cf, $domain, $prefix_maps) = @_;
-    my $cred = $curproc->{ credential };
+    my $cred = $curproc->credential();
 
     if (@$prefix_maps) {
 	my $dir  = '';
@@ -1669,7 +1669,7 @@ sub address_resolve
 {
     my ($curproc, $list) = @_;
     my $config = $curproc->config();
-    my $cred   = $curproc->{ credential };
+    my $cred   = $curproc->credential();
     my $result = [];
 
     for my $rcpt (@$list) {
@@ -2049,7 +2049,7 @@ sub command_line_cui_specific_recipient
     my ($curproc) = @_;
     my $args      = $curproc->{ __parent_args };
     my $rcpt      = $args->{ options }->{ 'send-to' } || '';
-    my $cred      = $curproc->{ credential };
+    my $cred      = $curproc->credential();
     my $sender    = $cred->sender() || '';
 
     return( $rcpt || $sender || '' );