more lame "s

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

diff --git a/src/CLI/Support.pl b/src/CLI/Support.pl
index b3c7b1ac2143bdd15c56234984ea4b3dd5918f31..849e4383dc4cfc68b0ce8a910d934f8aa952a2ed 100644 (file)
--- a/src/CLI/Support.pl
+++ b/src/CLI/Support.pl
@@ -4,18 +4,63 @@
 #        Version: v0.1 (20021028)
 #        Created: 20021028
 #
+use strict;
+
+my $postprocess;
+
+use vars qw($uh $message);
+
+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{'ircUser'};
+    $chan      = $talkchannel = '_local';
+    $addressed = 1;
+    $msgType   = 'private';
+    $host      = 'local';
+
+    # install libterm-readline-gnu-perl to get history support
+    use Term::ReadLine;
+    my $term   = new Term::ReadLine 'infobot';
+    my $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) {
-       &ERROR("msg: nick == NULL.");
-       return;
+    my ( $nick, $msg ) = @_;
+    if ( !defined $nick ) {
+        &ERROR('msg: nick == NULL.');
+        return;
     }
 
-    if (!defined $msg) {
-       $msg ||= "NULL";
-       &WARN("msg: msg == $msg.");
-       return;
+    if ( !defined $msg ) {
+        $msg ||= 'NULL';
+        &WARN("msg: msg == $msg.");
+        return;
+    }
+
+    if ($postprocess) {
+        undef $postprocess;
+    }
+    elsif ( $postprocess = &getChanConf( 'postprocess', $talkchannel ) ) {
+        &DEBUG("say: $postprocess $msg");
+        &parseCmdHook( $postprocess . ' ' . $msg );
+        undef $postprocess;
+        return;
     }
 
     &status(">$nick< $msg");
@@ -23,21 +68,40 @@ sub msg {
     print("$nick: $msg\n");
 }
 
+# Usage: &action(nick || chan, txt);
+sub action {
+    my ( $target, $txt ) = @_;
+    if ( !defined $txt ) {
+        &WARN('action: txt == NULL.');
+        return;
+    }
+
+    if ( length $txt > 480 ) {
+        &status('action: txt too long; truncating.');
+        chop($txt) while ( length $txt > 480 );
+    }
+
+    &status("* $ident/$target $txt");
+}
+
+sub IsNickInChan {
+    my ( $nick, $chan ) = @_;
+    return 1;
+}
+
 sub performStrictReply {
-    &msg($who, @_);
+    &msg( $who, @_ );
 }
 
 sub performReply {
-    &msg($who, @_);
+    &msg( $who, @_ );
 }
 
 sub performAddressedReply {
     return unless ($addressed);
-    &msg($who, @_);
-}
-
-sub pSReply {
-    &msg($who, @_);
+    &msg( $who, @_ );
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80