resolve perl -cw warning

1 files changed, 38 insertions, 36 deletions

diff --git a/fml/lib/FML/Process/QMail.pm b/fml/lib/FML/Process/QMail.pm
index 482a1691..0916008b 100644
--- a/fml/lib/FML/Process/QMail.pm
+++ b/fml/lib/FML/Process/QMail.pm
@@ -12,9 +12,7 @@ package FML::Process::QMail;
 use strict;
 use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD);
 use Carp;
-
-require Exporter;
-@ISA = qw(Exporter);
+use FML::Log;
 
 
 sub new
@@ -28,60 +26,44 @@ sub new
 
 =head1 NAME
 
-NOT YET MERGED - qmail-ext
+FML::Process::QMail - emulate C<qmail-ext> address
 
 =head1 SYNOPSIS
 
-=head1 DESCRIPTION
+NOT YET MERGED 
 
-=head1 CLASSES
+=head1 DESCRIPTION
 
 =head1 METHODS
 
-=item C<new()>
-
-... what is this ...
-
-=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::QMail appeared in fml5 mailing list driver package.
-See C<http://www.fml.org/> for more details.
-
 =cut
 
 
 sub DotQmailExt
 {
-    local(*e) = @_;
-    local($ext, $key, $keyctl);
+    my ($curproc) = @_;
+    my $config = $curproc->{ config };
 
     # get ?
-    ($ext = $ENV{'EXT'}) || return $NULL;
+    my $ext = $ENV{'EXT'};
 
-    &Log("dot-qmail-ext[0]: $ext") if $debug_qmail;
+    unless ($ext) {
+	Log("no extension address");
+	return;
+    }
 
-    $key    = (split(/\@/, $MAIL_LIST))[0];
-    $keyctl = (split(/\@/, $CONTROL_ADDRESS))[0];
+    &Log("dot-qmail-ext[0]: $ext");
+    my ($key)    = (split(/\@/, $config->{ address_for_post }))[0];
+    my ($keyctl) = (split(/\@/, $config->{ address_for_command }))[0];
 
     if ($ext =~ /^($key)$/i) {
-	return $NULL;
+	return '';
     }
     elsif ($keyctl&& ($ext =~ /^($keyctl)$/i)) {
-	return $NULL;
+	return '';
     }
 
-    &Log("dot-qmail-ext: $ext") if $debug_qmail;
+    &Log("dot-qmail-ext: $ext");
     $ext =~ s/^$key//i;
     $ext =~ s/\-\-/\@/i; # since @ cannot be used
     $ext =~ s/\-/ /g;
@@ -89,7 +71,27 @@ sub DotQmailExt
     &Log("\$ext -> $ext");
 
     # XXX: "# command" is internal represention
-    $e{'Body'} = sprintf("# %s", $ext);
+    return sprintf("# %s", $ext);
 }
 
+
+=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::QMail appeared in fml5 mailing list driver package.
+See C<http://www.fml.org/> for more details.
+
+=cut
+
+
 1;