#!/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;
use Data::Dumper;

pb_system("./bootstrap","Bootstraping MondoRescue","verbose");
pb_mkdir_p("docs/en");
pb_mkdir_p("docs/man");
my %pb;
$pb{'tag'} = "PBTAG";
$pb{'rev'} = "PBREV";
$pb{'ver'} = "PBVER";
$pb{'pkg'} = "PBPKG";
$pb{'proj'} = "PBPROJ";
$pb{'date'} = "PBDATE";
$pb{'repo'} = "PBREPO";
$pb{'extdir'} = "PBEXTDIR";

# Action needs to be pbinit
my ($filteredfiles, $supfiles, $defpkgdir, $extpkgdir) = pb_env_init($pb{'proj'},undef,"pbinit");
my ($scheme,$uri) = pb_cms_init(undef);

pb_cms_export($uri,"$ENV{'PBDIR'}/mondo-doc/mondoarchive.8","docs/man");
pb_cms_export($uri,"$ENV{'PBDIR'}/mondo-doc/mondorestore.8","docs/man");
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/en");
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($pb{'pkg'});
foreach my $f ((<docs/man/*.8>),(<docs/en/*.sgml>)) {
	#print "LOG: filtering $f\n";
	#print Dumper(%pb);
	#print Dumper($ptr);
	pb_filter_file_inplace($ptr,$f,\%pb);
}

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