Return to convobot CVS log

Up to [Coherent Logic Development] / ChivanetConvoBot

Annotation of ChivanetConvoBot/convobot, revision 1.1.1.1

1.1       snw         1: #!/usr/bin/env perl
                      2: 
                      3: # 
                      4: # ChivaNet Conversation Bot 
                      5: #  Copyright (C) 2025 Coherent Logic Development LLC
                      6: #
                      7: # Author: Serena Willis <snw@coherent-logic.com>
                      8: #
                      9: # Licensed AGPL-3.0
                     10: #
                     11: # $Log$
                     12: #
                     13: #
                     14: 
                     15: use Net::OSCAR;
                     16: use Getopt::Long;
                     17: use Data::Dumper;
                     18: use HTML::Strip;
                     19: 
                     20: my $idlemax = 1800;
                     21: my $botsn = '';
                     22: my $botsrv = '';
                     23: my $botpw = '';
                     24: my $rasurl = '';
                     25: my $chatroom = '';
                     26: my $online = 0;
                     27: my $chat_idle_seconds = 0;
                     28: my $last_chat_received = time();
                     29: my $start_time = time();
                     30: 
                     31: my @congregants = ();
                     32: my %seen = ();
                     33: 
                     34: GetOptions("aimsn=s" => \$botsn,
                     35:            "aimhost=s" => \$botsrv,
                     36:            "aimpw=s" => \$botpw,
                     37:            "idlemax=s" => \$idlemax,
                     38:            "chatroom=s" => \$chatroom)
                     39:             or die("error in command line arguments");
                     40: 
                     41: %signon = (
                     42:     screenname => $botsn,
                     43:     password => $botpw,
                     44:     host => $botsrv,
                     45: ); 
                     46: 
                     47: $oscar = Net::OSCAR->new();
                     48: #$room = Net::OSCAR::Connection::Chat;
                     49: 
                     50: sub signon_done {
                     51:     print "[OK]\n";
                     52:     $oscar->chat_join($chatroom, 5);   
                     53:     $online = 1;
                     54: }
                     55: 
                     56: sub chat_joined {
                     57:     my($oscar, $chatname, $chat) = @_;
                     58: 
                     59:     $room = $chat;
                     60:     bless $room, "Net::OSCAR::Connection::Chat";
                     61: }
                     62: 
                     63: sub chat_buddy_in {
                     64:     my ($oscar, $who, $chat, $buddy) = @_;
                     65: 
                     66:     $seen{$who} = localtime();
                     67:     
                     68:     if($who ne $botsn) {
                     69:         push(@congregants, $who);
                     70:         print "[$who] has joined\n";        
                     71:     }
                     72:     else {
                     73:         print "[$who] has joined (ignoring bot)\n";
                     74:     }
                     75: 
                     76:     if(time() - $start_time > 2) {
                     77:         my @phrases = ('Welcome to [room], [user]! :-)',
                     78:                        'How\'s it going, [user]?',
                     79:                        'Hey [user]! Bring any snacks?',
                     80:                        'Heya [user]! Hope your day is going well!',
                     81:                        'Ooo, [user] has joined [room]! Now the party can start!');
                     82:                 
                     83:         my $phrase = $phrases[rand @phrases];
                     84:         $phrase =~ s/\[user\]/$who/g;
                     85:         $phrase =~ s/\[room\]/$chatroom/g;       
                     86:         my $phrasefix = "<div id=convobot></div>$phrase";
                     87:         $chat->chat_send($phrasefix);
                     88:     }
                     89:     else {
                     90:         print "Not sending greeting for 2 seconds after startup\n";
                     91:     }
                     92: }
                     93: 
                     94: sub chat_buddy_out {
                     95:     my ($oscar, $who, $chat) = @_;
                     96:     my $index = 0;
                     97: 
                     98:     $index++ until $congregants[$index] eq $who;
                     99:     splice(@congregants, $index, 1);
                    100: 
                    101:     print "$who has left\n";
                    102: }
                    103: 
                    104: sub chat_im_in {
                    105:     my($oscar, $who, $chat, $message) = @_;
                    106: 
                    107:     my $hs = HTML::Strip->new();
                    108:     my $rawcmd = $hs->parse($message);
                    109:     my @cmd = split(' ', $rawcmd);
                    110: 
                    111:     $seen{$who} = localtime();
                    112:     
                    113:     if($cmd[0] eq "!seen") {
                    114:         if(exists($cmd[1])) {
                    115:             if(exists($seen{$cmd[1]})) {
                    116:                 $chat->chat_send("I last saw $cmd[1] at $seen{$cmd[1]}");
                    117:             }
                    118:             else {
                    119:                 $chat->chat_send("I've never seen $cmd[1]");
                    120:             }
                    121:         }
                    122:         else {
                    123:             $chat->chat_send("Syntax: !seen <screenname>");
                    124:         }
                    125:     }
                    126:     
                    127:         
                    128:     
                    129:     $last_chat_received = time();    
                    130: 
                    131:     print "chat received from $who; resetting idle counter\n";
                    132:     
                    133: }
                    134: 
                    135: sub send_idle_message {
                    136: 
                    137:     my @phrases = ('Hey [user]! How are you today?',
                    138:                    'I think [user] should bring us some pizza!',
                    139:                    'What\'s everyone up to here?',
                    140:                    'My, what a beautiful day for a chat here in [room]!',
                    141:                    '[user] always has the most interesting things to say.',
                    142:                    'Remember that time [user] was talking here in [room]?',
                    143:                    'What do all you [room] chatters think about pie?',
                    144:                    '[room] seems dead :\'(. That makes me sad! Maybe [user] has something interesting to say?');
                    145: 
                    146:     my $congregant = $congregants[rand @congregants];
                    147:     my $phrase = $phrases[rand @phrases];
                    148:     $phrase =~ s/\[user\]/$congregant/g;
                    149:     $phrase =~ s/\[room\]/$chatroom/g;    
                    150:     my $phrasefix = "<div id=convobot></div>$phrase";
                    151:     
                    152:     if(ref($room) eq "Net::OSCAR::Connection::Chat") {
                    153:         $room->chat_send($phrasefix);
                    154:         $last_chat_received = time();
                    155:     }
                    156: }
                    157: 
                    158: $oscar->set_callback_signon_done(\&signon_done);
                    159: $oscar->set_callback_chat_joined(\&chat_joined);
                    160: $oscar->set_callback_chat_buddy_in(\&chat_buddy_in);
                    161: $oscar->set_callback_chat_buddy_out(\&chat_buddy_out);
                    162: $oscar->set_callback_chat_im_in(\&chat_im_in);
                    163: 
                    164: print "ChivaNet Conversation Bot v0.0.1\n";
                    165: print " Copyright (C) 2025 Coherent Logic Development LLC\n\n";
                    166: 
                    167: print "bot:  attempting to sign in... ";
                    168: $oscar->signon(%signon);
                    169: 
                    170: while(1) {
                    171:     $oscar->do_one_loop();
                    172:     $chat_idle_seconds = time() - $last_chat_received;
                    173:     
                    174:     if($chat_idle_seconds > $idlemax) {
                    175:         send_idle_message();
                    176:     }
                    177: }