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-escape | |
| 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-escape')
| -rwxr-xr-x | beagle/debian-rfs/usr/bin/debconf-escape | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/beagle/debian-rfs/usr/bin/debconf-escape b/beagle/debian-rfs/usr/bin/debconf-escape deleted file mode 100755 index fdff906..0000000 --- a/beagle/debian-rfs/usr/bin/debconf-escape +++ /dev/null @@ -1,47 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -use strict; -use Getopt::Long; - -use vars qw($escape $unescape); - -sub usage { - print STDERR <<EOF; -Usage: debconf-unescape -e|-u < input-text - -e, --escape escape text - -u, --unescape unescape text - -Exactly one of -e or -u must be used. -EOF - exit(1); -} - -$escape=0; -$unescape=0; - -GetOptions( - "escape|e" => \$escape, - "unescape|u" => \$unescape, -) || usage(); - -if ($escape == $unescape) { - usage(); -} - -if ($escape) { - while (<>) { - s/\\/\\\\/g; - s/\n/\\n/g; - print; - } -} else { - while (<>) { - for (split /(\\.)/) { - s/\\(.)/$1 eq "n" ? "\n" : $1/eg; - print; - } - } -} - |
