Return to convobot CVS log

Up to [Coherent Logic Development] / ChivanetConvoBot

Begin SQL work

#!/usr/bin/env perl

# 
# ChivaNet Conversation Bot 
#  Copyright (C) 2025 Coherent Logic Development LLC
#
# Author: Serena Willis <snw@coherent-logic.com>
#
# Licensed AGPL-3.0
#
# $Log: convobot,v $
# Revision 1.3  2025/02/03 15:38:12  snw
# Begin SQL work
#
# Revision 1.2  2025/02/03 04:28:34  snw
# Fix syntax message
#
# Revision 1.1.1.1  2025/02/03 04:22:49  snw
# Initial Commit
#
#
#

use Net::OSCAR;
use Getopt::Long;
use Data::Dumper;
use HTML::Strip;
use DBI;

my $idlemax = 1800;
my $botsn = '';
my $botsrv = '';
my $botpw = '';
my $rasurl = '';

my $dbhost = '';
my $dbname = '';
my $dbusername = '';
my $dbpw = '';
my $dbconn = '';

my $chatroom = '';
my $online = 0;
my $chat_idle_seconds = 0;
my $last_chat_received = time();
my $start_time = time();

my @congregants = ();
my %seen = ();

GetOptions("aimsn=s" => \$botsn,
           "aimhost=s" => \$botsrv,
           "aimpw=s" => \$botpw,
           "idlemax=s" => \$idlemax,
           "chatroom=s" => \$chatroom,
           "dbhost=s" => \$dbhost,
           "dbname=s" => \$dbname,
           "dbusername=s" => \$dbusername,
           "dbpw=s" => \$dbpw);
            or die("error in command line arguments");

%signon = (
    screenname => $botsn,
    password => $botpw,
    host => $botsrv,
); 

$oscar = Net::OSCAR->new();
my $dbh = DBI->connect("DBI:mysql:database=$dbname;host=$dbhost",
                       "$dbusername", "$dbpw",
                       {'RaiseError' => 1});

sub get_seen_status {
    my($sn) = @_;

    
}

sub signon_done {
    print "[OK]\n";
    $oscar->chat_join($chatroom, 5);   
    $online = 1;
}

sub chat_joined {
    my($oscar, $chatname, $chat) = @_;

    $room = $chat;
    bless $room, "Net::OSCAR::Connection::Chat";
}

sub chat_buddy_in {
    my ($oscar, $who, $chat, $buddy) = @_;

    $seen{$who} = localtime();
    
    if($who ne $botsn) {
        push(@congregants, $who);
        print "[$who] has joined\n";        
    }
    else {
        print "[$who] has joined (ignoring bot)\n";
    }

    if(time() - $start_time > 2) {
        my @phrases = ('Welcome to [room], [user]! :-)',
                       'How\'s it going, [user]?',
                       'Hey [user]! Bring any snacks?',
                       'Heya [user]! Hope your day is going well!',
                       'Ooo, [user] has joined [room]! Now the party can start!');
                
        my $phrase = $phrases[rand @phrases];
        $phrase =~ s/\[user\]/$who/g;
        $phrase =~ s/\[room\]/$chatroom/g;       
        my $phrasefix = "<div id=convobot></div>$phrase";
        $chat->chat_send($phrasefix);
    }
    else {
        print "Not sending greeting for 2 seconds after startup\n";
    }
}

sub chat_buddy_out {
    my ($oscar, $who, $chat) = @_;
    my $index = 0;

    $index++ until $congregants[$index] eq $who;
    splice(@congregants, $index, 1);

    print "$who has left\n";
}

sub chat_im_in {
    my($oscar, $who, $chat, $message) = @_;

    my $hs = HTML::Strip->new();
    my $rawcmd = $hs->parse($message);
    my @cmd = split(' ', $rawcmd);

    $seen{$who} = localtime();
    
    if($cmd[0] eq "!seen") {
        if(exists($cmd[1])) {
            if(exists($seen{$cmd[1]})) {
                $chat->chat_send("I last saw $cmd[1] at $seen{$cmd[1]}");
            }
            else {
                $chat->chat_send("I've never seen $cmd[1]");
            }
        }
        else {
            $chat->chat_send("Syntax: !seen <em>screenname</em>");
        }
    }
    
        
    
    $last_chat_received = time();    

    print "chat received from $who; resetting idle counter\n";
    
}

sub send_idle_message {

    my @phrases = ('Hey [user]! How are you today?',
                   'I think [user] should bring us some pizza!',
                   'What\'s everyone up to here?',
                   'My, what a beautiful day for a chat here in [room]!',
                   '[user] always has the most interesting things to say.',
                   'Remember that time [user] was talking here in [room]?',
                   'What do all you [room] chatters think about pie?',
                   '[room] seems dead :\'(. That makes me sad! Maybe [user] has something interesting to say?');

    my $congregant = $congregants[rand @congregants];
    my $phrase = $phrases[rand @phrases];
    $phrase =~ s/\[user\]/$congregant/g;
    $phrase =~ s/\[room\]/$chatroom/g;    
    my $phrasefix = "<div id=convobot></div>$phrase";
    
    if(ref($room) eq "Net::OSCAR::Connection::Chat") {
        $room->chat_send($phrasefix);
        $last_chat_received = time();
    }
}

$oscar->set_callback_signon_done(\&signon_done);
$oscar->set_callback_chat_joined(\&chat_joined);
$oscar->set_callback_chat_buddy_in(\&chat_buddy_in);
$oscar->set_callback_chat_buddy_out(\&chat_buddy_out);
$oscar->set_callback_chat_im_in(\&chat_im_in);

print "ChivaNet Conversation Bot v0.0.1\n";
print " Copyright (C) 2025 Coherent Logic Development LLC\n\n";

print "bot:  attempting to sign in... ";
$oscar->signon(%signon);

while(1) {
    $oscar->do_one_loop();
    $chat_idle_seconds = time() - $last_chat_received;
    
    if($chat_idle_seconds > $idlemax) {
        send_idle_message();
    }
}