11 lines
199 B
Plaintext
11 lines
199 B
Plaintext
|
{
|
||
|
my $tftpd = $DB->get("tftpd") or return;
|
||
|
|
||
|
my $tftp = $DB->get("tftp") ||
|
||
|
$DB->new_record("tftp", { type => "service" });
|
||
|
|
||
|
$tftp->merge_props($tftpd->props);
|
||
|
|
||
|
$tftpd->delete;
|
||
|
}
|