From 86e41a4301c772ec72b9e45ed6edd0dd4942fad2 Mon Sep 17 00:00:00 2001
From: minima <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.34.1