diff options
author | cvs2git <cvs2git> | 1998-10-12 07:03:12 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 1998-10-12 07:03:12 +0000 |
commit | e1eb06c05b654a4533bab0e034e87a8de99015cc (patch) | |
tree | 448f6ca1c635eb08c0b4e51b3d40146febaf5df1 /bin/pod2x | |
parent | 47806ec845818ba69604e0452e7c7b25d62f0772 (diff) |
This commit was manufactured by cvs2svn to create tag 'freeside_current'.freeside_current
Diffstat (limited to 'bin/pod2x')
-rwxr-xr-x | bin/pod2x | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/bin/pod2x b/bin/pod2x deleted file mode 100755 index 1edb1c41e..000000000 --- a/bin/pod2x +++ /dev/null @@ -1,23 +0,0 @@ -#!/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"; -} |