diff options
| author | fukachan <fukachan> | 2001-02-24 13:40:48 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-02-24 13:40:48 +0000 |
| commit | 16cb06f1ca88159d4b54cf05795bdf663cd9ac53 (patch) | |
| tree | 01d396790292ecd0f25e81a266c3dd3d35768603 /doc | |
| parent | 0b3515d47ca3e6ed0b420d045fa244ab5781858f (diff) | |
| download | fml8-16cb06f1ca88159d4b54cf05795bdf663cd9ac53.tar.gz fml8-16cb06f1ca88159d4b54cf05795bdf663cd9ac53.tar.bz2 fml8-16cb06f1ca88159d4b54cf05795bdf663cd9ac53.zip | |
prepare @@doc/ for text documents
Diffstat (limited to 'doc')
| -rwxr-xr-x | doc/bin/dir2url.pl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/doc/bin/dir2url.pl b/doc/bin/dir2url.pl index 19e21024..e557b76e 100755 --- a/doc/bin/dir2url.pl +++ b/doc/bin/dir2url.pl @@ -46,7 +46,12 @@ sub Show my $pathname = ''; my $doc = ''; - unlink ".cvsignore" if -f ".cvsignore"; + if ( -f ".cvsignore" ) { + use FileHandle; + my $fh = new FileHandle "> .cvsignore"; + print $fh '@@doc', "\n"; + close($fh); + } foreach $pathname (<*>) { next if $pathname =~ /^\__template/; @@ -73,11 +78,12 @@ sub Show $module =~ s/\.pm$//; if (-f $pathname) { - $doc = '@'.$pathname; + -d '@@doc' || mkdir('@@doc', 0755); + $doc = '@@doc/'.$pathname; $doc =~ s/pm$/txt/; + print STDERR "\tpod2text $pathname > $doc\n"; system "pod2text $pathname > $doc"; - system "echo $doc >> .cvsignore"; } } |