source: branches/rsr.v5.1/web/punbb/include/cache.php

Last change on this file was 1, checked in by dj3c1t, 13 years ago

import initial

File size: 7.3 KB
Line 
1<?php
2/***********************************************************************
3
4  Copyright (C) 2002-2005  Rickard Andersson (rickard@punbb.org)
5
6  This file is part of PunBB.
7
8  PunBB is free software; you can redistribute it and/or modify it
9  under the terms of the GNU General Public License as published
10  by the Free Software Foundation; either version 2 of the License,
11  or (at your option) any later version.
12
13  PunBB is distributed in the hope that it will be useful, but
14  WITHOUT ANY WARRANTY; without even the implied warranty of
15  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  GNU General Public License for more details.
17
18  You should have received a copy of the GNU General Public License
19  along with this program; if not, write to the Free Software
20  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
21  MA  02111-1307  USA
22
23************************************************************************/
24
25
26// Make sure no one attempts to run this script "directly"
27if (!defined('PUN'))
28        exit;
29
30
31//
32// If we are running pre PHP 4.2.0, we add our own implementation of var_export
33//
34if (!function_exists('var_export'))
35{
36        function var_export()
37        {
38                $args = func_get_args();
39                $indent = (isset($args[2])) ? $args[2] : '';
40
41                if (is_array($args[0]))
42                {
43                        $output = 'array ('."\n";
44
45                        foreach ($args[0] as $k => $v)
46                        {
47                                if (is_numeric($k))
48                                        $output .= $indent.'  '.$k.' => ';
49                                else
50                                        $output .= $indent.'  \''.str_replace('\'', '\\\'', str_replace('\\', '\\\\', $k)).'\' => ';
51
52                                if (is_array($v))
53                                        $output .= var_export($v, true, $indent.'  ');
54                                else
55                                {
56                                        if (gettype($v) != 'string' && !empty($v))
57                                                $output .= $v.','."\n";
58                                        else
59                                                $output .= '\''.str_replace('\'', '\\\'', str_replace('\\', '\\\\', $v)).'\','."\n";
60                                }
61                        }
62
63                        $output .= ($indent != '') ? $indent.'),'."\n" : ')';
64                }
65                else
66                        $output = $args[0];
67
68                if ($args[1] == true)
69                        return $output;
70                else
71                        echo $output;
72        }
73}
74
75
76//
77// Generate the config cache PHP script
78//
79function generate_config_cache()
80{
81        global $db;
82
83        // Get the forum config from the DB
84        $result = $db->query('SELECT * FROM '.$db->prefix.'config', true) or error('Impossible de retrouver la configuration des forums', __FILE__, __LINE__, $db->error());
85        while ($cur_config_item = $db->fetch_row($result))
86                $output[$cur_config_item[0]] = $cur_config_item[1];
87
88        // Output config as PHP code
89        $fh = @fopen(PUN_ROOT.'cache/cache_config.php', 'wb');
90        if (!$fh)
91                error('Impossible d\'écrire le fichier cache de configuration dans le répertoire cache. Veuillez vous assurer que PHP a l\'accÚs en écrire au répertoire \'cache\'', __FILE__, __LINE__);
92
93        fwrite($fh, '<?php'."\n\n".'define(\'PUN_CONFIG_LOADED\', 1);'."\n\n".'$pun_config = '.var_export($output, true).';'."\n\n".'?>');
94
95        fclose($fh);
96}
97
98
99//
100// Generate the bans cache PHP script
101//
102function generate_bans_cache()
103{
104        global $db;
105
106        // Get the ban list from the DB
107        $result = $db->query('SELECT * FROM '.$db->prefix.'bans', true) or error('Impossible de retrouver la liste de bannissements', __FILE__, __LINE__, $db->error());
108
109        $output = array();
110        while ($cur_ban = $db->fetch_assoc($result))
111                $output[] = $cur_ban;
112
113        // Output ban list as PHP code
114        $fh = @fopen(PUN_ROOT.'cache/cache_bans.php', 'wb');
115        if (!$fh)
116                error('Impossible d\'écrire le fichier cache de bannissements dans le répertoire cache. Veuillez vous assurer que PHP a l\'accÚs en écrire au répertoire \'cache\'', __FILE__, __LINE__);
117
118        fwrite($fh, '<?php'."\n\n".'define(\'PUN_BANS_LOADED\', 1);'."\n\n".'$pun_bans = '.var_export($output, true).';'."\n\n".'?>');
119
120        fclose($fh);
121}
122
123
124//
125// Generate the ranks cache PHP script
126//
127function generate_ranks_cache()
128{
129        global $db;
130
131        // Get the rank list from the DB
132        $result = $db->query('SELECT * FROM '.$db->prefix.'ranks ORDER BY min_posts', true) or error('Impossible de retrouver la liste des rangs utilisateurs', __FILE__, __LINE__, $db->error());
133
134        $output = array();
135        while ($cur_rank = $db->fetch_assoc($result))
136                $output[] = $cur_rank;
137
138        // Output ranks list as PHP code
139        $fh = @fopen(PUN_ROOT.'cache/cache_ranks.php', 'wb');
140        if (!$fh)
141                error('Impossible d\'écrire le fichier de cache de rangs utilisateurs dans le répertoire cache. Veuillez vous assurer que PHP a l\'accÚs en écrire au répertoire \'cache\'', __FILE__, __LINE__);
142
143        fwrite($fh, '<?php'."\n\n".'define(\'PUN_RANKS_LOADED\', 1);'."\n\n".'$pun_ranks = '.var_export($output, true).';'."\n\n".'?>');
144
145        fclose($fh);
146}
147
148
149//
150// Generate quickjump cache PHP scripts
151//
152function generate_quickjump_cache($group_id = false)
153{
154        global $db, $lang_common, $pun_user;
155
156        // If a group_id was supplied, we generate the quickjump cache for that group only
157        if ($group_id !== false)
158                $groups[0] = $group_id;
159        else
160        {
161                // A group_id was now supplied, so we generate the quickjump cache for all groups
162                $result = $db->query('SELECT g_id FROM '.$db->prefix.'groups') or error('Impossible de retrouver la liste des groupes utilisateurs', __FILE__, __LINE__, $db->error());
163                $num_groups = $db->num_rows($result);
164
165                for ($i = 0; $i < $num_groups; ++$i)
166                        $groups[] = $db->result($result, $i);
167        }
168
169        // Loop through the groups in $groups and output the cache for each of them
170        while (list(, $group_id) = @each($groups))
171        {
172                // Output quickjump as PHP code
173                $fh = @fopen(PUN_ROOT.'cache/cache_quickjump_'.$group_id.'.php', 'wb');
174                if (!$fh)
175                        error('Impossible d\'écrire le fichier cache de saut rapide de forums dans le répertoire cache. Veuillez vous assurer que PHP a l\'accÚs en écrire au répertoire \'cache\'', __FILE__, __LINE__);
176
177                $output = '<?php'."\n\n".'if (!defined(\'PUN\')) exit;'."\n".'define(\'PUN_QJ_LOADED\', 1);'."\n\n".'?>';
178                $output .= "\t\t\t\t".'<form id="qjump" method="get" action="viewforum.php">'."\n\t\t\t\t\t".'<div><label><?php echo $lang_common[\'Jump to\'] ?>'."\n\n\t\t\t\t\t".'<br /><select name="id" onchange="window.location=(\'viewforum.php?id=\'+this.options[this.selectedIndex].value)">'."\n";
179
180
181                $result = $db->query('SELECT c.id AS cid, c.cat_name, f.id AS fid, f.forum_name, f.redirect_url FROM '.$db->prefix.'categories AS c INNER JOIN '.$db->prefix.'forums AS f ON c.id=f.cat_id LEFT JOIN '.$db->prefix.'forum_perms AS fp ON (fp.forum_id=f.id AND fp.group_id='.$group_id.') WHERE fp.read_forum IS NULL OR fp.read_forum=1 ORDER BY c.disp_position, c.id, f.disp_position', true) or error('Impossible de retrouver la liste des catégories et des forums', __FILE__, __LINE__, $db->error());
182
183                $cur_category = 0;
184                while ($cur_forum = $db->fetch_assoc($result))
185                {
186                        if ($cur_forum['cid'] != $cur_category) // A new category since last iteration?
187                        {
188                                if ($cur_category)
189                                        $output .= "\t\t\t\t\t\t".'</optgroup>'."\n";
190
191                                $output .= "\t\t\t\t\t\t".'<optgroup label="'.pun_htmlspecialchars($cur_forum['cat_name']).'">'."\n";
192                                $cur_category = $cur_forum['cid'];
193                        }
194
195                        $redirect_tag = ($cur_forum['redirect_url'] != '') ? ' &gt;&gt;&gt;' : '';
196                        $output .= "\t\t\t\t\t\t\t".'<option value="'.$cur_forum['fid'].'"<?php echo ($forum_id == '.$cur_forum['fid'].') ? \' selected="selected"\' : \'\' ?>>'.pun_htmlspecialchars($cur_forum['forum_name']).$redirect_tag.'</option>'."\n";
197                }
198
199                $output .= "\t\t\t\t\t".'</optgroup>'."\n\t\t\t\t\t".'</select>'."\n\t\t\t\t\t".'<input type="submit" value="<?php echo $lang_common[\'Go\'] ?>" accesskey="g" />'."\n\t\t\t\t\t".'</label></div>'."\n\t\t\t\t".'</form>'."\n";
200
201                fwrite($fh, $output);
202
203                fclose($fh);
204        }
205}
Note: See TracBrowser for help on using the repository browser.