source: branches/rsr.v5.1.1/web/app/mods/e_forum.php

<?php

  function e_forum($env)
  { global $tpl_main;
    $env->out["forum"] = array();
    $env->out["forum"]["head"] = "";
    $env->out["forum"]["body"] = "";
    if
    ( ($head_start = stripos($tpl_main, "<head")) !== false &&
      ($head_start = stripos($tpl_main, ">", $head_start)) !== false &&
      ($head_end = stripos($tpl_main, "</head", $head_start)) !== false
    )
    { $head_start += 1;
      $env->out["forum"]["head"] .= substr($tpl_main, $head_start, $head_end - $head_start);
    }
    if
    ( ($body_start = stripos($tpl_main, "<body")) !== false &&
      ($body_start = stripos($tpl_main, ">", $body_start)) !== false &&
      ($body_end = stripos($tpl_main, "</body", $body_start)) !== false
    )
    { $body_start += 1;
      $env->out["forum"]["body"] .= substr($tpl_main, $body_start, $body_end - $body_start);
    }
  }

?>