cvs: phpweb / my.php

goba Sat Apr 26 10:24:54 2003 EDT Modified files: /phpweb my.php Log: - Add CVS id to the top, so we know what version a mirror (and the main site) runs, in case of bugreports - Move the ugly copy-paste table to an array and some genaretion code - Display directly the browser's Accept-language settings, as discussed publicy with Andrew Index: phpweb/my.php diff -u phpweb/my.php:1.9 phpweb/my.php:1.10 --- phpweb/my.php:1.9 Thu Apr 24 07:54:08 2003 +++ phpweb/my.php Sat Apr 26 10:24:54 2003 @@ -1,5 +1,7 @@ <?php -include_once 'prepend.inc'; +/* $Id: my.php,v 1.10 2003/04/26 14:24:54 goba Exp $ */ + +include_once "prepend.inc"; // Languages array copy and options to list $langs = $LANGUAGES; $options = array(); @@ -73,26 +75,33 @@ </p> <table border="0" cellpadding="3" cellspacing="2"> - <tr> - <td bgcolor="#dddddd">Your preferred language</td> - <td bgcolor="#eeeeee"><?php echo $langpref; ?></td> - </tr> - <tr> - <td bgcolor="#dddddd">Last seen language</td> - <td bgcolor="#eeeeee"><?php echo (isset($_COOKIE['LAST_LANG']) ? $_COOKIE['LAST_LANG'] : "None"); ?></td> - </tr> - <tr> - <td bgcolor="#dddddd">Your Accept-Language browser setting (parsed)</td> - <td bgcolor="#eeeeee"><?php echo join(", ", array_unique ($UA_LANGS)); ?></td> - </tr> - <tr> - <td bgcolor="#dddddd">The mirror's default language</td> - <td bgcolor="#eeeeee"><?php echo default_language(); ?></td> - </tr> - <tr> - <td bgcolor="#dddddd">Default</td> - <td bgcolor="#eeeeee">en</td> - </tr> +<?php + +// Data for the language settings table +$langinfo = array( + + "Your preferred language" => + $langpref, + + "Last seen language" => + (isset($_COOKIE['LAST_LANG']) ? $_COOKIE['LAST_LANG'] : "None"), + + "Your Accept-Language browser setting" => + $_SERVER['HTTP_ACCEPT_LANGUAGE'], + + "The mirror's default language" => + default_language(), + + "Default" => "en" +); + +// Write a row for all settings +foreach ($langinfo as $lin => $lid) { + echo " <tr>\n <td bgcolor=\"#dddddd\">" . $lin . "</td>\n"; + echo " <td bgcolor=\"#eeeeee\">" . $lid . "</td>\n </tr>\n"; +} + +?> </table> <p>