infobot/src/Misc.pl

# infobot :: Kevin Lenzo  (c) 1997
# with thanks to Patrick Cole

use Socket;

# send info to devnull
sub devnull {
    return '';
}

# ask frendly bots
sub askFriendlyBots {
    my $request = $_[0];
    return if ($request =~ /^no\,?\s+/);

    foreach $bot (split /\s+/, $param{'friendlyBots'}) {
	$request =~ s/^(is|are) //i;
	&msg($bot, ":INFOBOT:QUERY <$who> $request");
    }
}

# format a public message
sub FormatText {
    my($nick, $msg) = @_;

    undef @ret;
    undef %str;
    my $msgLen = length($msg);
    my $nickLen = length($nick);
    my $tot = 0;
    my $cnt = 0;
    foreach (split //, $msg) {
	if ($cnt == (80 - $nickLen - 3)) {
	    $tot++;
	    $cnt=0;
	}
	$str{$tot} .= $_;
	$cnt++;
    }
    foreach (keys %str) {
	push(@ret, $str{$_}."\n");
    }
    return @ret;
}

sub status {
    $statcount++;
    my($input) = @_;

    if ($param{'VERBOSITY'} > 0) {
	if ($param{ansi_control}) {
	    printf $_green."[%5d] ".$ob, $statcount;
	    $input =~ s/[\cA-\c_]//ig; # (Derek Moeller)++
	    my $printable = $input;

	    if ($printable =~ s/^(<\/\S+>) //) {
		# it's me saying something on a channel
		my $name = $1;
		print "$b_yellow$name $printable$ob\n";
	    } elsif ($printable =~ s/^(<\S+>) //) {
		my $name = $1;

		if ($addressed) {
		    print "$b_red$name $printable$ob\n";
		} else {
		    print "$b_cyan$name$ob $printable\n";
		}

	    } elsif ($printable =~ s/^(-\S+-) //) {
		# notice 
		print "$_green$1 $printable$ob\n";
	    } elsif ($printable =~ s/^(\[\S+\]) //) {
		# message from someone
		print "$b_red$1 $printable$ob\n";
	    } elsif ($printable =~ s/^(>\S+<) //) {
		# i'm messaging someone 
		print "$b_magenta$1 $printable$ob\n";
	    } elsif ($printable =~ s/^(!\S+!) //) {
		# i'm messaging someone 
		print "$_red$1 $printable$ob\n";
	    } elsif ($printable =~ s/^(enter:|update:|forget:) //) {
		# something that should be SEEN
		print "$b_green$1 $printable$ob\n";
	    } else {
		print "$printable\n";
	    }

	} else {
	    printf ("[%5d] $input\n", $statcount) if ($input !~ /^\s*$/);
	}
    }

    &log_line("[$statcount] ".$input);
}

sub performSay {
    my($in) = @_;
    if (!defined($prevIn)) { $prevIn = ""; };
    if (($skipReply == 0) && ($in !~ 'NOREPLY')) {
	$prevIn = $in;
	if (0) {		# for mac speech manager niceties
	    $in =~ s/ at (ht|f)/ $1/ig;
	    $in =~ s/((ht|f)tp:\S+)/here [[cmnt $1 ]]/ig;
	}
	&say($in);
    }

    # this could echo everything to somewhere
    # &msg('somebody', ".say $in");
    return '';
}

sub performReply {
    if ($msgType eq 'private') {
	&msg($who, $_[0]);
    } else {
	&say("$_[0]");
    }
}

sub log_line {
    my($line) = @_;
    my($logwrite) = 0;

    my $s = time();

    if ($param{'logfile'} ne '') {
	$line =~ s/\n*$/\n/;

	open(TRACK, ">>$param{logfile}");

	$loglines++;
	$total_loglines++;
	print TRACK "$s $line";

	close(TRACK);		#  if (TRACK);
    }
}

sub getAllKeys {
    @myIsKeys = getDBMKeys("is");
    @myAreKeys = getDBMKeys("are"); 

    $factoidCount = $#myIsKeys + $#myAreKeys + 2;
    $updateCount = 0;
}

sub purifyNick {
    my $safeWho = $_[0];
    $safeWho =~ s/\*//g;
    $safeWho =~ s/\\/\\\\/g;
    $safeWho =~ s/\[/\\\[/g;
    $safeWho =~ s/\]/\\\]/g;
    $safeWho =~ s/\|/\\\|/g;
    $safeWho =~ tr/A-Z/a-z/;
    $safeWho = substr($safeWho, 0, 9);
    $safeWho =~ s/\s+.*//;
    return $safeWho;
}

1;

__DATA__

/dimer\[0\/: trailing \ in regexp at /usr/users/infobot/infobot-current/src/Misc.pl line 164, <FH> chunk 98.