#!/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;