SlackBuilds.org/misc/html2ps/noninteractive_install.diff

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"