X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=be5feee32b2915308464961f9884c5b4e9dee218;hb=3e075e9d00d74fd477c44db2b29eb3eac9d6d88a;hp=f1e711e07d75cc3d1431818d0532f4bbbbbe9579;hpb=101516b420ac77cd9eb8294651104e43f3461c06;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index f1e711e0..be5feee3 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -99,6 +99,8 @@ $count = 0;
 		  dxcc => '0,Country Code',
 		  itu => '0,ITU Zone',
 		  cq => '0,CQ Zone',
+		  enhanced => '5,Enhanced Client,yesno',
+		  senddbg => '8,Sending Debug,yesno',
 		 );
 
 # object destruction
@@ -303,6 +305,29 @@ sub send_now
 	$self->{t} = time;
 }
 
+#
+# send later with letter (more control)
+#
+
+sub send_later
+{
+	my $self = shift;
+	my $conn = $self->{conn};
+	return unless $conn;
+	my $sort = shift;
+	my $call = $self->{call};
+	
+	for (@_) {
+#		chomp;
+        my @lines = split /\n/;
+		for (@lines) {
+			$conn->send_later("$sort$call|$_");
+			dbg("-> $sort $call $_") if isdbg('chan');
+		}
+	}
+	$self->{t} = time;
+}
+
 #
 # the normal output routine
 #