diff options
| author | Manuel Traut <manut@mecka.net> | 2013-03-10 12:13:49 +0100 |
|---|---|---|
| committer | Manuel Traut <manut@mecka.net> | 2013-03-10 12:13:49 +0100 |
| commit | 9c0f862749f30800837a45aff5abdcb529867dbc (patch) | |
| tree | b0ca51fff64f12fac03aea4afaa1fa722376844b /beagle/debian-rfs/usr/share/debconf | |
| parent | 33b79c725448efd2c9a72e2ae9a1fb04270492f5 (diff) | |
| parent | cea5039322781f6085dd47954af5584ca3f78911 (diff) | |
Merge branch 'schulung'
updates from current linutronix schulung.git
Conflicts:
Makefile
configpres.tex
flash-memory/ubi/handout_ubi_de.tex
handout.tex
index.txt
pres_master.tex
vorl.tex
vorl1.tex
vorl2.tex
vorl3.tex
vorl4.tex
vorl5.tex
Signed-off-by: Manuel Traut <manut@mecka.net>
Diffstat (limited to 'beagle/debian-rfs/usr/share/debconf')
| -rw-r--r-- | beagle/debian-rfs/usr/share/debconf/confmodule | 91 | ||||
| -rw-r--r-- | beagle/debian-rfs/usr/share/debconf/confmodule.sh | 100 | ||||
| -rw-r--r-- | beagle/debian-rfs/usr/share/debconf/debconf.conf | 27 | ||||
| -rwxr-xr-x | beagle/debian-rfs/usr/share/debconf/fix_db.pl | 79 | ||||
| -rwxr-xr-x | beagle/debian-rfs/usr/share/debconf/frontend | 104 | ||||
| -rwxr-xr-x | beagle/debian-rfs/usr/share/debconf/transition_db.pl | 90 |
6 files changed, 0 insertions, 491 deletions
diff --git a/beagle/debian-rfs/usr/share/debconf/confmodule b/beagle/debian-rfs/usr/share/debconf/confmodule deleted file mode 100644 index a82cbdb..0000000 --- a/beagle/debian-rfs/usr/share/debconf/confmodule +++ /dev/null @@ -1,91 +0,0 @@ -#!/bin/sh -# This is a shell library to interface to the Debian configuration management -# system. - -############################################################################### -# Initialization. - -# Check to see if a FrontEnd is running. -if [ ! "$DEBIAN_HAS_FRONTEND" ]; then - PERL_DL_NONLAZY=1 - export PERL_DL_NONLAZY - # Since there is no FrontEnd, this program execs a FrontEnd. - # It will then run a new copy of $0 that can talk to it. - if [ "$DEBCONF_USE_CDEBCONF" ]; then - exec /usr/lib/cdebconf/debconf $0 "$@" - else - exec /usr/share/debconf/frontend $0 "$@" - fi -fi - -# Only do this once. -if [ -z "$DEBCONF_REDIR" ]; then - # Redirect standard output to standard error. This prevents common - # mistakes by making all the output of the postinst or whatever - # script is using this library not be parsed as confmodule commands. - # - # To actually send something to standard output, send it to fd 3. - exec 3>&1 - if [ "$DEBCONF_USE_CDEBCONF" ]; then - exec 1>&5 - else - exec 1>&2 - fi - DEBCONF_REDIR=1 - export DEBCONF_REDIR -fi - -############################################################################### -# Commands. - -_db_cmd () { - IFS=' ' printf '%s\n' "$*" >&3 - # Set to newline to get whole line. - IFS=' -' read -r _db_internal_line - # Disgusting, but it's the only good way to split the line, - # preserving all other whitespace. - RET="${_db_internal_line#[! ][ ]}" - case ${_db_internal_line%%[ ]*} in - 1) # escaped data - RET="$(printf '%s' "$RET" | debconf-escape -u)" - return 0 - ;; - esac - return ${_db_internal_line%%[ ]*} -} - -db_capb () { _db_cmd "CAPB $@"; } -db_set () { _db_cmd "SET $@"; } -db_reset () { _db_cmd "RESET $@"; } -db_title () { _db_cmd "TITLE $@"; } -db_input () { _db_cmd "INPUT $@"; } -db_beginblock () { _db_cmd "BEGINBLOCK $@"; } -db_endblock () { _db_cmd "ENDBLOCK $@"; } -db_go () { _db_cmd "GO $@"; } -db_get () { _db_cmd "GET $@"; } -db_register () { _db_cmd "REGISTER $@"; } -db_unregister () { _db_cmd "UNREGISTER $@"; } -db_subst () { _db_cmd "SUBST $@"; } -db_fset () { _db_cmd "FSET $@"; } -db_fget () { _db_cmd "FGET $@"; } -db_purge () { _db_cmd "PURGE $@"; } -db_metaget () { _db_cmd "METAGET $@"; } -db_version () { _db_cmd "VERSION $@"; } -db_clear () { _db_cmd "CLEAR $@"; } -db_settitle () { _db_cmd "SETTITLE $@"; } -db_previous_module () { _db_cmd "PREVIOUS_MODULE $@"; } -db_info () { _db_cmd "INFO $@"; } -db_progress () { _db_cmd "PROGRESS $@"; } -db_data () { _db_cmd "DATA $@"; } -db_x_loadtemplatefile () { _db_cmd "X_LOADTEMPLATEFILE $@"; } - -# An old alias for input. -db_text () { - db_input $@ -} - -# Cannot read a return code, since there is none and it would block. -db_stop () { - echo STOP >&3 -} diff --git a/beagle/debian-rfs/usr/share/debconf/confmodule.sh b/beagle/debian-rfs/usr/share/debconf/confmodule.sh deleted file mode 100644 index 415b361..0000000 --- a/beagle/debian-rfs/usr/share/debconf/confmodule.sh +++ /dev/null @@ -1,100 +0,0 @@ -#!/bin/sh -# This is a shell library to interface to the Debian configration management -# system. -# -# This library is obsolete. Do not use. - -############################################################################### -# Initialization. - -# Check to see if a FrontEnd is running. -if [ ! "$DEBIAN_HAS_FRONTEND" ]; then - PERL_DL_NONLAZY=1 - export PERL_DL_NONLAZY - # Ok, this is pretty crazy. Since there is no FrontEnd, this - # program execs a FrontEnd. It will then run a new copy of $0 that - # can talk to it. - exec /usr/share/debconf/frontend $0 $* -fi - -# Only do this once. -if [ -z "$DEBCONF_REDIR" ]; then - # Redirect standard output to standard error. This prevents common - # mistakes by making all the output of the postinst or whatever - # script is using this library not be parsed as confmodule commands. - # - # To actually send something to standard output, send it to fd 3. - exec 3>&1 1>&2 - DEBCONF_REDIR=1 - export DEBCONF_REDIR -fi - -# For internal use, send text to the frontend. -_command () { - echo $* >&3 -} - -echo "WARNING: Using deprecated debconf compatibility library." - -############################################################################### -# Commands. - -# Generate subroutines for all commands that don't have special handlers. -# Each command must be listed twice, once in lower case, once in upper. -# Doing that saves us a lot of calls to tr at load time. I just wish shell had -# an upper-case function. -old_opts="$@" -for i in "capb CAPB" "set SET" "reset RESET" "title TITLE" \ - "input INPUT" "beginblock BEGINBLOCK" "endblock ENDBLOCK" "go GO" \ - "get GET" "register REGISTER" "unregister UNREGISTER" "subst SUBST" \ - "fset FSET" "fget FGET" "visible VISIBLE" "purge PURGE" \ - "metaget METAGET" "exist EXIST" \ - "x_loadtemplatefile X_LOADTEMPLATEFILE"; do - # Break string up into words. - set -- $i - eval "db_$1 () { - _command \"$2 \$@\" - read _RET - old_opts="\$@" - set -- \$_RET - shift - RET="\$*" - set -- \$old_opts - unset old_opts - }" -done -# $@ was clobbered above, unclobber. -set -- $old_opts -unset old_opts - -# By default, 1.0 protocol version is sent to the frontend. You can -# pass in a different version to override this. -db_version () { - if [ "$1" ]; then - _command "VERSION $1" - else - _command "VERSION 1.0" - fi - # Not quite correct, but not worth fixing in obsolete code. - read -r RET -} - -# Here for backwards compatibility. -db_go () { - _command "GO" - read -r RET - if [ "$RET" = 30 ]; then - RET='back' - fi -} - -# Just an alias for input. It tends to make more sense to use this to display -# text, since displaying text isn't really asking for input. -db_text () { - db_input $@ -} - -# Cannot read a return code, since there is none and we would block. -db_stop () { - echo STOP >&3 -} diff --git a/beagle/debian-rfs/usr/share/debconf/debconf.conf b/beagle/debian-rfs/usr/share/debconf/debconf.conf deleted file mode 100644 index 16a9c57..0000000 --- a/beagle/debian-rfs/usr/share/debconf/debconf.conf +++ /dev/null @@ -1,27 +0,0 @@ - -Config: configdb -Templates: templatedb - -Name: config -Driver: File -Mode: 644 -Reject-Type: password -Filename: /var/cache/debconf/config.dat - -Name: passwords -Driver: File -Mode: 600 -Backup: false -Required: false -Accept-Type: password -Filename: /var/cache/debconf/passwords.dat - -Name: configdb -Driver: Stack -Stack: config, passwords - -Name: templatedb -Driver: File -Mode: 644 -Filename: /var/cache/debconf/templates.dat - diff --git a/beagle/debian-rfs/usr/share/debconf/fix_db.pl b/beagle/debian-rfs/usr/share/debconf/fix_db.pl deleted file mode 100755 index abe80a3..0000000 --- a/beagle/debian-rfs/usr/share/debconf/fix_db.pl +++ /dev/null @@ -1,79 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! -use strict; -use Debconf::Db; -use Debconf::Log q{warn}; - -Debconf::Db->load; - -if (! @ARGV || $ARGV[0] ne 'end') { - my $fix=0; - my $ok; - my $counter=0; - do { - $ok=1; - - my %templates=(); - my $ti=$Debconf::Db::templates->iterator; - while (my $t=$ti->iterate) { - $templates{$t}=Debconf::Template->get($t); - } - - my %questions=(); - my $qi=Debconf::Question->iterator; - while (my $q=$qi->iterate) { - if (! defined $q->template) { - warn "question \"".$q->name."\" has no template field; removing it."; - $q->addowner("killme",""); # make sure it has one owner at least, so removal is triggered - foreach my $owner (split(/, /, $q->owners)) { - $q->removeowner($owner); - } - $ok=0; - $fix=1; - } - elsif (! exists $templates{$q->template->template}) { - warn "question \"".$q->name."\" uses nonexistant template ".$q->template->template."; removing it."; - foreach my $owner (split(/, /, $q->owners)) { - $q->removeowner($owner); - } - $ok=0; - $fix=1; - } - else { - $questions{$q->name}=$q; - } - } - - foreach my $t (keys %templates) { - my @owners=$Debconf::Db::templates->owners($t); - if (! @owners) { - warn "template \"$t\" has no owners; removing it."; - $Debconf::Db::templates->addowner($t, "killme",""); - $Debconf::Db::templates->removeowner($t, "killme"); - $fix=1; - } - foreach my $q (@owners) { - if (! exists $questions{$q}) { - warn "template \"$t\" claims to be used by nonexistant question \"$q\"; removing that."; - $Debconf::Db::templates->removeowner($t, $q); - $ok=0; - $fix=1; - } - } - } - $counter++; - } until ($ok || $counter > 20); - - if ($fix) { - Debconf::Db->save; - exec($0, "end"); - die "exec of self failed"; - } -} - -foreach my $templatefile (glob("/var/lib/dpkg/info/*.templates")) { - my ($package) = $templatefile =~ m:/var/lib/dpkg/info/(.*?).templates:; - Debconf::Template->load($templatefile, $package); -} - -Debconf::Db->save; diff --git a/beagle/debian-rfs/usr/share/debconf/frontend b/beagle/debian-rfs/usr/share/debconf/frontend deleted file mode 100755 index 4fb0299..0000000 --- a/beagle/debian-rfs/usr/share/debconf/frontend +++ /dev/null @@ -1,104 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -use strict; -use Debconf::Db; -use Debconf::Template; -use Debconf::AutoSelect qw(:all); -use Debconf::Log qw(:all); - -Debconf::Db->load; - -debug developer => "frontend started"; - -my $frontend=make_frontend(); - -shift @ARGV if $ARGV[0] eq '--'; - -my $package; -if ($ENV{DEBCONF_PACKAGE}) { - $package=$ENV{DEBCONF_PACKAGE}; -} -elsif ($ARGV[0]=~m!^.*/(.*?)\.(?:postinst|postrm|prerm)$!) { - $package=$1; -} -elsif (-e "/var/lib/dpkg/tmp.ci/control") { - open (CONTROL, "< /var/lib/dpkg/tmp.ci/control") - || die "Debconf: unable to open control file: $!"; - while (<CONTROL>) { - if (/^Package: (.*)/) { - $package=$1; - last; - } - } - close CONTROL; - if (! exists $ENV{PERL_DL_NONLAZY} || ! $ENV{PERL_DL_NONLAZY}) { - warn "PERL_DL_NONLAZY is not set, if debconf is running from a preinst script, this is not safe"; - } -} -else { - $package=''; - - debug developer => 'Trying to find a templates file..'; - sub trytemplate { - my $fn=shift; - debug developer => "Trying $fn"; - if (-e $fn) { - debug developer => "I guess it is $fn"; - Debconf::Template->load($fn, $package); - return 1; - } - else { - return; - } - } - - unless (trytemplate("$ARGV[0].templates")) { - unless ($ARGV[0]=~m/(.*)config$/ && trytemplate("${1}templates")) { - unless ($ARGV[0]=~m!^(?:.*/)?(.*)! && trytemplate("/usr/share/debconf/templates/${1}.templates")) { - debug developer => "Couldn't find a templates file." - } - } - } -} -debug developer => "frontend running, package name is $package"; -$frontend->default_title($package) if length $package; -$frontend->info(undef); - -if ($ARGV[0] =~/^(.*[.\/])(?:postinst|preinst)$/) { - my $base=$1; - - my $templates=$base."templates"; - Debconf::Template->load($templates, $package) - if -e $templates; - - my $config=$base."config"; - if (-e $config) { - my $version=$ARGV[2]; - if (! defined($version)) { - $version=''; - } - my $confmodule=make_confmodule($config, - "configure", $version); - - $confmodule->owner($package); - - 1 while ($confmodule->communicate); - - exit $confmodule->exitcode if $confmodule->exitcode > 0; - } -} - -my $confmodule=make_confmodule(@ARGV); - -$confmodule->owner($package); - -1 while ($confmodule->communicate); - -$frontend->shutdown; - -Debconf::Db->save; - -exit $confmodule->exitcode; - diff --git a/beagle/debian-rfs/usr/share/debconf/transition_db.pl b/beagle/debian-rfs/usr/share/debconf/transition_db.pl deleted file mode 100755 index bb4daa5..0000000 --- a/beagle/debian-rfs/usr/share/debconf/transition_db.pl +++ /dev/null @@ -1,90 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! -use strict; -use Debconf::Db; -use Debconf::Question; -use Debconf::Template; - -my $dir = shift || '/var/lib/debconf'; - -Debconf::Db->load; - -our %questions; -our %templates; - -foreach my $thing (qw(templates debconf)) { - if (-e "$dir/$thing.db") { - eval qq{require "$dir/$thing.db"}; - print STDERR $@ if $@; - } - else { - print STDERR "Skipping $dir/$thing.db: DNE\n"; - } -} - -foreach my $t (keys %templates) { - $templates{$t}->{_name}=$t; -} - -my $skipped=0; - -foreach my $item (keys %questions) { - my @owners=grep { $_ ne '' } keys %{$questions{$item}->{owners}}; - delete $questions{$item}, next unless @owners; - - next unless defined $questions{$item}->{template}->{_name}; - - my $tname=$questions{$item}->{template}->{_name}; - $skipped++, next unless defined $tname; - my $type=$templates{$tname}->{type}; - my $question=Debconf::Question->new($item, pop(@owners), $type); - $question->addowner($_, '') foreach @owners; -} - -my %seen_templates; -foreach my $item (keys %questions) { - my $question=Debconf::Question->get($item); - my $tname=$questions{$item}->{template}->{_name}; - $skipped++, next unless defined $tname; - my $template=Debconf::Template->get($tname); - unless (defined $template) { - $template=Debconf::Template->new($tname, $item, $templates{$tname}->{type}); - } - unless ($seen_templates{$template}) { - $template->clearall; - foreach my $field (keys %{$templates{$tname}}) { - next if $field=~/^_name/; # except this one we added above. - $template->$field($templates{$tname}->{$field}); - } - } - - - if (exists $questions{$item}->{flag_isdefault}) { - if ($questions{$item}->{flag_isdefault} eq 'false') { - $question->flag('seen', 'true'); - } - delete $questions{$item}->{flag_isdefault}; - } - foreach my $flag (grep /^flag_/, keys %{$questions{$item}}) { - if ($questions{$item}->{$flag} eq 'true') { - $flag=~s/^flag_//; - $question->flag($flag, 'true'); - } - } - foreach my $var (keys %{$questions{$item}->{variables}}) { - $question->variable($var, - $questions{$item}->{variables}->{$var}); - } - if (exists $questions{$item}->{value} - and defined $questions{$item}->{value}) { - $question->value($questions{$item}->{value}); - } - - $question->template($questions{$item}->{template}->{_name}); -} - -Debconf::Db->save; - -if ($skipped) { - print STDERR "While upgrading the debconf database, $skipped corrupt items were skipped.\n"; -} |
