#!/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;

pb_mkdir_p("docs");
my %pb;
$pb{'pkg'} = "PBPKG";
$pb{'ver'} = "PBVER";
$pb{'tag'} = "PBTAG";
$pb{'rev'} = "PBREV";
$pb{'proj'} = "PBPROJ";
$pb{'date'} = "PBDATE";
$pb{'repo'} = "PBREPO";

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

foreach my $f ("mondoarchive.8", "mondorestore.8", "fdl.sgml", "mondorescue-howto.sgml", "mondorescue-howto.dsl", "Makefile.howto", "Makefile.man", "mindi.8", "HOWTO-_Deploy_Linux_from_SCSI_to_SATA.pdf", "hwmigration.pdf", "mondo-presentation-v1.pdf", "mondo-presentation-v2.pdf", "p2v.odt", "p2v.pdf", "LabMondoRescue.odt", "LabMondoRescue.pdf") {
	pb_cms_export($uri,"$ENV{'PBDIR'}/mondo-doc/$f","docs");
}
pb_cms_export($uri,"$ENV{'PBDIR'}/mondo-doc/images","docs/images");

# call filter_file here
my $ptr = pb_get_filters($pb{'pkg'});
foreach my $f ((<docs/*.8>),(<docs/*.sgml>)) {
	pb_filter_file_inplace($ptr,$f,\%pb);
}

system("cd docs ; make -f Makefile.howto ; make -f Makefile.man");

# Fix man pages for Web usage
foreach my $f (<docs/*.8.html>) {
	my $content = pb_get_content($f);
	$content =~ s~/man8/~/docs/~g;
	$content =~ s~<A HREF[=./A-z0-9"]*/man1/[^<]*>([A-z0-9]*)</A>~$1~g;
	$content =~ s~/index.html~/index.shtml~g;
	pb_set_content($f,$content);
	}