config is in lsh-server 2.0.4-dfsg-9.
This file is a maintainer script. It is executed when installing (*inst) or removing (*rm) the package.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 | #!/usr/bin/perl -w
#
# debconf config script for lsh-server
#
# Copyright (c) 2000, 2001, 2002 Timshel Knoll <timshel@debian.org>
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# On Debian systems, see /usr/share/common-licenses/GPL for the GNU GPL.
#
use strict;
use Debconf::Client::ConfModule ':all';
sub ask_whether_to_purge_hostkey {
&input ("medium", "lsh-server/purge_hostkey");
my @ret = &go ();
return ($ret[0] == 30 ? -1 : 1);
}
sub get_lshd_port {
&input ("medium", "lsh-server/lshd_port");
my @ret = &go ();
my $port = &get ("lsh-server/lshd_port");
if ($port and $port !~ m/^\d+$/) {
$port = (getservbyname ($port, "tcp"))[2];
}
unless ($port) {
# invalid service entered: wasn't a number, and
# getservbyname failed, try again ...
# FIXME: try putting some sort of error message here?
&reset ("lsh-server/lshd_port");
return 0;
}
return ($ret[0] == 30 ? -1 : 1);
}
sub ask_whether_to_enable_sftp {
&input ("medium", "lsh-server/sftp");
my @ret = &go ();
return ($ret[0] == 30 ? -1 : 1);
}
sub configure () {
my $state = 0;
# The list of things to do, in order
# Aren't really long, descriptive function names fun ;-)
my @states = (
\&ask_whether_to_purge_hostkey,
\&get_lshd_port,
\&ask_whether_to_enable_sftp
);
# This is 1 or -1, depending on whether we're going forward or backward
# Required because otherwise when we back up to a question doesn't need
# to be asked, the engine will go forward again :-(
my $step = 1;
until ($state > $#states) {
if ($state < 0) {
$state = 0;
# We may have got here because of "backing up" to a question which
# was skipped, so make sure we're going forward from here to avoid
# an infinite loop
$step = 1;
}
$step = &{ $states[$state] } ($step);
$state += $step;
}
}
die "Syntax error: no argument" if (@ARGV <= 0);
version ('2.0');
my $capb = &capb ('backup');
if ($ARGV[0] eq "configure" || $ARGV[0] eq "reconfigure") {
&configure ();
}
|