diff options
| author | Jochen Eisinger <c0ffee@irssi.org> | 2008-11-02 12:13:36 +0000 |
|---|---|---|
| committer | c0ffee <c0ffee@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2008-11-02 12:13:36 +0000 |
| commit | f8461d39bc5bfd3efe908924c09d661756e447a1 (patch) | |
| tree | b401ca0b17d3eef63fbf9413bf63fdfd317c3b6f /src/perl/irc/Irc.xs | |
| parent | 73b18f2672585d8d6427862afed6ba8f63629ef3 (diff) | |
| download | irssi-f8461d39bc5bfd3efe908924c09d661756e447a1.zip | |
introduce the type Irssi::Irc::Client and signals to communicate with proxy
clients to allow for scripting parts of the irssi-proxy.
git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@4882 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/irc/Irc.xs')
| -rw-r--r-- | src/perl/irc/Irc.xs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs index 3fda1e68..251efb8b 100644 --- a/src/perl/irc/Irc.xs +++ b/src/perl/irc/Irc.xs @@ -144,6 +144,19 @@ static void perl_notifylist_fill_hash(HV *hv, NOTIFYLIST_REC *notify) hv_store(hv, "ircnets", 7, newRV_noinc((SV*)av), 0); } +static void perl_client_fill_hash(HV *hv, CLIENT_REC *client) +{ + hv_store(hv, "nick", 4, new_pv(client->nick), 0); + hv_store(hv, "host", 4, new_pv(client->host), 0); + hv_store(hv, "proxy_address", 13, new_pv(client->proxy_address), 0); + hv_store(hv, "server", 6, iobject_bless(client->server), 0); + hv_store(hv, "pass_sent", 9, newSViv(client->pass_sent), 0); + hv_store(hv, "user_sent", 9, newSViv(client->user_sent), 0); + hv_store(hv, "connected", 9, newSViv(client->connected), 0); + hv_store(hv, "want_ctcp", 9, newSViv(client->want_ctcp), 0); + hv_store(hv, "ircnet", 6, new_pv(client->listen->ircnet), 0); +} + static PLAIN_OBJECT_INIT_REC irc_plains[] = { { "Irssi::Irc::Ban", (PERL_OBJECT_FUNC) perl_ban_fill_hash }, { "Irssi::Irc::Dcc", (PERL_OBJECT_FUNC) perl_dcc_fill_hash }, @@ -151,6 +164,7 @@ static PLAIN_OBJECT_INIT_REC irc_plains[] = { { "Irssi::Irc::Netsplitserver", (PERL_OBJECT_FUNC) perl_netsplit_server_fill_hash }, { "Irssi::Irc::Netsplitchannel", (PERL_OBJECT_FUNC) perl_netsplit_channel_fill_hash }, { "Irssi::Irc::Notifylist", (PERL_OBJECT_FUNC) perl_notifylist_fill_hash }, + { "Irssi::Irc::Client", (PERL_OBJECT_FUNC) perl_client_fill_hash }, { NULL, NULL } }; @@ -209,3 +223,4 @@ BOOT: irssi_boot(Irc__Notifylist); irssi_boot(Irc__Query); irssi_boot(Irc__Server); + irssi_boot(Irc__Client); |