Server IP : 85.214.239.14 / Your IP : 18.224.45.82 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/2/cwd/proc/2/root/proc/2/cwd/usr/share/console/ |
Upload File : |
#!/usr/bin/perl use Debconf::Client::ConfModule ':all'; use Debconf::Log; sub my_warn { # Don't dump warnings into STDERR, as it will choke the return # of results from debconf to install-keymap. Instead put the # warnings into debconf's debugging channel. Debconf::Log::debug developer => "getkmapchoice warning: ".join(" ",@_); } sub my_die { # Don't die horribly, as install-keymap will then crash. # Instead, dump the warning into debconf's logs, # and return NONE, which hopefully will Do The Right Thing. my_warn @_; print STDERR "NONE"; exit 0; } #####COMMON##### # -*- perl -*- use vars qw( $obsolete_keymaps ); # Subarches # FIXME: not done # Issues: # * ppc issues not fully asserted yet # * /proc/hardware, which only exists on m68k and ppc, seems to be # an OPTION while configuring the kernel ! # Any fallback when it's not there ? # * USB set of keymap should contain what ? mac ? pc ? subset of those ? # SUBARCH KEYMAP SET DETECTION # m68k/atari atari "Model: Atari" # m68k/amiga amiga "Model: Amiga" # m68k/mac mac "Model: Macintosh" # m68k/mvme pc "Model: Motorola" # m68k/bvme pc "Model: BVME[46]000" # m68k/{sun,apollo,next,q40,hp300} Not supported by Debian # ppc/apus amiga "machine: Amiga" # ppc/chrp pc,mac "machine: CHRP" # ppc/pmac mac "machine: PowerMac|[Pp]ower[Bb]ook*|Power|iMac*|PowerMac1*" # ppc/prep pc "machine: PReP" # ppc/{bbox,mbx,ppc64,82xx,8xx} Not yet supported by Debian # arm/* pc (refered to as 'arm' only) sub guess_arch { my ($defs) = @_; my $arch = `dpkg --print-architecture`; chomp $arch; # Overrides for testing: # $arch = 'powerpc'; # $arch = 'm68k'; if (($arch eq 'powerpc') || ($arch eq 'm68k')) { my $subarch; if ($arch eq 'powerpc') { my $line = `sed -n 's/^machine.*: //p' /proc/cpuinfo`; chomp $line; if ($line eq '') { my $line = `sed -n 's/^platform.*: //p' /proc/cpuinfo`; chomp $line; abort ($defs, "No \"machine\" or \"platform\" field in /proc/cpuinfo") if $line eq ''; } $subarch = lc $line; } elsif ($arch eq 'm68k') { my $line = `sed -n 's/^Model.*://p' /proc/hardware`; chomp $line; abort ($defs, "No \"Model\" field in /proc/hardware") if $line eq ''; $subarch = lc $line; } chomp($subarch); $subarch =~ s/^\s*//; $subarch = 'amiga' if $subarch =~ m/amiga/; $subarch = 'chrp' if $subarch =~ m/chrp/; $subarch = 'prep' if $subarch =~ m/prep/; $subarch = 'mac' if $subarch =~ m/macintosh|powermac|powerbook|power|imac|powermac1/; $subarch = 'atari' if $subarch =~ m/atari/; $subarch = 'mvme' if $subarch =~ m/motorola/; $subarch = 'bvme' if $subarch =~ m/bvme/; $subarch = 'ps3' if $subarch =~ m/PS3/; $arch = "$arch/$subarch"; } # Overrides for testing: # $arch = 'sparc'; # $arch = 'powerpc/mac'; # $arch = 'powerpc/chrp'; # $arch = 'm68k/amiga'; # $arch = 'alpha'; return $arch; } sub abort { my ($defs, $msg) = @_; print STDERR "Debconf module aborted ($msg) - using old config mechanism.\n"; # fset_default($defs); exit 0; } sub correctname($) { my ($string) = @_; $string = lc $string; $string =~ s/[^a-z0-9+\-\.\/]/_/g; return $string; } # BELOW THIS LINE IS STUFF FOR ALL KEYMAP PROVIDERS $::keymap_defs = { 'prefix' => 'console-data/keymap/', 'toplevel' => 'family', 'sublevels' => [ 'layout', 'variant', 'keymap', ], 'allitems' => $::keymaps, 'obsolete' => $::obsolete_keymaps, 'archsets' => { 'i386' => [ 'pc' ], # 'hurd-i386' => [ 'pc' ], 'sparc' => [ 'sparc' ], 'alpha' => [ 'pc' ], 'arm' => [ 'pc' ], 'arm/riscpc' => [ 'pc' ], 'mips' => [ 'pc' ], 'm68k/atari' => [ 'atari' ], 'm68k/amiga' => [ 'amiga' ], 'm68k/mac' => [ 'mac' ], 'm68k/mvme' => [ 'pc' ], 'm68k/bvme' => [ 'pc' ], 'powerpc/amiga' => [ 'amiga' ], # apus 'powerpc/chrp' => [ 'pc', 'mac' ], 'powerpc/mac' => [ 'pc' ], 'powerpc/prep' => [ 'pc' ], 'powerpc/ps3' => [ 'pc' ], 'amd64' => [ 'pc' ], }, }; sub readfiles($) { my ($path) = @_; opendir (DIR, $path) or my_die "Can't open directory \`$path': $!"; my @files = grep { ! /^\./ && -f "$path/$_" } readdir(DIR); closedir DIR; foreach my $file (@files) { # print STDERR "Loading $defsdir/$file\n"; require "$defsdir/$file"; } } ($ret, $policy) = get ('console-data/keymap/policy'); if ($policy eq "Don't touch keymap") { # No keymap $filename = 'NONE'; } elsif ($policy eq 'Select keymap from full list') { ($ret, $filename) = get ('console-data/keymap/full'); if (! $filename) { $filename = 'NONE'; } } elsif ($policy eq 'Keep kernel keymap') { # No keymap $filename = 'KERNEL'; } else { # Get infos about selected keymap ($ret, $family) = get ('console-data/keymap/family'); $cfamily = correctname $family; my_die "No keyboard family selected: $family" unless $ret == 0; # This should only occur when no keymap is available if ($family eq '') { # Tell other programs (eg. install-keymap) not to do anything print STDERR "NONE"; exit 0; } ($ret, $layout) = get ("console-data/keymap/$cfamily/layout"); $clayout = correctname $layout; if ($ret != 0) { # Oops. mssing entry. recover if possible, my_warn "No keyboard layout selected: $layout"; if ( ! $FILE ) { my_die "No keymap selected" ; } else { print STDERR $FILE; exit 0; } } ($ret, $kbdvariant) = get ("console-data/keymap/$cfamily/$clayout/variant"); $ckbdvariant = correctname $kbdvariant; if ($ret != 0) { # Oops. mssing entry. recover if possible, my_warn "No keyboard variant selected: $kbdvariant"; if ( ! $FILE ) { my_die "No keymap selected" ; } else { print STDERR $FILE; exit 0; } } ($ret, $mapvariant) = get ("console-data/keymap/$cfamily/$clayout/$ckbdvariant/keymap"); if ($ret != 0) { # Oops. mssing entry. recover if possible, my_warn "No keymap variant selected: $mapvariant"; if ( ! $FILE ) { my_die "No keymap selected" ; } else { print STDERR $FILE; exit 0; } } # Get list of keymap definitions $defsdir = "/usr/share/console/lists/keymaps"; $keymaps = {}; readfiles ($defsdir); # Find the right one foreach my $kbdarch (@{$keymap_defs->{archsets}->{guess_arch($keymap_defs)}}) { my $maps = $keymaps->{$kbdarch}; $maps = $maps->{$family}; unless (defined $maps) { my_warn "Family not found ($family)"; $maps = $keymaps->{$kbdarch}; $maps = $maps->{Unknown}; if (defined $maps) { my_warn "Using $maps instead"; } next; } # 'Norwegian' had a typo in a previous version thus some people still # have this string in their debconf database. $layout =~ s/Norvegian/Norwegian/; $maps = $maps->{$layout}; unless (defined $maps) { my_warn "Layout not found ($layout)"; next; } $maps = $maps->{$kbdvariant}; unless (defined $maps) { my_warn "Keyboard variant not found ($kbdvariant)"; next; } $filename = $maps->{$mapvariant}; unless (defined $filename) { my_warn "Keymap variant not found ($mapvariant)"; next; } } } my_die "No matching map found" unless defined $filename; # output result print STDERR "$filename\n";