[Relay-bot-cvs] CVS: relay-bot relay-bot.pl,1.33,1.34
Brought to you by:
freiheit
From: Eric E. <fre...@us...> - 2002-10-16 00:05:36
|
Update of /cvsroot/relay-bot/relay-bot In directory usw-pr-cvs1:/tmp/cvs-serv21911 Modified Files: relay-bot.pl Log Message: Rewrote a bit to be more "perlish" and a tad easier to read, but compiles identically. Index: relay-bot.pl =================================================================== RCS file: /cvsroot/relay-bot/relay-bot/relay-bot.pl,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -r1.33 -r1.34 *** relay-bot.pl 15 Oct 2002 04:41:01 -0000 1.33 --- relay-bot.pl 16 Oct 2002 00:05:28 -0000 1.34 *************** *** 564,568 **** # Look at the topic for a channel you join. sub on_topic { ! return if !$config{echo_topic}; my ($self, $event) = @_; my @args = $event->args(); --- 564,568 ---- # Look at the topic for a channel you join. sub on_topic { ! return unless $config{echo_topic}; my ($self, $event) = @_; my @args = $event->args(); *************** *** 619,623 **** sub public_msg { ! return if !$config{echo_public_msg}; my $self = shift; my $event = shift; --- 619,623 ---- sub public_msg { ! return unless $config{echo_public_msg}; my $self = shift; my $event = shift; *************** *** 662,666 **** sub public_action { ! return if !$config{echo_public_action}; my ($self, $event) = @_; my ($nick, @args) = ($event->nick, $event->args); --- 662,666 ---- sub public_action { ! return unless $config{echo_public_action}; my ($self, $event) = @_; my ($nick, @args) = ($event->nick, $event->args); *************** *** 690,694 **** sub private_msg { ! return if !$config{echo_private_msg}; my $self = shift; my $event = shift; --- 690,694 ---- sub private_msg { ! return unless $config{echo_private_msg}; my $self = shift; my $event = shift; *************** *** 743,747 **** } ! return if !$config{echo_join}; my $nick = $event->nick; --- 743,747 ---- } ! return unless $config{echo_join}; my $nick = $event->nick; *************** *** 779,783 **** sub on_nick_change { ! return if !$config{echo_nick}; my $self = shift; my $event = shift; --- 779,783 ---- sub on_nick_change { ! return unless $config{echo_nick}; my $self = shift; my $event = shift; *************** *** 800,804 **** sub on_part { ! return if !$config{echo_part}; my $self = shift; my $event = shift; --- 800,804 ---- sub on_part { ! return unless $config{echo_part}; my $self = shift; my $event = shift; *************** *** 825,829 **** sub on_kick { ! return if !$config{echo_kick}; my $self = shift; my $event = shift; --- 825,829 ---- sub on_kick { ! return unless $config{echo_kick}; my $self = shift; my $event = shift; *************** *** 845,849 **** sub on_mode { ! return if !$config{echo_cmode}; my $self = shift; my $event = shift; --- 845,849 ---- sub on_mode { ! return unless $config{echo_cmode}; my $self = shift; my $event = shift; *************** *** 863,867 **** sub on_umode { ! return if !$config{echo_umode}; my $self = shift; my $event = shift; --- 863,867 ---- sub on_umode { ! return unless $config{echo_umode}; my $self = shift; my $event = shift; *************** *** 881,886 **** sub on_quit { ! ! return if !$config{echo_quit}; my $self = shift; my $event = shift; --- 881,885 ---- sub on_quit { ! return unless $config{echo_quit}; my $self = shift; my $event = shift; |