From: djk <djk>
Date: Mon, 15 Nov 1999 14:06:39 +0000 (+0000)
Subject: add set/var and show/var - two rather insecure commands!
X-Git-Tag: R_1_35~30
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=9e13a6bbc1394541f11c75a82805a6e4966e3e9c;p=spider.git

add set/var and show/var - two rather insecure commands!
---

diff --git a/Changes b/Changes
index 19a866ec..e6271715 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+14Nov99=======================================================================
+1. added BBS.pm to start BBS input of mail
+2. fixed eval in DXUser to log errors rather than banging out
 12Nov99=======================================================================
 1. added sh/sun command kindly supplied by Steve K9AN.
 2. allow ^Z on its own on a line to terminate a message
diff --git a/cmd/connect.pl b/cmd/connect.pl
index 14f94bb3..d4a11d2a 100644
--- a/cmd/connect.pl
+++ b/cmd/connect.pl
@@ -22,6 +22,7 @@ if (defined $pid) {
 		eval "{ package DB; sub DB {} }";
 		alarm(0);
 		DXChannel::closeall();
+		Msg::close_server();
 		$SIG{CHLD} = $SIG{TERM} = $SIG{INT} = $SIG{__WARN__} = 'DEFAULT';
 		exec $prog, $call, 'connect';
 	} else {
diff --git a/cmd/set/var.pl b/cmd/set/var.pl
new file mode 100644
index 00000000..1870d1a6
--- /dev/null
+++ b/cmd/set/var.pl
@@ -0,0 +1,21 @@
+#
+# set any variable
+#
+# Rape me!
+#
+# Copyright (c) 1999 - Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+my ($self, $line) = @_;
+return (1, $self->msg('e5')) if $self->priv < 9 || $self->remotecmd;
+my ($var, $rest) = split /\s+/, $line, 2;
+$rest =~ s/^=\s*//;
+Log('DXCommand', $self->call . " set $var = $rest" );
+eval "$var = $rest";
+return (1, $@ ? $@ : "Ok, $var = $rest" );
+
+
+
+		
diff --git a/cmd/show/var.pl b/cmd/show/var.pl
new file mode 100644
index 00000000..7f73558e
--- /dev/null
+++ b/cmd/show/var.pl
@@ -0,0 +1,30 @@
+#
+# show any variable
+#
+# Rape me!
+#
+# Copyright (c) 1999 - Dirk Koopman G1TLH
+#
+# $Id$
+#
+
+my ($self, $line) = @_;
+return (1, $self->msg('e5')) if $self->priv < 9 || $self->remotecmd;
+my @f = split /\s+/, $line;
+my $f;
+my @out;
+
+foreach $f (@f) {
+    print "\$f = $f\n";
+	my $var = eval "$f";
+	if ($var) {
+        my $s = Data::Dumper->Dump([ $var ], [ "$f" ]);
+		push @out, $s;
+		Log('DXCommand', $self->call . " show/var $s");
+	} else {
+		push @out, $@ ? $@ : $self->msg('e3', 'show/var', $f);
+		Log('DXCommand', $self->call . " show/var $f not found" );
+	}
+}
+
+return (1, @out);
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d467a5d5..234c7bca 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -41,7 +41,7 @@ $pc23_max_age = 1*3600;			# the maximum age for an incoming 'real-time' pc23
 $pc11_dup_age = 24*3600;		# the maximum time to keep the spot dup list for
 $pc23_dup_age = 24*3600;		# the maximum time to keep the wwv dup list for
 $pc12_dup_age = 12*3600;		# the maximum time to keep the ann dup list for
-$pc12_dup_lth = 72;				# the length of ANN text to save for deduping 
+$pc12_dup_lth = 60;				# the length of ANN text to save for deduping 
 %spotdup = ();				    # the pc11 and 26 dup hash 
 %wwvdup = ();				    # the pc23 and 27 dup hash
 %anndup = ();                               # the PC12 dup hash
diff --git a/perl/cluster.pl b/perl/cluster.pl
index 0ed98e55..0e93c4e9 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -60,6 +60,8 @@ use CmdAlias;
 use Filter;
 use Local;
 use DXDb;
+use Data::Dumper;
+
 use Fcntl ':flock'; 
 
 use Carp qw(cluck);