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/bin/debconf-copydb | |
| 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/bin/debconf-copydb')
| -rwxr-xr-x | beagle/debian-rfs/usr/bin/debconf-copydb | 82 |
1 files changed, 0 insertions, 82 deletions
diff --git a/beagle/debian-rfs/usr/bin/debconf-copydb b/beagle/debian-rfs/usr/bin/debconf-copydb deleted file mode 100755 index 82d9e2f..0000000 --- a/beagle/debian-rfs/usr/bin/debconf-copydb +++ /dev/null @@ -1,82 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -use strict; -use Getopt::Long; -use Debconf::Log qw{:all}; -use Debconf::Db; -use Debconf::DbDriver; -use Debconf::DbDriver::Backup; - - -sub usage { - print STDERR <<EOF; -Usage: debconf-copydb sourcedb destdb [--pattern=pattern] [--owner-pattern=pattern] [--config=Foo:bar] -EOF - exit(1); -} - - -my $pattern='.*'; -my $owner_pattern; - -my %config; -sub config { - my ($field, $value)=split(/\s*:\s*/, $_[1], 2); - $field=~tr/-/_/; - $field=lc($field); - die "Parse error: \"$_[1]\"" unless defined $field and length $field; - - if ($field eq 'name') { - if ($config{name}) { - Debconf::Db->makedriver(%config); - } - elsif (%config) { - warn "ignoring command line config data before $_[1]"; - } - %config=(); - } - - $config{$field}=$value; -} - -GetOptions( - "pattern|p=s" => \$pattern, - "config|c=s" => \&config, - "owner-pattern=s" => \$owner_pattern, -) || usage(); -Debconf::Db->makedriver(%config) if %config; - -my $srcname=shift || usage(); -my $destname=shift || usage(); - -Debconf::Db->load; - -my $src=Debconf::DbDriver->driver($srcname); -die "$0: source database, \"$srcname\" does not exist\n" unless ref $src; -my $dest=Debconf::DbDriver->driver($destname); -die "$0: destination database, \"$destname\" does not exist\n" unless ref $dest; - -my $copier=Debconf::DbDriver::Backup->new( - db => $src, backupdb => $dest, name => 'copier'); - -my $i=$copier->iterator; -while (my $item=$i->iterate) { - next unless $item =~ /$pattern/; - - if (defined $owner_pattern) { - my $fit_owner = 0; - my $owner; - foreach $owner ($src->owners($item)){ - $fit_owner = 1 if $owner =~ /$owner_pattern/; - } - next unless $fit_owner; - } - - $copier->copy($item, $src, $dest); -} - -$copier->shutdown; - - |
