X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2Fbin%2Ffreeside-email;h=400dc2ac7cfd3076d178a1c6e9d19ce652451ae9;hp=c7ff411148522a510051d42adba5b97df42ec165;hb=c2146ae32fdef80049abfa13098db2d45f3ebdd5;hpb=f41a78f519bfeb6ecd4e9cee271c42d2c27e717f

diff --git a/FS/bin/freeside-email b/FS/bin/freeside-email
index c7ff41114..400dc2ac7 100755
--- a/FS/bin/freeside-email
+++ b/FS/bin/freeside-email
@@ -12,11 +12,9 @@ my $user = shift or die &usage;
 adminsuidsetup $user;
 
 my $conf = new FS::Conf;
-my $domain = $conf->config('domain');
 
 my @svc_acct = qsearch('svc_acct', {});
-my @usernames = map $_->username, @svc_acct;
-my @emails = map "$_\@$domain", @usernames;
+my @emails = map $_->email, @svc_acct;
 
 print join("\n", @emails), "\n";
 
@@ -51,7 +49,7 @@ user: From the mapsecrets file - see config.html from the base documentation
 
 =head1 VERSION
 
-$Id: freeside-email,v 1.1 2001-05-15 07:52:34 ivan Exp $
+$Id: freeside-email,v 1.2 2002-09-18 22:50:44 ivan Exp $
 
 =head1 BUGS