use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update);
use Dbase::Help qw(Do DoFn qquote);
use Dbase::Globals qw(content);

sub set_reseller_pgp($;$) {
	my($id,$kn) = @_;

	content ( my $pgp = line_in "Key-ID: " ) or return;

	log_update("reseller","id",$id,undef,"pgp",undef,
		DoFn("select keyid from reseller where id=$id"));
	Do("update reseller set keyid=${\qquote $pgp,1} where id=$id");

	1;
}
1;
