diff options
Diffstat (limited to 'src/perl/irc/Irc.xs')
| -rw-r--r-- | src/perl/irc/Irc.xs | 12 |
1 files changed, 10 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); |