1 files changed, 34 insertions, 0 deletions
diff --git a/beagle/debian-rfs/usr/bin/debconf-communicate b/beagle/debian-rfs/usr/bin/debconf-communicate
new file mode 100755
index 0000000..771def8
--- /dev/null
+++ b/beagle/debian-rfs/usr/bin/debconf-communicate
@@ -0,0 +1,34 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+
+use strict;
+use Debconf::Db;
+use Debconf::AutoSelect qw(:all);
+use Debconf::Config;
+use Debconf::Gettext;
+
+Debconf::Db->load;
+
+Debconf::Config->getopt(gettext("Usage: debconf-communicate [options] [package]"));
+
+my $frontend=make_frontend();
+my $confmodule=make_confmodule();
+$confmodule->owner(shift) if @ARGV;
+my $code=127;
+autoflush STDOUT 1;
+
+while (<>) {
+	chomp;
+	my $ret=$confmodule->process_command($_);
+	($code, undef)=split(/ /, $ret, 2);
+	print "$ret\n";
+}
+
+$frontend->shutdown;
+$confmodule->finish;
+Debconf::Db->save;
+exit $code;
+
+