From: minima <minima>
Date: Thu, 13 Mar 2003 00:23:07 +0000 (+0000)
Subject: use run_cmd for remote db enquiries
X-Git-Tag: PRE-1-52~10
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=86e41a4301c772ec72b9e45ed6edd0dd4942fad2

use run_cmd for remote db enquiries
---

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;
 		}