mirror of
https://github.com/SWG-Source/client-tools.git
synced 2026-07-13 22:01:07 -04:00
36 lines
524 B
Perl
36 lines
524 B
Perl
$dir = shift @ARGV;
|
|
die "usage: directory\n" if (!defined($dir));
|
|
|
|
sub dodir
|
|
{
|
|
local($dir) = @_;
|
|
|
|
opendir(DIR, $dir) || die "opendir failed";
|
|
local(@dir) = readdir(DIR);
|
|
closedir(DIR);
|
|
|
|
foreach (@dir)
|
|
{
|
|
next if ($_ eq '.');
|
|
next if ($_ eq '..');
|
|
local($path) = $dir . '/' . $_;
|
|
|
|
$mirror = $path;
|
|
$mirror =~ s#/#.new/#;
|
|
|
|
if (-d $path)
|
|
{
|
|
mkdir $mirror;
|
|
&dodir($path);
|
|
}
|
|
else
|
|
{
|
|
open(FILE, ">" . $mirror);
|
|
print FILE $path, "\n";
|
|
close(FILE);
|
|
}
|
|
}
|
|
}
|
|
mkdir $dir . ".new";
|
|
&dodir($dir);
|