eval 'exec perl -S $0 "$@"'
        if 0;
#
# pod2hlp 1-MAY-1999, pvhp@best.com
#

=head1 NAME

pod2hlp - pod to VMS help file reformatter.

=head1 SYNOPSIS

perl pod2hlp podfile

=head1 DESCRIPTION

This program uses the Pod::Hlp module from the Pod2VMSHlp
package.  This program takes a podfile.TYPE and produces
a reformatted podfile.hlp file in the same directory.

=head1 AUTHOR

Copyright (c) 1999 Peter Prymmer.  This program
may be used under the same terms as Perl.
Peter Prymmer pvhp@best.com 1-MAY-1999.
First released with Pod::Hlp Aug 14 1996.

=cut

if(@ARGV<1) {
        die <<EOF;
Usage: 
  $0 page_name|ModuleName|ProgramName|pod_file_name

EOF
}

use Pod::Hlp;

my($pod,$infile,$tmp,$hlp_level);

$pod = $infile = $ARGV[0];
$pod =~ s/\.[^\.]*$//;
$tmp = $pod . ".hlp";

if ($ARGV[1]) { $hlp_level = $ARGV[1]; } else { $hlp_level = '1'; }

open(TMP,">$tmp");
print TMP "$hlp_level $pod\n$pod\n";
Pod::Hlp::pod2hlp($infile,$hlp_level,*TMP);
close(TMP);

# print "output is in file $tmp\n";