mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
fix dots
This commit is contained in:
parent
8486af73ea
commit
9b3374e76b
@ -24,9 +24,11 @@ if ($line =~ /-a/) { # append to the file
|
||||
$app_req = '>>';
|
||||
}
|
||||
|
||||
$DB::single = 1;
|
||||
|
||||
my ($fn, $rest) = split /\s+/, $line, 2;
|
||||
$fn = "$main::root/packclus/$fn" unless $fn =~ m|^/|;
|
||||
$fn =~ s/..//g;
|
||||
$fn =~ s/\.\.//g;
|
||||
$fn =~ s|/+|/|g;
|
||||
$fn .= '_' . cldate if $date_req;
|
||||
$fn .= '_' . ztime if $time_req;
|
||||
|
Loading…
Reference in New Issue
Block a user