render.pl is designed to pull in chunks of code from other files using require and run certain functions in them. The full script is over 100 lines long, but the meat of it follows:
$query=new CGI; $re=$query->path_info; $re =~ s#^/##g; $re =~ s#/$##g; $re='front' unless $re; eval { require "re/$re.pl"; #include render engine or die }; if($@) { die "rendering error: bad rendering engine\n"; } $_=`cat tem/main.htt`; s#\$\{title\}# '<! title >'.CodeNews::RE::title($query) +.'<! /title >' #ieg; s#\$\{left\}# '<! left >'.CodeNews::RE::renderLeft($query) +.'<! /left >' #ieg; s#\$\{content\}# '<!content>'.CodeNews::RE::renderContent($query).' +<!/content>' #ieg;
I'm only getting this in one chunk of code, the code for my Submit page. This code generates the site's largest page.
The cutoff doesn't seem to occur if STDOUT is connected to a tty. If I run the script via telnet, it comes out fine--unless I redirect the output to a file, in which case it's cut off. Weird.
This may well be a problem in FreeBSD or this system's configuration, but I just have no idea what it is. Any thoughts?
perl -v: This is perl, version 5.005_03 built for i386-freebsd
=cut
--Brent Dax
@HPAJ=split("", "rekcaH lreP rentonA tsuJ"); print reverse @HPAJ; #sucky but who cares?
In reply to CGI cut off after about 16000 characters by BrentDax
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |