use $curproc->credential();

6 files changed, 14 insertions, 14 deletions

diff --git a/fml/lib/FML/Command/Admin/addmember.pm b/fml/lib/FML/Command/Admin/addmember.pm
index 0719aea5..8da40bda 100644
--- a/fml/lib/FML/Command/Admin/addmember.pm
+++ b/fml/lib/FML/Command/Admin/addmember.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: addmember.pm,v 1.4 2005/08/17 10:36:37 fukachan Exp $
+# $FML: addmember.pm,v 1.5 2005/08/17 12:08:45 fukachan Exp $
 #
 
 package FML::Command::Admin::addmember;
@@ -81,7 +81,7 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     my $config  = $curproc->config();
-    my $cred    = $curproc->{ credential };
+    my $cred    = $curproc->credential();
     my $options = $command_args->{ options };
     my $address = $command_args->{ command_data } || $options->[ 0 ];
 
diff --git a/fml/lib/FML/Command/Admin/addrecipient.pm b/fml/lib/FML/Command/Admin/addrecipient.pm
index 993eae85..eb362ece 100644
--- a/fml/lib/FML/Command/Admin/addrecipient.pm
+++ b/fml/lib/FML/Command/Admin/addrecipient.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: addrecipient.pm,v 1.4 2005/08/17 10:36:36 fukachan Exp $
+# $FML: addrecipient.pm,v 1.5 2005/08/17 12:08:43 fukachan Exp $
 #
 
 package FML::Command::Admin::addrecipient;
@@ -81,7 +81,7 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     my $config  = $curproc->config();
-    my $cred    = $curproc->{ credential };
+    my $cred    = $curproc->credential();
     my $options = $command_args->{ options };
     my $address = $command_args->{ command_data } || $options->[ 0 ];
 
diff --git a/fml/lib/FML/Command/Admin/changepassword.pm b/fml/lib/FML/Command/Admin/changepassword.pm
index 05081a99..d0a031a9 100644
--- a/fml/lib/FML/Command/Admin/changepassword.pm
+++ b/fml/lib/FML/Command/Admin/changepassword.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: changepassword.pm,v 1.15 2004/07/23 13:03:50 fukachan Exp $
+# $FML: changepassword.pm,v 1.16 2005/05/27 03:03:34 fukachan Exp $
 #
 
 package FML::Command::Admin::changepassword;
@@ -125,7 +125,7 @@ sub process
 	    # XXX-TODO really ???
 	    # XXX special treatment only for command mails.
 	    if ($myname eq 'command' || $myname eq 'fml.pl') {
-		my $cred  = $curproc->{ credential };
+		my $cred  = $curproc->credential();
 		$address  = $cred->sender(); # From: in the header
 		$password = $options->[ 0 ];
 	    }
@@ -166,7 +166,7 @@ sub _change_password
 {
     my ($self, $curproc, $command_args, $address, $password) = @_;
     my $config = $curproc->config();
-    my $cred   = $curproc->{ credential };
+    my $cred   = $curproc->credential();
 
     # XXX We should always add/rewrite only $primary_*_map maps via
     # XXX command mail, CUI and GUI.
diff --git a/fml/lib/FML/Command/Admin/digest.pm b/fml/lib/FML/Command/Admin/digest.pm
index fcf0cb54..20acf3f7 100644
--- a/fml/lib/FML/Command/Admin/digest.pm
+++ b/fml/lib/FML/Command/Admin/digest.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: digest.pm,v 1.23 2005/08/17 10:36:36 fukachan Exp $
+# $FML: digest.pm,v 1.24 2005/08/17 12:08:43 fukachan Exp $
 #
 
 package FML::Command::Admin::digest;
@@ -158,7 +158,7 @@ sub _digest_on
 {
     my ($self, $curproc, $command_args, $dargs) = @_;
     my $config               = $curproc->config();
-    my $cred                 = $curproc->{ credential };
+    my $cred                 = $curproc->credential();
     my $address              = $dargs->{ address };
     my $recipient_map        = $dargs->{ primary_recipient_map };
     my $digest_recipient_map = $dargs->{ primary_digest_recipient_map };
@@ -216,7 +216,7 @@ sub _digest_off
 {
     my ($self, $curproc, $command_args, $dargs) = @_;
     my $config               = $curproc->config();
-    my $cred                 = $curproc->{ credential };
+    my $cred                 = $curproc->credential();
     my $address              = $dargs->{ address };
     my $recipient_map        = $dargs->{ primary_recipient_map };
     my $digest_recipient_map = $dargs->{ primary_digest_recipient_map };
diff --git a/fml/lib/FML/Command/Admin/off.pm b/fml/lib/FML/Command/Admin/off.pm
index 95468ead..295476de 100644
--- a/fml/lib/FML/Command/Admin/off.pm
+++ b/fml/lib/FML/Command/Admin/off.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: off.pm,v 1.22 2005/08/17 10:36:36 fukachan Exp $
+# $FML: off.pm,v 1.23 2005/08/17 12:08:44 fukachan Exp $
 #
 
 package FML::Command::Admin::off;
@@ -81,7 +81,7 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     my $config  = $curproc->config();
-    my $cred    = $curproc->{ credential };
+    my $cred    = $curproc->credential();
     my $options = $command_args->{ options } || [];
     my $address = $command_args->{ command_data } || $options->[ 0 ];
 
diff --git a/fml/lib/FML/Command/Admin/on.pm b/fml/lib/FML/Command/Admin/on.pm
index 8837ad43..2f1e14a9 100644
--- a/fml/lib/FML/Command/Admin/on.pm
+++ b/fml/lib/FML/Command/Admin/on.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: on.pm,v 1.22 2005/08/17 10:36:36 fukachan Exp $
+# $FML: on.pm,v 1.23 2005/08/17 12:08:44 fukachan Exp $
 #
 
 package FML::Command::Admin::on;
@@ -81,7 +81,7 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     my $config  = $curproc->config();
-    my $cred    = $curproc->{ credential };
+    my $cred    = $curproc->credential();
     my $options = $command_args->{ options } || [];
     my $address = $command_args->{ command_data } || $options->[ 0 ] || '';