source: ProjectBuilder/projects/mondorescue/pbconf/branches/2.2.6/mondo/pbinit@ 418

#!/usr/bin/perl -w
#
# Init script for mondo with Project-Builder
#

# Export documentation to generate what is needed
use ProjectBuilder::Base;
use ProjectBuilder::Filter;
use ProjectBuilder::CMS;
use ProjectBuilder::Env;
use File::Basename;

system("./bootstrap");
pb_mkdir_p("docs/entmp");
pb_mkdir_p("docs/mantmp");
pb_mkdir_p("docs/en");
pb_mkdir_p("docs/man");
my $pbpkg = "PBPKG";
my $pbver = "PBVER";
my $pbtag = "PBTAG";
my $pbrev = "PBREV";
my $pbproj = "PBPROJ";

# Action needs to be pbinit
my ($filteredfiles, $supfiles, $defpkgdir, $extpkgdir) = pb_env_init($pbproj,undef,"pbinit");
my ($scheme,$uri) = pb_cms_init(undef);

pb_cms_export($uri,"$ENV{'PBDIR'}/mondo-doc/mondoarchive.8","docs/mantmp");
pb_cms_export($uri,"$ENV{'PBDIR'}/mondo-doc/mondorestore.8","docs/mantmp");
pb_cms_export($uri,"$ENV{'PBDIR'}/mondo-doc/images","docs/en/images");
pb_cms_export($uri,"$ENV{'PBDIR'}/mondo-doc/fdl.sgml","docs/en");
pb_cms_export($uri,"$ENV{'PBDIR'}/mondo-doc/mondorescue-howto.sgml","docs/entmp");
pb_cms_export($uri,"$ENV{'PBDIR'}/mondo-doc/mondorescue-howto.dsl","docs/en");
pb_cms_export($uri,"$ENV{'PBDIR'}/mondo-doc/Makefile.howto","docs/en");
# should call filter_file here

my $ptr = pb_get_filters($pbpkg);
foreach my $f (<docs/mantmp/*>) {
    pb_filter_file("$f",$ptr,"docs/man/".basename($f),$pbpkg,$pbver,$pbtag,$pbrev,"","",$pbproj);
}
foreach my $f (<docs/entmp/*>) {
    pb_filter_file("$f",$ptr,"docs/en/".basename($f),$pbpkg,$pbver,$pbtag,$pbrev,"","",$pbproj);
}
pb_rm_rf("docs/entmp");
pb_rm_rf("docs/mantmp");

system("cd docs/en ; make -f Makefile.howto mondorescue-howto.pdf mondorescue-howto.html");