Must apologize, not upload but display of rtf that's the problem, all uploads are fine.
Perl code for display of rich text format files:
$DTION="$ppc";
open DTION or die "Cant find $DTION: $!\n";
binmode DTION;
while (<DTION>) { print; }
close DTION;
displays...
I like using rtf, can do things like <br /> and I have several rtf file that uploaded nicely(see enclosure). All pptoyXXXX.rtf files uploaded, no problem!http://www.roncherry.com/ppmama/ppuphold/pptoy1003.rtf
problem perl code: uploading .rtf files
$ppc='pphold/pp' . $cap;
open (DTION, ">","$ppc") or die "$!";
#binmode DTION;
while ($chunk=read ($cap, $data, 1024)) {
print DTION $data;
}
close DTION;
and I get this mess when displaying uploaded rtf file...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.