$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\}# ''.CodeNews::RE::title($query) .'' #ieg; s#\$\{left\}# ''.CodeNews::RE::renderLeft($query) .'' #ieg; s#\$\{content\}# ''.CodeNews::RE::renderContent($query).'' #ieg;