From 86e41a4301c772ec72b9e45ed6edd0dd4942fad2 Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 13 Mar 2003 00:23:07 +0000 Subject: [PATCH] use run_cmd for remote db enquiries --- perl/DXDb.pm | 18 ++---------------- 1 file changed, 2 insertions(+), 16 deletions(-) diff --git a/perl/DXDb.pm b/perl/DXDb.pm index e399545d..9251bdfd 100644 --- a/perl/DXDb.pm +++ b/perl/DXDb.pm @@ -274,22 +274,8 @@ sub process } if ($pcno == 44) { # incoming DB Request - my $db = getdesc($f[4]); - if ($db) { - if ($db->{remote}) { - sendremote($dxchan, $f[2], $f[3], $dxchan->msg('db1', $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('db2', $f[5], $db->{name})); - } - } - } else { - sendremote($dxchan, $f[2], $f[3], $dxchan->msg('db3', $f[4])); - } + my @in = DXCommandmode::run_cmd($dxchan, "dbshow $f[4] $f[5]"); + sendremote($dxchan, $f[2], $f[3], @in); last SWITCH; } -- 2.43.0