EVERYTHING FROM THE OTHER REPO

include/dual_rootfs/usr/bin/debconf-communicate

@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+# This file was preprocessed, do not edit!
+
+
+
+use warnings;
+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 (<STDIN>) {
+	chomp;
+	my $ret=$confmodule->process_command($_);
+	($code, undef)=split(/ /, $ret, 2);
+	print "$ret\n";
+}
+
+$frontend->shutdown;
+$confmodule->finish;
+Debconf::Db->save;
+exit $code;
+