diff options
Diffstat (limited to 'system/man-pages-ja/noninteractive_install.diff')
| -rw-r--r-- | system/man-pages-ja/noninteractive_install.diff | 126 |
1 files changed, 126 insertions, 0 deletions
diff --git a/system/man-pages-ja/noninteractive_install.diff b/system/man-pages-ja/noninteractive_install.diff new file mode 100644 index 0000000000..5593e1a225 --- /dev/null +++ b/system/man-pages-ja/noninteractive_install.diff @@ -0,0 +1,126 @@ +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]/); + + # + # インストールスクリプトを作る。 |