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

diff --git a/FS/bin/freeside-email b/FS/bin/freeside-email
index c7ff41114..6e4e0fe6c 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";
 
@@ -47,11 +45,7 @@ freeside-email - Prints email addresses of all users on STDOUT
 
 Prints the email addresses of all customers on STDOUT, separated by newlines.
 
-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 $
+user: Freeside user
 
 =head1 BUGS