use $curproc->credential();

14 files changed, 35 insertions, 34 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 ] || '';
 
diff --git a/fml/lib/FML/Command/Auth.pm b/fml/lib/FML/Command/Auth.pm
index 3db3e48f..f0182730 100644
--- a/fml/lib/FML/Command/Auth.pm
+++ b/fml/lib/FML/Command/Auth.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: Auth.pm,v 1.39 2004/12/05 16:19:06 fukachan Exp $
+# $FML: Auth.pm,v 1.40 2005/05/26 09:46:01 fukachan Exp $
 #
 
 package FML::Command::Auth;
@@ -80,7 +80,7 @@ sub permit_anyone
 sub permit_admin_member_maps
 {
     my ($self, $curproc, $optargs) = @_;
-    my $cred   = $curproc->{ credential };
+    my $cred   = $curproc->credential();
     my $sender = $cred->sender();
     my $match  = $cred->is_privileged_member($sender);
 
@@ -100,7 +100,7 @@ sub permit_admin_member_maps
 sub reject_system_special_accounts
 {
     my ($self, $curproc, $optargs) = @_;
-    my $cred   = $curproc->{ credential };
+    my $cred   = $curproc->credential();
     my $sender = $cred->sender();
     my $match  = $cred->match_system_special_accounts($sender);
 
@@ -130,7 +130,7 @@ sub check_admin_member_password
 {
     my ($self, $curproc, $optargs) = @_;
     my $function = "check_admin_member_password";
-    my $cred     = $curproc->{ credential };
+    my $cred     = $curproc->credential();
     my $sender   = $cred->sender();
     my $config   = $curproc->config();
     my $status   = 0;
@@ -245,7 +245,7 @@ sub check_admin_member_password
 sub change_password
 {
     my ($self, $curproc, $command_args, $up_args) = @_;
-    my $cred     = $curproc->{ credential };
+    my $cred     = $curproc->credential();
     my $map      = $up_args->{ map };
     my $address  = $up_args->{ address  };
     my $password = $up_args->{ password };
diff --git a/fml/lib/FML/Command/User/admin.pm b/fml/lib/FML/Command/User/admin.pm
index 584c639f..e9affb4e 100644
--- a/fml/lib/FML/Command/User/admin.pm
+++ b/fml/lib/FML/Command/User/admin.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: admin.pm,v 1.12 2005/05/30 03:28:06 fukachan Exp $
+# $FML: admin.pm,v 1.13 2005/05/30 06:52:23 fukachan Exp $
 #
 
 package FML::Command::User::admin;
@@ -153,7 +153,7 @@ sub process
 sub _try_admin_auth
 {
     my ($self, $curproc, $command_args) = @_;
-    my $cred     = $curproc->{ credential };
+    my $cred     = $curproc->credential();
     my $sender   = $cred->sender();
     my $opt_args = { address => $sender };
     my $class    = $command_args->{ comsubname } || '';
diff --git a/fml/lib/FML/Command/User/chaddr.pm b/fml/lib/FML/Command/User/chaddr.pm
index 1fc4b844..9e21aa8f 100644
--- a/fml/lib/FML/Command/User/chaddr.pm
+++ b/fml/lib/FML/Command/User/chaddr.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: chaddr.pm,v 1.31 2004/06/26 11:47:57 fukachan Exp $
+# $FML: chaddr.pm,v 1.32 2004/06/27 07:56:17 fukachan Exp $
 #
 
 package FML::Command::User::chaddr;
@@ -119,7 +119,7 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     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/User/digest.pm b/fml/lib/FML/Command/User/digest.pm
index 64c1bd2a..2ea5cde4 100644
--- a/fml/lib/FML/Command/User/digest.pm
+++ b/fml/lib/FML/Command/User/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.13 2004/04/23 04:10:32 fukachan Exp $
+# $FML: digest.pm,v 1.14 2004/06/29 10:02:43 fukachan Exp $
 #
 
 package FML::Command::User::digest;
@@ -68,7 +68,7 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     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.
@@ -82,7 +82,8 @@ sub process
     my $cache_dir     = $config->{ db_dir };
     my $keyword       = $config->{ confirm_command_prefix };
     my $command       = $command_args->{ command };
-    my $address       = $curproc->{ credential }->sender();
+    my $cred          = $curproc->credential();
+    my $address       = $cred->sender();
     my $mode          = '';
 
     # fundamental check
diff --git a/fml/lib/FML/Command/User/off.pm b/fml/lib/FML/Command/User/off.pm
index 40c981cb..9102a1c7 100644
--- a/fml/lib/FML/Command/User/off.pm
+++ b/fml/lib/FML/Command/User/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.17 2004/04/23 04:10:32 fukachan Exp $
+# $FML: off.pm,v 1.18 2004/06/26 11:47:58 fukachan Exp $
 #
 
 package FML::Command::User::off;
@@ -70,7 +70,7 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     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/User/on.pm b/fml/lib/FML/Command/User/on.pm
index 050ff12f..150692bc 100644
--- a/fml/lib/FML/Command/User/on.pm
+++ b/fml/lib/FML/Command/User/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.17 2004/04/23 04:10:32 fukachan Exp $
+# $FML: on.pm,v 1.18 2004/06/26 11:47:58 fukachan Exp $
 #
 
 package FML::Command::User::on;
@@ -70,7 +70,7 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     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/User/subscribe.pm b/fml/lib/FML/Command/User/subscribe.pm
index b049d33f..97921978 100644
--- a/fml/lib/FML/Command/User/subscribe.pm
+++ b/fml/lib/FML/Command/User/subscribe.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: subscribe.pm,v 1.32 2005/05/26 09:57:54 fukachan Exp $
+# $FML: subscribe.pm,v 1.33 2005/08/11 04:07:33 fukachan Exp $
 #
 
 package FML::Command::User::subscribe;
@@ -70,7 +70,7 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     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/User/unsubscribe.pm b/fml/lib/FML/Command/User/unsubscribe.pm
index 8979b059..0d0ba6d7 100644
--- a/fml/lib/FML/Command/User/unsubscribe.pm
+++ b/fml/lib/FML/Command/User/unsubscribe.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: unsubscribe.pm,v 1.33 2005/05/26 09:57:54 fukachan Exp $
+# $FML: unsubscribe.pm,v 1.34 2005/08/11 04:07:33 fukachan Exp $
 #
 
 package FML::Command::User::unsubscribe;
@@ -69,7 +69,7 @@ sub process
 {
     my ($self, $curproc, $command_args) = @_;
     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.