Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
Warning: Cannot modify header information - headers already sent by (output started at /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code:102) in /var/www/iplanru/data/www/intesco.ru/d59ed/index.php(1) : eval()'d code(2) : eval()'d code on line 4
usr/bin/debconf-set-selections 0000666 00000005651 15077224140 0012424 0 ustar 00 #!/usr/bin/perl
# This file was preprocessed, do not edit!
sub usage {
print STDERR <get($label);
if (! $template) {
$template=Debconf::Template->new($label, $owner, $type);
$template->description("Dummy template");
$template->extended_description("This is a fake template used to pre-seed the debconf database. If you are seeing this, something is probably wrong.");
}
else {
$template->default($content);
}
$template->type($type);
my $question=Debconf::Question->get($label);
if (! $question) {
error("Cannot find a question for $label");
return;
}
$question->addowner($owner, $type);
$question->value($content);
if (! $unseen) {
$question->flag("seen", "true");
}
}
sub set_flag {
my ($owner, $label, $flag, $content) = @_;
info "Setting $flag flag";
my $question=Debconf::Question->get($label);
if (! $question) {
error("Cannot find a question for $label");
return;
}
$question->flag($flag, $content);
}
my @knowntypes = qw(select boolean string multiselect note password text title);
my @knownflags = qw(seen);
sub ok_format {
my ($owner, $label, $type, $content) = @_;
if (! defined $owner || ! defined $label || ! defined $content) {
error "parse error on line $.: '$_'";
return;
}
elsif (! grep { $_ eq $type } @knowntypes, @knownflags) {
warning "Unknown type $type, skipping line $.";
return;
}
else {
return 1;
}
}
sub mungeline ($) {
my $line=shift;
chomp $line;
$line=~s/\#.*$//;
$line=~s/\r$//;
return $line;
}
GetOptions(
"verbose|v" => \$debug,
"checkonly|c" => \$checkonly,
"unseen|u" => \$unseen,
) || usage();
Debconf::Db->load;
$error = 0;
while (<>) {
$_=mungeline($_);
while (/\\$/ && ! eof) {
s/\\$//;
$_.=mungeline(<>);
}
next if /^\s*$/;
my ($owner, $label, $type, $content) = /^\s*(\S+)\s+(\S+)\s+(\S+)(?:\s(.*))?/;
if (! defined $content) {
$content='';
}
if (ok_format($owner, $label, $type, $content)) {
if (grep { $_ eq $type } @knownflags) {
info "Trying to set '$type' flag to '$content'";
set_flag($owner, $label, $type, $content);
}
else {
info "Trying to set '$label' [$type] to '$content'";
load_answer($owner, $label, $type, $content);
}
}
}
if (! $checkonly) {
Debconf::Db->save;
}
if ($error) {
exit 1;
}