relay-bot-cvs

[Eric E. <fre...@us...>]

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;