9 if (!&IsParam("Interface") or $param{'Interface'} =~ /IRC/) {
17 &status("Using CLI...");
18 &status("Now type what you want.");
20 $nuh = "local!local\@local";
24 $ident = $param{'ircNick'};
25 $chan = $talkchannel = "_local";
29 # install libterm-readline-gnu-perl to get history support
31 $term = new Term::ReadLine 'blootbot';
33 #$OUT = $term->OUT || STDOUT;
34 while ( defined ($_ = $term->readline($prompt)) ) {
38 last if ($message =~ m/^quit$/);
39 $_ = &process() if $message;