diff options
Diffstat (limited to 'perl-install/install2.pm')
| -rw-r--r-- | perl-install/install2.pm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 8f93705dd..2ae492a9f 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -11,6 +11,7 @@ use steps; use common; use install_any qw(:all); use install_steps; +use install_any; use lang; use keyboard; use mouse; @@ -484,6 +485,15 @@ sub main { log::l("switching to newt install cuz not enough memory"); $o->{interactive} = "newt"; } + + if (my ($s) = cat_("/proc/cmdline") =~ /brltty=(\S*)/) { + my ($driver, $device, $table) = split(',', $s); + $table = "text.$table.tbl" if $table !~ /\.tbl$/; + log::l("brltty option $driver $device $table"); + $o->{brltty} = { driver => $driver, device => $device, table => $table }; + $o->{interactive} = 'newt'; + } + # perl_checker: require install_steps_gtk # perl_checker: require install_steps_newt # perl_checker: require install_steps_stdio @@ -506,6 +516,26 @@ sub main { #- needed very early for install_steps_gtk eval { $o->{mouse} = mouse::detect() } if !$o->{nomouseprobe} && !$o->{mouse} && !$::testing; + #- need to be after oo-izing $o + if ($o->{brltty}) { + symlink "/tmp/stage2/$_", $_ foreach "/etc/brltty"; + if (common::usingRamdisk()) { + install_any::remove_unused(0); + mkdir '/tmp/stage2/etc/brltty'; + mkdir '/lib/brltty'; + install_any::getAndSaveFile("/etc/brltty/$o->{brltty}{table}", "/tmp/stage2/etc/brltty/$o->{brltty}{table}") if $o->{brltty}{table}; + install_any::getAndSaveFile("/lib/brltty/libbrlttyb$o->{brltty}{driver}.so") or do { + warn("Braille driver $o->{brltty}{driver} for BRLTTY was not found.\n", + "Press ENTER to continue.\n"); + <STDIN>; + }; + install_any::getAndSaveFile("/usr/bin/brltty"); + chmod 0755, "/usr/bin/brltty"; + } + devices::make("vcsa"); + run_program::run("brltty"); + } + $o->{lang} = lang::set($o->{lang}) if $o->{lang} ne 'en_US'; #- mainly for defcfg start_i810fb(); |