Added hostname command

diff --git a/Commands/Channel.pm b/Commands/Channel.pm
index 117817e09bc4792b55ecb238fb62ee60e5503ac4..edd1146f446313f9f9ec617cf499d23c6186184b 100644 (file)
--- a/Commands/Channel.pm
+++ b/Commands/Channel.pm
@@ -97,4 +97,12 @@ WHERE u.hostmask ILIKE $1 AND COALESCE(c.name = $2,TRUE)
        }
 }
 
+sub hostname
+       : Help(Shows your hostname, as seen by the bots.)
+{
+       my ($self,$c,$msg) = @_;
+
+       $c->reply('Your hostname is: '.$c->host);
+}
+
 1;