Help for this page

Select Code to Download


  1. or download this
    use POE qw(Component::Server::TCP Component::IRC);
    
    ...
    sub client_input {
      print "Starting bot in session: ", $_[SESSION]->ID(), "\n";
    }
    
  2. or download this
    use POE qw(Component::Server::TCP Component::IRC);
    
    ...
    sub client_input {
      $_[KERNEL]->post(mine => 'create_bot');
    }