I installed RTF::Writer just to test your code, and after some edits I could make it compile. (For some reason, add_bgcolor isn't a recognized method, so I commented those out; and the use of your private module at the top too.)
I initially got a blank file too. Then I noticed you have mixed two alternatives, you have to use either
$fh = RTF::Writer->new_to_file($rtfReport);
or $fh = RTF::Writer->new_to_string(\$RTF_obj);
but not both. Don't mix them.
For this application, it makes most sense to use the $RTF_obj, because it holds the entire RTF document in memory.
And delete the line
$fh->print(\$RTF_obj);
near the end, it makes the document exactly twice as long and worse, it corrupts it as Word can no longer read it.
So: near the top, just use
$fh = RTF::Writer->new_to_string(\$RTF_obj);
you'd even better delete every mention of $rtfReport; and near the bottom, right under $fh->close();, add
print $RTF_obj;
That's it. Drop the code I gave you earlier to read out the contents of the file, as there is no longer a file, you don't need it. Instead, you're printing out the contents of a string.
HTH.
|