4 use FS::UID qw(adminsuidsetup);
6 use FS::Record qw(qsearch);
9 &untaint_argv; #what it sounds like (eww)
10 my $user = shift or die &usage;
14 my $conf = new FS::Conf;
16 my @svc_acct = qsearch('svc_acct', {});
17 my @emails = map $_->email, @svc_acct;
19 print join("\n", @emails), "\n";
24 foreach $_ ( $[ .. $#ARGV ) { #untaint @ARGV
25 #$ARGV[$_] =~ /^([\w\-\/]*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
27 $ARGV[$_] =~ /^(.*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
33 die "Usage:\n\n freeside-email user\n";
38 freeside-email - Prints email addresses of all users on STDOUT
46 Prints the email addresses of all customers on STDOUT, separated by newlines.