Article wrapper

This test checks that an external file referenced by textobject is correctly handled.

1<?xml version="1.0" encoding="utf-8"?>
<article xmlns="http://docbook.org/ns/docbook" version="5.0">
   <title>Article wrapper</title>
   <programlisting linenumbering="unnumbered">@rem = '--*-Perl-*--
5@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';
 
10# Compress mail...
 
require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;
15 
select (STDERR); $| = 1;
select (STDOUT); $| = 1;
 
@DIRS = ("/home/nwalsh/Mail");
20while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
25        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;
 
        print "$file\n";
        push (@DIRS, $file);
30        &amp;compress ($file);
    }
}
 
exit;</programlisting>
35</article>