slackbuilds_ponce/misc/html2ps/noninteractive_install.diff

238 lines
8 KiB
Diff
Raw Normal View History

diff -Naur html2ps-1.0b7/install html2ps-1.0b7.patched/install
--- html2ps-1.0b7/install 2010-05-07 07:22:12.000000000 -0400
+++ html2ps-1.0b7.patched/install 2014-09-12 13:31:05.000000000 -0400
@@ -33,33 +33,6 @@
}
@perl = ("Image${dirsep}Magick.pm", "LWP${dirsep}UserAgent.pm");
-print <<EOD;
-
-This is the installation script for html2ps. To get full functionality, some
-external program packages need to be installed. You may wish to install these
-first (see the enclosed documentation for addresses):
-
- * For conversion on inline images, any of the packages ImageMagick, pbmplus
- or netpbm.
-
- * To retrieve remote documents you must have libwww-perl. Alternatively,
- some program like wget or lynx.
-
- * To be able to generate cross references and DSC PostScript, you must
- have Ghostscript installed.
-
- * To be able to convert documents using the MATH element from HTML 3.0,
- you need both TeX and dvips.
-
-This script creates a file describing the local configuration. To make this
-accurate, you should have your search PATH set to include the directories
-where the abovementioned packages are. You must also have write access to
-the directories where the files should be placed.
-EOD
-
-&getval($goon, "y", "\nDo you want to proceed with the installation?");
-die "\n" if($goon!~/^y/i);
-
print "\n";
for $req (@perl) {
print "Searching for $req: ";
@@ -103,30 +76,10 @@
$pack .= " check: weblint;\n";
}
-if($module{"LWP${dirsep}UserAgent.pm"}) {
- $pack .= " libwww-perl: 1;\n";
-} else {
- if(&exist("lynx",0)) {
- $lynx = 1;
- $lynxcmd = "lynx -source -mime_header";
- $getdef = $lynxcmd;
- }
- if(&exist("wget",0)) {
- $wget = 1;
- $ugcmd = "wget -s -q -O-";
- $getdef = $ugcmd;
- }
- $both = $wget && $lynx? " (for example '$ugcmd' or\n'$lynxcmd')": "";
- $none = $wget || $lynx? "":
- ", or press <return> to convert local files only";
- &getval($geturl, $getdef,
- "\nBy default html2ps uses libwww-perl to retrieve remote documents, "
- ."I cannot\nfind this on your system. You may instead use some command "
- ."that can retrieve\ndocuments _with_a_complete_MIME_header_$both\.\n"
- ."Enter such a command$none");
- $geturl = "/bin/true" if(!$geturl);
- $pack .= " geturl: \"$geturl\";\n";
-}
+$lynx = 1;
+$lynxcmd = "lynx -source -mime_header";
+$geturl = $lynxcmd;
+$pack .= " geturl: \"$geturl\";\n";
if(@reqpath) {
$pack .= ' path: "'.join($pathsep, @reqpath).'";';
@@ -134,155 +87,22 @@
chop ($cd = `pwd`);
-&getval($ans, "y",
- "\nBy default all files will be installed in subdirectories 'bin', 'lib',\n"
- ."and 'man' in a common directory. Is this OK?");
-$def = $ans=~/^y/i;
-
-if($def) {
- &getval($prefix, "$prefix", "\nEnter the name of this directory");
- &fixdir($prefix);
- while(!&goodprefix) {
- &getval($prefix, "$prefix", "\nEnter a new directory name");
- }
- &makedir($prefix,0);
-}
-
-if($def) {
- $bindir = "$prefix${dirsep}bin";
-} else {
- &getval($bindir, "$prefix${dirsep}bin",
- "\nEnter the directory where the html2ps script should be put");
- &fixdir($bindir);
- ($prefix) = $bindir=~m|(.*)\Q$dirsep\E[^\Q$dirsep\E]+|;
-}
-&makedir($bindir,$def);
+$bindir = "$ENV{PKG}/usr/bin";
-if($def) {
- $glob = "$prefix${dirsep}lib${dirsep}html2ps";
-} else {
- &getval($glob, "$prefix${dirsep}lib${dirsep}html2ps",
- "\nEnter the the directory where the global configuration file for\n"
- ."html2ps should be put");
- $glob =~ s|/$||g;
- &fixdir($glob);
-}
-&makedir($glob,$def);
$repl = "y";
-if(-f "$glob${dirsep}html2psrc") {
- &getval($repl, "y", "\nA file $glob${dirsep}html2psrc already exists, replace?");
-}
+$glob = "$ENV{PKG}/usr/share/html2ps";
-if($def) {
- $man1 = "$prefix${dirsep}man${dirsep}man1";
-} else {
- &getval($man1, "$prefix${dirsep}man${dirsep}man1",
- "\nEnter the directory for the html2ps manual page");
- &fixdir($man1);
-}
-&makedir($man1,$def);
-
-if($def) {
- $man5 = "$prefix${dirsep}man${dirsep}man5";
-} else {
- &getval($man5, "$prefix${dirsep}man${dirsep}man5",
- "\nEnter the directory for the manual page describing the configuration\n"
- ."file format for html2ps");
- &fixdir($man5);
-}
-&makedir($man5,$def);
+$man1 = "$ENV{PKG}/usr/man/man1";
+$man5 = "$ENV{PKG}/usr/man/man5";
-$ht = "\nTo use the automatic hyphenation feature, hyphenation pattern files\n"
- ."from the TeX distribution are needed.";
$cophy = 1;
-if($exist{'TeX'}) {
- $hfile = "";
- ($texdir = $dir{'TeX'}) =~ s|/bin$||;
- SW:for("texmf/tex/generic/hyphen","macros","inputs","lib/macros",
- "lib/inputs","lib/tex/macros","lib/tex/inputs") {
- if(-f "$texdir/$_/ushyph1.tex") {
- $hyph = "$texdir/$_";
- $hfile = "$hyph/ushyph1.tex";
- last SW;
- }
- if(-f "$texdir/$_/hyphen.tex") {
- $hyph = "$texdir/$_";
- $hfile = "$hyph/hyphen.tex";
- last SW;
- }
- }
- if($hfile) {
- &getval($hdef, "y", "$ht I believe that I have found\nthe pattern "
- ."file for English in your TeX installation:\n\n "
- ."$hfile\n\nWould you like to use this instead of the "
- ."file included with html2ps?");
- if($hdef=~/^y/i) {
- $cophy = 0;
- } else {
- $hfile = "";
- }
- } else {
- &getval($hfile, "", "$ht I cannot find the pattern\nfile for English "
- ."in your TeX installation. (It should be called\n'hyphen.tex', "
- ."or perhaps 'ushyph1.tex', somewhere in the directory\ntree "
- ."'$texdir'.)\n\nIf you know where this file is and want to use it "
- ."instead of the\nfile included with html2ps, enter the full path "
- ."name for this file,\notherwise press <return>");
- while($hfile && !-f $hfile) {
- &getval($hfile, "", "\nNo such file: $hfile\nEnter new name, or "
- ."press <return> to use the supplied file");
- }
- $cophy = $hfile !~ /\S/;
- }
- if(!$hfile) {
- if($def) {
- $hyph = "$prefix${dirsep}lib${dirsep}html2ps";
- } else {
- &getval($hyph, "$prefix${dirsep}lib${dirsep}html2ps",
- "\nOK, I will use the supplied pattern file for English. Enter "
- ."the directory\nwhere this file should be put");
- &fixdir($hyph);
- }
- }
-} else {
- if($def) {
- $hyph = "$prefix${dirsep}lib${dirsep}html2ps";
- } else {
- &getval($hyph, "$prefix${dirsep}lib${dirsep}html2ps", "$ht A pattern file for English is\n"
- ."included with html2ps (see the documentation how to install pattern\n"
- ."files for other languages). Enter the directory where this file\n"
- ."should be put");
- }
-}
-if($cophy) {
- &makedir($hyph,0);
- $hfile = "$hyph${dirsep}hyphen.tex";
-}
+$hyph = $glob;
+$hfile = $glob . "/hyphen.tex";
-if($def) {
- $html = "$prefix${dirsep}lib${dirsep}html2ps";
-} else {
- &getval($html, "$prefix${dirsep}lib${dirsep}html2ps",
- "\nEnter a directory where to put the HTML document describing\nhtml2ps");
- &fixdir($html);
-}
-&makedir($html,$def);
+$html = "$ENV{PKG}/usr/doc/html2ps-$ENV{VERSION}";
-$paper = "";
-&getval($format, "A4",
- "\nEnter the default paper type, possible choices are:\nA0, A1, A2, A3, A4,"
- ." A5, A6, A7, A8, A9, A10,\nB0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10,\n"
- ."letter, legal, arche, archd, archc, archb, archa,\nflsa, flse, halfletter,"
- ." 11x17, ledger, other");
-if($format !~ /^other$/i) {
- $paper .= " type: $format;";
-} else {
- &getval($height, "",
- "\nDefault paper height i centimeters (1 inch = 2.54 centimeters)");
- &getval($width, "", "\nDefault paper width i centimeters");
- $paper .= " height: $height;\n";
- $paper .= " width: $width;";
-}
+$format = "letter";
+$paper = " type: $format;";
open(RC,">html2psrc") || die "*** Error opening html2psrc\n";
print RC "/* Global configuration file for html2ps */\n\n"