From 16cb06f1ca88159d4b54cf05795bdf663cd9ac53 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 24 Feb 2001 13:40:48 +0000
Subject: prepare @@doc/ for text documents

---
 doc/bin/dir2url.pl | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'doc')

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";
 	    }
 	}
 
-- 
cgit v1.2.1