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

# Export documentation to generate what is needed
use ProjectBuilder::Base qw (pb_mkdir_p pb_rm_rf);
use ProjectBuilder::Filter qw (pb_filter_file pb_get_filters);
use ProjectBuilder::CMS qw (pb_cms_init pb_cms_export);
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 ($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,"","");
}
foreach my $f (<docs/entmp/*>) {
	pb_filter_file("$f",$ptr,"docs/en/".basename($f),$pbpkg,$pbver,$pbtag,$pbrev,"","");
}
pb_rm_rf("docs/entmp");
pb_rm_rf("docs/mantmp");

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