perl/lib/Thrasher/Protocol/Purple/AIM.pm

   1 package Thrasher::Protocol::Purple::AIM;
   2 use strict;
   3 use warnings;
   4
   5 =head1 NAME
   6
   7 Thrasher::Protocol::Purple::AIM - protocol for connection to AOL
   8 Instant Messenger using libpurple
   9
  10 =cut
  11
  12 use base "Thrasher::Protocol::Purple";
  13
  14 use Thrasher::Log qw(log debug);
  15 use CGI qw(escapeHTML);
  16
  17 sub prpl {
  18     return "prpl-aim";
  19 }
  20
  21 # This receives the message we're about to send out, and adds any
  22 # further processing that may be necessary.
  23 sub process_message {
  24     my $self = shift;
  25     my $message = shift;
  26
  27     return escapeHTML($message);
  28 }
  29
  30 sub process_remote_username {
  31     my $self = shift;
  32     my $s = shift;
  33     $s =~ tr/[A-Z]/[a-z]/;
  34     $s =~ s/ //g;
  35     return $s;
  36 }
  37
  38 sub name { "AIM" }
  39 sub identifier { "aim" }
  40 sub gateway_prompt { "Enter AIM Username:" }
  41 sub gateway_desc { "Enter AIM Username:" }
  42 sub purple_forces_kill { return 1; }
  43
  44 1;