Annotation of ChivanetConvoBot/convobot, revision 1.6
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: #
1.2 snw 11: # $Log: convobot,v $
1.6 ! snw 12: # Revision 1.5 2025/02/03 18:14:15 snw
! 13: # Further work on bot
! 14: #
1.5 snw 15: # Revision 1.4 2025/02/03 17:31:28 snw
16: # Further MySQL work
17: #
1.4 snw 18: # Revision 1.3 2025/02/03 15:38:12 snw
19: # Begin SQL work
20: #
1.3 snw 21: # Revision 1.2 2025/02/03 04:28:34 snw
22: # Fix syntax message
23: #
1.2 snw 24: # Revision 1.1.1.1 2025/02/03 04:22:49 snw
25: # Initial Commit
26: #
1.1 snw 27: #
28: #
29:
30: use Net::OSCAR;
31: use Getopt::Long;
32: use Data::Dumper;
33: use HTML::Strip;
1.3 snw 34: use DBI;
1.1 snw 35:
36: my $idlemax = 1800;
37: my $botsn = '';
38: my $botsrv = '';
39: my $botpw = '';
40: my $rasurl = '';
1.3 snw 41:
42: my $dbhost = '';
43: my $dbname = '';
44: my $dbusername = '';
45: my $dbpw = '';
46: my $dbconn = '';
1.4 snw 47: my $autogreet = 'off';
1.3 snw 48:
1.1 snw 49: my $chatroom = '';
50: my $online = 0;
51: my $chat_idle_seconds = 0;
52: my $last_chat_received = time();
53: my $start_time = time();
1.5 snw 54: my $dbh = '';
55: my $dsn = '';
1.1 snw 56:
57: my @congregants = ();
58:
1.4 snw 59: $oscar = Net::OSCAR->new();
60:
61: sub get_seen_status {
62: my($sn, $chat) = @_;
1.1 snw 63:
1.4 snw 64: my $sth = $dbh->prepare("SELECT * FROM seen WHERE aim_server=? AND aim_sn=? AND aim_chatroom=? AND sn=?");
65: $sth->execute($botsrv, $botsn, $chatroom, $sn);
1.1 snw 66:
1.4 snw 67: if($sth->rows > 0) {
68: my $hashref = $sth->fetchrow_hashref();
69: $chat->chat_send("I last saw <strong>$sn</strong> on $hashref->{seen_time}.");
70: }
71: else {
72: $chat->chat_send("I have never seen <strong>$sn</strong>.");
73: }
74:
75: }
1.3 snw 76:
1.4 snw 77: sub update_seen_status {
1.3 snw 78: my($sn) = @_;
79:
1.4 snw 80: my $del = $dbh->prepare("DELETE FROM seen WHERE aim_server=? AND aim_sn=? AND aim_chatroom=? AND sn=?");
1.5 snw 81: $del->execute($botsrv, $botsn, $chatroom, $sn) or die "error DBI->errstr()";
1.3 snw 82:
1.5 snw 83: my $ins = $dbh->prepare("INSERT INTO seen (aim_server, aim_sn, aim_chatroom, sn, seen_time) VALUES (?, ?, ?, ?, ?)");
84: my $seentime = localtime();
85: $ins->execute($botsrv, $botsn, $chatroom, $sn, $seentime) or die "error DBI->errstr()";
1.3 snw 86: }
1.1 snw 87:
88: sub signon_done {
89: print "[OK]\n";
1.5 snw 90: print "convobot: joining $chatroom...";
91: $oscar->chat_join($chatroom, 5);
1.4 snw 92: print "[OK]\n";
1.1 snw 93: $online = 1;
94: }
95:
1.4 snw 96: sub oscar_error {
97: my($oscar, $connection, $error, $description, $fatal) = @_;
98:
99: if($fatal != 0) {
1.5 snw 100: die "\nconvobot: fatal OSCAR error: $description\n";
1.4 snw 101: }
102: else {
1.5 snw 103: print "\nconvobot: recoverable OSCAR error: $description\n";
1.4 snw 104: }
105:
106: }
107:
1.1 snw 108: sub chat_joined {
109: my($oscar, $chatname, $chat) = @_;
110:
1.5 snw 111: print "bot: chat joined [$chatname]\n";
112:
1.1 snw 113: $room = $chat;
114: bless $room, "Net::OSCAR::Connection::Chat";
1.5 snw 115:
116: print "convobot: connecting to database $dbname\@$dbhost...";
117:
118: $dsn = "DBI:mysql:database=$dbname;host=$dbhost;port=3306;mysql_connect_timeout=5;";
119: $dbh = DBI->connect($dsn, $dbusername, $dbpw, {RaiseError => 1});
120: die "convobot: failed to connect to MySQL database: DBI->errstr()" unless $dbh;
121:
122: print "[OK]\n";
123:
124: $oscar->set_callback_chat_buddy_in(\&chat_buddy_in);
125: $oscar->set_callback_chat_buddy_out(\&chat_buddy_out);
1.1 snw 126: }
127:
128: sub chat_buddy_in {
129: my ($oscar, $who, $chat, $buddy) = @_;
130:
1.4 snw 131: update_seen_status($who);
1.1 snw 132:
133: if($who ne $botsn) {
134: push(@congregants, $who);
1.5 snw 135: print "convobot: [$who] has joined\n";
1.1 snw 136: }
137: else {
1.5 snw 138: print "convobot: [$who] has joined (ignoring bot)\n";
1.1 snw 139: }
140:
1.4 snw 141:
142: if($autogreet eq "on") {
143: if(time() - $start_time > 2) {
144: my @phrases = ('Welcome to [room], [user]! :-)',
145: 'How\'s it going, [user]?',
146: 'Hey [user]! Bring any snacks?',
147: 'Heya [user]! Hope your day is going well!',
148: 'Ooo, [user] has joined [room]! Now the party can start!');
149:
150: my $phrase = $phrases[rand @phrases];
151: $phrase =~ s/\[user\]/$who/g;
152: $phrase =~ s/\[room\]/$chatroom/g;
153: my $phrasefix = "<div id=convobot></div>$phrase";
154: $chat->chat_send($phrasefix);
155: }
156: else {
1.5 snw 157: print "convobot: not sending greeting for 2 seconds after startup\n";
1.4 snw 158: }
1.1 snw 159: }
160: }
161:
162: sub chat_buddy_out {
163: my ($oscar, $who, $chat) = @_;
164: my $index = 0;
165:
166: $index++ until $congregants[$index] eq $who;
167: splice(@congregants, $index, 1);
168:
1.5 snw 169: print "convobot: $who has left\n";
1.1 snw 170: }
171:
172: sub chat_im_in {
173: my($oscar, $who, $chat, $message) = @_;
174:
175: my $hs = HTML::Strip->new();
176: my $rawcmd = $hs->parse($message);
177: my @cmd = split(' ', $rawcmd);
178:
1.4 snw 179: update_seen_status($who);
1.5 snw 180:
181: if($who ne $botsn) {
182: if($cmd[0] eq "!seen") {
183: if(exists($cmd[1])) {
1.6 ! snw 184: my @sna = @cmd[1..$#cmd];
! 185: my $ssn = join(' ', @sna);
! 186: get_seen_status($ssn, $chat);
1.5 snw 187: }
188: else {
189: $chat->chat_send("Syntax: !seen <em>screenname</em>");
190: }
191: }
192: elsif($cmd[0] eq "!speak") {
193: send_idle_message();
194: }
195: elsif($cmd[0] eq "!quote") {
196: my $fortune = `/usr/games/fortune`;
197: $room->chat_send($fortune);
198: }
1.6 ! snw 199: elsif($cmd[0] eq "!invite") {
! 200: if(exists($cmd[1])) {
! 201: my @sna = @cmd[1..$#cmd];
! 202: my $ssn = join(' ', @sna);
! 203: $chat->invite($ssn, "Please join us in $chatroom! <br><em>Requested by $who</em>");
! 204: }
! 205: }
1.5 snw 206: elsif($cmd[0] eq "!help") {
207: $room->chat_send("You can enter the following commands:");
208: $room->chat_send(" <code>!seen <em>screenname</em></code> (find out when <em>screenname</em> was last in the chat)");
1.6 ! snw 209: $room->chat_send(" <code>!invite <em>screenname</em></code> (invite <em>screenname</em> to the chat)");
1.5 snw 210: $room->chat_send(" <code>!speak</code> (send a random message)");
211: $room->chat_send(" <code>!quote</code> (send a quote)");
212: }
1.1 snw 213: }
1.5 snw 214:
215:
1.1 snw 216: $last_chat_received = time();
217:
1.5 snw 218: print "convobot: chat received from $who; resetting idle counter\n";
1.1 snw 219:
220: }
221:
222: sub send_idle_message {
223:
224: my @phrases = ('Hey [user]! How are you today?',
225: 'I think [user] should bring us some pizza!',
226: 'What\'s everyone up to here?',
227: 'My, what a beautiful day for a chat here in [room]!',
228: '[user] always has the most interesting things to say.',
229: 'Remember that time [user] was talking here in [room]?',
230: 'What do all you [room] chatters think about pie?',
231: '[room] seems dead :\'(. That makes me sad! Maybe [user] has something interesting to say?');
232:
233: my $congregant = $congregants[rand @congregants];
234: my $phrase = $phrases[rand @phrases];
235: $phrase =~ s/\[user\]/$congregant/g;
236: $phrase =~ s/\[room\]/$chatroom/g;
237: my $phrasefix = "<div id=convobot></div>$phrase";
238:
239: if(ref($room) eq "Net::OSCAR::Connection::Chat") {
240: $room->chat_send($phrasefix);
241: $last_chat_received = time();
242: }
1.5 snw 243:
1.1 snw 244: }
245:
246: $oscar->set_callback_signon_done(\&signon_done);
247: $oscar->set_callback_chat_joined(\&chat_joined);
248: $oscar->set_callback_chat_im_in(\&chat_im_in);
1.4 snw 249: $oscar->set_callback_error(\&oscar_error);
1.1 snw 250:
251: print "ChivaNet Conversation Bot v0.0.1\n";
252: print " Copyright (C) 2025 Coherent Logic Development LLC\n\n";
253:
1.4 snw 254: GetOptions("aimsn=s" => \$botsn,
255: "aimhost=s" => \$botsrv,
256: "aimpw=s" => \$botpw,
257: "idlemax=s" => \$idlemax,
258: "chatroom=s" => \$chatroom,
259: "dbhost=s" => \$dbhost,
260: "dbname=s" => \$dbname,
261: "dbusername=s" => \$dbusername,
262: "dbpw=s" => \$dbpw,
263: "autogreet=s" => \$autogreet)
264: or die("error in command line arguments");
265:
266: %signon = (
267: screenname => $botsn,
268: password => $botpw,
269: host => $botsrv,
270: );
271:
272: print "AIM Server: $botsrv\n";
273: print "AIM Screen Name: $botsn\n";
274: print "Chat Room: $chatroom\n";
275: print "DB Host: $dbhost\n";
276: print "DB Name: $dbname\n";
277: print "DB Username: $dbusername\n";
278: print "Idle before ping: $idlemax\n";
279: print "Auto-Greet: $autogreet\n\n";
280:
281:
1.5 snw 282: print "convobot: attempting to sign in...";
1.1 snw 283: $oscar->signon(%signon);
284:
285: while(1) {
286: $oscar->do_one_loop();
287: $chat_idle_seconds = time() - $last_chat_received;
288:
289: if($chat_idle_seconds > $idlemax) {
290: send_idle_message();
291: }
292: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to convobot CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / ChivanetConvoBot