| @@ -1,14 +1,14 @@ | | | @@ -1,14 +1,14 @@ |
1 | $NetBSD: patch-aa,v 1.7 2011/11/18 21:44:00 ryoon Exp $ | | 1 | $NetBSD: patch-aa,v 1.8 2011/11/18 21:59:01 ryoon Exp $ |
2 | | | 2 | |
3 | --- install.orig 2005-03-03 12:25:29.000000000 +0000 | | 3 | --- install.orig 2005-03-03 12:25:29.000000000 +0000 |
4 | +++ install | | 4 | +++ install |
5 | @@ -17,7 +17,9 @@ if(-e '/dev/null') { | | 5 | @@ -17,7 +17,9 @@ if(-e '/dev/null') { |
6 | $pathsep = ':'; | | 6 | $pathsep = ':'; |
7 | $dirsep = '/'; | | 7 | $dirsep = '/'; |
8 | $sys = 'unix'; | | 8 | $sys = 'unix'; |
9 | - $prefix = '/usr/local'; | | 9 | - $prefix = '/usr/local'; |
10 | + $prefix = $ARGV[0]; | | 10 | + $prefix = $ARGV[0]; |
11 | + $mandir = $ARGV[1]; | | 11 | + $mandir = $ARGV[1]; |
12 | + $iprefix = $ARGV[2]; | | 12 | + $iprefix = $ARGV[2]; |
13 | } elsif (-e 'nul') { | | 13 | } elsif (-e 'nul') { |
14 | $pathsep = ';'; | | 14 | $pathsep = ';'; |
| @@ -171,27 +171,27 @@ $NetBSD: patch-aa,v 1.7 2011/11/18 21:44 | | | @@ -171,27 +171,27 @@ $NetBSD: patch-aa,v 1.7 2011/11/18 21:44 |
171 | +#&getval($format, "A4", | | 171 | +#&getval($format, "A4", |
172 | +# "\nEnter the default paper type, possible choices are:\nA0, A1, A2, A3, A4," | | 172 | +# "\nEnter the default paper type, possible choices are:\nA0, A1, A2, A3, A4," |
173 | +# ." A5, A6, A7, A8, A9, A10,\nB0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10,\n" | | 173 | +# ." A5, A6, A7, A8, A9, A10,\nB0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10,\n" |
174 | +# ."letter, legal, arche, archd, archc, archb, archa,\nflsa, flse, halfletter," | | 174 | +# ."letter, legal, arche, archd, archc, archb, archa,\nflsa, flse, halfletter," |
175 | +# ." 11x17, ledger, other"); | | 175 | +# ." 11x17, ledger, other"); |
176 | if($format !~ /^other$/i) { | | 176 | if($format !~ /^other$/i) { |
177 | $paper .= " type: $format;"; | | 177 | $paper .= " type: $format;"; |
178 | } else { | | 178 | } else { |
179 | @@ -292,9 +298,9 @@ close RC; | | 179 | @@ -292,9 +298,9 @@ close RC; |
180 | | | 180 | |
181 | undef $/; | | 181 | undef $/; |
182 | open(HTML2PS,"html2ps") || die "*** Error opening html2ps\n"; | | 182 | open(HTML2PS,"html2ps") || die "*** Error opening html2ps\n"; |
183 | -($code = <HTML2PS>) =~ s|\$globrc=.*|\$globrc='$glob${dirsep}html2psrc';|; | | 183 | -($code = <HTML2PS>) =~ s|\$globrc=.*|\$globrc='$glob${dirsep}html2psrc';|; |
184 | +($code = <HTML2PS>) =~ s|\$globrc=.*|\$globrc='$iprefix${dirsep}${sharedir}${dirsep}html2psrc';|; | | 184 | +($code = <HTML2PS>) =~ s|\$globrc=.*|\$globrc='$iprefix${dirsep}${sharedir}${dirsep}html2ps${dirsep}html2psrc';|; |
185 | $code =~ s/exec \S+/exec $^X/; | | 185 | $code =~ s/exec \S+/exec $^X/; |
186 | -$code =~ s|\$ug=.*|\$ug='$html${dirsep}html2ps.html';|; | | 186 | -$code =~ s|\$ug=.*|\$ug='$html${dirsep}html2ps.html';|; |
187 | +$code =~ s|\$ug=.*|\$ug='$iprefix${dirsep}${sharedir}${dirsep}html2ps.html';|; | | 187 | +$code =~ s|\$ug=.*|\$ug='$iprefix${dirsep}${sharedir}${dirsep}html2ps.html';|; |
188 | close HTML2PS; | | 188 | close HTML2PS; |
189 | open(HTML2PS,">html2ps") || die "*** Error opening html2ps\n"; | | 189 | open(HTML2PS,">html2ps") || die "*** Error opening html2ps\n"; |
190 | print HTML2PS $code; | | 190 | print HTML2PS $code; |
191 | @@ -431,7 +437,7 @@ sub inst { | | 191 | @@ -431,7 +437,7 @@ sub inst { |
192 | copy $from => $_[0].$dirsep.$_[1] or die "*** Cannot write to $_[0]\n"; | | 192 | copy $from => $_[0].$dirsep.$_[1] or die "*** Cannot write to $_[0]\n"; |
193 | } | | 193 | } |
194 | sub goodprefix { | | 194 | sub goodprefix { |
195 | - for ($prefix, "$prefix${dirsep}bin", "$prefix${dirsep}lib", | | 195 | - for ($prefix, "$prefix${dirsep}bin", "$prefix${dirsep}lib", |
196 | + for ($prefix, "$prefix${dirsep}bin", "$prefix${dirsep}${sharedir}", | | 196 | + for ($prefix, "$prefix${dirsep}bin", "$prefix${dirsep}${sharedir}", |
197 | "$prefix${dirsep}man") | | 197 | "$prefix${dirsep}man") |