Mercurial > SimpleWebPresenter

annotate flag.php @ 69:dd4ddedca4c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add convenience header ScriptIncludeCache Split CacheTimeCheck and FileCacheSet
author Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
date Thu, 11 Oct 2012 23:32:14 +0200
parents 0f1e08cdfff2
children fae4322d6c29
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
1 <?php
51
2cfea6e84694 Documentation update.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 39
diff changeset
2 /**
2cfea6e84694 Documentation update.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 39
diff changeset
3 * @file
2cfea6e84694 Documentation update.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 39
diff changeset
4 * Displays a flag, in an active or disabled state, depending on parameters
2cfea6e84694 Documentation update.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 39
diff changeset
5 */
10
1ac66bef193a Updated to new xml format.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 2
diff changeset
6 define(DEBUG,0);
1ac66bef193a Updated to new xml format.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 2
diff changeset
7
38
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
8 include_once 'CacheTimeCheck.inc';
2
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
9
69
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 56
diff changeset
10 $scriptCache = ScriptIncludeCache::instance(__FILE__);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 56
diff changeset
11 $scriptCache->includeOnce('Language.inc');
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 56
diff changeset
12 $scriptCache->includeOnce('common-functions.inc');
2
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
13
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
14 $active = $_GET['active'];
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
15 $lang = $_GET['lang'];
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
16
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
17 if(!$lang) {
38
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
18 $lang = "no";
55
88482c6636c4 Yet another fix for failed merge.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 51
diff changeset
19 $langs = Language::accepted();
2
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
20 foreach ($langs as $l => $val) {
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
21 if (file_exists($l)) {
38
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
22 $lang = $l;
2
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
23 break;
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
24 }
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
25 }
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
26 }
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
27
38
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
28 $name = "../img/flag-${lang}";
2
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
29 if ($active)
38
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
30 $name .= "-active";
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
31 $name .= ".png";
2
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
32
69
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 56
diff changeset
33 $cache = new CacheTimeCheck($name);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 56
diff changeset
34 $cache->addParent($scriptCache);
38
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
35 $cache->cache_time($name);
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
36 $cache->CheckHttpModified();
2
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
37
38
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
38 $flag = loadFile($name);
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
39
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
40 if (floatval($flag) < 0) {
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
41 errorPage('Resource not found', 404);
2
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
42 }
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
43 else {
25
da86ec2814e2 Whitespace cleanup.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 10
diff changeset
44 header("Content-Type: image/png");
2
6d420f2a1d91 Add flag generator.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
45 print $flag;
38
42533600214b Rename cache_check.inc to CacheTimeCheck.inc.
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents: 25
diff changeset
46 }