diff --git a/xCAT-client/bin/getxcatdocs b/xCAT-client/bin/getxcatdocs index 3a09e0081..1b35a99de 100755 --- a/xCAT-client/bin/getxcatdocs +++ b/xCAT-client/bin/getxcatdocs @@ -71,7 +71,7 @@ my $docname="xcat-docs-snap$date.tar.gz"; #system('pwd'); my $cmd = "tar -zcf $docname html pdf 2>&1"; verbose($cmd); -system($cmd); +system($cmd) == 0 or die "Error running $cmd: $!, rc=$?"; # Optionally upload the tarball to sourceforge if ($UPLOAD || $UPLOADONLY) { @@ -106,14 +106,28 @@ sub gethtmldocs { print "Downloading the xCAT wiki documentation to $dir, from: $indexes ...\n"; runwget($indexes); - # remove the dir portion of links to other docs + # Remove the funny chars from the links to other docs and rename the docs #my $sedcmd = q(sed -i 's/ tags, but converting them does not seem to do any good anyway. + my $cmd = q(sed -i 's//dev/null 2>&1')) { die "xhtml2pdf is not installed. See http://sourceforge.net/apps/mediawiki/xcat/index.php?title=Editing_xCAT_Documentation_Pages#Converting_Wiki_Pages_to_HTML_and_PDFs .\n"; } unlink <*>; # delete all the files in the dir, in case they previously ran this foreach my $file (@$files) { - if ($file =~ /^index.php\?title=MediaWiki:/ || $file eq 'index.php?title=XCAT_Documentation') { next; } - my ($docname) = $file =~ /^index.php\?title=(.+)$/; - print "Converting $docname to PDF format...\n"; - my $url = "http://sourceforge.net/apps/mediawiki/xcat/$file&printable=yes"; - my $destfile = "$docname.pdf"; + #if ($file =~ /^index.php\?title=MediaWiki:/ || $file eq 'index.php?title=XCAT_Documentation') { next; } + if ($file eq 'XCAT_Documentation') { next; } + #my ($docname) = $file =~ /^index.php\?title=(.+)$/; + $file =~ s/\.html$//; + print "Converting $file to PDF format...\n"; + my $url = 'http://sourceforge.net/apps/mediawiki/xcat/index.php?title=' . $file . '&printable=yes'; + my $destfile = "$file.pdf"; my $cmd = "xhtml2pdf '$url' '$destfile' "; runh2p($cmd); } @@ -147,7 +163,8 @@ sub runwget { my $index = shift; # options we might consider: --html-extension --restrict-file-names=windows --cut-dirs=3 # options that do not work: --relative - my $rejectlist = q('*title=Special:*,*title=Talk:*,*title=-&*,*title=HowTos,*title=Main_Page,*title=MediaWiki:*,*title=Release_Notes,*title=Wish_List_for_xCAT_2,*&action=edit*,*&action=history*,*&printable=yes*,*&oldid=*,index.html,opensearch_desc.php,xcat,login.php,support'); + #my $rejectlist = q('*title=Special:*,*title=Talk:*,*title=-&*,*title=HowTos,*title=Main_Page,*title=MediaWiki:*,*title=Release_Notes,*title=Wish_List_for_xCAT_2,*&action=edit*,*&action=history*,*&printable=yes*,*&oldid=*,index.html,opensearch_desc.php,xcat,login.php,support'); + my $rejectlist = q('*title=Special:*,*title=Talk:*,*title=-&*,*title=HowTos,*title=Main_Page,*title=Release_Notes,*title=Wish_List_for_xCAT_2,*&action=edit*,*&action=history*,*&printable=yes*,*&oldid=*,index.html,opensearch_desc.php,xcat,login.php,support'); my $cmd = qq(wget --recursive --convert-links --no-verbose --progress=bar --level=1 --page-requisites --no-parent --no-host-directories --no-directories --no-clobber --execute robots=off --post-data='printable=yes' --reject $rejectlist $index); verbose($cmd); open(OUT, "$cmd 2>&1 |") || die "can't fork $cmd: $!\n";