sub get_next_bus_day {
my $inc=1;
my $inc4sat=2;
my $inc4fri=3;
my $new_date;
my $date=shift;
DEBUG > 1 and print "date is: >$date<\n";
my $y = substr($date,0,4);
my $m = substr($date,4,2);
my $d = substr($date,6,2);

my $time = timelocal("", "", "", $d, $m-1, $y);

if ((localtime($time))[6] == 5) {
 $new_date=strftime "%Y%m%d", localtime timelocal(0,0,0,$d,$m-1,$y) + ($inc4fri * 24 * 60 * 60);
} elsif ((localtime($time))[6] == 6) {
 $new_date=strftime "%Y%m%d", localtime timelocal(0,0,0,$d,$m-1,$y) + ($inc4sat * 24 * 60 * 60);
} else {
 $new_date=strftime "%Y%m%d", localtime timelocal(0,0,0,$d,$m-1,$y) + ($inc * 24 * 60 * 60);
}
return $new_date;
}