projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
eval fatal geocoding errors, turn them into warnings, RT#15539
[freeside.git]
/
FS
/
bin
/
freeside-email
diff --git
a/FS/bin/freeside-email
b/FS/bin/freeside-email
index
c7ff411
..
7a93f78
100755
(executable)
--- 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;
adminsuidsetup $user;
my $conf = new FS::Conf;
-my $domain = $conf->config('domain');
my @svc_acct = qsearch('svc_acct', {});
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";
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
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
=head1 BUGS
=head1 SEE ALSO