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

diff --git a/FS/bin/freeside-email b/FS/bin/freeside-email
index c7ff41114..7a93f78ee 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";
 
@@ -49,10 +47,6 @@ 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 $
-
 =head1 BUGS
 
 =head1 SEE ALSO