<?php/* $Id: check_lang.php,v 2.0 2003/11/18 15:20:45 nijel Exp $ */// vim: expandtab sw=4 ts=4 sts=4 foldmarker={,} fdm=marker:/*** This test script checks all the language files to ensure there is no errors* inside and nothing is displayed on screen (eg no extra no blank line).*/$failed = array();$passed = array();// 1. Do check$languageDirectory = dir('../lang');while ($name = $languageDirectory->read()) {if (strpos($name, '.inc.php')) {// 1.1 Checks parse errors and extra blank lineinclude('../lang/' . $name);header('X-Ping: pong');// 1.1 Checks "^M"$content = fread(fopen('../lang/' . $name, 'r'), filesize('../lang/' . $name));if ($pos = strpos(' ' . $content, "\015")) {$failed[] = $name;} else {$passed[] = $name;}} // end if} // end while$languageDirectory->close();// 2. Checking results$start = '';$failed_cnt = count($failed);sort($failed);$passed_cnt = count($passed);sort($passed);echo ($failed_cnt + $passed_cnt) . ' language files were checked.<br /><br />' . "\n";if ($failed_cnt) {echo ' 1. ' . $failed_cnt . ' contain(s) some "^M":<br />' . "\n";for ($i = 0; $i < $failed_cnt; $i++) {echo ' - ' . $failed[$i] . '<br />' . "\n";} // end forif ($passed_cnt) {echo '<br />' . "\n";echo ' 2. ' . $passed_cnt . ' seems right:<br />' . "\n";$start = ' ';}} // end ifif ($passed_cnt) {if (!$failed_cnt) {echo 'They all passed checkings:<br />' . "\n";}for ($i = 0; $i < $passed_cnt; $i++) {echo $start . ' - ' . $passed[$i] . '<br />' . "\n";} // end for} // end if?>