This is the file needed by programlistingco.002.xml to test

inserting external text files.

diff --git a/testdocs/tests/codesample.txt b/testdocs/tests/codesample.txt
new file mode 100644 (file)
index 0000000..846eacb
--- /dev/null
+++ b/testdocs/tests/codesample.txt
@@ -0,0 +1,31 @@
+@rem = '--*-Perl-*--
+@echo off
+perl.exe %_batchname %$
+goto endofperl
+@rem ';
+
+# Compress mail...
+
+require 'n:/home/nwalsh/lib/cygnus.pl';
+require 'timelocal.pl';
+use Cwd;
+
+select (STDERR); $| = 1;
+select (STDOUT); $| = 1;
+
+@DIRS = ("/home/nwalsh/Mail");
+while (@DIRS) {
+    $dir = shift @DIRS;
+    opendir (DIR, $dir);
+    while ($fname = readdir(DIR)) {
+        $file = "$dir/$fname";
+        next if ! -d $file;
+        next if $fname =~ /^\.\.?$/;
+
+        print "$file\n";
+        push (@DIRS, $file);
+        &compress ($file);
+    }
+}
+
+exit;
\ No newline at end of file