move cliloop to CLI ;-)

[infobot.git] / src / CLI / Support.pl

diff --git a/src/CLI/Support.pl b/src/CLI/Support.pl
index 42df6df6749a5c6cc504bd3ff788d4a1eac77b1e..6b2de5b1e972dbdba5a92ce13620b7423f36e4a4 100644 (file)
--- a/src/CLI/Support.pl
+++ b/src/CLI/Support.pl
@@ -5,6 +5,34 @@
 #        Created: 20021028
 #
 
+sub cliloop {
+    &status("Using CLI...");
+    &status("Now type what you want.");
+
+    $nuh = "local!local\@local";
+    $uh  = "local\@local";
+    $who = "local";
+    $orig{who} = "local";
+    $ident = $param{'ircNick'};
+    $chan = $talkchannel = "_local";
+    $addressed = 1;
+    $msgType = 'public';
+
+    # install libterm-readline-gnu-perl to get history support
+    use Term::ReadLine;
+    $term = new Term::ReadLine 'blootbot';
+    $prompt = "$who> ";
+    #$OUT = $term->OUT || STDOUT;
+    while ( defined ($_ = $term->readline($prompt)) ) {
+       $orig{message} = $_;
+       $message = $_;
+       chomp $message;
+       last if ($message =~ m/^quit$/);
+       $_ = &process() if $message;
+    }
+    &doExit();
+}
+
 sub msg {
     my ($nick, $msg) = @_;
     if (!defined $nick) {