extend the Web interface protocol further

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 37e4c1dcafa7eda37c8de7db38eb7715f08ac22e..68dd099ee457564acb15ddd1c2232553987b4f25 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -292,6 +292,7 @@ sub start
        my $host = $self->{conn}->peerhost;
        $host ||= "AGW Port #$self->{conn}->{agwport}" if exists $self->{conn}->{agwport};
        $host ||= "unknown";
+       $self->{hostname} = $host if is_ipaddr($host);
 
        Log('DXProt', "$call connected from $host");