| 1 | <?php |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | |
|---|
| 5 | |
|---|
| 6 | |
|---|
| 7 | |
|---|
| 8 | |
|---|
| 9 | |
|---|
| 10 | |
|---|
| 11 | |
|---|
| 12 | |
|---|
| 13 | |
|---|
| 14 | |
|---|
| 15 | |
|---|
| 16 | |
|---|
| 17 | |
|---|
| 18 | |
|---|
| 19 | |
|---|
| 20 | |
|---|
| 21 | |
|---|
| 22 | |
|---|
| 23 | |
|---|
| 24 | |
|---|
| 25 | |
|---|
| 26 | function xinha_pass_to_php_backend($Data, $KeyLocation = 'Xinha:BackendKey', $ReturnPHP = FALSE) |
|---|
| 27 | { |
|---|
| 28 | |
|---|
| 29 | $bk = array(); |
|---|
| 30 | $bk['data'] = serialize($Data); |
|---|
| 31 | |
|---|
| 32 | @session_start(); |
|---|
| 33 | if(!isset($_SESSION[$KeyLocation])) |
|---|
| 34 | { |
|---|
| 35 | $_SESSION[$KeyLocation] = uniqid('Key_'); |
|---|
| 36 | } |
|---|
| 37 | |
|---|
| 38 | $bk['session_name'] = session_name(); |
|---|
| 39 | $bk['key_location'] = $KeyLocation; |
|---|
| 40 | $bk['hash'] = |
|---|
| 41 | function_exists('sha1') ? |
|---|
| 42 | sha1($_SESSION[$KeyLocation] . $bk['data']) |
|---|
| 43 | : md5($_SESSION[$KeyLocation] . $bk['data']); |
|---|
| 44 | |
|---|
| 45 | |
|---|
| 46 | |
|---|
| 47 | |
|---|
| 48 | |
|---|
| 49 | |
|---|
| 50 | $backend_data = array(); |
|---|
| 51 | foreach($bk as $k => $v) |
|---|
| 52 | { |
|---|
| 53 | $backend_data["backend_data[$k]"] = $v; |
|---|
| 54 | } |
|---|
| 55 | |
|---|
| 56 | |
|---|
| 57 | |
|---|
| 58 | $backend_data[session_name()] = session_id(); |
|---|
| 59 | |
|---|
| 60 | if($ReturnPHP) |
|---|
| 61 | { |
|---|
| 62 | return array('backend_data' => $backend_data); |
|---|
| 63 | } |
|---|
| 64 | else |
|---|
| 65 | { |
|---|
| 66 | echo 'backend_data = ' . xinha_to_js($backend_data) . "; \n"; |
|---|
| 67 | } |
|---|
| 68 | } |
|---|
| 69 | |
|---|
| 70 | |
|---|
| 71 | |
|---|
| 72 | function xinha_to_js($var, $tabs = 0) |
|---|
| 73 | { |
|---|
| 74 | if(is_numeric($var)) |
|---|
| 75 | { |
|---|
| 76 | return $var; |
|---|
| 77 | } |
|---|
| 78 | |
|---|
| 79 | if(is_string($var)) |
|---|
| 80 | { |
|---|
| 81 | return "'" . xinha_js_encode($var) . "'"; |
|---|
| 82 | } |
|---|
| 83 | |
|---|
| 84 | if(is_bool($var)) |
|---|
| 85 | { |
|---|
| 86 | return $var ? 'true': 'false'; |
|---|
| 87 | } |
|---|
| 88 | |
|---|
| 89 | if(is_array($var)) |
|---|
| 90 | { |
|---|
| 91 | $useObject = false; |
|---|
| 92 | foreach(array_keys($var) as $k) { |
|---|
| 93 | if(!is_numeric($k)) $useObject = true; |
|---|
| 94 | } |
|---|
| 95 | $js = array(); |
|---|
| 96 | foreach($var as $k => $v) |
|---|
| 97 | { |
|---|
| 98 | $i = ""; |
|---|
| 99 | if($useObject) { |
|---|
| 100 | if(preg_match('#^[a-zA-Z]+[a-zA-Z0-9]*$#', $k)) { |
|---|
| 101 | $i .= "$k: "; |
|---|
| 102 | } else { |
|---|
| 103 | $i .= "'$k': "; |
|---|
| 104 | } |
|---|
| 105 | } |
|---|
| 106 | $i .= xinha_to_js($v, $tabs + 1); |
|---|
| 107 | $js[] = $i; |
|---|
| 108 | } |
|---|
| 109 | if($useObject) { |
|---|
| 110 | $ret = "{\n" . xinha_tabify(implode(",\n", $js), $tabs) . "\n}"; |
|---|
| 111 | } else { |
|---|
| 112 | $ret = "[\n" . xinha_tabify(implode(",\n", $js), $tabs) . "\n]"; |
|---|
| 113 | } |
|---|
| 114 | return $ret; |
|---|
| 115 | } |
|---|
| 116 | |
|---|
| 117 | return 'null'; |
|---|
| 118 | } |
|---|
| 119 | |
|---|
| 120 | |
|---|
| 121 | |
|---|
| 122 | function xinha_js_encode($string) |
|---|
| 123 | { |
|---|
| 124 | static $strings = "\\,\",',%,&,<,>,{,},@,\n,\r"; |
|---|
| 125 | |
|---|
| 126 | if(!is_array($strings)) |
|---|
| 127 | { |
|---|
| 128 | $tr = array(); |
|---|
| 129 | foreach(explode(',', $strings) as $chr) |
|---|
| 130 | { |
|---|
| 131 | $tr[$chr] = sprintf('\x%02X', ord($chr)); |
|---|
| 132 | } |
|---|
| 133 | $strings = $tr; |
|---|
| 134 | } |
|---|
| 135 | |
|---|
| 136 | return strtr($string, $strings); |
|---|
| 137 | } |
|---|
| 138 | |
|---|
| 139 | |
|---|
| 140 | |
|---|
| 141 | |
|---|
| 142 | |
|---|
| 143 | |
|---|
| 144 | |
|---|
| 145 | |
|---|
| 146 | function xinha_read_passed_data() |
|---|
| 147 | { |
|---|
| 148 | if(isset($_REQUEST['backend_data']) && is_array($_REQUEST['backend_data'])) |
|---|
| 149 | { |
|---|
| 150 | $bk = $_REQUEST['backend_data']; |
|---|
| 151 | session_name($bk['session_name']); |
|---|
| 152 | @session_start(); |
|---|
| 153 | if(!isset($_SESSION[$bk['key_location']])) return NULL; |
|---|
| 154 | |
|---|
| 155 | if($bk['hash'] === |
|---|
| 156 | function_exists('sha1') ? |
|---|
| 157 | sha1($_SESSION[$bk['key_location']] . $bk['data']) |
|---|
| 158 | : md5($_SESSION[$bk['key_location']] . $bk['data'])) |
|---|
| 159 | { |
|---|
| 160 | return unserialize(ini_get('magic_quotes_gpc') ? stripslashes($bk['data']) : $bk['data']); |
|---|
| 161 | } |
|---|
| 162 | } |
|---|
| 163 | |
|---|
| 164 | return NULL; |
|---|
| 165 | } |
|---|
| 166 | |
|---|
| 167 | |
|---|
| 168 | |
|---|
| 169 | |
|---|
| 170 | |
|---|
| 171 | function xinha_passed_data_querystring() |
|---|
| 172 | { |
|---|
| 173 | $qs = array(); |
|---|
| 174 | if(isset($_REQUEST['backend_data']) && is_array($_REQUEST['backend_data'])) |
|---|
| 175 | { |
|---|
| 176 | foreach($_REQUEST['backend_data'] as $k => $v) |
|---|
| 177 | { |
|---|
| 178 | $v = ini_get('magic_quotes_gpc') ? stripslashes($v) : $v; |
|---|
| 179 | $qs[] = "backend_data[" . rawurlencode($k) . "]=" . rawurlencode($v); |
|---|
| 180 | } |
|---|
| 181 | } |
|---|
| 182 | |
|---|
| 183 | $qs[] = session_name() . '=' . session_id(); |
|---|
| 184 | return implode('&', $qs); |
|---|
| 185 | } |
|---|
| 186 | |
|---|
| 187 | |
|---|
| 188 | |
|---|
| 189 | function xinha_tabify($text, $tabs) |
|---|
| 190 | { |
|---|
| 191 | if($text) |
|---|
| 192 | { |
|---|
| 193 | return str_repeat(" ", $tabs) . preg_replace('/\n(.)/', "\n" . str_repeat(" ", $tabs) . "\$1", $text); |
|---|
| 194 | } |
|---|
| 195 | } |
|---|
| 196 | |
|---|
| 197 | |
|---|
| 198 | function upload_max_filesize_kb() |
|---|
| 199 | { |
|---|
| 200 | $val = ini_get('upload_max_filesize'); |
|---|
| 201 | $val = trim($val); |
|---|
| 202 | $last = strtolower($val{strlen($val)-1}); |
|---|
| 203 | switch($last) |
|---|
| 204 | { |
|---|
| 205 | |
|---|
| 206 | case 'g': |
|---|
| 207 | $val *= 1024; |
|---|
| 208 | case 'm': |
|---|
| 209 | $val *= 1024; |
|---|
| 210 | } |
|---|
| 211 | return $val; |
|---|
| 212 | } |
|---|
| 213 | ?> |
|---|