#!/usr/bin/perl -w

# $Id: de-uvt-ize.pl 10194 2006-04-27 13:52:43Z joostvb $
# $URL: https://infix.uvt.nl/its-id/trunk/doc/unix/email-uvt/de-uvt-ize.pl $

#
# skip all stuff between \begin{version-[uh]} and \end{version-[uh]}. I.e.: keep
# just the public content.
#

my $skip = 0;

while (<>) {
    if (/^\\begin{version-u}/ or /^\\begin{version-h}/ or /^\\begin{version-uh}/) {
        $skip = 1
    } elsif (/^\\end{version-u}/ or /^\\end{version-h}/ or /^\\end{version-uh}/) {
        $skip = 0
    } elsif ($skip) {
        next;
    }
    print;
}