corrade-http-templates – Blame information for rev 17
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
15 | eva | 1 | <?php |
2 | |||
3 | ########################################################################### |
||
4 | ## Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3 ## |
||
5 | ########################################################################### |
||
6 | function atomized_put_contents($file, $data) { |
||
7 | $fp = fopen($file, "w+"); |
||
8 | if (flock($fp, LOCK_EX)) { |
||
9 | fwrite($fp, $data); |
||
10 | fflush($fp); |
||
11 | flock($fp, LOCK_UN); |
||
12 | } |
||
13 | fclose($fp); |
||
14 | } |
||
15 | ########################################################################### |
||
16 | ## Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3 ## |
||
17 | ########################################################################### |
||
18 | function atomized_get_contents($file) { |
||
19 | $fp = fopen($file, "r+"); |
||
20 | $ct = ''; |
||
21 | if (flock($fp, LOCK_SH)) { |
||
22 | if (filesize($file)) { |
||
23 | $ct = fread($fp, filesize($file)); |
||
24 | } |
||
25 | flock($fp, LOCK_UN); |
||
26 | } |
||
27 | fclose($fp); |
||
28 | return $ct; |
||
29 | } |
||
30 | |||
31 | ########################################################################### |
||
32 | ## Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3 ## |
||
33 | ########################################################################### |
||
34 | function wasKeyValueGet($key, $data) { |
||
35 | return array_reduce( |
||
36 | explode( |
||
37 | "&", |
||
38 | $data |
||
39 | ), |
||
40 | function($o, $p) use($key) { |
||
41 | return array_reduce( |
||
42 | explode( |
||
43 | "=", |
||
44 | $p |
||
45 | ), |
||
46 | function($q, $r) use($key) { |
||
47 | if($q === $key) return $r; |
||
48 | }, |
||
49 | $key |
||
50 | ). $o; |
||
51 | } |
||
52 | ); |
||
53 | } |
||
54 | |||
55 | ########################################################################### |
||
56 | ## Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3 ## |
||
57 | ########################################################################### |
||
58 | function wasArrayStride($a, $s) { |
||
59 | return array_filter($a, |
||
60 | function($e, $i) use($s) { |
||
61 | return $i % $s == 0; |
||
62 | }, |
||
63 | ARRAY_FILTER_USE_BOTH |
||
64 | ); |
||
65 | } |
||
66 | |||
67 | ########################################################################### |
||
68 | ## Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3 ## |
||
69 | ########################################################################### |
||
70 | function wasArrayToCSV($a) { |
||
71 | return implode( |
||
72 | ',', |
||
73 | array_map( |
||
74 | function($o) { |
||
75 | $o = str_replace('"', '""', $o); |
||
76 | switch( |
||
77 | (strpos($o, ' ') !== FALSE) || |
||
78 | (strpos($o, '"') !== FALSE) || |
||
79 | (strpos($o, ',') !== FALSE) || |
||
80 | (strpos($o, '\r') !== FALSE) || |
||
81 | (strpos($o, '\n') !== FALSE) |
||
82 | ) |
||
83 | { |
||
84 | case TRUE: |
||
85 | return '"' . $o . '"'; |
||
86 | default: |
||
87 | return $o; |
||
88 | } |
||
89 | }, |
||
90 | $a |
||
91 | ) |
||
92 | ); |
||
93 | } |
||
94 | |||
95 | |||
96 |