sub untaint_argv {
foreach $_ ( $[ .. $#ARGV ) { #untaint @ARGV
- $ARGV[$_] =~ /^([\w\-\/]*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
+ #$ARGV[$_] =~ /^([\w\-\/]*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
+ # Date::Parse
+ $ARGV[$_] =~ /^(.*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
$ARGV[$_]=$1;
}
}
-i: real-time billing (as opposed to batch billing). only relevant
for credit cards.
- -d: Pretent it's 'date'. Date is in any format Date::Parse is happy with,
+ -d: Pretend it's 'date'. Date is in any format Date::Parse is happy with,
but be careful.
user: From the mapsecrets file - see config.html from the base documentation
=head1 VERSION
-$Id: freeside-bill,v 1.3 1999-10-04 08:23:26 ivan Exp $
+$Id: freeside-bill,v 1.5 2000-06-22 10:52:37 ivan Exp $
=head1 BUGS