&untaint_argv;
my %opt;
-getopts('ed:qplscbyoi', \%opt);
+getopts('ed:qpl:scbyoi', \%opt);
my $user = shift or die &usage;
adminsuidsetup $user;
}
sub usage {
- die "Usage:\n\n freeside-overdue [ -e ] [ -d days ] [ -q ] [ -p ] [ -l amount ] [ -s ] [ -c ] user\n";
+ die "Usage:\n\n freeside-overdue [ -e ] [ -d days ] [ -q ] [ -p ] [ -l amount ] [ -s ] [ -c ] [ -b ] [ -y ] [ -o [ -i ] ] user\n";
}