Line # Revision Author
1 8 ahitrov@rambler.ru <!-- Структура сайта -->
2
3 <fieldset>
4 <legend>Очистить кэш</legend>
5
6 % if ($removed) {
7 <script>alert('Кэш очищен!');</script>
8 % }
9
10 <div align="center">
11 <input type="submit" onClick="javascript: location.search='cache=remove'" class="input_btn" style="width:60%; height:30px;" name="cache" value="Очистить кэш">
12 </div>
13
14 </fieldset>
15
16 <%args>
17
18 $cache => undef
19
20 </%args>
21 <%init>
22
23 my $removed;
24 if ($cache eq 'remove') {
25 # Нету нормального API для удаления всего кэша, есть только для текущего namespace
26 # Поэтому приходится немного хачить... :)
27
28 my $backend = $m->cache->{_Backend};
29 my @namespaces = $backend->get_namespaces();
30 foreach (@namespaces) {
31 $backend->delete_namespace($_);
32 }
33 $removed = 1;
34 }
35
36 </%init>