freetdm: ftmod_r2 - check fclose return value when dumping IO

diff --git a/libs/freetdm/src/ftmod/ftmod_r2/ftmod_r2.c b/libs/freetdm/src/ftmod/ftmod_r2/ftmod_r2.c
index 4265c9b8fa0bf228d7f2313a2e8fc21a21e9e070..540d7cb6e9a1651e5d058a65fdb567beafe558f5 100644 (file)
--- a/libs/freetdm/src/ftmod/ftmod_r2/ftmod_r2.c
+++ b/libs/freetdm/src/ftmod/ftmod_r2/ftmod_r2.c
@@ -714,6 +714,7 @@ static void dump_mf(openr2_chan_t *r2chan)
 {
        char dfile[512];
        FILE *f = NULL;
+       int rc = 0;
        ftdm_channel_t *ftdmchan = openr2_chan_get_client_data(r2chan);
        ftdm_r2_data_t *r2data = ftdmchan->span->signal_data;
        if (r2data->mf_dump_size) {
@@ -727,7 +728,10 @@ static void dump_mf(openr2_chan_t *r2chan)
                if (f) {
                        ftdm_log_chan(ftdmchan, FTDM_LOG_ERROR, "Dumping IO input in file %s\n", dfile);
                        ftdm_channel_command(ftdmchan, FTDM_COMMAND_DUMP_INPUT, f);
-                       fclose(f);
+                       rc = fclose(f);
+                       if (rc) {
+                               ftdm_log_chan(ftdmchan, FTDM_LOG_ERROR, "Failure closing IO input file %s: %s\n", dfile, strerror(errno));
+                       }
                } else {
                        ftdm_log_chan(ftdmchan, FTDM_LOG_ERROR, "Could not dump IO input in file %s, error: %s", dfile, strerror(errno));
                }
@@ -738,7 +742,10 @@ static void dump_mf(openr2_chan_t *r2chan)
                if (f) {
                        ftdm_log_chan(ftdmchan, FTDM_LOG_ERROR, "Dumping IO output in file %s\n", dfile);
                        ftdm_channel_command(ftdmchan, FTDM_COMMAND_DUMP_OUTPUT, f);
-                       fclose(f);
+                       rc = fclose(f);
+                       if (rc) {
+                               ftdm_log_chan(ftdmchan, FTDM_LOG_ERROR, "Failure closing IO output file %s: %s\n", dfile, strerror(errno));
+                       }
                } else {
                        ftdm_log_chan(ftdmchan, FTDM_LOG_ERROR, "Could not dump IO output in file %s, error: %s", dfile, strerror(errno));
                }