Changeset 1118 in ProjectBuilder

Timestamp:

Nov 26, 2010, 12:54:53 PM (13 years ago)

Author:

Bruno Cornec

Message:

r4059@localhost: bruno | 2010-11-26 11:52:10 +0100

• Improve Website delivery script

File:

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

pbconf/devel/website/pbinit

@@ -10 +10 @@
 use ProjectBuilder::Env;
 use File::Basename;
+use File::Copy;
 use Pod::Man;
 use Pod::Html qw(pod2html);
 use Pod::Text;
+use Data::Dumper;
+
+my @MAN = (
+    "pb-modules/lib/ProjectBuilder/Base.pm",
+    "pb-modules/lib/ProjectBuilder/Conf.pm",
+    "pb-modules/lib/ProjectBuilder/Distribution.pm",
+    "pb/lib/ProjectBuilder/Changelog.pm",
+    "pb/lib/ProjectBuilder/CMS.pm",
+    "pb/lib/ProjectBuilder/Env.pm",
+    "pb/lib/ProjectBuilder/Filter.pm",
+    "pb/bin/pb",
+    "rpmbootstrap/bin/rpmbootstrap",
+    "pb-modules/bin/pbdistrocheck",
+    "pb-modules/etc/pb.conf.pod",
+);
+
+my @DOC = (
+    "LabProject-Builder.org.odt", 
+    "LabProject-Builder.org.pdf",
+    "One_Source_for_Multiple_Platforms_Sol_Brief_final.pdf"
+);
 
 pb_temp_init();
@@ -25 +47 @@
 $pb{'date'} = "PBDATE";
 $pb{'repo'} = "PBREPO";
-$pb->{'realpkg'} = "PBREALPKG";
-$pb->{'packager'} = "PBPACKAGER";
-$pb->{'chglog'} = "";
+$pb{'realpkg'} = "PBREALPKG";
+$pb{'packager'} = q/PBPACKAGER/;
+$pb{'chglog'} = "";
 
 # Action needs to be pbinit
@@ -34 +56 @@
 
 # export doc
-foreach my $f ("LabProject-Builder.org.odt", "LabProject-Builder.org.pdf","One_Source_for_Multiple_Platforms_Sol_Brief_final.pdf") {
+foreach my $f (@DOC) {
     pb_cms_export($uri,"$ENV{'PBDIR'}/pb-doc/$f","docs");
 }
 # using pod from files
-foreach my $f ("pb/bin/pb", "pb-modules/bin/pbdistrocheck", "pb-modules/etc/pb.conf.pod", "rpmbootstrap/bin/rpmbootstrap", <*/lib/ProjectBuilder/*.pm>) {
+foreach my $f (@MAN) {
     pb_cms_export($uri,"$ENV{'PBDIR'}/$f","tmp");
 }
@@ -44 +66 @@
 # call filter_file here
 my $ptr = pb_get_filters($pb{'pkg'});
-foreach my $f (<tmp/*>) {
-    pb_log(0,"Processing $f\n");
+chdir("tmp");
+foreach my $f (<*>) {
+    pb_log(0,"\nProcessing $f\n");
     pb_log(0,"==========================\n");
     pb_filter_file_inplace($ptr,$f,\%pb);
@@ -68 +91 @@
             "--backlink='Back to Top'",
             "--infile=$f",
-            "--outfile=$f.$ext.html");
-    # generate ps pages
-    pb_system("groff -Tps -mandoc $f > $f.$ext.ps","Generating Postscript pages");
-    # generate pdf pages
-    pb_system("ps2pdf $f.$ext.ps","Generating PDF pages");
+            "--outfile=../docs/$f.$ext.html");
     # generate text pages
     pb_log(0,"Generating text pages\n");
     $parser = Pod::Text->new (sentence => 0, width => 78);
-    $parser->parse_from_file ("$f","$f.$ext.txt");
+    $parser->parse_from_file ("$f","../docs/$f.$ext.txt");
+    # generate ps pages
+    #system("groff -Tps -mandoc $f.$ext > ../docs/$f.$ext.ps");
+    pb_system("groff -Tps -mandoc $f.$ext > ../docs/$f.$ext.ps","Generating Postscript pages");
+    # generate pdf pages
+    pb_system("ps2pdf ../docs/$f.$ext.ps","Generating PDF pages");
+    move("$f.$ext.pdf","../docs/$f.$ext.pdf");
 }
-
-
+chdir("..");
+pb_rm_rf("tmp");