source: vendor/perl/5.8.8/NetWare/t/NWScripts.pl

print "\nGenerating automated scripts for NetWare...\n\n\n";


use File::Basename;
use File::Copy;

chdir '/perl/scripts/';
$DirName = "t";

# These scripts have problems (either abend or hang) as of now (11 May 2001).
# So, they are commented out in the corresponding auto scripts, io.pl and lib.pl
@ScriptsNotUsed = ("t/io/openpid.t", "t/lib/filehandle.t", "t/lib/memoize/t/expire_module_t.t", "t/lib/NEXT/t/next.t", "t/lib/Math/BigInt/t/require.t", "t/ext/B/t/debug.t", "t/lib/IPC/Open3.t", "t/ext/B/t/showlex.t", "t/op/subst_wamp.t", "t/uni/upper.t", "t/lib/Net/t/ftp.t", "t/op/sort.t", "t/ext/POSIX/t/posix.t", "t/lib/CPAN/t/loadme.t", "t/lib/CPAN/t/vcmp.t");

opendir(DIR, $DirName);
@Dirs = readdir(DIR);
close(DIR);
foreach $DirItem(@Dirs)
{
        $DirItem1 = $DirName."/".$DirItem;
        push @DirNames, $DirItem1;      # All items under  $DirName  folder is copied into an array.

        if(-d $DirItem1)
        {       # If an item is a folder, then open it further.

                # Intemediary automated script like base.pl, lib.pl, cmd.pl etc.
                $IntAutoScript = "t/".$DirItem.".pl";

                # Open once in write mode since later files are opened in append mode,
                # and if there already exists a file with the same name, all further opens
                # will append to that file!!
                open(FHW, "> $IntAutoScript") or die "Unable to open the file,  $IntAutoScript  for writing.\n";
                seek(FHW, 0, 0);        # seek to the beginning of the file.
                close FHW;                      # close the file.
        }
}


print "Generating  t/nwauto.pl ...\n\n\n";

open(FHWA, "> t/nwauto.pl") or die "Unable to open the file,  t/nwauto.pl  for writing.\n";
seek(FHWA, 0, 0);       # seek to the beginning of the file.

$version = sprintf("%vd",$^V);
print FHWA "\n\nprint \"Automated Unit Testing of Perl$version for NetWare\\n\\n\\n\"\;\n\n\n";


foreach $FileName(@DirNames)
{
        $index = 0;
        if(-d $FileName)
        {       # If an item is a folder, then open it further.

                $dir = dirname($FileName);              # Get the folder name

                foreach $DirItem1(@Dirs)
                {
                        $DirItem2 = $DirItem1;
                        if($FileName =~ m/$DirItem2/)
                        {
                                $DirItem = $DirItem1;

                                # Intemediary automated script like base.pl, lib.pl, cmd.pl etc.
                                $IntAutoScript = "t/".$DirItem.".pl";
                        }
                }

                # Write into the intermediary auto script.
                open(FHW, ">> $IntAutoScript") or die "Unable to open the file,  $IntAutoScript  for appending.\n";
                seek(FHW, 0, 2);        # seek to the end of the file.

                $pos = tell(FHW);
                if($pos <= 0)