summaryrefslogtreecommitdiff
path: root/NetWare/splittree.pl
diff options
context:
space:
mode:
Diffstat (limited to 'NetWare/splittree.pl')
-rw-r--r--NetWare/splittree.pl24
1 files changed, 0 insertions, 24 deletions
diff --git a/NetWare/splittree.pl b/NetWare/splittree.pl
deleted file mode 100644
index 3c76daadb1..0000000000
--- a/NetWare/splittree.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-use DirHandle;
-use AutoSplit;
-
-sub splitthis {
-my ($top,$base,$dest) = @_;
-my $d = new DirHandle $base;
-if (defined $d) {
- while (defined($_ = $d->read)) {
- next if $_ eq ".";
- next if $_ eq "..";
- my $entry = "$base\\$_";
- my $entrywithouttop = $entry;
- $entrywithouttop =~ s/^$top//;
- if (-d $entry) {splitthis ($top,$entry,$dest);}
- else {
- next unless ($entry=~/pm$/i);
- #print "Will run autosplit on $entry to $dest\n";
- autosplit($entry,$dest,0,1,1);
- };
- };
- };
-}
-
-splitthis $ARGV[0],$ARGV[0],$ARGV[1];