Show
Ignore:
Timestamp:
05/15/08 18:46:42 (7 years ago)
Author:
kan
Message:

X:C:Twitter !

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/XIRCD/trunk/lib/XIRCD/Component/Wassr.pm

    r11630 r11636  
    3030 
    3131sub debug(@) { ## no critic. 
    32     print @_ if $ENV{XIRCD_DEBUG}; 
     32    print @_,"\n\n" if $ENV{XIRCD_DEBUG}; 
    3333} 
    3434 
     
    4242    $self->alias('wassr'); 
    4343 
    44     debug "start wassr\n"; 
     44    debug "start wassr"; 
    4545 
    4646    my ($username, $hostname) = split '@', $self->config->{jabber}->{username}; 
     
    7272 
    7373    if ($state == +PCJ_INIT_FINISHED) { 
    74         debug "init finished\n"; 
     74        debug "init finished"; 
    7575        $self->jid($self->jabber->jid); 
    7676 
     
    8484    my ($node,) = get_args(@_); 
    8585 
    86     debug "recv:", $node->to_str, "\n\n"; 
     86    debug "recv:", $node->to_str; 
    8787 
    8888    my ($body,) = $node->get_tag('body'); 
     
    109109    $node->insert_tag('body')->data( $message ); 
    110110 
    111     debug "send:", $node->to_str, "\n\n"; 
     111    debug "send:", $node->to_str; 
    112112 
    113113    POE::Kernel->post( jabber => output_handler => $node );