- if ($pcno == 44) { # incoming DB Request
- my $db = getdesc($f[4]);
- if ($db) {
- if ($db->{remote}) {
- sendremote($dxchan, $f[2], $f[3], $dxchan->msg('dx1', $db->{remote}));
- } else {
- my $value = $db->getkey($f[5]);
- if ($value) {
- my @out = split /\n/, $value;
- sendremote($dxchan, $f[2], $f[3], @out);
- } else {
- sendremote($dxchan, $f[2], $f[3], $dxchan->msg('dx2', $f[5], $db->{name}));
- }
- }
- } else {
- sendremote($dxchan, $f[2], $f[3], $dxchan->msg('dx3', $f[4]));
- }
- last SWITCH;
- }
+ # incoming DB Request
+ my @in = DXCommandmode::run_cmd($self, "dbshow $_[4] $_[5]");
+ sendremote($self, $_[2], $_[3], @in);
+}