use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearch qsearchs dbh);
use Data::Dumper;
-use Date::Manip::Date;
use POSIX;
&untaint_argv; #what it sounds like (eww)
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($bill);
- my $date = new Date::Manip::Date;
- my $err = $date->parse($bill);
-
- my $datefixed = $date->calc(?,1);
-
if ( $hour != 0 || $min != 0 || $sec != 0 ) {
$hour = 0;
$min = 0;