Return to chatsync.pl CVS log

Up to [Coherent Logic Development] / ChivanetAimDiscordSyncBot

Annotation of ChivanetAimDiscordSyncBot/chatsync.pl, revision 1.1

1.1     ! snw         1: #!/usr/bin/env perl
        !             2: 
        !             3: # 
        !             4: # ChivaNet AIM<>Discord Chat Sync Bot 
        !             5: #  Copyright (C) 2024, 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: use Net::OSCAR qw(:standard);
        !            15: use HTML::Strip;
        !            16: use REST::Client;
        !            17: use JSON::XS;
        !            18: use Data::Dumper;
        !            19: use Getopt::Long;
        !            20: use WebService::Discord::Webhook;
        !            21: 
        !            22: my $botsn = '';
        !            23: my $botsrv = '';
        !            24: my $botpw = '';
        !            25: my $chatroom = '';
        !            26: my $webhook_url = '';
        !            27: 
        !            28: $chat = '';
        !            29: 
        !            30: GetOptions("aimsn=s" => \$botsn,
        !            31:             "aimhost=s" => \$botsrv,
        !            32:             "aimpw=s" => \$botpw,
        !            33:             "chatroom=s" => \$chatroom,
        !            34:             "url=s" => \$webhook_url)
        !            35:             or die("error in command line arguments");
        !            36: 
        !            37: %signon = (
        !            38:         screenname => $botsn,
        !            39:         password => $botpw,
        !            40:         host => $botsrv,
        !            41: );       
        !            42: 
        !            43: $oscar = Net::OSCAR->new();
        !            44: $webhook = WebService::Discord::Webhook->new( $webhook_url );
        !            45: 
        !            46: print ("ChivaNet Discord AIM Synchronizer v0.0.1\n");
        !            47: print ("  Connecting to chat room $chatroom\n");
        !            48: 
        !            49: sub signon_done {
        !            50:         print "[OK]\n";
        !            51:         $chat = $oscar->chat_join($chatroom, 5);        
        !            52:         $online = 1;
        !            53: }
        !            54: 
        !            55: sub chat_joined {
        !            56:     my($oscar, $chatname, $chat) = @_;
        !            57: 
        !            58:     $chat->chat_send("discord chatsync engaged for $chatroom");
        !            59: }
        !            60: 
        !            61: sub im_in {
        !            62:     my($oscar, $sender, $message, $is_away) = @_;
        !            63:     print "$sender: $message\n";
        !            64: }
        !            65: 
        !            66: sub chat_im_in {
        !            67:     my($oscar, $who, $chat, $message) = @_;
        !            68:     
        !            69:     my $hs = HTML::Strip->new();
        !            70:     my $msg = $hs->parse($message);
        !            71:     $msg =~ s/\@//g;
        !            72:     $msg =~ s/https/gopher/g;
        !            73:     $msg =~ s/http/gopher/g;
        !            74:     $msg =~ s/ftp/gopher/g;
        !            75: 
        !            76:     $msg =~ s/:-\)/:smile:/g;
        !            77:     $msg =~ s/;-\)/:wink:/g;
        !            78:     $msg =~ s/:-$/:money_mouth:/g;
        !            79:     $msg =~ s/=-O/:astonished:/g;
        !            80:     $msg =~ s/:-X/:zipper_mouth:/g;
        !            81: 
        !            82:     
        !            83:     
        !            84:     my $fmsg = "**$who**: $msg";
        !            85: 
        !            86:     $webhook->execute($fmsg);
        !            87: }
        !            88: 
        !            89: #OSCAR, SCREENNAME, CHAT, BUDDY DATA
        !            90: sub chat_buddy_in {
        !            91:     my ($oscar, $who, $chat, $buddy) = @_;
        !            92:     my $fmsg = "*$who has joined the chat*";
        !            93:     sleep(1);
        !            94:     $webhook->execute($fmsg);
        !            95: }
        !            96: 
        !            97: sub chat_buddy_out {
        !            98:     my ($oscar, $who, $chat) = @_;
        !            99:     my $fmsg = "*$who has left the chat*";
        !           100:     sleep(1);
        !           101:     $webhook->execute($fmsg);
        !           102: }
        !           103: 
        !           104: 
        !           105: 
        !           106: $oscar->set_callback_signon_done(\&signon_done);
        !           107: $oscar->set_callback_chat_joined(\&chat_joined);
        !           108: $oscar->set_callback_im_in(\&im_in);
        !           109: $oscar->set_callback_chat_im_in(\&chat_im_in);
        !           110: #$oscar->set_callback_chat_buddy_in(\&chat_buddy_in);
        !           111: #$oscar->set_callback_chat_buddy_out(\&chat_buddy_out);
        !           112: 
        !           113: print "chatsync:  attempting to sign in... ";
        !           114: $oscar->signon(%signon);
        !           115: 
        !           116: while(1) {
        !           117:     $oscar->do_one_loop();        
        !           118: }