get_address_list() uses get_user_list() in FML::Command::UserControl.

1 files changed, 4 insertions, 17 deletions

diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm
index 3d6eba7b..66c3adcb 100644
--- a/fml/lib/FML/Process/Utils.pm
+++ b/fml/lib/FML/Process/Utils.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: Utils.pm,v 1.63 2003/03/14 03:49:09 fukachan Exp $
+# $FML: Utils.pm,v 1.64 2003/03/16 10:52:09 fukachan Exp $
 #
 
 package FML::Process::Utils;
@@ -1057,23 +1057,10 @@ sub get_address_list
     my $config = $curproc->{ config };
     my $list   = $config->get_as_array_ref( $map );
 
-    eval q{ use IO::Adapter;};
+    eval q{ use FML::Command::UserControl;};
     unless ($@) {
-	my $r = [];
-
-	for my $map (@$list) {
-	    my $io  = new IO::Adapter $map, $config;
-	    my $key = '';
-	    if (defined $io) {
-		$io->open();
-		while (defined($key = $io->get_next_key())) {
-		    push(@$r, $key);
-		}
-		$io->close();
-	    }
-	}
-
-	return $r;
+	my $obj = new FML::Command::UserControl;
+	return $obj->get_user_list($curproc, $list);
     }
 
     return [];