View file wap_book/wap_book_v_1.2/wap_book.php

<?php

$five = 50;            // число символов на странице
$dir = './book/';      // папка с текстов. файлами
$tranc = 1;            // поменяйте на 0 если не хотите использовать встроенный перекодировщик
$title = 'библиотека'; // заголовок

header("Content-type: text/vnd.wap.wml;charset=utf-8");
$ret = "<?xml version=\"1.0\"?><!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\"". " \"http://www.wapforum.org/DTD/wml_1.1.xml\"><wml><card title=\"$title\">";

$open_dir=opendir($dir);
while (false!==($file=readdir($open_dir)))
{
if (is_file("$dir/$file")) $f[]=$file;
}
closedir($open_dir);


$count = sizeof($f);

if(!isset($_GET['id']))
  {
  for( $i = 0;  $i < $count ; $i++ )
     {
     $ret .= '<a href="wap_book.php?id='.$i.'">'.substr($f[$i],0,-4).'</a><br/>';
     }
  }
else

{

$id = $_GET['id'];
if(!array_key_exists($id,$f)) header("Location: wap_book.php");

if(!isset($_GET['p']))$p=1; else $p = $_GET['p'];
$file_name = $dir.$f[$id];
$file= join('',file($file_name));
$obsum = $p * $five;
$nasum = $obsum - $five;
$end='0';

if(!isset($_GET['go']))
  {

  for($i=$nasum; $i<$obsum; $i++)
     {
     if(!isset($file[$i])) $end='1'; else $ret .=$file[$i];
     }

  $ret .= '<br/>';

  if($p == '1')  $ret .= ''; else {$ret .= '<a href="wap_book.php?id='.$id.'&amp;p='.($p-1).'">назад</a>';$ret .= ' '; }
  if($end=='1')  $ret .= ''; else {$ret .= '<a href="wap_book.php?id='.$id.'&amp;p='.($p+1).'">далее</a>';}

  $ret .= '<br/><a href="wap_book.php?go=1&amp;id='.$id.'">перейти</a>';
  $ret .= '<br/><a href="wap_book.php">в начало</a>';
  }
  else $ret .='
  введите номер страницы от 1 до '.(ceil(strlen($file)/$five)).'<br/><input name="code" format="*N"  maxlength="10" title="code"/>
  <anchor title="go">перейти<go href="wap_book.php" method="get">
  <postfield name="p" value="$(code)"/>
  <postfield name="id" value="'.$id.'"/>
  </go></anchor>';

}

$ret .= '</card></wml>';

function unicode($string)
{
$rus=array('А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я',
           'а','б','в','г','д','е','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я');
$string = str_replace('Ё','&#1025;',$string);
$string = str_replace('ё','&#1105;',$string);
for($i=0; $i<count($rus); $i++)
   {
   $s=1040;
   $d = '&#'.($s+$i).';';
   $string = str_replace($rus[$i],$d,$string);
   }
return $string;
}

if($tranc==0) echo $ret; else echo unicode($ret);

?>