[384] | 1 | #!/usr/bin/perl -w
|
---|
| 2 | #
|
---|
| 3 | # Init script for mondo with Project-Builder
|
---|
| 4 | #
|
---|
| 5 |
|
---|
| 6 | # Export documentation to generate what is needed
|
---|
[418] | 7 | use ProjectBuilder::Base;
|
---|
| 8 | use ProjectBuilder::Filter;
|
---|
| 9 | use ProjectBuilder::CMS;
|
---|
[1483] | 10 | use ProjectBuilder::VCS;
|
---|
[418] | 11 | use ProjectBuilder::Env;
|
---|
[384] | 12 | use File::Basename;
|
---|
[1442] | 13 | use Data::Dumper;
|
---|
[384] | 14 |
|
---|
[1226] | 15 | pb_system("./bootstrap","Bootstraping MondoRescue","verbose");
|
---|
[384] | 16 | pb_mkdir_p("docs/en");
|
---|
| 17 | pb_mkdir_p("docs/man");
|
---|
[554] | 18 | my %pb;
|
---|
| 19 | $pb{'tag'} = "PBTAG";
|
---|
| 20 | $pb{'rev'} = "PBREV";
|
---|
[1442] | 21 | $pb{'ver'} = "PBVER";
|
---|
| 22 | $pb{'pkg'} = "PBPKG";
|
---|
[554] | 23 | $pb{'proj'} = "PBPROJ";
|
---|
| 24 | $pb{'date'} = "PBDATE";
|
---|
| 25 | $pb{'repo'} = "PBREPO";
|
---|
[1442] | 26 | $pb{'extdir'} = "PBEXTDIR";
|
---|
[1813] | 27 | $pb{'realpkg'} = "PBREALPKG";
|
---|
[384] | 28 |
|
---|
[418] | 29 | # Action needs to be pbinit
|
---|
[554] | 30 | my ($filteredfiles, $supfiles, $defpkgdir, $extpkgdir) = pb_env_init($pb{'proj'},undef,"pbinit");
|
---|
[384] | 31 | my ($scheme,$uri) = pb_cms_init(undef);
|
---|
| 32 |
|
---|
[1483] | 33 | pb_vcs_export($uri,"$ENV{'PBDIR'}/mondo-doc/mondoarchive.8","docs/man");
|
---|
| 34 | pb_vcs_export($uri,"$ENV{'PBDIR'}/mondo-doc/mondorestore.8","docs/man");
|
---|
| 35 | pb_vcs_export($uri,"$ENV{'PBDIR'}/mondo-doc/images","docs/en/images");
|
---|
| 36 | pb_vcs_export($uri,"$ENV{'PBDIR'}/mondo-doc/fdl.sgml","docs/en");
|
---|
| 37 | pb_vcs_export($uri,"$ENV{'PBDIR'}/mondo-doc/mondorescue-howto.sgml","docs/en");
|
---|
| 38 | pb_vcs_export($uri,"$ENV{'PBDIR'}/mondo-doc/mondorescue-howto.dsl","docs/en");
|
---|
| 39 | pb_vcs_export($uri,"$ENV{'PBDIR'}/mondo-doc/Makefile.howto","docs/en");
|
---|
[384] | 40 | # should call filter_file here
|
---|
| 41 |
|
---|
[554] | 42 | my $ptr = pb_get_filters($pb{'pkg'});
|
---|
[555] | 43 | foreach my $f ((<docs/man/*.8>),(<docs/en/*.sgml>)) {
|
---|
[1442] | 44 | #print "LOG: filtering $f\n";
|
---|
| 45 | #print Dumper(%pb);
|
---|
| 46 | #print Dumper($ptr);
|
---|
[554] | 47 | pb_filter_file_inplace($ptr,$f,\%pb);
|
---|
[384] | 48 | }
|
---|
| 49 |
|
---|
| 50 | system("cd docs/en ; make -f Makefile.howto mondorescue-howto.pdf mondorescue-howto.html");
|
---|