From 5238ad5a0c4a9e1c8cd036f5de4055e39bd71297 Mon Sep 17 00:00:00 2001
From: Manuel Traut <manut@mecka.net>
Date: Fri, 29 Apr 2011 09:09:27 +0200
Subject: added debootstrap stuff

Signed-off-by: Manuel Traut <manut@mecka.net>
---
 beagle/debian-rfs/usr/bin/debconf-escape | 47 ++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100755 beagle/debian-rfs/usr/bin/debconf-escape

(limited to 'beagle/debian-rfs/usr/bin/debconf-escape')

diff --git a/beagle/debian-rfs/usr/bin/debconf-escape b/beagle/debian-rfs/usr/bin/debconf-escape
new file mode 100755
index 0000000..fdff906
--- /dev/null
+++ b/beagle/debian-rfs/usr/bin/debconf-escape
@@ -0,0 +1,47 @@
+#!/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;
+		}
+	}
+}
+
-- 
cgit v1.2.3