5 use FS::UID qw(adminsuidsetup);
7 &untaint_argv; #what it sounds like (eww)
11 my $user = shift or die &usage;
14 use FS::Cron::agent_email qw(agent_email);
22 foreach $_ ( $[ .. $#ARGV ) { #untaint @ARGV
23 #$ARGV[$_] =~ /^([\w\-\/]*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
25 $ARGV[$_] =~ /^(.*)$/ || die "Illegal arguement \"$ARGV[$_]\"";