File: dump-config.pl

package info (click to toggle)
console-tools 1%3A0.2.3-10.3
  • links: PTS
  • area: main
  • in suites: potato
  • size: 3,172 kB
  • ctags: 1,130
  • sloc: ansic: 11,866; sh: 8,109; yacc: 984; makefile: 389; lex: 287; perl: 127; sed: 93
file content (21 lines) | stat: -rw-r--r-- 666 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/perl
use Debian::DebConf::Client::ConfModule ':all';
use Data::Dumper;

sub print_get {
    my ($confvar) = @_;
    my ($code, $ret) = get ($confvar);
    return $ret;
}

sub print_metaget {
    my ($confvar, $var) = @_;
    my ($code, $ret) = metaget ($confvar, $var);
    return $ret;
}

print STDERR "Layout: ", print_get ('shared/keymap/layout'), "\n";
print STDERR "Country: ", print_get ('shared/keymap/country'), "\n";
print STDERR "Variant: ", print_get ('shared/keymap/variant'), "\n";
print STDERR "Filename: ", print_get ('shared/keymap/keymap_filename'), "\n";
print STDERR "Keymaps: ", print_metaget('shared/keymap/keymap', 'choices'), "\n";