mirror of
https://github.com/Ponce/slackbuilds
synced 2024-11-28 10:02:43 +01:00
126 lines
3.5 KiB
Diff
126 lines
3.5 KiB
Diff
diff -Naur man-pages-ja-20140715/script/configure.perl man-pages-ja-20140715.patched/script/configure.perl
|
|
--- man-pages-ja-20140715/script/configure.perl 2010-11-09 13:14:23.000000000 -0500
|
|
+++ man-pages-ja-20140715.patched/script/configure.perl 2014-08-09 15:55:43.000000000 -0400
|
|
@@ -14,49 +14,10 @@
|
|
my @pack_method = ("none", "gzip", "bzip2", "compress");
|
|
my $podsec = "1";
|
|
|
|
-#
|
|
-# インストール情報
|
|
-#
|
|
-print "[INSTALLATION INFORMATION]\n";
|
|
-print "(just Return if you accept default)\n";
|
|
-
|
|
-do{
|
|
- $MANROOT = "/usr/share/man/$LANG";
|
|
- print " Install directory [$MANROOT] ?: ";
|
|
- $ans = <STDIN>; chomp $ans;
|
|
- if ($ans ne "") {$MANROOT = $ans;}
|
|
-
|
|
- print " compress manual with..\n";
|
|
- for my $i (0 .. $#pack_method){
|
|
- print " $i: $pack_method[$i]\n";
|
|
- }
|
|
- print " select [0..$#pack_method] : ";
|
|
- $ans = <STDIN>; chomp $ans;
|
|
- if ($ans eq "") {$ans = 0;}
|
|
- if ($ans < 0 || $ans > $#pack_method) {$PACK = $pack_method[0]}
|
|
- else {$PACK = $pack_method[$ans]}
|
|
-
|
|
- $OWNER = "root";
|
|
- print " uname of page owner [$OWNER] ?: ";
|
|
- $ans = <STDIN>; chomp $ans;
|
|
- if ($ans ne "") {$OWNER = $ans;}
|
|
-
|
|
- $GROUP = "root";
|
|
- print " group of page owner [$GROUP] ?: ";
|
|
- $ans = <STDIN>; chomp $ans;
|
|
- if ($ans ne "") {$GROUP = $ans;}
|
|
-
|
|
- print "\n";
|
|
- print " Directory: $MANROOT\n";
|
|
- print " Compression: $PACK\n";
|
|
- print " Page uid/gid: $OWNER/$GROUP\n";
|
|
- print "\n";
|
|
- do {
|
|
- print "All OK? (Yes, [C]ontinue / No, [R]eselect) : ";
|
|
- $ans = <STDIN>; chomp $ans;
|
|
- } until ($ans =~ /^[yYnNcCrR]/);
|
|
-
|
|
-} until ($ans =~ /^[yYcC]/);
|
|
+$MANROOT = $ENV{MANROOT};
|
|
+$PACK = "gzip";
|
|
+$OWNER = "root";
|
|
+$GROUP = "root";
|
|
|
|
#
|
|
# パッケージデータの読み込み (ファイルの先にあるほうが
|
|
@@ -80,30 +41,7 @@
|
|
}
|
|
close(PL);
|
|
|
|
-#
|
|
-# インストールするパッケージの選択
|
|
-# インストールしない奴は優先度 $pw{$name} を -1 にする。
|
|
-#
|
|
-print "\n\n";
|
|
-print "[INSTALL PACKAGE SELECTION]\n";
|
|
-print "(just Return if you accept default choice)\n";
|
|
-print "(you can change the default by editing script/pkgs.list)\n";
|
|
-
|
|
-do{
|
|
- for $i (0 .. $#pl){
|
|
- my $qstr = ($main::pw{$pl[$i]} > -1) ? "[Y/n]" : "[y/N]";
|
|
- printf " [%2d/%2d] %-15s %s ?: ", $i, $#pl, $pl[$i], $qstr;
|
|
- $ans = <STDIN>; chomp $ans;
|
|
- if ($ans =~ /[Yy].*/) { $main::pw{$pl[$i]} = $i;}
|
|
- if ($ans =~ /[Nn].*/) { $main::pw{$pl[$i]} = -1;}
|
|
- }
|
|
-
|
|
- do {
|
|
- print "All OK? (Yes, [C]ontinue / No, [R]eselect) : ";
|
|
- $ans = <STDIN>; chomp $ans;
|
|
- } until ($ans =~ /[yYnNcCrR].*/);
|
|
-
|
|
-} until ($ans =~ /^[yYcC]/);
|
|
+for $i (0 .. $#pl) { $main::pw{$pl[$i]} = $i; }
|
|
|
|
#
|
|
# translation_list からインストールすべきファイルを取得.
|
|
@@ -147,7 +85,7 @@
|
|
print "[RESOLVE CONFLICTS]\n";
|
|
print "(just Return if you accept item 0)\n";
|
|
|
|
-do{
|
|
+#do{
|
|
my $i = 0;
|
|
foreach my $key (sort keys %ppage) {
|
|
if (@{$ppage{$key}} < 2) { next; }
|
|
@@ -165,7 +103,8 @@
|
|
}
|
|
print " Which to install? (0..$cf) : ";
|
|
|
|
- $ans = <STDIN>; chomp $ans;
|
|
+# $ans = <STDIN>; chomp $ans;
|
|
+ $ans = 0;
|
|
if ($ans eq "") {$ans = 0};
|
|
if ($ans < 0 || $ans > $cf) { $ans = 0 };
|
|
|
|
@@ -178,12 +117,12 @@
|
|
$i++;
|
|
}
|
|
|
|
- do {
|
|
- print "All OK? (Yes, [C]ontinue / No, [R]eselect) : ";
|
|
- $ans = <STDIN>; chomp $ans;
|
|
- } until ($ans =~ /^[yYnNcCrR]/);
|
|
+# do {
|
|
+# print "All OK? (Yes, [C]ontinue / No, [R]eselect) : ";
|
|
+# $ans = <STDIN>; chomp $ans;
|
|
+# } until ($ans =~ /^[yYnNcCrR]/);
|
|
|
|
-} until ($ans =~ /^[yYcC]/);
|
|
+#} until ($ans =~ /^[yYcC]/);
|
|
|
|
#
|
|
# インストールスクリプトを作る。
|