1 files changed, 66 insertions, 0 deletions
diff --git a/basic/scripts/runcthon.prl b/basic/scripts/runcthon.prl
new file mode 100644
index 0000000..80975a8
--- /dev/null
+++ b/basic/scripts/runcthon.prl
@@ -0,0 +1,66 @@
+# @(#)runcthon.prl	1.1	98/10/26 Connectathon Testsuite
+
+print "Run CONNECTATHON Tests\n";
+
+$count = $ARGV[0];
+
+&initpwd;
+
+chdir($ENV{'PWD'});
+
+$path = ($ENV{'PWD'});
+print $path;
+print "\n";
+
+for ($i = 1; $i <= $count; $i++) {
+
+$winpath = ($path . "\\win32\\basic");
+print "\n$i $winpath\n";
+chdir $winpath;
+system "perl runbasic.prl";
+chdir($ENV{'PWD'});
+
+$dospath = ($path . "\\dos\\basic");
+print "\n$i $dospath\n";
+chdir $dospath;
+system "perl runbasic.prl";
+chdir($ENV{'PWD'});
+
+$pospath = ($path . "\\posix\\basic");
+print "\n$i $pospath\n";
+chdir $pospath;
+#system "perl runbasic.prl";
+chdir($ENV{'PWD'});
+
+$dospath = ($path . "\\dos\\special");
+print "\n$i $dospath\n";
+chdir $dospath;
+system "runtests.bat";
+chdir($ENV{'PWD'});
+
+}
+
+exit 0;
+
+
+
+sub initpwd {
+    if ($ENV{'PWD'}) {
+	local($dd,$di) = stat('.');
+	local($pd,$pi) = stat($ENV{'PWD'});
+	if ($di != $pi || $dd != $pd) {
+	    chop($ENV{'PWD'} = `cd`);
+	}
+    }
+    else {
+	chop($ENV{'PWD'} = `cd`);
+    }
+    if ($ENV{'PWD'} =~ m|(/[^/]+(/[^/]+/[^/]+))(.*)|) {
+	local($pd,$pi) = stat($2);
+	local($dd,$di) = stat($1);
+	if ($di == $pi && $dd == $pd) {
+	    $ENV{'PWD'}="$2$3";
+	}
+    }
+# print "$ENV{'PWD'}\n";
+}