root/irc-yahoo/trunk/irc-yahoo

Revision 537 (checked in by miyagawa, 18 years ago)

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
Line 
1 #!perl
2
3 use strict;
4 use Getopt::Long;
5 use Net::YahooMessenger;
6 use Net::YahooMessenger::IRCGW;
7
8 use vars qw($VERSION);
9 $VERSION = 0.05;
10
11 # default
12 my %conf = (
13     login_id   => '',
14     password   => '',
15     irc_server => 'localhost',
16     irc_port   => 6667,
17     irc_nick   => 'msger',
18     irc_yournick => $ENV{USER},
19 );
20 GetOptions(
21     \%conf, map "$_=s", keys %conf,
22 );
23
24 my $gateway = Net::YahooMessenger::IRCGW->instance(\%conf);
25 $gateway->start;
26
27 __END__
28
29 =head1 NAME
30
31 irc-yahoo - IRC/Yahoo! Messenger gateway bot
32
33 =head1 SYNOPSIS
34
35   irc-yahoo \
36      --login_id=[YM login id] \
37      --password=[YM password] \
38      --irc_server=[IRC server:localhost] \
39      --irc_port=[IRC port:6667] \
40      --irc_nick=[IRC nick for YM bot:msger] \
41      --irc_yournick=[your IRC nick:$ENV{USER}]
42
43 =head1 DESCRIPTION
44
45 See http://ymca.infoware.ne.jp/?browse=IrcToYahooMessenger for details
46
47 =head1 AUTHOR
48
49 Tatsuhiko Miyagawa E<lt>miyagawa@bulknews.netE<gt>
50
51 This script is free software; you can redistribute it and/or modify
52 it under the same terms as Perl itself.
53
54 =head1 CAVEAT
55
56 This script is in B<ALPHA STABILITY>. Use at your own risk!
57
58 =head1 SEE ALSO
59
60 L<Net::YahooMessenger>, L<Net::IRC>, http://ymca.infoware.ne.jp/
61
62 =cut
Note: See TracBrowser for help on using the browser.