#!/usr/bin/perl

# Copyright (c) 2006 Red Hat, Inc. All rights reserved. This copyrighted material 

# is made available to anyone wishing to use, modify, copy, or

# redistribute it subject to the terms and conditions of the GNU General

# Public License v.2.

#

# This program is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A

# PARTICULAR PURPOSE. See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.

#

# Author: Petr Splichal <psplicha@redhat.com>

# This perl script takes all supplied files or stdin and extracts

# every =pod section that does not include =head1 headings except

# those which contain beakerlib-manual-{header,footer} directives.

#

# Finally it spits out parsed =pod sections in the following order:

# beakerlib-manual-header

# beakerlib-manual-include (all non-=head1 sections included here)

# beakerlib-manual-footer

my $pod = 0;

my $type = '';

my %text = (include => '=head1 FUNCTIONS');

while (<>) {

    # end of =pod section

    if (m/^=cut/) {

        $pod = 0;

    }

    # recognize header/footer and trash =head1's

    $type = 'header' if m/beakerlib-manual-header/;

    $type = 'footer' if /beakerlib-manual-footer/;

    $type = 'trash'  if /^=head1/ && ! ($type =~ m/header|footer/);

    # add to corresponding place

    $text{$type} .= $_ if $pod;

    # start of =pod section

    if (m/^=pod/) {

        $pod = 1;

        $type = 'include';

    }

}

print $text{header};

print $text{include};

print $text{footer};