reassign 230832 debconf
tags 230832 + patch
thanks
On Κυρ 19 Δεκ 2004 13:09, Sven Luther wrote:
> A -u --unseen flag would be welcome indeed.
Done. Please include the patch attached to debconf-set-selections.
This will allow the extra flag to be used in l-c. It seems to work for
me...
Konstantinos
--- debconf-set-selections.orig 2004-12-19 13:16:01.000000000 +0200
+++ debconf-set-selections 2004-12-19 13:38:22.000000000 +0200
@@ -5,6 +5,7 @@
Usage: debconf-set-selections [-vc] [file]
-v, --verbose verbose output
-c, --checkonly only check the input file format
+ -u, --unseed do not set the 'seen' flag
EOF
exit(1);
}
@@ -13,7 +14,7 @@
use Debconf::Db;
use Debconf::Template;
use Getopt::Long;
-use vars qw(%opts $filename $debug $error $checkonly);
+use vars qw(%opts $filename $debug $error $checkonly $unseen);
sub info {
my $msg = shift;
print STDERR "info: $msg\n" if $debug;
@@ -45,7 +46,9 @@
}
$question->addowner($owner, $type);
$question->value($content);
- $question->flag("seen", "true");
+ if (! $unseen) {
+ $question->flag("seen", "true");
+ }
}
my @knowntypes = qw(select boolean string multiselect note password text title);
sub ok_format {
@@ -61,6 +64,7 @@
GetOptions(
"verbose|v" => \$debug,
"checkonly|c" => \$checkonly,
+ "unseen|u" => \$unseen,
) || usage();
Debconf::Db->load;
$error = 0;
