use utf8;
use warnings; no warnings "redefine";
use strict;

use Dbase::Help qw(Do DoFn qquote);
use Dbase::Globals qw(content def_or_minus);
use Loader qw(line_in log_update);

sub set_ipnr_snmp_community($) {
	my ($id) = @_;
	content( my $kk = line_in 'SNMP-Community: ' ) or return;

	log_update(
		ipkunde =>
		  id    => $id,
		undef,
		snmp_community => undef,
		def_or_minus(
			DoFn("SELECT snmp_community FROM ipkunde WHERE id = $id")
		)
	);
	Do("UPDATE ipkunde SET snmp_community = ${\ qquote($kk,1) } WHERE id = $id"
	);
}

1;
