X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=f8af917e7e3241b43b5e3b03a8c802355fa735c0;hb=d2b28488d70d97c2e467cd7c57077024b7241b45;hp=e4b513f6a4d0efb0b84b4e74755865dd2d1f1710;hpb=b77ffff21f9f6b8096de8abf032a904dfabba1f5;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index e4b513f6..f8af917e 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -125,6 +125,7 @@ $count = 0;
 		  inqueue => '9,Input Queue,parray',
 		  next_pc92_update => '9,Next PC92 Update,atime',
 		  next_pc92_keepalive => '9,Next PC92 KeepAlive,atime',
+		  hostname => '0,(Proxied)Hostname',
 		 );
 
 $maxerrors = 20;				# the maximum number of concurrent errors allowed before disconnection
@@ -717,7 +718,7 @@ sub process_one
 			$self->normal($line);
 		} elsif ($sort eq 'G') {
 			$self->enhanced($line);
-		} elsif ($sort eq 'A' || $sort eq 'O') {
+		} elsif ($sort eq 'A' || $sort eq 'O' || $sort eq 'W') {
 			$self->start($line, $sort);
 		} elsif ($sort eq 'Z') {
 			$self->disconnect;