move whatInterface to core

[infobot.git] / src / core.pl

diff --git a/src/core.pl b/src/core.pl
index 077298a3d94520e9cf55183ff4da94bb15117a45..f42fb2be3d91bb3514148b1d77c0090768a679c9 100644 (file)
--- a/src/core.pl
+++ b/src/core.pl
@@ -91,6 +91,14 @@ $noreply     = "NOREPLY";
 ### misc commands.
 ###
 
+sub whatInterface {
+    if (!&IsParam("Interface") or $param{'Interface'} =~ /IRC/) {
+       return "IRC";
+    } else {
+       return "CLI";
+    }
+}
+
 sub doExit {
     my ($sig)  = @_;