projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was manufactured by cvs2svn to create branch
[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;
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 @emails = map $_->email, @svc_acct;
+my @usernames = map $_->username, @svc_acct;
+my @emails = map "$_\@$domain", @usernames;
print join("\n", @emails), "\n";
print join("\n", @emails), "\n";
@@
-49,7
+51,7
@@
user: From the mapsecrets file - see config.html from the base documentation
=head1 VERSION
=head1 VERSION
-$Id: freeside-email,v 1.
2 2002-09-18 22:50:4
4 ivan Exp $
+$Id: freeside-email,v 1.
1 2001-05-15 07:52:3
4 ivan Exp $
=head1 BUGS
=head1 BUGS