AOL-TOC

 view release on metacpan or  search on metacpan

TOC.pm  view on Meta::CPAN

174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
  bless($self);
 
  $sflap = AOL::SFLAP::new($tochost, $authorizer, $port, $nickname);
  $self->{sflap} = $sflap;
 
  #print "*************************** AOL::TOC::new(...) sflap = $self->{sflap}\n";
  #print "                            sflap cb = $self->{sflap}{callback}\n";
 
  #$self->{sflap}->register_callback($AOL::SFLAP::SFLAP_SIGNON,    \&sflap_signon, $password, "english", "TIK:\$Revision: 1.148 \$", $self);
  #$self->{sflap}->register_callback($AOL::SFLAP::SFLAP_DATA,      \&sflap_data, $self);
  #$self->{sflap}->register_callback($AOL::SFLAP::SFLAP_ERROR,     \&sflap_error, $self);
  #$self->{sflap}->register_callback($AOL::SFLAP::SFLAP_SIGNOFF,   \&sflap_signoff, $self);
  #$self->{sflap}->register_callback($AOL::SFLAP::SFLAP_KEEPALIVE, \&sflap_keepalive, $self);
  #
  #$self->register_callback("SIGN_ON", \&check_version);
  #$self->register_callback("CHAT_JOIN", \&_chat_join);
 
  return $self;
}

TOC.pm  view on Meta::CPAN

219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
    print @args;
  }
}
 
 
sub connect {
  my ($self) = @_;
 
  $self->{sflap}->register_callback($AOL::SFLAP::SFLAP_SIGNON,    \&sflap_signon, $self->{password}, "english", "TIK:\$Revision: 1.148 \$", $self);
  $self->{sflap}->register_callback($AOL::SFLAP::SFLAP_DATA,      \&sflap_data, $self);
  $self->{sflap}->register_callback($AOL::SFLAP::SFLAP_ERROR,     \&sflap_error, $self);
  $self->{sflap}->register_callback($AOL::SFLAP::SFLAP_SIGNOFF,   \&sflap_signoff, $self);
  $self->{sflap}->register_callback($AOL::SFLAP::SFLAP_KEEPALIVE, \&sflap_keepalive, $self);
   
  $self->register_callback("SIGN_ON", \&check_version);
  $self->register_callback("CHAT_JOIN", \&_chat_join);
 
  $self->{sflap}->connect();
}
 
sub close {

TOC.pm  view on Meta::CPAN

546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
    ($window_name, $url) = ($args =~ /^(.*)\:(.*)$/);
    $toc->callback("GOTO_URL", $window_name, $url);
  }
 
  if ($cmd eq "PAUSE") {
    $toc->callback("PAUSE");
  }
 
}
 
sub sflap_error {
  my ($self, $data, $toc) = @_;
 
  return;
}
 
sub sflap_signoff {
  my ($self, $data, $toc) = @_;
 
  $toc->callback("CLOSED");

tocbot/tocbot.pl  view on Meta::CPAN

17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
open(client_config, "toc.config");
$client_config = join('', <client_config>);
close(client_config);
 
$toc = AOL::TOC::new($tocbot_config{tochost}, $tocbot_config{authorizer},
                     $tocbot_config{port},
                     $tocbot_config{nickname}, $tocbot_config{password});
#$toc->set_debug(9);
$toc->connect();
 
$toc->register_callback("ERROR", \&client_error);
$toc->register_callback("CLOSED", \&client_closed);
$toc->register_callback("SIGN_ON", \&client_signon);
$toc->register_callback("IM_IN", \&client_im);
$toc->register_callback("UPDATE_BUDDY", \&client_buddy);
 
while (1) {
  $toc->dispatch();
}

tocbot/tocbot.pl  view on Meta::CPAN

80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
  return 1;
}
 
 
sub client_signon {
  $toc->add_buddy("jamersepoo", "jamers20VA");
  $toc->send_im("jamersepoo", "tocbot online");
}
 
 
sub client_error {
  my ($self, $code) = @_;
 
  print "tocbot: TOC error $code.\n";
}
 
 
sub client_closed {
  my ($self) = @_;
 
  print "tocbot: connection closed, exiting.\n";
  exit (0);
}