diff options
author | ivan <ivan> | 1998-09-25 08:52:48 +0000 |
---|---|---|
committer | ivan <ivan> | 1998-09-25 08:52:48 +0000 |
commit | 08f52e31c5f777963d565085d077c9d8d9734e17 (patch) | |
tree | 12cadac5ed336b42861b7df1907fd74c0bda5944 /bin/pod2x | |
parent | 693939e7879f77a52b9e482a0f6bf2e80f8f7020 (diff) |
Initial revision
Diffstat (limited to 'bin/pod2x')
-rwxr-xr-x | bin/pod2x | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/bin/pod2x b/bin/pod2x new file mode 100755 index 000000000..1edb1c41e --- /dev/null +++ b/bin/pod2x @@ -0,0 +1,23 @@ +#!/usr/bin/perl + +#use Pod::Text; +#$Pod::Text::termcap=1; + +my $site_perl = "./site_perl"; +#my $catman = "./catman"; +my $catman = "./htdocs/docs/man"; +#my $html = "./htdocs/docs/man"; + +$|=1; + +die "Can't find $site_perl and $catman" + unless [ -d $site_perl ] && [ -d $catman ] && [ -d $html ]; + +foreach my $file (glob("$site_perl/*.pm")) { + $file =~ /\/([\w\-]+)\.pm$/ or die "oops file $file"; + my $name = $1; + print "$name\n"; + system "pod2text $file >$catman/$name.txt"; +# system "pod2html --podpath=$site_perl $file >$html/$name.html"; +# system "pod2html $file >$html/$name.html"; +} |