---

Boolean.pm

#!/usr/bin/perl # This file was preprocessed, do not edit! package Debconf::Element::Web::Boolean; use warnings; use strict; use base qw(Debconf::Element); sub show { my $this=shift; $_=$this->question->extended_description; s/\n/\n<br>\n/g; $_.="\n<p>\n"; my $default=''; $default=$this->question->value if defined $this->question->value; my $id=$this->id; $_.="<input type=checkbox name=\"$id\"". ($default eq 'true' ? ' checked' : ''). ">\n<b>". $this->question->description."</b>"; return $_; } sub value { my $this=shift; return $this->SUPER::value() unless @_; my $value=shift; $this->SUPER::value($value eq 'on' ? 'true' : 'false'); } 1

---

docroot: /var/www/469ed2f6-4d4b-4a8a-9f5e-ee4ef04d3bc8/public_html

---

curdir: /usr/share/perl5/Debconf/Element/Web

	.		4096
	..		4096
X	Boolean.pm		671
X	Error.pm		171
X	Multiselect.pm		967
X	Note.pm		170
X	Password.pm		494
X	Progress.pm		242
X	Select.pm		887
X	String.pm		478
X	Text.pm		326