- mysql 4.1 is available; update documentation

[freeside.git] / FS / bin / freeside-email

diff --git a/FS/bin/freeside-email b/FS/bin/freeside-email
index 400dc2a..c7ff411 100755 (executable)
--- a/FS/bin/freeside-email
+++ b/FS/bin/freeside-email
@@ -12,9 +12,11 @@ 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 @emails = map $_->email, @svc_acct;
+my @usernames = map $_->username, @svc_acct;
+my @emails = map "$_\@$domain", @usernames;
 
 print join("\n", @emails), "\n";
 
@@ -49,7 +51,7 @@ user: From the mapsecrets file - see config.html from the base documentation
 
 =head1 VERSION
 
-$Id: freeside-email,v 1.2 2002-09-18 22:50:44 ivan Exp $
+$Id: freeside-email,v 1.1 2001-05-15 07:52:34 ivan Exp $
 
 =head1 BUGS