FML/Command/ACL.pm -> FML/Command/Attribute.pm

modified FML::Command uses get_attribute() in FML::Command::Attribute

2 files changed, 89 insertions, 59 deletions

diff --git a/fml/lib/FML/Command/ACL.pm b/fml/lib/FML/Command/ACL.pm
deleted file mode 100644
index d55ccab7..00000000
--- a/fml/lib/FML/Command/ACL.pm
+++ /dev/null
@@ -1,59 +0,0 @@
-#-*- perl -*-
-#
-#  Copyright (C) 2001 Ken'ichi Fukamachi
-#   All rights reserved. This program is free software; you can
-#   redistribute it and/or modify it under the same terms as Perl itself. 
-#
-# $FML: @template.pm,v 1.1 2001/08/07 12:23:48 fukachan Exp $
-#
-
-package FML::Command::ACL;
-use strict;
-use vars qw(%FML_USER_COMMAND);
-
-%FML_USER_COMMAND = 
-    (
-     '__default__' => {
-	 'require_lock' => 1,	 
-     },
-
-     'newml' => { 
-	 'require_lock' => 0,
-     },
-
-
-     
-     );
-
-
-
-
-
-=head1 NAME
-
-FML::ACL - accecc control lists
-
-=head1 SYNOPSIS
-
-=head1 DESCRIPTION
-
-=head1 AUTHOR
-
-Ken'ichi Fukamachi
-
-=head1 COPYRIGHT
-
-Copyright (C) 2001 Ken'ichi Fukamachi
-
-All rights reserved. This program is free software; you can
-redistribute it and/or modify it under the same terms as Perl itself. 
-
-=head1 HISTORY
-
-FML::ACL appeared in fml5 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
-=cut
-
-
-1;
diff --git a/fml/lib/FML/Command/Attribute.pm b/fml/lib/FML/Command/Attribute.pm
new file mode 100644
index 00000000..3bec8f52
--- /dev/null
+++ b/fml/lib/FML/Command/Attribute.pm
@@ -0,0 +1,89 @@
+#-*- perl -*-
+#
+#  Copyright (C) 2001 Ken'ichi Fukamachi
+#   All rights reserved. This program is free software; you can
+#   redistribute it and/or modify it under the same terms as Perl itself. 
+#
+# $FML: Command::Attribute.pm,v 1.1 2001/08/26 05:45:50 fukachan Exp $
+#
+
+package FML::Command::Attribute;
+use strict;
+use vars qw($FML_USER_COMMAND $FML_ADMIN_COMMAND);
+
+$FML_USER_COMMAND = {
+    '__default__' => {
+	'require_lock' => 1,	 
+    },
+
+    'newml' => { 
+	'require_lock' => 0,
+    },
+};
+
+
+sub get_attribute
+{
+    my ($self, $mode, $comname, $attribute) = @_;
+
+    # aligned to lowercase
+    $mode      =~ tr/A-Z/a-z/;
+    $comname   =~ tr/A-Z/a-z/;
+    $attribute =~ tr/A-Z/a-z/;
+
+    if ($mode eq 'user') {
+	if (defined $FML_USER_COMMAND->{ $comname }->{ $attribute }) {
+	    return $FML_USER_COMMAND->{ $comname }->{ $attribute };
+	}
+	elsif (defined $FML_USER_COMMAND->{ '__default__' }->{ $attribute }) {
+	    return $FML_USER_COMMAND->{ '__default__' }->{ $attribute };
+	}
+	else {
+	    return undef;
+	}
+    }
+    elsif ($mode eq 'admin') {
+	if (defined $FML_ADMIN_COMMAND->{ $comname }->{ $attribute }) {
+	    return $FML_ADMIN_COMMAND->{ $comname }->{ $attribute };
+	}
+	elsif (defined $FML_ADMIN_COMMAND->{ '__default__' }->{ $attribute }) {
+	    return $FML_ADMIN_COMMAND->{ '__default__' }->{ $attribute };
+	}
+	else {
+	    return undef;
+	}
+    }
+    else {
+	return undef;
+    }
+}
+
+
+=head1 NAME
+
+FML::Command::Attribute - attribute for each command
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+=head1 AUTHOR
+
+Ken'ichi Fukamachi
+
+=head1 COPYRIGHT
+
+Copyright (C) 2001 Ken'ichi Fukamachi
+
+All rights reserved. This program is free software; you can
+redistribute it and/or modify it under the same terms as Perl itself. 
+
+=head1 HISTORY
+
+FML::Command::Attribute appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
+1;