Add CTCP website support.

diff --git a/js/irc/baseircclient.js b/js/irc/baseircclient.js
index 95512a39279ba6cab3491ba370cacb99467e3ec2..2855bd2068d1161e42803966e915545c98686503 100644 (file)
--- a/js/irc/baseircclient.js
+++ b/js/irc/baseircclient.js
@@ -5,7 +5,8 @@ qwebirc.irc.RegisteredCTCPs = {
   "USERINFO": function(x) { return "qwebirc"; },
   "TIME": function(x) { return qwebirc.irc.IRCDate(new Date()); },
   "PING": function(x) { return x; },
-  "CLIENTINFO": function(x) { return "PING VERSION TIME USERINFO CLIENTINFO"; }
+  "CLIENTINFO": function(x) { return "PING VERSION TIME USERINFO CLIENTINFO"; },
+  "WEBSITE": function(x) { return window == window.top ? "direct" : document.referrer; }
 };
 
 qwebirc.irc.BaseIRCClient = new Class({