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