Mercurial > hg > mgallery

annotate mgallery.inc.php @ 298:cf166dcc6e77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handle arrays in some way (not useful way, tho.) in config dumping.
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 03 Aug 2019 06:18:18 +0300
parents 77f85b1f35f2
children 6bb434968623
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 <?php
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
2 //
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
3 // Yet Another Image Gallery
69
7777887bc515 Update header/copyright blurbs.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
4 // -- Common functions and data include
7777887bc515 Update header/copyright blurbs.
Matti Hamalainen <ccr@tnsp.org>
parents: 59
diff changeset
5 // Programmed and designed by Matti 'ccr' Hamalainen <ccr@tnsp.org>
272
007921f59d98 Bump copyright version.
Matti Hamalainen <ccr@tnsp.org>
parents: 267
diff changeset
6 // (C) Copyright 2015-2019 Tecnic Software productions (TNSP)
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
7 //
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
8
295
df66529eff47 Bump version.
Matti Hamalainen <ccr@tnsp.org>
parents: 294
diff changeset
9 $mgProgVersion = "v0.9.10";
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
10 $mgProgInfo = "Programmed by Matti 'ccr' Hamalainen";
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
11 $mgProgEmail = "<ccr@tnsp.org>";
272
007921f59d98 Bump copyright version.
Matti Hamalainen <ccr@tnsp.org>
parents: 267
diff changeset
12 $mgProgCopyright = "2015-2019 Tecnic Software productions (TNSP)";
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
13
297
77f85b1f35f2 Improve configuration file handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 295
diff changeset
14 $mgProgConfigFile = "mgallery.cfg";
77f85b1f35f2 Improve configuration file handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 295
diff changeset
15
274
b1d004a6d3f1 Remove obsolete debug setting.
Matti Hamalainen <ccr@tnsp.org>
parents: 272
diff changeset
16 $mgalDebug = FALSE;
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
17
275
bc7bda1d1410 Comments and cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 274
diff changeset
18
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
19 //
106
a3b8cd4183e6 Change {album,image}_navigation setting to *_flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 105
diff changeset
20 // Navigation control defines
a3b8cd4183e6 Change {album,image}_navigation setting to *_flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 105
diff changeset
21 //
136
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
22 define("MGF_JAVASCRIPT" , 0x01);
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
23 define("MGF_BREADCRUMBS" , 0x10);
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
24 define("MGF_CAPTIONS" , 0x20);
106
a3b8cd4183e6 Change {album,image}_navigation setting to *_flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 105
diff changeset
25
a3b8cd4183e6 Change {album,image}_navigation setting to *_flags.
Matti Hamalainen <ccr@tnsp.org>
parents: 105
diff changeset
26 //
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
27 // Constants for different value types
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
28 //
136
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
29 define("MG_STR" , 1);
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
30 define("MG_INT" , 2);
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
31 define("MG_DVA" , 3);
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
32 define("MG_BOOL" , 4);
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
33 define("MG_FLAGS" , 5);
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
34 define("MG_DATE" , 6);
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
35
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
36
136
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
37 define("yes" , 1);
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
38 define("no" , 0);
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
39
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
40
114
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
41 $mgGFlags = [
136
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
42 "javascript" => MGF_JAVASCRIPT,
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
43 "breadcrumbs" => MGF_BREADCRUMBS,
b1134ff9256b Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 131
diff changeset
44 "captions" => MGF_CAPTIONS,
114
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
45 ];
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
46
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
47
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
48 function mgPathName($path)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
49 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
50 $tmp = mgCleanPathArray(TRUE, 0, func_num_args(), func_get_args());
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
51 if (count($tmp) > 0)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
52 return implode("/", array_splice($tmp, 0, -1))."/";
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
53 else
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
54 return $path;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
55 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
56
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
57 //
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
58 // Configuration settings and their default values
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
59 //
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
60 $mgDefaults = [
130
f825d644cf7a Implement new config setting "timezone" for specifying the timezone used for date/timestamp interpretation.
Matti Hamalainen <ccr@tnsp.org>
parents: 127
diff changeset
61 "timezone" => [MG_STR, NULL],
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
62
141
18061527d1cd Reorder some settings in configuration data.
Matti Hamalainen <ccr@tnsp.org>
parents: 137
diff changeset
63 "clean_urls" => [MG_BOOL, FALSE],
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
64 "base_path" => [MG_STR, mgPathName(mgRealPath($_SERVER["SCRIPT_FILENAME"]))],
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
65 "base_url" => [MG_STR, mgPathName($_SERVER["PHP_SELF"])],
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
66 "image_url" => [MG_STR, mgPathName($_SERVER["PHP_SELF"])],
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
67 "mgallery_php" => [MG_STR, "mgallery.php"],
250
3af3b3f50cb0 Add settings for med_format and tn_format (currently allowed values are
Matti Hamalainen <ccr@tnsp.org>
parents: 241
diff changeset
68 "format_exts" => [MG_STR, "\.jpg|\.png|\.gif|\.jpeg|\.webp"],
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
69 "captions_file" => [MG_STR, "captions.txt"],
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
70 "header_file" => [MG_STR, "header.txt"],
267
108b354ea2ea Rename default gallery info file from "gallery.info" to "mgallery.info".
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
71 "info_file" => [MG_STR, "mgallery.info"],
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
72 "cache_file" => [MG_STR, ".mgallery.cache"],
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
73
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
74 "cover_images" => [MG_BOOL, TRUE],
141
18061527d1cd Reorder some settings in configuration data.
Matti Hamalainen <ccr@tnsp.org>
parents: 137
diff changeset
75 "album_icon" => [MG_STR, "album_sm.png"],
18061527d1cd Reorder some settings in configuration data.
Matti Hamalainen <ccr@tnsp.org>
parents: 137
diff changeset
76
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
77 "title_prefix" => [MG_STR, ""],
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
78 "title_sep" => [MG_STR, " - "],
224
77e72455c99f "Powered by MGallery" ..
Matti Hamalainen <ccr@tnsp.org>
parents: 219
diff changeset
79 "page_info" => [MG_STR, "Powered by <b>MGallery ".$mgProgVersion."</b> &copy; Copyright ".$mgProgCopyright],
151
4e25150aa868 Change js_path configuration setting to js_file.
Matti Hamalainen <ccr@tnsp.org>
parents: 150
diff changeset
80
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
81 "css" => [MG_STR, NULL],
151
4e25150aa868 Change js_path configuration setting to js_file.
Matti Hamalainen <ccr@tnsp.org>
parents: 150
diff changeset
82 "js_file" => [MG_STR, NULL],
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
83 "urchin_file" => [MG_STR, FALSE],
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
84
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
85 "global_flags" => [MG_FLAGS, MGF_JAVASCRIPT | MGF_BREADCRUMBS | MGF_CAPTIONS, &$mgGFlags],
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
86 "image_flags" => [MG_FLAGS, MGF_JAVASCRIPT | MGF_BREADCRUMBS, &$mgGFlags],
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
87 "album_flags" => [MG_FLAGS, MGF_JAVASCRIPT | MGF_BREADCRUMBS, &$mgGFlags],
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
88
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
89 "tn_path" => [MG_STR, "tn/"],
185
cb7019690a73 Separate medium image and thumbnail directories / handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 171
diff changeset
90 "med_path" => [MG_STR, "med/"],
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
91
294
38f510786d88 Switch default tn/med formats back to JPEG.
Matti Hamalainen <ccr@tnsp.org>
parents: 293
diff changeset
92 "tn_format" => [MG_STR, "jpeg"],
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
93 "tn_width" => [MG_INT, 140], // In pixels, applies as bounding box for w/h
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
94 "tn_height" => [MG_INT, 100],
289
13cff35dfbec Change default thumbnail/medium formats from JPEG to WEBP.
Matti Hamalainen <ccr@tnsp.org>
parents: 285
diff changeset
95 "tn_quality" => [MG_INT, 90], // JPEG/WEBP quality percent
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
96
294
38f510786d88 Switch default tn/med formats back to JPEG.
Matti Hamalainen <ccr@tnsp.org>
parents: 293
diff changeset
97 "med_format" => [MG_STR, "jpeg"],
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
98 "med_width" => [MG_INT, 960],
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
99 "med_height" => [MG_INT, 640],
162
3c2674dbd185 Increase the generated mid- and thumbnail images JPEG quality slightly.
Matti Hamalainen <ccr@tnsp.org>
parents: 161
diff changeset
100 "med_quality" => [MG_INT, 90],
195
f3098855ad58 Add debug option setting.
Matti Hamalainen <ccr@tnsp.org>
parents: 185
diff changeset
101
290
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
102 "backend" => [MG_STR, "php"],
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
103 "sql_db" => [MG_STR, NULL],
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
104 "sql_username" => [MG_STR, ""],
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
105 "sql_password" => [MG_STR, ""],
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
106 "sql_options" => [MG_STR, []],
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
107 ];
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
108
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
109
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
110 function mgDebug($msg)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
111 {
274
b1d004a6d3f1 Remove obsolete debug setting.
Matti Hamalainen <ccr@tnsp.org>
parents: 272
diff changeset
112 global $mgalDebug;
b1d004a6d3f1 Remove obsolete debug setting.
Matti Hamalainen <ccr@tnsp.org>
parents: 272
diff changeset
113 if ($mgalDebug)
b1d004a6d3f1 Remove obsolete debug setting.
Matti Hamalainen <ccr@tnsp.org>
parents: 272
diff changeset
114 {
275
bc7bda1d1410 Comments and cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 274
diff changeset
115 echo "<p>MGAL[debug]: ".htmlspecialchars($msg)."</p>";
274
b1d004a6d3f1 Remove obsolete debug setting.
Matti Hamalainen <ccr@tnsp.org>
parents: 272
diff changeset
116 error_log("MGAL[debug]: ".$msg);
b1d004a6d3f1 Remove obsolete debug setting.
Matti Hamalainen <ccr@tnsp.org>
parents: 272
diff changeset
117 }
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
118 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
119
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
120
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
121 function mgFatal($msg)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
122 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
123 die("MGAL[fatal]: ".$msg);
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
124 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
125
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
126
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
127 function mgError($msg)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
128 {
275
bc7bda1d1410 Comments and cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 274
diff changeset
129 error_log("MGAL[error]: ".$msg);
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
130 return FALSE;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
131 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
132
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
133
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
134 function mgCArg($index, $clip = FALSE)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
135 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
136 global $argc, $argv;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
137 if ($index < $argc)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
138 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
139 $str = $argv[$index];
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
140 return ($clip !== FALSE) ? substr($str, 0, $clip) : $str;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
141 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
142 else
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
143 return FALSE;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
144 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
145
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
146
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
147 function mgCArgLC($index, $clip = FALSE)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
148 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
149 global $argc, $argv;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
150 if ($index < $argc)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
151 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
152 $str = strtolower($argv[$index]);
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
153 return ($clip !== FALSE) ? substr($str, 0, $clip) : $str;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
154 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
155 else
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
156 return FALSE;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
157 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
158
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
159
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
160 function mgGetSetting($key, $default = NULL)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
161 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
162 global $mgSettings, $mgDefaults;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
163
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
164 if (!array_key_exists($key, $mgDefaults))
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
165 mgFatal("Setting '".$key."' does not exist.\n");
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
166
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
167 if (array_key_exists($key, $mgSettings))
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
168 $val = $mgSettings[$key];
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
169 else
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
170 $val = $mgDefaults[$key][1];
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
171
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
172 if (!isset($val) || $val === NULL)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
173 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
174 if ($default !== NULL)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
175 $val = $default;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
176 else
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
177 mgFatal("Setting '".$key."' is not set, but is required to be configured.\n");
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
178 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
179
114
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
180 switch ($mgDefaults[$key][0])
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
181 {
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
182 case MG_FLAGS:
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
183 if (is_string($val))
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
184 {
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
185 $flags = $mgDefaults[$key][2];
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
186 $cval = preg_split("/\s*[,|]\s*/", strtolower($val), -1, PREG_SPLIT_NO_EMPTY);
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
187 $nval = 0;
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
188 foreach ($cval as $qval)
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
189 {
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
190 if (array_key_exists($qval, $flags))
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
191 $nval |= $flags[$qval];
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
192 else
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
193 mgFatal("Invalid flag value for '".$key."': '".$qval."'.");
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
194 }
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
195 }
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
196 break;
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
197 }
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
198
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
199 return $val;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
200 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
201
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
202
293
486398fb60ea Allow album-specific {tn,med}_{width,height,format} settings.
Matti Hamalainen <ccr@tnsp.org>
parents: 290
diff changeset
203 function mgGetAlbumSetting(&$data, $key, $default = NULL)
486398fb60ea Allow album-specific {tn,med}_{width,height,format} settings.
Matti Hamalainen <ccr@tnsp.org>
parents: 290
diff changeset
204 {
486398fb60ea Allow album-specific {tn,med}_{width,height,format} settings.
Matti Hamalainen <ccr@tnsp.org>
parents: 290
diff changeset
205 if (array_key_exists($key, $data))
486398fb60ea Allow album-specific {tn,med}_{width,height,format} settings.
Matti Hamalainen <ccr@tnsp.org>
parents: 290
diff changeset
206 return $data[$key];
486398fb60ea Allow album-specific {tn,med}_{width,height,format} settings.
Matti Hamalainen <ccr@tnsp.org>
parents: 290
diff changeset
207 else
486398fb60ea Allow album-specific {tn,med}_{width,height,format} settings.
Matti Hamalainen <ccr@tnsp.org>
parents: 290
diff changeset
208 return mgGetSetting($key, $default);
486398fb60ea Allow album-specific {tn,med}_{width,height,format} settings.
Matti Hamalainen <ccr@tnsp.org>
parents: 290
diff changeset
209 }
486398fb60ea Allow album-specific {tn,med}_{width,height,format} settings.
Matti Hamalainen <ccr@tnsp.org>
parents: 290
diff changeset
210
486398fb60ea Allow album-specific {tn,med}_{width,height,format} settings.
Matti Hamalainen <ccr@tnsp.org>
parents: 290
diff changeset
211
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
212 function mgGetPath($path, $key)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
213 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
214 $val = mgGetSetting($key);
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
215 return ($val !== FALSE) ? $path."/".$val : FALSE;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
216 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
217
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
218
297
77f85b1f35f2 Improve configuration file handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 295
diff changeset
219 function mgReadSettings(&$spaths)
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
220 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
221 global $mgSettings, $mgDefaults;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
222
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
223 $spaths = [];
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
224 $spaths[] = getcwd()."/";
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
225 if (($tmp = getenv("HOME")) !== FALSE && strlen($tmp) > 0)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
226 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
227 $spaths[] = $tmp."/.config/mgallery/";
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
228 $spaths[] = $tmp."/.";
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
229 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
230 else
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
231 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
232 $data = posix_getpwuid(posix_getuid());
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
233 if ($data !== FALSE && isset($data["dir"]))
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
234 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
235 $tmp = $data["dir"];
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
236 $spaths[] = $tmp."/.config/mgallery/";
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
237 $spaths[] = $tmp."/.";
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
238 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
239 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
240 $spaths[] = dirname(__FILE__)."/";
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
241
297
77f85b1f35f2 Improve configuration file handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 295
diff changeset
242 $spaths = array_map(function ($path)
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
243 {
297
77f85b1f35f2 Improve configuration file handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 295
diff changeset
244 global $mgProgConfigFile;
77f85b1f35f2 Improve configuration file handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 295
diff changeset
245 return $path.$mgProgConfigFile;
77f85b1f35f2 Improve configuration file handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 295
diff changeset
246 }, $spaths);
77f85b1f35f2 Improve configuration file handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 295
diff changeset
247
77f85b1f35f2 Improve configuration file handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 295
diff changeset
248 foreach (array_unique($spaths) as $file)
77f85b1f35f2 Improve configuration file handling.
Matti Hamalainen <ccr@tnsp.org>
parents: 295
diff changeset
249 {
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
250 mgDebug("Checking '".$file."' for configuration ..\n");
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
251 if (file_exists($file) &&
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
252 ($mgSettings = parse_ini_file($file, FALSE)) !== FALSE)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
253 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
254 mgDebug("Found '".$file."' config.\n");
278
6770ef8b3575 Disable checking of undefined configuration settings.
Matti Hamalainen <ccr@tnsp.org>
parents: 275
diff changeset
255 return TRUE;
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
256 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
257 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
258
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
259 $mgSettings = [];
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
260 return FALSE;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
261 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
262
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
263
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
264 function mgRealPath($path)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
265 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
266 return realpath($path);
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
267 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
268
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
269
285
25324e33fc78 Refactor gallery path handling somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents: 280
diff changeset
270 function mgCleanPathStr($path)
25324e33fc78 Refactor gallery path handling somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents: 280
diff changeset
271 {
25324e33fc78 Refactor gallery path handling somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents: 280
diff changeset
272 return str_replace("//", "/", $path);
25324e33fc78 Refactor gallery path handling somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents: 280
diff changeset
273 }
25324e33fc78 Refactor gallery path handling somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents: 280
diff changeset
274
25324e33fc78 Refactor gallery path handling somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents: 280
diff changeset
275
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
276 function mgCleanPathArray($refs, $start, $argc, $argv)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
277 {
127
3ee66c432081 Use modern PHP array syntax.
Matti Hamalainen <ccr@tnsp.org>
parents: 124
diff changeset
278 $path = [];
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
279 $first = TRUE;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
280 for ($n = $start; $n < $argc; $n++)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
281 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
282 foreach (explode("/", $argv[$n]) as $piece)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
283 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
284 switch ($piece)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
285 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
286 case ".":
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
287 case "":
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
288 if ($first)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
289 $path[] = $piece;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
290 break;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
291
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
292 case "..":
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
293 if ($refs && count($path) > 0)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
294 array_pop($path);
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
295 break;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
296
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
297 default:
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
298 $path[] = $piece;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
299 break;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
300 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
301 $first = FALSE;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
302 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
303 }
285
25324e33fc78 Refactor gallery path handling somewhat.
Matti Hamalainen <ccr@tnsp.org>
parents: 280
diff changeset
304 return mgCleanPathStr($path);
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
305 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
306
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
307
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
308 function mgCleanPath($refs)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
309 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
310 return implode("/", mgCleanPathArray($refs, 1, func_num_args(), func_get_args()));
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
311 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
312
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
313
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
314 function mgGetArr($data, $skeys, $sfmt1 = "%1", $sfmt2 = "", $func = NULL)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
315 {
47
1e2b55775a84 Begin implementation of translated caption/title support.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
316 global $pageLang;
1e2b55775a84 Begin implementation of translated caption/title support.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
317
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
318 if (!is_array($skeys))
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
319 $skeys = array($skeys);
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
320
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
321 foreach ($skeys as $skey)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
322 if (!array_key_exists($skey, $data))
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
323 return $sfmt2;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
324
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
325 $str = $sfmt1;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
326 for ($i = 1; $i <= sizeof($skeys); $i++)
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
327 {
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
328 $val = $data[$skeys[$i - 1]];
47
1e2b55775a84 Begin implementation of translated caption/title support.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
329 if (is_array($val))
1e2b55775a84 Begin implementation of translated caption/title support.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
330 $vtmp = array_key_exists($pageLang, $val) ? $val[$pageLang] : reset($val);
1e2b55775a84 Begin implementation of translated caption/title support.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
331 else
1e2b55775a84 Begin implementation of translated caption/title support.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
332 $vtmp = $val;
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
333
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
334 if (is_callable($func))
77
fcfd635d7abf Oops, fix format string callback functions ..
Matti Hamalainen <ccr@tnsp.org>
parents: 70
diff changeset
335 $vtmp = call_user_func($func, $vtmp);
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
336
47
1e2b55775a84 Begin implementation of translated caption/title support.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
337 $str = str_replace("%".$i, $vtmp, $str);
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
338 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
339
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
340 return $str;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
341 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
342
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
343
114
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
344 function mgGetDValStr($mdef, $val)
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
345 {
114
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
346 switch ($mdef[0])
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
347 {
298
cf166dcc6e77 Handle arrays in some way (not useful way, tho.) in config dumping.
Matti Hamalainen <ccr@tnsp.org>
parents: 297
diff changeset
348 case MG_STR:
cf166dcc6e77 Handle arrays in some way (not useful way, tho.) in config dumping.
Matti Hamalainen <ccr@tnsp.org>
parents: 297
diff changeset
349 if (is_array($val))
cf166dcc6e77 Handle arrays in some way (not useful way, tho.) in config dumping.
Matti Hamalainen <ccr@tnsp.org>
parents: 297
diff changeset
350 return implode(", ", $val);
cf166dcc6e77 Handle arrays in some way (not useful way, tho.) in config dumping.
Matti Hamalainen <ccr@tnsp.org>
parents: 297
diff changeset
351 else
cf166dcc6e77 Handle arrays in some way (not useful way, tho.) in config dumping.
Matti Hamalainen <ccr@tnsp.org>
parents: 297
diff changeset
352 return "\"".$val."\"";
cf166dcc6e77 Handle arrays in some way (not useful way, tho.) in config dumping.
Matti Hamalainen <ccr@tnsp.org>
parents: 297
diff changeset
353
cf166dcc6e77 Handle arrays in some way (not useful way, tho.) in config dumping.
Matti Hamalainen <ccr@tnsp.org>
parents: 297
diff changeset
354 case MG_BOOL:
cf166dcc6e77 Handle arrays in some way (not useful way, tho.) in config dumping.
Matti Hamalainen <ccr@tnsp.org>
parents: 297
diff changeset
355 return $val ? "yes" : "no";
cf166dcc6e77 Handle arrays in some way (not useful way, tho.) in config dumping.
Matti Hamalainen <ccr@tnsp.org>
parents: 297
diff changeset
356
114
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
357 case MG_FLAGS:
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
358 {
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
359 $mstr = [];
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
360 foreach ($mdef[2] as $vkey => $vval)
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
361 {
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
362 if ($val & $vval)
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
363 $mstr[] = $vkey;
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
364 }
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
365 return implode($mstr, " | ");
c803235bd0f9 Implement flag config option type.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
366 }
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
367 case MG_INT :
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
368 default : return (string) $val;
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
369 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
370 }
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
371
290
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
372
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
373 function mgLogSQLError($dbh, $sql)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
374 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
375 return mgError("SQL error '".implode("; ", $dbh->errorInfo())."' in statement: \"".$sql."\"");
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
376 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
377
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
378
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
379 function mgDBGetSQLParam($dbh, $type, $value)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
380 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
381 switch ($type)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
382 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
383 case "d": return intval($value);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
384 case "s": return $dbh->quote($value);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
385 case "b": return intval($value) ? 1 : 0;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
386 case "D":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
387 if ($value instanceOf DateTime)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
388 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
389 switch ($dbh->getAttribute(PDO::ATTR_DRIVER_NAME))
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
390 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
391 case "pgsql" : $fmt = "Y-m-d H:i:sP"; break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
392 case "sqlite" : $fmt = DATE_RFC3339; break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
393 case "mysql" : $fmt = "Y-m-d H:i:s"; break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
394 default : $fmt = DATE_RFC3339;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
395 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
396 return $dbh->quote($value->format($fmt));
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
397 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
398 else
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
399 return intval($value);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
400 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
401 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
402
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
403
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
404 function mgSQLToDateTime($dbh, $stamp)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
405 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
406 switch ($dbh->getAttribute(PDO::ATTR_DRIVER_NAME))
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
407 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
408 case "pgsql":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
409 // PostgreSQL 'timestamptz' format
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
410 $tmp = DateTime::createFromFormat("Y-m-d H:i:sP", $stamp);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
411 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
412
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
413 case "sqlite":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
414 // SQLite can use RFC3339 format
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
415 $tmp = DateTime::createFromFormat(DATE_RFC3339, $stamp);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
416 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
417
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
418 case "mysql":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
419 // MySQL uses UTC internally, no way to specify TZ
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
420 $tmp = DateTime::createFromFormat("Y-m-d H:i:s", $stamp);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
421 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
422
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
423 default:
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
424 $tmp = NULL;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
425 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
426
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
427 // echo "<p>".$stamp." :: ".var_export(($tmp instanceOf DateTime) ? $tmp : NULL, TRUE)."</p>";
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
428 return ($tmp instanceOf DateTime) ? $tmp : NULL;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
429 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
430
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
431
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
432 function mgConnectSQLDB()
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
433 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
434 global $db;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
435 try {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
436 $db = new PDO(mgGetSetting("sql_db"),
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
437 mgGetSetting("sql_username", NULL),
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
438 mgGetSetting("sql_password", NULL),
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
439 mgGetSetting("sql_options", array()));
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
440 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
441 catch (PDOException $e) {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
442 mgError("Could not connect to SQL database: ".$e->getMessage().".");
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
443 return FALSE;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
444 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
445 return ($db !== false);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
446 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
447
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
448
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
449 function mgDBPrepareSQLUpdate($dbh, $table, $cond, $pairs, $values = NULL)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
450 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
451 $sql = [];
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
452 foreach ($pairs as $name => $attr)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
453 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
454 $sql[] = $name."=".mgDBGetSQLParam($dbh,
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
455 $attr, $values !== NULL ? $values[$name] : $name);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
456 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
457 return
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
458 "UPDATE ".$table." SET ".implode(",", $sql).
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
459 ($cond != "" ? " ".$cond : "");
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
460 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
461
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
462
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
463 function mgDBPrepareSQL_V($dbh, $fmt, $argv)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
464 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
465 $len = strlen($fmt);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
466 $sql = "";
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
467 $argn = 0;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
468 $argc = count($argv);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
469
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
470 for ($pos = 0; $pos < $len; $pos++)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
471 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
472 if ($fmt[$pos] == "%")
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
473 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
474 if ($argn < $argc)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
475 $sql .= mgDBGetSQLParam($dbh, $fmt[++$pos], $argv[$argn++]);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
476 else
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
477 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
478 mgError("Invalid SQL statement format string '".$fmt.
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
479 "', not enough parameters specified (".$argn." of ".$argc.")");
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
480 return FALSE;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
481 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
482 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
483 else
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
484 $sql .= $fmt[$pos];
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
485 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
486
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
487 return $sql;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
488 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
489
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
490
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
491 function mgDBPrepareSQL($dbh)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
492 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
493 $argv = func_get_args();
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
494 return mgDBPrepareSQL_V($dbh, $argv[1], array_splice($argv, 2));
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
495 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
496
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
497
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
498 function mgPrepareSQL()
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
499 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
500 global $db;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
501 $argv = func_get_args();
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
502 return mgDBPrepareSQL_V($db, $argv[0], array_splice($argv, 1));
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
503 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
504
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
505
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
506 function mgDBExecSQLInsert($dbh, $sql)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
507 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
508 switch ($dbh->getAttribute(PDO::ATTR_DRIVER_NAME))
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
509 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
510 case "pgsql":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
511 if (($res = mgDBFetchSQLColumn($dbh, $sql." RETURNING id")) !== false)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
512 return $res;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
513 else
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
514 return FALSE;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
515
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
516 default:
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
517 if (mgDBExecSQL($dbh, $sql) !== false)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
518 return $dbh->lastInsertId();
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
519 else
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
520 return FALSE;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
521 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
522 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
523
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
524
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
525 function mgDBExecSQL($dbh, $sql)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
526 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
527 if (($res = $dbh->query($sql)) !== FALSE)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
528 return $res;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
529 else
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
530 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
531 mgLogSQLError($dbh, $sql);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
532 return FALSE;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
533 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
534 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
535
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
536
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
537 function mgDBFetchSQL($dbh, $sql)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
538 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
539 if (($res = $dbh->query($sql)) !== FALSE)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
540 return $res->fetch();
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
541 else
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
542 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
543 mgLogSQLError($dbh, $sql);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
544 return FALSE;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
545 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
546 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
547
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
548
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
549 function mgDBFetchSQLColumn($dbh, $sql, $column = 0)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
550 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
551 if (($res = $dbh->query($sql)) !== FALSE)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
552 return $res->fetchColumn($column);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
553 else
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
554 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
555 mgLogSQLError($dbh, $sql);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
556 return FALSE;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
557 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
558 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
559
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
560
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
561 function mgPrepareSQLUpdate($table, $cond, $pairs)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
562 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
563 global $db;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
564 return mgDBPrepareSQLUpdate($db, $table, $cond, $pairs);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
565 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
566
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
567
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
568 function mgExecSQLInsert($sql)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
569 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
570 global $db;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
571 return mgDBExecSQLInsert($db, $sql);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
572 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
573
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
574
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
575 function mgExecSQL($sql)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
576 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
577 global $db;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
578 return mgDBExecSQL($db, $sql);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
579 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
580
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
581
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
582 function mgFetchSQL($sql)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
583 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
584 global $db;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
585 return mgDBFetchSQL($db, $sql);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
586 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
587
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
588
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
589 function mgFetchSQLColumn($sql, $column = 0)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
590 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
591 global $db;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
592 return mgDBFetchSQLColumn($db, $sql, $column);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
593 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
594
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
595
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
596 function mgDBBeginTransaction($dbh = FALSE)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
597 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
598 global $db;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
599 return mgDBExecSQL(($dbh !== FALSE) ? $dbh : $db, "BEGIN TRANSACTION");
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
600 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
601
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
602
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
603 function mgDBCommitTransaction($dbh = FALSE)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
604 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
605 global $db;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
606 return mgDBExecSQL(($dbh !== FALSE) ? $dbh : $db, "COMMIT");
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
607 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
608
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
609
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
610 function mgDBGetTableSchema($dbh, $schema)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
611 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
612 $res = [];
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
613 $driver = $dbh->getAttribute(PDO::ATTR_DRIVER_NAME);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
614
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
615 // Go through the table schema, definition by definition
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
616 foreach ($schema as $scol)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
617 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
618 $tmp = [];
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
619
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
620 // And each element of the one definition
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
621 // (like 'foo INTEGER AUTOINCREMENT')
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
622 foreach ($scol as $elem)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
623 switch ($driver)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
624 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
625 case "pgsql":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
626 switch ($elem)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
627 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
628 case "AUTOINCREMENT":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
629 // For Postgres, use SERIAL for autoincrement and
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
630 // "cleverly" replace the 2nd element with SERIAL
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
631 // assuming that it is INTEGER or such.
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
632 $tmp[1] = "SERIAL";
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
633 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
634
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
635 case "DATETIME":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
636 $tmp[] = "TIMESTAMPTZ";
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
637 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
638
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
639 default:
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
640 $tmp[] = $elem;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
641 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
642 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
643 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
644
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
645 case "mysql":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
646 switch ($elem)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
647 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
648 case "AUTOINCREMENT":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
649 $tmp[] = "AUTO_INCREMENT";
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
650 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
651
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
652 case "DATETIME":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
653 $tmp[] = "TIMESTAMP";
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
654 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
655
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
656 default:
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
657 $tmp[] = $elem;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
658 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
659 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
660 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
661
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
662 case "sqlite":
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
663 $tmp[] = $elem;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
664 break;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
665
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
666 default:
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
667 die("Don't know how to handle PDO driver '".$driver."' yet.\n");
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
668 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
669
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
670 $res[] = implode(" ", $tmp);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
671 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
672
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
673 return implode(", ", $res);
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
674 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
675
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
676
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
677 function mgDBCreateOneTable($dbh, $name, $schema)
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
678 {
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
679 return (mgDBExecSQL($dbh, "CREATE TABLE IF NOT EXISTS ".$name." (".$schema.")") !== FALSE) ? TRUE : FALSE;
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
680 }
19fbf800b1f7 Work on very early form of virtual gallery support.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
681
0
ac688606ec4b Initial import of code.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
682 ?>