sub fix_ntdate {
    my ($date) = shift;
    if (length($date) == 17) {
        if ($date =~ m!(\d\d)/(\d\d)/(\d\d) (\d\d):(\d\d):(\d\d)!) {
            $date = sprintf("%02d/%02d/%4d %02d:%02d:%02d",$2,$3,substr((localtime)[5]+1900,0,2).$1,$4,$5,$6);
        }
    }
    return $date;
}