Browse code
3.5.6 efiction version
Jimako authored on 2024/03/09 16:09:42
Showing 1 changed files
| 1 | 1 |
new file mode 100644 |
| ... | ... |
@@ -0,0 +1,47 @@ |
| 1 |
+<?php |
|
| 2 |
+ |
|
| 3 |
+// ---------------------------------------------------------------------- |
|
| 4 |
+// eFiction 3.2 |
|
| 5 |
+// Copyright (c) 2007 by Tammy Keefer |
|
| 6 |
+// Valid HTML 4.01 Transitional |
|
| 7 |
+// Based on eFiction 1.1 |
|
| 8 |
+// Copyright (C) 2003 by Rebecca Smallwood. |
|
| 9 |
+// http://efiction.sourceforge.net/ |
|
| 10 |
+// ---------------------------------------------------------------------- |
|
| 11 |
+// LICENSE |
|
| 12 |
+// |
|
| 13 |
+// This program is free software; you can redistribute it and/or |
|
| 14 |
+// modify it under the terms of the GNU General Public License (GPL) |
|
| 15 |
+// as published by the Free Software Foundation; either version 2 |
|
| 16 |
+// of the License, or (at your option) any later version. |
|
| 17 |
+// |
|
| 18 |
+// This program is distributed in the hope that it will be useful, |
|
| 19 |
+// but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
| 20 |
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
| 21 |
+// GNU General Public License for more details. |
|
| 22 |
+// |
|
| 23 |
+// To read the license please visit http://www.gnu.org/copyleft/gpl.html |
|
| 24 |
+// ---------------------------------------------------------------------- |
|
| 25 |
+ |
|
| 26 |
+if(!defined("_CHARSET")) exit( );
|
|
| 27 |
+ |
|
| 28 |
+ |
|
| 29 |
+$querystring = ""; |
|
| 30 |
+foreach($_GET as $key=>$value) {
|
|
| 31 |
+ if($key != "skin") $querystring .= "&$key=$value"; |
|
| 32 |
+} |
|
| 33 |
+if(!isset($hiddenskins)) $hiddenskins = array( ); |
|
| 34 |
+if(is_string($hiddenskins)) $hiddenskins = explode(",", $hiddenskins);
|
|
| 35 |
+ |
|
| 36 |
+$content = "<select name=\"skin\" onChange=\"document.location = '".$_SERVER['PHP_SELF']."?skin=' + this.options[this.selectedIndex].value + '$querystring';\">"; |
|
| 37 |
+$directory = opendir(_BASEDIR."skins"); |
|
| 38 |
+while($filename = readdir($directory)) {
|
|
| 39 |
+ if($filename== "." || $filename== ".." || !is_dir(_BASEDIR."skins/".$filename) || (in_array($filename, $hiddenskins) && !isADMIN)) continue; |
|
| 40 |
+ $skinlist[strtolower($filename)] = "<option value=\"$filename\"".($siteskin == $filename ? " selected" : "").">$filename</option>"; |
|
| 41 |
+} |
|
| 42 |
+ksort($skinlist); |
|
| 43 |
+foreach($skinlist as $s) { $content .= $s; }
|
|
| 44 |
+unset($skinlist, $s); |
|
| 45 |
+closedir($directory); |
|
| 46 |
+$content .= "</select>"; |
|
| 47 |
+?> |
|
| 0 | 48 |
\ No newline at end of file |