Changeset 1263 in ProjectBuilder for pbconf/devel/website/pbinit

Timestamp:

Mar 12, 2011, 3:34:43 PM (13 years ago)

Author:

Bruno Cornec

Message:

• list of docs for .1, .3, .5 entries are now dynamically generated

File:

• pbconf/devel/website/pbinit (modified) (2 diffs)

pbconf/devel/website/pbinit

@@ -66 +66 @@
 # call filter_file here
 my $ptr = pb_get_filters($pb->{'pkg'});
+open(MANHTML,"> docs/pb_man_pages.html") || die "Unable to open docs/pb_man_pages.html";
+print MANHTML " <ul>\n";
 chdir("tmp");
-#open(MANHTML,"> docs/pb_man_pages.html") || die "Unable to open docs/pb_man_pages.html";
 foreach my $f (<*>) {
+    print MANHTML "     <li>$f</li>\n";
+    print MANHTML "     <ul>\n";
     pb_log(0,"\nProcessing $f\n");
     pb_log(0,"==========================\n");
@@ -93 +96 @@
             "--infile=$f",
             "--outfile=../docs/$f.$ext.html");
+    print MANHTML "         <li>A <a href=\"/docs/$f.$ext.html\" target=\"_blank\">HTML</a></li>\n";
     # generate text pages
     pb_log(0,"Generating text pages\n");
     $parser = Pod::Text->new (sentence => 0, width => 78);
     $parser->parse_from_file ("$f","../docs/$f.$ext.txt");
+    print MANHTML "         <li>A <a href=\"/docs/$f.$ext.txt\" target=\"_blank\">Text</a></li>\n";
     # generate ps pages
     #system("groff -Tps -mandoc $f.$ext > ../docs/$f.$ext.ps");
     # Use noredir here because is doesn't redirect to the right place without
     pb_system("groff -Tps -mandoc $f.$ext > ../docs/$f.$ext.ps","Generating Postscript pages","noredir");
+    print MANHTML "         <li>A <a href=\"/docs/$f.$ext.ps\" target=\"_blank\">PostScript</a></li>\n";
     # generate pdf pages
     pb_system("ps2pdf ../docs/$f.$ext.ps","Generating PDF pages");
     move("$f.$ext.pdf","../docs/$f.$ext.pdf");
-
+    print MANHTML "         <li>A <a href=\"/docs/$f.$ext.pdf\" target=\"_blank\">PDF</a></li>\n";
+    print MANHTML "     </ul>\n";
 }
+print MANHTML " </ul>\n";
+close(MANHTML);
 chdir("..");
 pb_rm_rf("tmp");