Changeset f1a2736 for perl/modules


Ignore:
Timestamp:
Oct 27, 2009, 12:41:17 AM (15 years ago)
Author:
Alejandro R. Sedeño <asedeno@mit.edu>
Branches:
master, release-1.10, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
050d25e
Parents:
6fc40a7
git-author:
Alejandro R. Sedeño <asedeno@mit.edu> (10/24/09 20:58:04)
git-committer:
Alejandro R. Sedeño <asedeno@mit.edu> (10/27/09 00:41:17)
Message:
Switch perl modules to the new I/O Dispatch API.

Signed-off-by: Alejandro R. Sedeño <asedeno@mit.edu>
Location:
perl/modules
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

    rda554da rf1a2736  
    381381        $ircnets{$alias} = $conn;
    382382        my $fd = $conn->getSocket()->fileno();
    383         BarnOwl::add_dispatch($fd, \&OwlProcess);
     383        BarnOwl::add_io_dispatch($fd, 'r', \&OwlProcess);
    384384        $conn->{FD} = $fd;
    385385    } else {
  • perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

    r7cfb1df rf1a2736  
    210210        }
    211211    }
    212     BarnOwl::remove_dispatch($self->{FD});
     212    BarnOwl::remove_io_dispatch($self->{FD});
    213213    BarnOwl::admin_message('IRC',
    214214                           "[" . $self->alias . "] Disconnected from server");
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm

    rf3678c3 rf1a2736  
    471471                $conn->renameConnection($jidStr, $fullJid);
    472472                queue_admin_msg("Connected to jabber as $fullJid");
    473                 # The remove_dispatch() method is called from the
     473                # The remove_io_dispatch() method is called from the
    474474                # ConnectionManager's removeConnection() method.
    475475                $client->{fileno} = $client->getSocket()->fileno();
    476476                #queue_admin_msg("Connected to jabber as $fullJid ($client->{fileno})");
    477                 BarnOwl::add_dispatch($client->{fileno}, sub { $client->OwlProcess($fullJid) });
     477                BarnOwl::add_io_dispatch($client->{fileno}, 'r', sub { $client->OwlProcess($fullJid) });
    478478
    479479                # populate completion from roster.
  • perl/modules/Jabber/lib/BarnOwl/Module/Jabber/ConnectionManager.pm

    r8590774 rf1a2736  
    3737    return 0 unless exists $self->{$jidStr};
    3838
    39     BarnOwl::remove_dispatch($self->{$jidStr}->{Client}->{fileno}) if $self->{$jidStr}->{Client}->{fileno};
     39    BarnOwl::remove_io_dispatch($self->{$jidStr}->{Client}->{fileno}) if $self->{$jidStr}->{Client}->{fileno};
    4040    $self->{$jidStr}->{Client}->Disconnect()
    4141      if $self->{$jidStr}->{Client};
     
    5555    }
    5656
    57     BarnOwl::remove_dispatch($self->{$jidStr}->{Client}->{fileno}) if $self->{$jidStr}->{Client}->{fileno};
     57    BarnOwl::remove_io_dispatch($self->{$jidStr}->{Client}->{fileno}) if $self->{$jidStr}->{Client}->{fileno};
    5858    $self->{$jidStr}->{Client}->Disconnect()
    5959      if $self->{$jidStr}->{Client};
Note: See TracChangeset for help on using the changeset viewer.