in reply to Re: Displaying RTF string to browser
in thread Displaying RTF string to browser

I tried 
$fh->close();
print STDOUT $RTF_obj;

[download]
and once the file opens in word I get a error document name or path is not valid

Replies are listed 'Best First'.
Re^3: Displaying RTF string to browser
by bart (Canon) on Aug 21, 2007 at 17:08 UTC
    That's a start. But you're printing the file name, not the file contents.

    Try, hmm... How to make this easy? OK, let's stick to general cross-platform solution: RTF is text, so we'll just print the text of the file to STDOUT line by line. 

    open IN, $RTF_obj or die "Oops?";
while(<IN>) {
    print;
}

    [download]
[reply]
[d/l]
      ok, tried that, and a few variations, I don't get a error so thats a plus, but I get a blank RTF not sure why though. not to familuar with creating streaming rtf.
[reply]
        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);

        [download]
        or 
        $fh = RTF::Writer->new_to_string(\$RTF_obj);

        [download]
        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);

        [download]
        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);

        [download]
        you'd even better delete every mention of $rtfReport; and near the bottom, right under $fh->close();, add 
        print $RTF_obj;

        [download]

        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.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom