mkdir "$dirprefix", 0777 if !-e "$dirprefix";
$fp = DXLog::new($dirprefix, "dat", 'd');
$statp = DXLog::new($dirprefix, "dys", 'd');
- my $rm = $main::is_win ? 'del' : 'rm -f';
- system("$rm $main::data/$dirprefix/*/*.bys");
- system("$rm $main::data/$dirprefix/*/*.cys");
}
sub prefix
# remove ssids and /xxx if present on spotter
$out[4] =~ s/-\d+$//o;
- $out[4] =~ s|/\w+$||o;
# remove leading and trailing spaces
$_[3] = unpad($_[3]);