Searched refs:BaseDir (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/demos/
H A Dnntp.mirror25 $BaseDir = '/usr/usenet';
26 chdir($BaseDir) or die "Could not cd to $BaseDir\n";
48 unless(-e "$BaseDir/$GroupName") {
49 unless(mkdir("$BaseDir/$GroupName", 0755))
50 { die "Could not make $BaseDir/$GroupName\n" }
52 chdir("$BaseDir/$GroupName") or die "Couldn't chdir to $GroupName\n";

Completed in 15 milliseconds