Changeset 302
- Timestamp:
- 01/14/11 02:15:19 (13 years ago)
- Location:
- bot
- Files:
-
- 3 edited
- 1 copied
- 3 moved
Legend:
- Unmodified
- Added
- Removed
-
bot/trunk/Makefile.PL
r69 r302 4 4 # the contents of the Makefile that is written. 5 5 WriteMakefile( 6 NAME => 'Sophie:: IrcBot',7 VERSION_FROM => 'lib/Sophie/ IrcBot.pm', # finds $VERSION6 NAME => 'Sophie::Bot', 7 VERSION_FROM => 'lib/Sophie/Bot.pm', # finds $VERSION 8 8 PREREQ_PM => {}, # e.g., Module::Name => 1.1 9 9 ($] >= 5.005 ? ## Add these new keywords supported since 5.005 10 (ABSTRACT_FROM => 'lib/Sophie/ IrcBot.pm', # retrieve abstract from module11 AUTHOR => 'Olivier Thauvin < olivier@localdomain>') : ()),10 (ABSTRACT_FROM => 'lib/Sophie/Bot.pm', # retrieve abstract from module 11 AUTHOR => 'Olivier Thauvin <nanardon@nanardon.zarb.org>') : ()), 12 12 ); -
bot/trunk/bin/sophie-bot
r299 r302 3 3 use strict; 4 4 use warnings; 5 use Sophie:: Client;5 use Sophie::Bot; 6 6 use Getopt::Long; 7 7 use Pod::Usage; … … 30 30 } 31 31 32 $configfile ||= " $ENV{HOME}/.sophie.conf";32 $configfile ||= "/etc/sophie/sophie-bot.conf"; 33 33 34 34 if (my $conf = Config::General->new($configfile)) { … … 41 41 } 42 42 43 my $sc = Sophie:: Client->new(43 my $sc = Sophie::Bot->new( 44 44 server => $url, 45 45 login => $login, -
bot/trunk/lib/Sophie/Bot.pm
r299 r302 1 package Sophie:: Client;1 package Sophie::Bot; 2 2 3 3 use 5.010000; … … 14 14 15 15 my $self = $class->SUPER::new( 16 $options{server} || 'http://sophie 2.aero.jussieu.fr/rpc'16 $options{server} || 'http://sophie.zarb.org/rpc' 17 17 ); 18 18 if ($options{proxy}) { -
bot/trunk/lib/Sophie/Bot/IRC.pm
r299 r302 1 package Sophie:: Client::IRC;1 package Sophie::Bot::IRC; 2 2 3 3 use 5.010000; 4 4 use strict; 5 5 use warnings; 6 use base qw(Sophie:: Client);6 use base qw(Sophie::Bot); 7 7 use POE qw(Component::IRC); 8 8 -
bot/trunk/lib/Sophie/Bot/Term.pm
r214 r302 1 package Sophie:: Client::Term;1 package Sophie::Bot::Term; 2 2 3 3 use 5.010000; … … 5 5 use warnings; 6 6 use Term::ReadLine; 7 use base qw(Sophie:: Client);7 use base qw(Sophie::Bot); 8 8 9 9 our $VERSION = '0.01';
Note: See TracChangeset
for help on using the changeset viewer.