diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-06-29 20:41:35 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-06-29 20:41:35 +0000 |
| commit | f0ccd539df473f64559b3ca26ec577ed3e0c1be4 (patch) | |
| tree | 8121340c67960fc44bd972f0d318f90395423ef6 /src | |
| parent | 84e8d9acfa4885d9fe1d2a071a43d76574455895 (diff) | |
| download | irssi-f0ccd539df473f64559b3ca26ec577ed3e0c1be4.zip | |
Added size/skipped to Dcc::Send / Get records
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1588 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src')
| -rw-r--r-- | src/perl/irc/Irc.xs | 12 | ||||
| -rw-r--r-- | src/perl/irc/module.h | 1 |
2 files changed, 11 insertions, 2 deletions
diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs index 1213fdd3..2fb835ac 100644 --- a/src/perl/irc/Irc.xs +++ b/src/perl/irc/Irc.xs @@ -53,10 +53,18 @@ static void perl_dcc_chat_fill_hash(HV *hv, CHAT_DCC_REC *dcc) hv_store(hv, "connection_lost", 15, newSViv(dcc->connection_lost), 0); } -static void perl_dcc_get_fill_hash(HV *hv, GET_DCC_REC *dcc) +static void perl_dcc_file_fill_hash(HV *hv, FILE_DCC_REC *dcc) { perl_dcc_fill_hash(hv, (DCC_REC *) dcc); + hv_store(hv, "size", 4, newSViv(dcc->size), 0); + hv_store(hv, "skipped", 7, newSViv(dcc->skipped), 0); +} + +static void perl_dcc_get_fill_hash(HV *hv, GET_DCC_REC *dcc) +{ + perl_dcc_file_fill_hash(hv, (FILE_DCC_REC *) dcc); + hv_store(hv, "get_type", 8, newSViv(dcc->get_type), 0); hv_store(hv, "file", 4, new_pv(dcc->file), 0); hv_store(hv, "file_quoted", 11, newSViv(dcc->file_quoted), 0); @@ -64,7 +72,7 @@ static void perl_dcc_get_fill_hash(HV *hv, GET_DCC_REC *dcc) static void perl_dcc_send_fill_hash(HV *hv, SEND_DCC_REC *dcc) { - perl_dcc_fill_hash(hv, (DCC_REC *) dcc); + perl_dcc_file_fill_hash(hv, (FILE_DCC_REC *) dcc); hv_store(hv, "file_quoted", 11, newSViv(dcc->file_quoted), 0); hv_store(hv, "waitforend", 10, newSViv(dcc->waitforend), 0); diff --git a/src/perl/irc/module.h b/src/perl/irc/module.h index 971f0021..112837a9 100644 --- a/src/perl/irc/module.h +++ b/src/perl/irc/module.h @@ -12,6 +12,7 @@ #include "netsplit.h" #include "dcc/dcc.h" +#include "dcc/dcc-file.h" #include "dcc/dcc-chat.h" #include "dcc/dcc-get.h" #include "dcc/dcc-send.h" |