# Version: v0.1 (20021028)
# Created: 20021028
#
+use strict;
+
+my $postprocess;
+
+use vars qw($uh $message);
sub cliloop {
&status("Using CLI...");
$uh = "local\@local";
$who = "local";
$orig{who} = "local";
- $ident = $param{'ircNick'};
+ $ident = $param{'ircUser'};
$chan = $talkchannel = "_local";
$addressed = 1;
- $msgType = 'public';
+ $msgType = 'private';
+ $host = "local";
# install libterm-readline-gnu-perl to get history support
use Term::ReadLine;
- $term = new Term::ReadLine 'blootbot';
- $prompt = "$who> ";
+ my $term = new Term::ReadLine 'blootbot';
+ my $prompt = "$who> ";
#$OUT = $term->OUT || STDOUT;
while ( defined ($_ = $term->readline($prompt)) ) {
$orig{message} = $_;
return;
}
+ if ( $postprocess ) {
+ undef $postprocess;
+ } elsif ($postprocess = &getChanConf('postprocess', $talkchannel)) {
+ &DEBUG("say: $postprocess $msg");
+ &parseCmdHook($postprocess . ' ' . $msg);
+ undef $postprocess;
+ return;
+ }
+
&status(">$nick< $msg");
print("$nick: $msg\n");
&msg($who, @_);
}
-sub pSReply {
- &msg($who, @_);
-}
-
1;