1 files changed, 92 insertions, 0 deletions
diff --git a/fml/lib/FML/Restriction/Base.pm b/fml/lib/FML/Restriction/Base.pm
new file mode 100644
index 00000000..d5da7fb9
--- /dev/null
+++ b/fml/lib/FML/Restriction/Base.pm
@@ -0,0 +1,92 @@
+#!/usr/local/bin/perl -w
+#-*- perl -*-
+#
+# Copyright (C) 2001 Ken'ichi Fukamachi
+#          All rights reserved. 
+#
+# $FML: SafeBase.pm,v 1.1 2001/11/25 09:12:58 fukachan Exp $
+#
+
+package FML::Restriction::Base;
+
+use vars qw($debug @ISA @EXPORT @EXPORT_OK);
+use strict;
+use Carp;
+
+=head1 NAME
+
+FML::Restriction::Base -- define safe data class
+
+=head1 SYNOPSIS
+
+    use FML::Restriction::Base;
+    $safe = new FML::Restriction::Base;
+    my $regexp = $safe->regexp();
+
+=head1 DESCRIPTION
+
+FML::Restriction::Base provides data type considered as safe.
+
+=head1 METHODS
+
+=head2 C<new($args)>
+
+usual constructor.
+
+=cut
+
+
+# avoid default fml new() since we do not need it.
+sub new
+{
+    my ($self) = @_;
+    my ($type) = ref($self) || $self;
+    my $me     = {};
+    return bless $me, $type;
+}
+
+
+=head1 Basic Parameter Definition for common use
+
+   %basic_variable
+
+=cut
+
+
+my %basic_variable =
+    (
+     'address'    => '[-a-z0-9_]+\@[-A-Za-z0-9\.]+',
+     'ml_name'    => '[-a-z0-9_]+',
+     'action'     => '[-a-z_]+',
+     'command'    => '[-a-z_]+',
+     'user'       => '[-a-z0-9_]+',
+     'article_id' => '\d+',
+     );
+
+
+sub basic_variable
+{
+    return \%basic_variable;
+}
+
+
+=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::Process::Configure appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
+1;