summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--fml/lib/ErrorStatus.pm111
-rw-r--r--fml/lib/FML/Config.pm4
-rw-r--r--fml/lib/FML/Ticket/System.pm4
-rw-r--r--fml/lib/File/Sequence.pm4
-rw-r--r--fml/lib/File/SimpleLock.pm6
-rw-r--r--fml/lib/IO/Adapter/Array.pm4
-rw-r--r--fml/lib/IO/Adapter/DBI.pm2
-rw-r--r--fml/lib/IO/Adapter/ErrorStatus.pm111
-rw-r--r--fml/lib/IO/Adapter/File.pm4
-rw-r--r--fml/lib/IO/MapAdapter.pm4
-rw-r--r--fml/lib/Mail/Bounce/ErrorStatus.pm111
-rw-r--r--fml/lib/Mail/Delivery/ErrorStatus.pm111
-rw-r--r--fml/lib/Mail/Delivery/Utils.pm7
-rw-r--r--fml/lib/Makefile19
14 files changed, 483 insertions, 19 deletions
diff --git a/fml/lib/ErrorStatus.pm b/fml/lib/ErrorStatus.pm
new file mode 100644
index 00000000..003470ea
--- /dev/null
+++ b/fml/lib/ErrorStatus.pm
@@ -0,0 +1,111 @@
+#-*- 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: Status.pm,v 1.3 2001/04/03 09:45:39 fukachan Exp $
+#
+
+package ErrorStatus;
+
+use strict;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+use Carp;
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(errstr error error_set error_clear);
+
+=head1 NAME
+
+ErrorStatus - error handling component
+
+=head1 SYNOPSIS
+
+Use this module in your C<Something> class module like this:
+
+ package Something;
+ use ErrorStatus qw(errstr error error_set error_clear);
+
+ sub xxx
+ {
+ if something errors ...
+ $self->error_set( why this error occurs ... );
+ }
+
+You use C<Something> module like this.
+
+ use Something;
+ $obj = new Something;
+ $obj->xxx();
+ unless ($obj->error) { $obj->do_somting( ...); };
+
+=head1 DESCRIPTION
+
+simple utility functions to manipulate error messages.
+
+=head1 METHODS
+
+=head2 C<error_set($message)>
+
+save $message as an error message.
+
+=head2 C<error()>
+
+return $message which is saved by C<error_set($msg)>.
+
+=cut
+
+
+sub error_set
+{
+ my ($self, $mesg) = @_;
+ $self->{'_error_reason'} = $mesg;
+}
+
+
+sub error
+{
+ my ($self, $args) = @_;
+ return $self->{'_error_reason'};
+}
+
+
+sub errstr
+{
+ my ($self, $args) = @_;
+ return $self->{'_error_reason'};
+}
+
+
+sub error_clear
+{
+ my ($self, $args) = @_;
+ my $msg = $self->{'_error_reason'};
+ undef $self->{'_error_reason'} if defined $self->{'_error_reason'};
+ undef $self->{'_error_action'} if defined $self->{'_error_action'};
+ return $msg;
+}
+
+
+=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
+
+ErrorStatus appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
+1;
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm
index 8d644af0..73f4960c 100644
--- a/fml/lib/FML/Config.pm
+++ b/fml/lib/FML/Config.pm
@@ -2,7 +2,7 @@
# Copyright (C) 2000 Ken'ichi Fukamachi
#
# $Id$
-# $FML$ # 注意: cvs のタグを $FML$ にする
+# $FML: Config.pm,v 1.26 2001/04/03 09:45:40 fukachan Exp $ # 注意: cvs のタグを $FML: Config.pm,v 1.26 2001/04/03 09:45:40 fukachan Exp $ にする
#
package FML::Config;
@@ -10,7 +10,7 @@ package FML::Config;
use strict;
use Carp;
use vars qw(%_fml_config %_default_fml_config);
-use ErrorMessages::Status qw(error_set error error_clear);
+use ErrorStatus qw(error_set error error_clear);
=head1 NAME
diff --git a/fml/lib/FML/Ticket/System.pm b/fml/lib/FML/Ticket/System.pm
index 7c14d7c0..78885904 100644
--- a/fml/lib/FML/Ticket/System.pm
+++ b/fml/lib/FML/Ticket/System.pm
@@ -5,7 +5,7 @@
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $Id$
-# $FML$
+# $FML: System.pm,v 1.22 2001/04/03 09:45:44 fukachan Exp $
#
package FML::Ticket::System;
@@ -13,7 +13,7 @@ package FML::Ticket::System;
use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use ErrorStatus qw(error_set error error_clear);
use FML::Log qw(Log LogWarn LogError);
diff --git a/fml/lib/File/Sequence.pm b/fml/lib/File/Sequence.pm
index b8e59a9e..e42a3801 100644
--- a/fml/lib/File/Sequence.pm
+++ b/fml/lib/File/Sequence.pm
@@ -5,14 +5,14 @@
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $Id$
-# $FML$
+# $FML: Sequence.pm,v 1.6 2001/04/03 09:31:27 fukachan Exp $
#
package File::Sequence;
use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK);
use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use ErrorStatus qw(error_set error error_clear);
=head1 NAME
diff --git a/fml/lib/File/SimpleLock.pm b/fml/lib/File/SimpleLock.pm
index afc9cf54..4b546d2e 100644
--- a/fml/lib/File/SimpleLock.pm
+++ b/fml/lib/File/SimpleLock.pm
@@ -3,7 +3,7 @@
# Copyright (C) 2000 Ken'ichi Fukamachi
#
# $Id$
-# $FML$
+# $FML: SimpleLock.pm,v 1.6 2001/04/03 09:31:27 fukachan Exp $
#
package File::SimpleLock;
@@ -11,7 +11,7 @@ package File::SimpleLock;
use vars qw(%LockedFileHandle %FileIsLocked @ISA $Error);
use strict;
use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use ErrorStatus qw(error_set error error_clear);
=head1 NAME
@@ -137,7 +137,7 @@ sub _simple_funlock
=head1 SEE ALSO
L<FileHandle>,
-L<ErrorMessages::Status>,
+L<ErrorStatus>,
=head1 AUTHOR
diff --git a/fml/lib/IO/Adapter/Array.pm b/fml/lib/IO/Adapter/Array.pm
index 83aff3ab..7ec7c4d9 100644
--- a/fml/lib/IO/Adapter/Array.pm
+++ b/fml/lib/IO/Adapter/Array.pm
@@ -5,7 +5,7 @@
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $Id$
-# $FML$
+# $FML: Array.pm,v 1.17 2001/04/03 09:45:45 fukachan Exp $
#
package IO::Adapter::Array;
@@ -13,7 +13,7 @@ package IO::Adapter::Array;
use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use IO::Adapter::ErrorStatus qw(error_set error error_clear);
=head1 NAME
diff --git a/fml/lib/IO/Adapter/DBI.pm b/fml/lib/IO/Adapter/DBI.pm
index 80575a63..4cb488ff 100644
--- a/fml/lib/IO/Adapter/DBI.pm
+++ b/fml/lib/IO/Adapter/DBI.pm
@@ -11,7 +11,7 @@ package IO::Adapter::DBI;
use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use IO::Adapter::ErrorStatus qw(error_set error error_clear);
=head1 NAME
diff --git a/fml/lib/IO/Adapter/ErrorStatus.pm b/fml/lib/IO/Adapter/ErrorStatus.pm
new file mode 100644
index 00000000..fadc9aa8
--- /dev/null
+++ b/fml/lib/IO/Adapter/ErrorStatus.pm
@@ -0,0 +1,111 @@
+#-*- 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: Status.pm,v 1.3 2001/04/03 09:45:39 fukachan Exp $
+#
+
+package IO::Adapter::ErrorStatus;
+
+use strict;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+use Carp;
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(errstr error error_set error_clear);
+
+=head1 NAME
+
+IO::Adapter::ErrorStatus - error handling component
+
+=head1 SYNOPSIS
+
+Use this module in your C<Something> class module like this:
+
+ package Something;
+ use IO::Adapter::ErrorStatus qw(errstr error error_set error_clear);
+
+ sub xxx
+ {
+ if something errors ...
+ $self->error_set( why this error occurs ... );
+ }
+
+You use C<Something> module like this.
+
+ use Something;
+ $obj = new Something;
+ $obj->xxx();
+ unless ($obj->error) { $obj->do_somting( ...); };
+
+=head1 DESCRIPTION
+
+simple utility functions to manipulate error messages.
+
+=head1 METHODS
+
+=head2 C<error_set($message)>
+
+save $message as an error message.
+
+=head2 C<error()>
+
+return $message which is saved by C<error_set($msg)>.
+
+=cut
+
+
+sub error_set
+{
+ my ($self, $mesg) = @_;
+ $self->{'_error_reason'} = $mesg;
+}
+
+
+sub error
+{
+ my ($self, $args) = @_;
+ return $self->{'_error_reason'};
+}
+
+
+sub errstr
+{
+ my ($self, $args) = @_;
+ return $self->{'_error_reason'};
+}
+
+
+sub error_clear
+{
+ my ($self, $args) = @_;
+ my $msg = $self->{'_error_reason'};
+ undef $self->{'_error_reason'} if defined $self->{'_error_reason'};
+ undef $self->{'_error_action'} if defined $self->{'_error_action'};
+ return $msg;
+}
+
+
+=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
+
+IO::Adapter::ErrorStatus appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
+1;
diff --git a/fml/lib/IO/Adapter/File.pm b/fml/lib/IO/Adapter/File.pm
index 2207ac12..585209d8 100644
--- a/fml/lib/IO/Adapter/File.pm
+++ b/fml/lib/IO/Adapter/File.pm
@@ -5,7 +5,7 @@
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $Id$
-# $FML$
+# $FML: File.pm,v 1.20 2001/04/03 09:45:45 fukachan Exp $
#
package IO::Adapter::File;
@@ -13,7 +13,7 @@ package IO::Adapter::File;
use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use IO::Adapter::ErrorStatus qw(error_set error error_clear);
=head1 NAME
diff --git a/fml/lib/IO/MapAdapter.pm b/fml/lib/IO/MapAdapter.pm
index 4bb96c99..a4bd118f 100644
--- a/fml/lib/IO/MapAdapter.pm
+++ b/fml/lib/IO/MapAdapter.pm
@@ -5,14 +5,14 @@
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $Id$
-# $FML$
+# $FML: MapAdapter.pm,v 1.26 2001/04/03 09:45:45 fukachan Exp $
#
package IO::MapAdapter;
use vars qw(@ISA @ORIG_ISA $FirstTime);
use strict;
use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use IO::Adapter::ErrorStatus qw(error_set error error_clear);
BEGIN {}
END {}
diff --git a/fml/lib/Mail/Bounce/ErrorStatus.pm b/fml/lib/Mail/Bounce/ErrorStatus.pm
new file mode 100644
index 00000000..220efe86
--- /dev/null
+++ b/fml/lib/Mail/Bounce/ErrorStatus.pm
@@ -0,0 +1,111 @@
+#-*- 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: Status.pm,v 1.3 2001/04/03 09:45:39 fukachan Exp $
+#
+
+package Mail::Bounce::ErrorStatus;
+
+use strict;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+use Carp;
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(errstr error error_set error_clear);
+
+=head1 NAME
+
+Mail::Bounce::ErrorStatus - error handling component
+
+=head1 SYNOPSIS
+
+Use this module in your C<Something> class module like this:
+
+ package Something;
+ use Mail::Bounce::ErrorStatus qw(errstr error error_set error_clear);
+
+ sub xxx
+ {
+ if something errors ...
+ $self->error_set( why this error occurs ... );
+ }
+
+You use C<Something> module like this.
+
+ use Something;
+ $obj = new Something;
+ $obj->xxx();
+ unless ($obj->error) { $obj->do_somting( ...); };
+
+=head1 DESCRIPTION
+
+simple utility functions to manipulate error messages.
+
+=head1 METHODS
+
+=head2 C<error_set($message)>
+
+save $message as an error message.
+
+=head2 C<error()>
+
+return $message which is saved by C<error_set($msg)>.
+
+=cut
+
+
+sub error_set
+{
+ my ($self, $mesg) = @_;
+ $self->{'_error_reason'} = $mesg;
+}
+
+
+sub error
+{
+ my ($self, $args) = @_;
+ return $self->{'_error_reason'};
+}
+
+
+sub errstr
+{
+ my ($self, $args) = @_;
+ return $self->{'_error_reason'};
+}
+
+
+sub error_clear
+{
+ my ($self, $args) = @_;
+ my $msg = $self->{'_error_reason'};
+ undef $self->{'_error_reason'} if defined $self->{'_error_reason'};
+ undef $self->{'_error_action'} if defined $self->{'_error_action'};
+ return $msg;
+}
+
+
+=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
+
+Mail::Bounce::ErrorStatus appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
+1;
diff --git a/fml/lib/Mail/Delivery/ErrorStatus.pm b/fml/lib/Mail/Delivery/ErrorStatus.pm
new file mode 100644
index 00000000..2d0d86f9
--- /dev/null
+++ b/fml/lib/Mail/Delivery/ErrorStatus.pm
@@ -0,0 +1,111 @@
+#-*- 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: Status.pm,v 1.3 2001/04/03 09:45:39 fukachan Exp $
+#
+
+package Mail::Delivery::ErrorStatus;
+
+use strict;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+use Carp;
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(errstr error error_set error_clear);
+
+=head1 NAME
+
+Mail::Delivery::ErrorStatus - error handling component
+
+=head1 SYNOPSIS
+
+Use this module in your C<Something> class module like this:
+
+ package Something;
+ use Mail::Delivery::ErrorStatus qw(errstr error error_set error_clear);
+
+ sub xxx
+ {
+ if something errors ...
+ $self->error_set( why this error occurs ... );
+ }
+
+You use C<Something> module like this.
+
+ use Something;
+ $obj = new Something;
+ $obj->xxx();
+ unless ($obj->error) { $obj->do_somting( ...); };
+
+=head1 DESCRIPTION
+
+simple utility functions to manipulate error messages.
+
+=head1 METHODS
+
+=head2 C<error_set($message)>
+
+save $message as an error message.
+
+=head2 C<error()>
+
+return $message which is saved by C<error_set($msg)>.
+
+=cut
+
+
+sub error_set
+{
+ my ($self, $mesg) = @_;
+ $self->{'_error_reason'} = $mesg;
+}
+
+
+sub error
+{
+ my ($self, $args) = @_;
+ return $self->{'_error_reason'};
+}
+
+
+sub errstr
+{
+ my ($self, $args) = @_;
+ return $self->{'_error_reason'};
+}
+
+
+sub error_clear
+{
+ my ($self, $args) = @_;
+ my $msg = $self->{'_error_reason'};
+ undef $self->{'_error_reason'} if defined $self->{'_error_reason'};
+ undef $self->{'_error_action'} if defined $self->{'_error_action'};
+ return $msg;
+}
+
+
+=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
+
+Mail::Delivery::ErrorStatus appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
+1;
diff --git a/fml/lib/Mail/Delivery/Utils.pm b/fml/lib/Mail/Delivery/Utils.pm
index 87b2c07d..62b3a298 100644
--- a/fml/lib/Mail/Delivery/Utils.pm
+++ b/fml/lib/Mail/Delivery/Utils.pm
@@ -4,15 +4,16 @@
# 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.1.1.1 2001/04/03 09:53:29 fukachan Exp $
+# $FML: Utils.pm,v 1.2 2001/04/08 00:40:53 fukachan Exp $
#
package Mail::Delivery::Utils;
+
use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK
$LogFunctionPointer $SmtpLogFunctionPointer);
use Carp;
-use ErrorMessages::Status qw(error_set error error_clear);
+use Mail::Delivery::ErrorStatus qw(error_set error error_clear);
require Exporter;
@ISA = qw(Exporter);
@@ -328,7 +329,7 @@ redistribute it and/or modify it under the same terms as Perl itself.
=head1 HISTORY
-Mail::Delivery::utils appeared in fml5 mailing list driver package.
+Mail::Delivery::Utils appeared in fml5 mailing list driver package.
See C<http://www.fml.org/> for more details.
=cut
diff --git a/fml/lib/Makefile b/fml/lib/Makefile
index b8818f7e..efef71b8 100644
--- a/fml/lib/Makefile
+++ b/fml/lib/Makefile
@@ -20,3 +20,22 @@ _clean:
clean:
(cd ../..;make clean)
+
+regen: Mail/Delivery/ErrorStatus.pm Mail/Bounce/ErrorStatus.pm \
+ Mail/Message/ErrorStatus.pm IO/Adapter/ErrorStatus.pm
+
+Mail/Bounce/ErrorStatus.pm: ErrorStatus.pm
+ sed 's/ErrorStatus/Mail::Bounce::ErrorStatus/g' ErrorStatus.pm \
+ > Mail/Bounce/ErrorStatus.pm
+
+Mail/Delivery/ErrorStatus.pm: ErrorStatus.pm
+ sed 's/ErrorStatus/Mail::Delivery::ErrorStatus/g' ErrorStatus.pm \
+ > Mail/Delivery/ErrorStatus.pm
+
+Mail/Message/ErrorStatus.pm: ErrorStatus.pm
+ sed 's/ErrorStatus/Mail::Message::ErrorStatus/g' ErrorStatus.pm \
+ > Mail/Message/ErrorStatus.pm
+
+IO/Adapter/ErrorStatus.pm: ErrorStatus.pm
+ sed 's/ErrorStatus/IO::Adapter::ErrorStatus/g' ErrorStatus.pm \
+ > IO/Adapter/ErrorStatus.pm
generated by cgit v1.2.1 (git 2.18.0) at 2026-09-17 01:10:10 +0000