19 lines
422 B
Plaintext
19 lines
422 B
Plaintext
|
{
|
||
|
|
my $old = $DB->get('TelnetServerMode');
|
||
|
|
return unless defined $old;
|
||
|
|
my $status = $old->value;
|
||
|
|
$old->delete;
|
||
|
|
|
||
|
|
my %props = (
|
||
|
|
type => 'service',
|
||
|
|
'status' => (($status eq 'off') ? 'disabled' : 'enabled'),
|
||
|
|
access => 'private',
|
||
|
|
);
|
||
|
|
unless ($status =~ /off|on/)
|
||
|
|
{
|
||
|
|
# The other options are public and private.
|
||
|
|
$props{access} = $status;
|
||
|
|
}
|
||
|
|
$DB->new_record('telnet', \%props);
|
||
|
|
}
|