1
|
|
|
<?php |
2
|
|
|
// $Id$ |
3
|
|
|
|
4
|
|
|
/** |
5
|
|
|
* Functions that are shared amongst files and dependent modules go |
6
|
|
|
* here to keep the clutter down in the main module file. |
7
|
|
|
*/ |
8
|
|
|
|
9
|
|
|
/** |
10
|
|
|
* When a venue is changed in preference forms, don't carry over the preset |
11
|
|
|
* that was selected |
12
|
|
|
*/ |
13
|
|
|
function boincwork_ahah_helper_venue_submit($form, &$form_state) { |
14
|
|
|
$form_state['storage']['prefs']['preset'] = null; |
15
|
|
|
ahah_helper_generic_submit($form, $form_state); |
16
|
|
|
} |
17
|
|
|
|
18
|
|
|
/** |
19
|
|
|
* Get a predetermined set of preferences |
20
|
|
|
*/ |
21
|
|
|
function boincwork_get_preset_prefs($preset = null) { |
22
|
|
|
$saved_state = variable_get('boincwork_preset_prefs', null); |
23
|
|
|
|
24
|
|
|
// If not configured yet, use these values as for inital |
25
|
|
|
// computing/general preferences. |
26
|
|
|
if (!$saved_state) { |
27
|
|
|
// Get BOINC project disk space configurations from config.xml to |
28
|
|
|
// fill in initial preference values. |
29
|
|
|
require_boinc(array('db', 'prefs')); |
30
|
|
|
$disk_space_config = get_disk_space_config(); |
31
|
|
|
|
32
|
|
|
$saved_state = ' |
33
|
|
|
<general_preferences> |
34
|
|
|
<preset name="standard"> |
35
|
|
|
<run_on_batteries>0</run_on_batteries> |
36
|
|
|
<run_if_user_active>0</run_if_user_active> |
37
|
|
|
<run_gpu_if_user_active>1</run_gpu_if_user_active> |
38
|
|
|
<idle_time_to_run>3</idle_time_to_run> |
39
|
|
|
<suspend_if_no_recent_input>0</suspend_if_no_recent_input> |
40
|
|
|
<suspend_cpu_usage>25</suspend_cpu_usage> |
41
|
|
|
<start_hour>0</start_hour> |
42
|
|
|
<end_hour>0</end_hour> |
43
|
|
|
<leave_apps_in_memory>1</leave_apps_in_memory> |
44
|
|
|
<cpu_scheduling_period_minutes>60</cpu_scheduling_period_minutes> |
45
|
|
|
<max_ncpus_pct>100</max_ncpus_pct> |
46
|
|
|
<cpu_usage_limit>80</cpu_usage_limit> |
47
|
|
|
<disk_max_used_gb>'.$disk_space_config->disk_max_used_gb.'</disk_max_used_gb> |
48
|
|
|
<disk_min_free_gb>'.$disk_space_config->disk_min_free_gb.'</disk_min_free_gb> |
49
|
|
|
<disk_max_used_pct>'.$disk_space_config->disk_max_used_pct.'</disk_max_used_pct> |
50
|
|
|
<disk_interval>60</disk_interval> |
51
|
|
|
<vm_max_used_pct>0</vm_max_used_pct> |
52
|
|
|
<ram_max_used_busy_pct>15</ram_max_used_busy_pct> |
53
|
|
|
<ram_max_used_idle_pct>50</ram_max_used_idle_pct> |
54
|
|
|
<work_buf_min_days>0.1</work_buf_min_days> |
55
|
|
|
<work_buf_additional_days>0.25</work_buf_additional_days> |
56
|
|
|
<confirm_before_connecting>1</confirm_before_connecting> |
57
|
|
|
<hangup_if_dialed>0</hangup_if_dialed> |
58
|
|
|
<max_bytes_sec_down>0</max_bytes_sec_down> |
59
|
|
|
<max_bytes_sec_up>0</max_bytes_sec_up> |
60
|
|
|
<net_start_hour>0</net_start_hour> |
61
|
|
|
<net_end_hour>0</net_end_hour> |
62
|
|
|
<daily_xfer_limit_mb>0</daily_xfer_limit_mb> |
63
|
|
|
<daily_xfer_period_days>0</daily_xfer_period_days> |
64
|
|
|
<dont_verify_images>0</dont_verify_images> |
65
|
|
|
</preset> |
66
|
|
|
<preset name="maximum"> |
67
|
|
|
<run_on_batteries>1</run_on_batteries> |
68
|
|
|
<run_if_user_active>1</run_if_user_active> |
69
|
|
|
<run_gpu_if_user_active>1</run_gpu_if_user_active> |
70
|
|
|
<idle_time_to_run>3</idle_time_to_run> |
71
|
|
|
<suspend_if_no_recent_input>0</suspend_if_no_recent_input> |
72
|
|
|
<suspend_cpu_usage>0</suspend_cpu_usage> |
73
|
|
|
<start_hour>0</start_hour> |
74
|
|
|
<end_hour>0</end_hour> |
75
|
|
|
<leave_apps_in_memory>1</leave_apps_in_memory> |
76
|
|
|
<cpu_scheduling_period_minutes>60</cpu_scheduling_period_minutes> |
77
|
|
|
<max_ncpus_pct>100</max_ncpus_pct> |
78
|
|
|
<cpu_usage_limit>100</cpu_usage_limit> |
79
|
|
|
<disk_max_used_gb>100</disk_max_used_gb> |
80
|
|
|
<disk_min_free_gb>2</disk_min_free_gb> |
81
|
|
|
<disk_max_used_pct>100</disk_max_used_pct> |
82
|
|
|
<disk_interval>60</disk_interval> |
83
|
|
|
<vm_max_used_pct>50</vm_max_used_pct> |
84
|
|
|
<ram_max_used_busy_pct>80</ram_max_used_busy_pct> |
85
|
|
|
<ram_max_used_idle_pct>90</ram_max_used_idle_pct> |
86
|
|
|
<work_buf_min_days>0.1</work_buf_min_days> |
87
|
|
|
<work_buf_additional_days>0.25</work_buf_additional_days> |
88
|
|
|
<confirm_before_connecting>1</confirm_before_connecting> |
89
|
|
|
<hangup_if_dialed>0</hangup_if_dialed> |
90
|
|
|
<max_bytes_sec_down>0</max_bytes_sec_down> |
91
|
|
|
<max_bytes_sec_up>0</max_bytes_sec_up> |
92
|
|
|
<net_start_hour>0</net_start_hour> |
93
|
|
|
<net_end_hour>0</net_end_hour> |
94
|
|
|
<daily_xfer_limit_mb>0</daily_xfer_limit_mb> |
95
|
|
|
<daily_xfer_period_days>0</daily_xfer_period_days> |
96
|
|
|
<dont_verify_images>0</dont_verify_images> |
97
|
|
|
</preset> |
98
|
|
|
<preset name="green"> |
99
|
|
|
<run_on_batteries>0</run_on_batteries> |
100
|
|
|
<run_if_user_active>1</run_if_user_active> |
101
|
|
|
<run_gpu_if_user_active>1</run_gpu_if_user_active> |
102
|
|
|
<idle_time_to_run>3</idle_time_to_run> |
103
|
|
|
<suspend_if_no_recent_input>1</suspend_if_no_recent_input> |
104
|
|
|
<suspend_cpu_usage>75</suspend_cpu_usage> |
105
|
|
|
<start_hour>0</start_hour> |
106
|
|
|
<end_hour>0</end_hour> |
107
|
|
|
<leave_apps_in_memory>1</leave_apps_in_memory> |
108
|
|
|
<cpu_scheduling_period_minutes>60</cpu_scheduling_period_minutes> |
109
|
|
|
<max_ncpus_pct>100</max_ncpus_pct> |
110
|
|
|
<cpu_usage_limit>80</cpu_usage_limit> |
111
|
|
|
<disk_max_used_gb>8</disk_max_used_gb> |
112
|
|
|
<disk_min_free_gb>4</disk_min_free_gb> |
113
|
|
|
<disk_max_used_pct>10</disk_max_used_pct> |
114
|
|
|
<disk_interval>60</disk_interval> |
115
|
|
|
<vm_max_used_pct>0</vm_max_used_pct> |
116
|
|
|
<ram_max_used_busy_pct>50</ram_max_used_busy_pct> |
117
|
|
|
<ram_max_used_idle_pct>75</ram_max_used_idle_pct> |
118
|
|
|
<work_buf_min_days>0.1</work_buf_min_days> |
119
|
|
|
<work_buf_additional_days>0.25</work_buf_additional_days> |
120
|
|
|
<confirm_before_connecting>1</confirm_before_connecting> |
121
|
|
|
<hangup_if_dialed>0</hangup_if_dialed> |
122
|
|
|
<max_bytes_sec_down>100000</max_bytes_sec_down> |
123
|
|
|
<max_bytes_sec_up>10000</max_bytes_sec_up> |
124
|
|
|
<net_start_hour>0</net_start_hour> |
125
|
|
|
<net_end_hour>0</net_end_hour> |
126
|
|
|
<daily_xfer_limit_mb>100</daily_xfer_limit_mb> |
127
|
|
|
<daily_xfer_period_days>2</daily_xfer_period_days> |
128
|
|
|
<dont_verify_images>1</dont_verify_images> |
129
|
|
|
</preset> |
130
|
|
|
<preset name="minimum"> |
131
|
|
|
<run_on_batteries>0</run_on_batteries> |
132
|
|
|
<run_if_user_active>0</run_if_user_active> |
133
|
|
|
<run_gpu_if_user_active>0</run_gpu_if_user_active> |
134
|
|
|
<idle_time_to_run>5</idle_time_to_run> |
135
|
|
|
<suspend_if_no_recent_input>1</suspend_if_no_recent_input> |
136
|
|
|
<suspend_cpu_usage>25</suspend_cpu_usage> |
137
|
|
|
<start_hour>0</start_hour> |
138
|
|
|
<end_hour>8</end_hour> |
139
|
|
|
<leave_apps_in_memory>0</leave_apps_in_memory> |
140
|
|
|
<cpu_scheduling_period_minutes>120</cpu_scheduling_period_minutes> |
141
|
|
|
<max_ncpus_pct>25</max_ncpus_pct> |
142
|
|
|
<cpu_usage_limit>40</cpu_usage_limit> |
143
|
|
|
<disk_max_used_gb>2</disk_max_used_gb> |
144
|
|
|
<disk_min_free_gb>4</disk_min_free_gb> |
145
|
|
|
<disk_max_used_pct>5</disk_max_used_pct> |
146
|
|
|
<disk_interval>120</disk_interval> |
147
|
|
|
<vm_max_used_pct>0</vm_max_used_pct> |
148
|
|
|
<ram_max_used_busy_pct>5</ram_max_used_busy_pct> |
149
|
|
|
<ram_max_used_idle_pct>20</ram_max_used_idle_pct> |
150
|
|
|
<work_buf_min_days>0.1</work_buf_min_days> |
151
|
|
|
<work_buf_additional_days>0.25</work_buf_additional_days> |
152
|
|
|
<confirm_before_connecting>1</confirm_before_connecting> |
153
|
|
|
<hangup_if_dialed>0</hangup_if_dialed> |
154
|
|
|
<max_bytes_sec_down>15000</max_bytes_sec_down> |
155
|
|
|
<max_bytes_sec_up>5000</max_bytes_sec_up> |
156
|
|
|
<net_start_hour>0</net_start_hour> |
157
|
|
|
<net_end_hour>8</net_end_hour> |
158
|
|
|
<daily_xfer_limit_mb>1000</daily_xfer_limit_mb> |
159
|
|
|
<daily_xfer_period_days>30</daily_xfer_period_days> |
160
|
|
|
<dont_verify_images>0</dont_verify_images> |
161
|
|
|
</preset> |
162
|
|
|
</general_preferences>'; |
163
|
|
|
} |
164
|
|
|
|
165
|
|
|
// Convert XML data to array format |
166
|
|
|
$preset_prefs = load_configuration($saved_state); |
167
|
|
|
|
168
|
|
|
if ($preset) { |
169
|
|
|
// Load preset from configuration |
170
|
|
|
$preset_prefs = (array) $preset_prefs['general_preferences']; |
171
|
|
|
if (isset($preset_prefs['preset'])) { |
172
|
|
|
if (!is_numeric(key($preset_prefs['preset']))) { |
173
|
|
|
$preset_prefs['preset'] = array($preset_prefs['preset']); |
174
|
|
|
} |
175
|
|
|
foreach ($preset_prefs['preset'] as $key => $prefs) { |
176
|
|
|
if (isset($prefs['@attributes']['name']) AND $prefs['@attributes']['name'] == $preset) { |
|
|
|
|
177
|
|
|
return $preset_prefs['preset'][$key]; |
178
|
|
|
} |
179
|
|
|
} |
180
|
|
|
} |
181
|
|
|
} |
182
|
|
|
return $preset_prefs; |
183
|
|
|
} |
184
|
|
|
|
185
|
|
|
/** |
186
|
|
|
* Load (and validate) the project specific configuration XML |
187
|
|
|
*/ |
188
|
|
|
function boincwork_get_project_specific_config() { |
189
|
|
|
$raw_config_data = variable_get('boinc_project_specific_prefs_config', ''); |
190
|
|
|
|
191
|
|
|
$xsd = './' . drupal_get_path('module', 'boincwork') . '/includes/projectprefs.xsd'; |
192
|
|
|
libxml_use_internal_errors(true); |
193
|
|
|
|
194
|
|
|
$xml = new DomDocument(); |
195
|
|
|
$xml->loadXML($raw_config_data, LIBXML_NOBLANKS); |
196
|
|
|
if (!$xml->schemaValidate($xsd)) { |
197
|
|
|
$errors = libxml_get_errors(); |
198
|
|
|
$lines = explode("\r", $raw_config_data); |
199
|
|
|
drupal_set_message("{$errors[0]->message} at line {$errors[0]->line}" . |
200
|
|
|
': <br/>' . htmlentities($lines[$errors[0]->line - 1]), 'error'); |
201
|
|
|
return NULL; |
202
|
|
|
} |
203
|
|
|
|
204
|
|
|
// Convert XML to array for validation |
205
|
|
|
$xml = load_configuration($raw_config_data); |
206
|
|
|
return $xml; |
207
|
|
|
} |
208
|
|
|
|
209
|
|
|
/** |
210
|
|
|
* Get rules by which to validate project specific data |
211
|
|
|
*/ |
212
|
|
|
function boincwork_get_project_specific_config_validation_rules($xml = array()) { |
213
|
|
|
$rules = array(); |
214
|
|
|
if (!$xml) { |
215
|
|
|
// Read the config XML |
216
|
|
|
$xml = boincwork_get_project_specific_config(); |
217
|
|
|
$xml = $xml['project_specific_preferences']; |
218
|
|
|
} |
219
|
|
|
foreach ($xml as $type => $elements) { |
220
|
|
|
if (is_array($elements) AND !is_numeric(key($elements))) { |
|
|
|
|
221
|
|
|
$elements = array($elements); |
222
|
|
|
} |
223
|
|
|
switch ($type) { |
224
|
|
|
case 'compound': |
225
|
|
|
foreach ($elements as $element) { |
226
|
|
|
$name = $element['@attributes']['name']; |
227
|
|
|
$rules[$name] = boincwork_get_project_specific_config_validation_rules($element['attributes']); |
228
|
|
|
} |
229
|
|
|
break; |
230
|
|
|
|
231
|
|
|
case 'text': |
232
|
|
|
foreach ($elements as $element) { |
233
|
|
|
$name = $element['@attributes']['name']; |
234
|
|
|
$rules[$name] = array( |
235
|
|
|
'datatype' => $element['@attributes']['datatype'] |
236
|
|
|
); |
237
|
|
|
if (isset($element['@attributes']['min'])) { |
238
|
|
|
$rules[$name]['min'] = $element['@attributes']['min']; |
239
|
|
|
} |
240
|
|
|
if (isset($element['@attributes']['max'])) { |
241
|
|
|
$rules[$name]['max'] = $element['@attributes']['max']; |
242
|
|
|
} |
243
|
|
|
} |
244
|
|
|
break; |
245
|
|
|
/* |
246
|
|
|
case 'radio': |
247
|
|
|
case 'dropdown': |
248
|
|
|
foreach ($elements as $element) { |
249
|
|
|
$name = $element['@attributes']['name']; |
250
|
|
|
$options = array(); |
251
|
|
|
foreach ($element['items']['item'] as $option) { |
252
|
|
|
if (is_array($option) AND isset($option['@value'])) { |
253
|
|
|
$option = $option['@value']; |
254
|
|
|
} |
255
|
|
|
$options[] = $option; |
256
|
|
|
} |
257
|
|
|
$rules[$name] = array( |
258
|
|
|
'options' => $options |
259
|
|
|
); |
260
|
|
|
} |
261
|
|
|
break; |
262
|
|
|
*/ |
263
|
|
|
case 'apps': |
264
|
|
|
// At least one app needs to be selected |
265
|
|
|
$rules['apps'] = array( |
266
|
|
|
'minimum selected' => 1, |
267
|
|
|
'list' => array() |
268
|
|
|
); |
269
|
|
|
foreach ($elements as $element) { |
270
|
|
|
foreach ($element['app'] as $app) { |
271
|
|
|
$name = "app_{$app['@attributes']['id']}"; |
272
|
|
|
$rules['apps']['list'][] = $name; |
273
|
|
|
//$rules[$name] = array( |
274
|
|
|
// 'options' => $options |
275
|
|
|
//); |
276
|
|
|
} |
277
|
|
|
} |
278
|
|
|
break; |
279
|
|
|
|
280
|
|
|
case 'group': |
281
|
|
|
foreach ($elements as $element) { |
282
|
|
|
$name = $element['@attributes']['name']; |
283
|
|
|
$rules += boincwork_get_project_specific_config_validation_rules($element); |
284
|
|
|
} |
285
|
|
|
break; |
286
|
|
|
/* |
287
|
|
|
case 'boolean': |
288
|
|
|
// Shouldn't need to validate boolean... |
289
|
|
|
break; |
290
|
|
|
*/ |
291
|
|
|
default: |
|
|
|
|
292
|
|
|
} |
293
|
|
|
} |
294
|
|
|
return $rules; |
295
|
|
|
} |
296
|
|
|
|
297
|
|
|
/** |
298
|
|
|
* Define how project specific settings should be saved |
299
|
|
|
*/ |
300
|
|
|
function boincwork_format_project_specific_prefs_data($values, $xml = array()) { |
301
|
|
|
$defaults = array(); |
302
|
|
|
if (!$xml) { |
303
|
|
|
// Read the config XML |
304
|
|
|
$xml = boincwork_get_project_specific_config(); |
305
|
|
|
$xml = $xml['project_specific_preferences']; |
306
|
|
|
} |
307
|
|
|
foreach ($xml as $type => $elements) { |
308
|
|
|
$structure_data = array(); |
309
|
|
|
if (is_array($elements) AND !is_numeric(key($elements))) { |
|
|
|
|
310
|
|
|
$elements = array($elements); |
311
|
|
|
} |
312
|
|
|
switch ($type) { |
313
|
|
|
case 'compound': |
314
|
|
|
foreach ($elements as $element) { |
315
|
|
|
$name = $element['@attributes']['name']; |
316
|
|
|
$default[$name]['@attributes'] = boincwork_format_project_specific_prefs_data($values[$name], $element['attributes']); |
317
|
|
|
} |
318
|
|
|
$defaults += $default; |
|
|
|
|
319
|
|
|
break; |
320
|
|
|
|
321
|
|
|
case 'group': |
322
|
|
|
foreach ($elements as $element) { |
323
|
|
|
$defaults += boincwork_format_project_specific_prefs_data($values, $element); |
324
|
|
|
} |
325
|
|
|
break; |
326
|
|
|
|
327
|
|
|
case 'text': |
328
|
|
|
case 'radio': |
329
|
|
|
case 'dropdown': |
330
|
|
|
case 'boolean': |
331
|
|
|
foreach ($elements as $element) { |
332
|
|
|
$name = $element['@attributes']['name']; |
333
|
|
|
if (isset($element['@attributes']['entitytype']) AND $element['@attributes']['entitytype'] == 'attribute') { |
|
|
|
|
334
|
|
|
$defaults['@attributes'][$name] = $values[$name]; |
335
|
|
|
} |
336
|
|
|
else { |
337
|
|
|
$defaults[$name] = $values[$name]; |
338
|
|
|
} |
339
|
|
|
} |
340
|
|
|
break; |
341
|
|
|
|
342
|
|
|
case 'apps': |
343
|
|
|
foreach ($elements as $element) { |
344
|
|
|
$defaults['app_id'] = array(); |
345
|
|
|
foreach ($element['app'] as $app) { |
346
|
|
|
$app_id = $app['@attributes']['id']; |
347
|
|
|
if ($values['applications']["app_{$app_id}"]) { |
348
|
|
|
$defaults['app_id'][] = $app_id; |
349
|
|
|
} |
350
|
|
|
} |
351
|
|
|
} |
352
|
|
|
break; |
353
|
|
|
|
354
|
|
|
default: |
|
|
|
|
355
|
|
|
} |
356
|
|
|
} |
357
|
|
|
return $defaults; |
358
|
|
|
} |
359
|
|
|
|
360
|
|
|
/** |
361
|
|
|
* Add an element to the form based on its definition |
362
|
|
|
*/ |
363
|
|
|
function boincwork_generate_prefs_element(&$form, $type, $elements, $user_prefs = null) { |
364
|
|
|
switch ($type) { |
365
|
|
|
case 'text': |
366
|
|
|
if (!is_numeric(key($elements))) { |
367
|
|
|
$elements = array($elements); |
368
|
|
|
} |
369
|
|
|
foreach ($elements as $element) { |
370
|
|
|
$name = $element['@attributes']['name']; |
371
|
|
|
$default = $element['@attributes']['default']; |
372
|
|
|
$title = is_array($element['title']) ? $element['title']['@value'] : $element['title']; |
373
|
|
|
$description = ''; |
374
|
|
|
if (isset($element['description'])) { |
375
|
|
|
$description = is_array($element['description']) ? $element['description']['@value'] : $element['description']; |
376
|
|
|
} |
377
|
|
|
|
378
|
|
|
$value = $default; |
379
|
|
|
$user_pref = $user_prefs; |
380
|
|
|
$entitytype = isset($element['@attributes']['entitytype']) ? $element['@attributes']['entitytype'] : 'element'; |
381
|
|
|
if ($entitytype == 'attribute') { |
382
|
|
|
$user_pref = $user_prefs['@attributes']; |
383
|
|
|
} |
384
|
|
|
if (isset($user_pref[$name])) { |
385
|
|
|
if (is_array($user_pref[$name]) AND isset($user_pref[$name]['@value'])) { |
|
|
|
|
386
|
|
|
$value = $user_pref[$name]['@value']; |
387
|
|
|
} |
388
|
|
|
else { |
389
|
|
|
$value = $user_pref[$name]; |
390
|
|
|
} |
391
|
|
|
} |
392
|
|
|
|
393
|
|
|
// Use appropriate datatype |
394
|
|
|
if (isset($element['@attributes']['datatype'])) { |
395
|
|
|
switch($element['@attributes']['datatype']) { |
396
|
|
|
case 'integer': |
397
|
|
|
$value = (int) $value; |
398
|
|
|
break; |
399
|
|
|
|
400
|
|
|
case 'float': |
401
|
|
|
$value = number_format((float) $value, 2); |
402
|
|
|
break; |
403
|
|
|
|
404
|
|
|
default: |
|
|
|
|
405
|
|
|
} |
406
|
|
|
} |
407
|
|
|
|
408
|
|
|
// Translate elements as appropriate |
409
|
|
|
if ($title) { |
410
|
|
|
i18nstrings_update('project:prefs_xml', _boinctranslate_supertrim($title)); |
411
|
|
|
$title = i18nstrings('project:prefs_xml', _boinctranslate_supertrim($title)); |
412
|
|
|
} |
413
|
|
|
if ($description) { |
414
|
|
|
i18nstrings_update('project:prefs_xml', _boinctranslate_supertrim($description)); |
415
|
|
|
$description = i18nstrings('project:prefs_xml', _boinctranslate_supertrim($description)); |
416
|
|
|
} |
417
|
|
|
|
418
|
|
|
$form[$name] = array( |
419
|
|
|
'#title' => $title, |
420
|
|
|
'#type' => 'textfield', |
421
|
|
|
'#default_value' => $value, |
422
|
|
|
'#size' => 5, |
423
|
|
|
'#description' => $description . bts(' Default value: @default', array('@default' => $default), NULL, 'boinc:account-preferences-project') |
424
|
|
|
); |
425
|
|
|
} |
426
|
|
|
break; |
427
|
|
|
|
428
|
|
|
case 'boolean': |
429
|
|
|
if (!is_numeric(key($elements))) { |
430
|
|
|
$elements = array($elements); |
431
|
|
|
} |
432
|
|
|
foreach ($elements as $element) { |
433
|
|
|
$name = $element['@attributes']['name']; |
434
|
|
|
$title = is_array($element['title']) ? $element['title']['@value'] : $element['title']; |
435
|
|
|
$default = (isset($element['@attributes']['selected']) AND $element['@attributes']['selected'] == 'true') ? 1 : 0; |
|
|
|
|
436
|
|
|
$description = ''; |
437
|
|
|
if (isset($element['description'])) { |
438
|
|
|
$description = is_array($element['description']) ? $element['description']['@value'] : $element['description']; |
439
|
|
|
} |
440
|
|
|
|
441
|
|
|
$value = $default; |
442
|
|
|
$user_pref = $user_prefs; |
443
|
|
|
$entitytype = isset($element['@attributes']['entitytype']) ? $element['@attributes']['entitytype'] : 'element'; |
444
|
|
|
if ($entitytype == 'attribute') { |
445
|
|
|
$user_pref = $user_prefs['@attributes']; |
446
|
|
|
} |
447
|
|
|
if (isset($user_pref[$name])) { |
448
|
|
|
if (is_array($user_pref[$name]) AND isset($user_pref[$name]['@value'])) { |
|
|
|
|
449
|
|
|
$value = $user_pref[$name]['@value']; |
450
|
|
|
} |
451
|
|
|
else { |
452
|
|
|
$value = $user_pref[$name]; |
453
|
|
|
} |
454
|
|
|
} |
455
|
|
|
|
456
|
|
|
// Translate elements as appropriate |
457
|
|
|
if ($title) { |
458
|
|
|
i18nstrings_update('project:prefs_xml', _boinctranslate_supertrim($title)); |
459
|
|
|
$title = i18nstrings('project:prefs_xml', _boinctranslate_supertrim($title)); |
460
|
|
|
} |
461
|
|
|
if ($description) { |
462
|
|
|
i18nstrings_update('project:prefs_xml', _boinctranslate_supertrim($description)); |
463
|
|
|
$description = i18nstrings('project:prefs_xml', _boinctranslate_supertrim($description)); |
464
|
|
|
} |
465
|
|
|
|
466
|
|
|
$form[$name] = array( |
467
|
|
|
'#title' => $title, |
468
|
|
|
'#type' => 'radios', |
469
|
|
|
'#options' => array(1 => bts('yes', array(), NULL, 'boinc:form-yes-no:-1:binary-form-option-pairs-with-no'), 0 => bts('no', array(), NULL, 'boinc:form-yes-no:-1:binary-form-option-pairs-with-yes')), |
470
|
|
|
'#attributes' => array('class' => 'fancy'), |
471
|
|
|
'#default_value' => $value, |
472
|
|
|
'#description' => $description |
473
|
|
|
); |
474
|
|
|
} |
475
|
|
|
break; |
476
|
|
|
|
477
|
|
|
case 'radio': |
478
|
|
|
case 'dropdown': |
479
|
|
|
|
480
|
|
|
if (!is_numeric(key($elements))) { |
481
|
|
|
$elements = array($elements); |
482
|
|
|
} |
483
|
|
|
foreach ($elements as $element) { |
484
|
|
|
$name = $element['@attributes']['name']; |
485
|
|
|
$default = null; |
486
|
|
|
$options = array(); |
487
|
|
|
foreach($element['items']['item'] as $item) { |
488
|
|
|
if (is_array($item)) { |
489
|
|
|
$value = $item['@value']; |
490
|
|
|
if ($default === NULL AND |
|
|
|
|
491
|
|
|
isset($item['@attributes']) AND |
|
|
|
|
492
|
|
|
isset($item['@attributes']['selected'])) { |
493
|
|
|
$default = ($item['@attributes']['selected'] == 'true') ? $item['@value'] : null; |
494
|
|
|
} |
495
|
|
|
} |
496
|
|
|
else { |
497
|
|
|
$value = $item; |
498
|
|
|
} |
499
|
|
|
$options[$value] = $value; |
500
|
|
|
} |
501
|
|
|
$title = is_array($element['title']) ? $element['title']['@value'] : $element['title']; |
502
|
|
|
$description = ''; |
503
|
|
|
if (isset($element['description'])) { |
504
|
|
|
$description = is_array($element['description']) ? $element['description']['@value'] : $element['description']; |
505
|
|
|
} |
506
|
|
|
$user_pref = $user_prefs; |
507
|
|
|
$entitytype = isset($element['@attributes']['entitytype']) ? $element['@attributes']['entitytype'] : 'element'; |
508
|
|
|
if ($entitytype == 'attribute') { |
509
|
|
|
$user_pref = $user_prefs['@attributes']; |
510
|
|
|
} |
511
|
|
|
$value = isset($user_pref[$name]) ? $user_pref[$name] : $default; |
512
|
|
|
|
513
|
|
|
// Translate elements as appropriate |
514
|
|
|
if ($title) { |
515
|
|
|
i18nstrings_update('project:prefs_xml', _boinctranslate_supertrim($title)); |
516
|
|
|
$title = i18nstrings('project:prefs_xml', _boinctranslate_supertrim($title)); |
517
|
|
|
} |
518
|
|
|
if ($description) { |
519
|
|
|
i18nstrings_update('project:prefs_xml', _boinctranslate_supertrim($description)); |
520
|
|
|
$description = i18nstrings('project:prefs_xml', _boinctranslate_supertrim($description)); |
521
|
|
|
} |
522
|
|
|
|
523
|
|
|
$form[$name] = array( |
524
|
|
|
'#title' => $title, |
525
|
|
|
'#type' => ($type == 'radio') ? 'radios' : 'select', |
526
|
|
|
'#options' => $options, |
527
|
|
|
'#attributes' => array('class' => 'fancy'), |
528
|
|
|
'#default_value' => $value, |
529
|
|
|
'#description' => $description . bts(' Default value: @default', array('@default' =>$default), NULL, 'boinc:account-preferences-project') |
530
|
|
|
); |
531
|
|
|
} |
532
|
|
|
break; |
533
|
|
|
|
534
|
|
|
case 'apps': |
535
|
|
|
$title = is_array($elements['title']) ? $elements['title']['@value'] : $elements['title']; |
536
|
|
|
|
537
|
|
|
// Translate elements as appropriate |
538
|
|
|
if ($title) { |
539
|
|
|
i18nstrings_update('project:prefs_xml', _boinctranslate_supertrim($title)); |
540
|
|
|
$title = i18nstrings('project:prefs_xml', _boinctranslate_supertrim($title)); |
541
|
|
|
} |
542
|
|
|
|
543
|
|
|
$form['applications'] = array( |
544
|
|
|
'#title' => bts('Applications', array(), NULL, 'boinc:account-preferences'), |
545
|
|
|
'#type' => 'fieldset', |
546
|
|
|
'#description' => $title, |
547
|
|
|
'#collapsible' => TRUE, |
548
|
|
|
'#collapsed' => FALSE |
549
|
|
|
); |
550
|
|
|
$applications = array(); |
551
|
|
|
if (!is_array($user_prefs['app_id'])) { |
552
|
|
|
$user_prefs['app_id'] = array($user_prefs['app_id']); |
553
|
|
|
} |
554
|
|
|
foreach ($user_prefs['app_id'] as $app) { |
555
|
|
|
if (!$app) continue; |
556
|
|
|
if (is_array($app) AND isset($app['@value'])) { |
|
|
|
|
557
|
|
|
$app = $app['@value']; |
558
|
|
|
} |
559
|
|
|
$applications[] = $app; |
560
|
|
|
} |
561
|
|
|
foreach ($elements['app'] as $app) { |
562
|
|
|
$app_id = $app['@attributes']['id']; |
563
|
|
|
$app_name = $app['@value']; |
564
|
|
|
$app_enabled = TRUE; |
565
|
|
|
if (isset($app['@attributes']['enabled']) AND |
|
|
|
|
566
|
|
|
$app['@attributes']['enabled'] == 'false') { |
567
|
|
|
$app_enabled = FALSE; |
568
|
|
|
} |
569
|
|
|
if ($applications) { |
570
|
|
|
$checked = in_array($app_id, $applications); |
571
|
|
|
} else { |
572
|
|
|
$checked = TRUE; |
573
|
|
|
if (isset($app['@attributes']['selected']) AND |
|
|
|
|
574
|
|
|
$app['@attributes']['selected'] == 'false') { |
575
|
|
|
$checked = FALSE; |
576
|
|
|
} |
577
|
|
|
} |
578
|
|
|
$form['applications']["app_{$app_id}"] = array( |
579
|
|
|
'#title' => $app_name, |
580
|
|
|
'#type' => 'checkbox', |
581
|
|
|
'#default_value' => ($checked) ? 'x' : false, |
582
|
|
|
'#disabled' => !$app_enabled |
583
|
|
|
); |
584
|
|
|
} |
585
|
|
|
|
586
|
|
|
break; |
587
|
|
|
|
588
|
|
|
case 'group': |
589
|
|
|
if (!is_numeric(key($elements))) { |
590
|
|
|
$elements = array($elements); |
591
|
|
|
} |
592
|
|
|
foreach ($elements as $key => $element) { |
593
|
|
|
$title = is_array($element['title']) ? $element['title']['@value'] : $element['title']; |
594
|
|
|
$name = str_replace(' ','_',strtolower($title)); |
595
|
|
|
$name = "group_{$name}"; |
596
|
|
|
|
597
|
|
|
// Translate elements as appropriate |
598
|
|
|
if ($title) { |
599
|
|
|
i18nstrings_update('project:prefs_xml', _boinctranslate_supertrim($title)); |
600
|
|
|
$title = i18nstrings('project:prefs_xml', _boinctranslate_supertrim($title)); |
601
|
|
|
} |
602
|
|
|
|
603
|
|
|
$form[$name] = array( |
604
|
|
|
'#title' => $title, |
605
|
|
|
'#type' => 'fieldset', |
606
|
|
|
'#tree' => FALSE, |
607
|
|
|
//'#description' => t('Notes about this group of fields'), |
608
|
|
|
'#collapsible' => TRUE, |
609
|
|
|
'#collapsed' => FALSE |
610
|
|
|
); |
611
|
|
|
// Recursively populate the compound element |
612
|
|
|
foreach ($element as $child_type => $child) { |
613
|
|
|
boincwork_generate_prefs_element($form[$name], $child_type, $child, $user_prefs); |
614
|
|
|
} |
615
|
|
|
} |
616
|
|
|
break; |
617
|
|
|
|
618
|
|
|
case 'compound': |
619
|
|
|
if (!is_numeric(key($elements))) { |
620
|
|
|
$elements = array($elements); |
621
|
|
|
} |
622
|
|
|
foreach ($elements as $element) { |
623
|
|
|
$name = $element['@attributes']['name']; |
624
|
|
|
$title = is_array($element['title']) ? $element['title']['@value'] : $element['title']; |
625
|
|
|
|
626
|
|
|
// Translate elements as appropriate |
627
|
|
|
if ($title) { |
628
|
|
|
i18nstrings_update('project:prefs_xml', _boinctranslate_supertrim($title)); |
629
|
|
|
$title = i18nstrings('project:prefs_xml', _boinctranslate_supertrim($title)); |
630
|
|
|
} |
631
|
|
|
|
632
|
|
|
$form[$name] = array( |
633
|
|
|
'#title' => $title, |
634
|
|
|
'#type' => 'fieldset', |
635
|
|
|
//'#description' => t('Notes about this group of fields'), |
636
|
|
|
'#collapsible' => TRUE, |
637
|
|
|
'#collapsed' => FALSE |
638
|
|
|
); |
639
|
|
|
// Recursively populate the compound element |
640
|
|
|
foreach ($element['attributes'] as $child_type => $child) { |
641
|
|
|
boincwork_generate_prefs_element($form[$name], $child_type, $child, $user_prefs[$name]['@attributes']); |
642
|
|
|
} |
643
|
|
|
} |
644
|
|
|
break; |
645
|
|
|
|
646
|
|
|
default: |
|
|
|
|
647
|
|
|
// Don't generate form elements for things that aren't explicitly form |
648
|
|
|
// elements (i.e. 'title', '@attributes' keys, and the like) |
649
|
|
|
} |
650
|
|
|
} |
651
|
|
|
|
652
|
|
|
/** |
653
|
|
|
* Generate a tabular structure out of preferences for use in comparison |
654
|
|
|
* views of preference sets |
655
|
|
|
*/ |
656
|
|
|
function boincwork_make_prefs_table($prefs, $top_level = TRUE) { |
657
|
|
|
|
658
|
|
|
$prefs_table = array(); |
659
|
|
|
$uncategorized = array(); |
660
|
|
|
|
661
|
|
|
// Parse the project preferences form |
662
|
|
|
foreach ($prefs as $key => $element) { |
663
|
|
|
|
664
|
|
|
// Determine which type of element this is and act accordingly |
665
|
|
|
$element_type = NULL; |
666
|
|
|
if (is_array($element) AND isset($element['#type'])) { |
|
|
|
|
667
|
|
|
$element_type = $element['#type']; |
668
|
|
|
} |
669
|
|
|
switch ($element_type) { |
670
|
|
|
case 'fieldset': |
671
|
|
|
$prefs_table[$key] = array( |
672
|
|
|
'name' => $element['#title'], |
673
|
|
|
'elements' => boincwork_make_prefs_table($element, FALSE), |
674
|
|
|
); |
675
|
|
|
break; |
676
|
|
|
case 'textfield': |
677
|
|
|
case 'radios': |
678
|
|
|
case 'checkbox': |
679
|
|
|
case 'select': |
680
|
|
|
// Special hack for time range preferences... |
681
|
|
|
if (in_array($key, array('start_hour', 'net_start_hour'))) { |
682
|
|
|
switch ($key) { |
683
|
|
|
case 'start_hour': |
684
|
|
|
$element['#title'] = bts('Compute only between:', array(), NULL, 'boinc:account-preferences-computing'); |
685
|
|
|
break; |
686
|
|
|
case 'net_start_hour': |
687
|
|
|
$element['#title'] = bts('Transfer files only between:', array(), NULL, 'boinc:account-preferences-comuting'); |
688
|
|
|
break; |
689
|
|
|
default: |
|
|
|
|
690
|
|
|
} |
691
|
|
|
} |
692
|
|
|
$prefs_element = array( |
693
|
|
|
'name' => (isset($element['#title'])) ? $element['#title'] : '', |
694
|
|
|
'description' => (isset($element['#description'])) ? $element['#description'] : '', |
695
|
|
|
'default_value' => (isset($element['#default_value'])) ? $element['#default_value'] : NULL, |
696
|
|
|
); |
697
|
|
|
if ($top_level) { |
698
|
|
|
$uncategorized[$key] = $prefs_element; |
699
|
|
|
} |
700
|
|
|
else { |
701
|
|
|
$prefs_table[$key] = $prefs_element; |
702
|
|
|
} |
703
|
|
|
break; |
704
|
|
|
default: |
|
|
|
|
705
|
|
|
} |
706
|
|
|
} |
707
|
|
|
|
708
|
|
|
if ($prefs_table AND $uncategorized) { |
|
|
|
|
709
|
|
|
// Throw any settings that don't fit elsewhere into "other" |
710
|
|
|
$prefs_table['other'] = array( |
711
|
|
|
'name' => bts('Other settings', array(), NULL, 'boinc:account-preferences'), |
712
|
|
|
'elements' => $uncategorized, |
713
|
|
|
); |
714
|
|
|
} |
715
|
|
|
elseif ($uncategorized) { |
716
|
|
|
// If nothing is categorized, output all prefs under a general "settings" |
717
|
|
|
$prefs_table['settings'] = array( |
718
|
|
|
'name' => bts('Settings', array(), NULL, 'boinc:account-preferences'), |
719
|
|
|
'elements' => $uncategorized, |
720
|
|
|
); |
721
|
|
|
} |
722
|
|
|
|
723
|
|
|
return $prefs_table; |
724
|
|
|
} |
725
|
|
|
|
726
|
|
|
/** |
727
|
|
|
* Load general or project preferences from BOINC account |
728
|
|
|
*/ |
729
|
|
|
function boincwork_load_prefs($type = 'general', $venue = null, $account = null) { |
730
|
|
|
|
731
|
|
|
require_boinc(array('user')); |
732
|
|
|
|
733
|
|
|
// Load the BOINC user object |
734
|
|
|
if (!$account) { |
735
|
|
|
global $user; |
736
|
|
|
$account = $user; |
737
|
|
|
} |
738
|
|
|
$account = user_load($account->uid); |
739
|
|
|
$boincuser = BoincUser::lookup_id($account->boincuser_id); |
740
|
|
|
|
741
|
|
|
// Load the desired preferences for the user |
742
|
|
|
$main_prefs = array(); |
743
|
|
|
if ($type == 'project') { |
744
|
|
|
if ($boincuser->project_prefs) { |
745
|
|
|
$main_prefs = load_configuration($boincuser->project_prefs); |
746
|
|
|
$main_prefs = (array) $main_prefs['project_preferences']; |
747
|
|
|
} |
748
|
|
|
} |
749
|
|
|
else { |
750
|
|
|
if ($boincuser->global_prefs) { |
751
|
|
|
$main_prefs = load_configuration($boincuser->global_prefs); |
752
|
|
|
$main_prefs = (array) $main_prefs['global_preferences']; |
753
|
|
|
} |
754
|
|
|
} |
755
|
|
|
|
756
|
|
|
// Return general preferences or a subset based on venue |
757
|
|
|
if (!$venue OR $venue == 'generic') { |
|
|
|
|
758
|
|
|
unset($main_prefs['venue']); |
759
|
|
|
// Use the length of the $main_prefs array as a condition as to |
760
|
|
|
// whether the preferences have already been set. This is |
761
|
|
|
// HARDCODED here. |
762
|
|
|
if (count($main_prefs) < 3) |
763
|
|
|
$main_prefs['@attributes'] = array('cleared' => 1); |
764
|
|
|
return $main_prefs; |
765
|
|
|
} |
766
|
|
|
else { |
767
|
|
|
if (isset($main_prefs['venue'])) { |
768
|
|
|
if (!is_numeric(key($main_prefs['venue']))) { |
769
|
|
|
$main_prefs['venue'] = array($main_prefs['venue']); |
770
|
|
|
} |
771
|
|
|
foreach ($main_prefs['venue'] as $key => $prefs_venue) { |
772
|
|
|
if (isset($prefs_venue['@attributes']['name']) AND $prefs_venue['@attributes']['name'] == $venue) { |
|
|
|
|
773
|
|
|
return $main_prefs['venue'][$key]; |
774
|
|
|
} |
775
|
|
|
} |
776
|
|
|
} |
777
|
|
|
} |
778
|
|
|
|
779
|
|
|
return array( |
780
|
|
|
'@attributes' => array('name' => $venue, 'cleared' => 1) |
781
|
|
|
); |
782
|
|
|
} |
783
|
|
|
|
784
|
|
|
/** |
785
|
|
|
* Save project preferences to BOINC account |
786
|
|
|
*/ |
787
|
|
|
function boincwork_save_prefs($prefs, $type = 'general', $venue = null, $account = null) { |
788
|
|
|
|
789
|
|
|
require_boinc(array('user')); |
790
|
|
|
|
791
|
|
|
// Load existing project prefs from the BOINC user object |
792
|
|
|
if (!$account) { |
793
|
|
|
global $user; |
794
|
|
|
$account = $user; |
795
|
|
|
} |
796
|
|
|
$account = user_load($account->uid); |
797
|
|
|
$boincuser = BoincUser::lookup_id($account->boincuser_id); |
798
|
|
|
|
799
|
|
|
// Load the specified preferences for the user |
800
|
|
|
$main_prefs = array(); |
801
|
|
|
if ($type == 'project') { |
802
|
|
|
if ($boincuser->project_prefs) { |
803
|
|
|
$main_prefs = load_configuration($boincuser->project_prefs); |
804
|
|
|
$main_prefs = (array) $main_prefs['project_preferences']; |
805
|
|
|
} |
806
|
|
|
} |
807
|
|
|
else { |
808
|
|
|
if ($boincuser->global_prefs) { |
809
|
|
|
$main_prefs = load_configuration($boincuser->global_prefs); |
810
|
|
|
$main_prefs = (array) $main_prefs['global_preferences']; |
811
|
|
|
} |
812
|
|
|
} |
813
|
|
|
|
814
|
|
|
// Save all preferences or a subset based on venue |
815
|
|
|
//drupal_set_message('<pre>' . print_r($main_prefs, true) . '</pre>'); |
816
|
|
|
$new_venue = true; |
817
|
|
|
if (!$venue OR $venue == 'generic') { |
|
|
|
|
818
|
|
|
//$main_prefs = $prefs; |
819
|
|
|
$main_prefs = $prefs + $main_prefs; |
820
|
|
|
} |
821
|
|
|
else { |
822
|
|
|
if (isset($main_prefs['venue'])) { |
823
|
|
|
if (!is_numeric(key($main_prefs['venue']))) { |
824
|
|
|
$main_prefs['venue'] = array($main_prefs['venue']); |
825
|
|
|
} |
826
|
|
|
foreach ($main_prefs['venue'] as $key => $prefs_venue) { |
827
|
|
|
if (isset($prefs_venue['@attributes']['name']) AND $prefs_venue['@attributes']['name'] == $venue) { |
|
|
|
|
828
|
|
|
if ($prefs) { |
829
|
|
|
$main_prefs['venue'][$key] = $prefs; |
830
|
|
|
} |
831
|
|
|
else { |
832
|
|
|
// If prefs is null, clear out this preference set |
833
|
|
|
unset($main_prefs['venue'][$key]); |
834
|
|
|
if (count($main_prefs['venue']) == 0) { |
835
|
|
|
// If that was the only preference set configured, unset the |
836
|
|
|
// venue tag altogether |
837
|
|
|
unset($main_prefs['venue']); |
838
|
|
|
} |
839
|
|
|
} |
840
|
|
|
$new_venue = false; |
841
|
|
|
break; |
842
|
|
|
} |
843
|
|
|
} |
844
|
|
|
} |
845
|
|
|
if ($new_venue) { |
846
|
|
|
$main_prefs['venue'][] = $prefs; |
847
|
|
|
} |
848
|
|
|
} |
849
|
|
|
|
850
|
|
|
// Set modified time |
851
|
|
|
if ($type == 'project') { |
852
|
|
|
if (!isset($main_prefs['modified'])) { |
853
|
|
|
$main_prefs = array_merge(array('modified' => 0), $main_prefs); |
854
|
|
|
} |
855
|
|
|
$main_prefs['modified'] = time(); |
856
|
|
|
} else { |
857
|
|
|
if (!isset($main_prefs['mod_time'])) { |
858
|
|
|
$main_prefs = array_merge(array('mod_time' => 0), $main_prefs); |
859
|
|
|
} |
860
|
|
|
$main_prefs['mod_time'] = time(); |
861
|
|
|
// unset source information, the Client will fill this in again |
862
|
|
|
if (isset($main_prefs['source_project'])) { |
863
|
|
|
unset($main_prefs['source_project']); |
864
|
|
|
} |
865
|
|
|
if (isset($main_prefs['source_scheduler'])) { |
866
|
|
|
unset($main_prefs['source_scheduler']); |
867
|
|
|
} |
868
|
|
|
} |
869
|
|
|
|
870
|
|
|
// Convert prefs back to XML and save to database |
871
|
|
|
$result = null; |
872
|
|
|
if ($type == 'project') { |
873
|
|
|
$main_prefs = array('project_preferences' => $main_prefs); |
874
|
|
|
$boincuser->project_prefs = save_configuration($main_prefs); |
875
|
|
|
db_set_active('boinc_rw'); |
876
|
|
|
$result = db_query("UPDATE user SET project_prefs = '{$boincuser->project_prefs}' WHERE id = '{$boincuser->id}'"); |
877
|
|
|
db_set_active('default'); |
878
|
|
|
} |
879
|
|
|
else { |
880
|
|
|
$main_prefs = array('global_preferences' => $main_prefs); |
881
|
|
|
$boincuser->global_prefs = save_configuration($main_prefs); |
882
|
|
|
db_set_active('boinc_rw'); |
883
|
|
|
$result = db_query("UPDATE user SET global_prefs = '{$boincuser->global_prefs}' WHERE id = '{$boincuser->id}'"); |
884
|
|
|
db_set_active('default'); |
885
|
|
|
} |
886
|
|
|
return $result; |
887
|
|
|
} |
888
|
|
|
|
889
|
|
|
|
890
|
|
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * |
891
|
|
|
* Ignore user functions |
892
|
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * */ |
893
|
|
|
|
894
|
|
|
// These functions are boinc-ppecific "replacements" for the |
895
|
|
|
// ignore_user module's add and remove user functions. |
896
|
|
|
|
897
|
|
|
|
898
|
|
|
/** |
899
|
|
|
*Add another user to the current user's ignore list using a BOINC |
900
|
|
|
*username. Called from privacy preference form. |
901
|
|
|
*/ |
902
|
|
|
function boincwork_ignore_user_add_user_username($name = NULL) { |
903
|
|
|
global $user; |
904
|
|
|
|
905
|
|
|
if (isset($name)) { |
906
|
|
|
// Get the BOINC ID from the name string, and lookup the |
907
|
|
|
// corresponding drupal user. |
908
|
|
|
$boincname = substr($name, 0, strrpos($name, '_')); |
909
|
|
|
$boincid = substr($name, strrpos($name, '_') + 1); |
910
|
|
|
// iuid is the drupal uid to be ignored and author to be blocked. |
911
|
|
|
$iuid = get_drupal_id($boincid); |
912
|
|
|
|
913
|
|
|
if ($user->uid == $iuid) { |
914
|
|
|
drupal_set_message(bts('You can\'t add yourself to your own ignore list.', array(), NULL, 'boinc:ignore-user-error-message'), 'error'); |
915
|
|
|
drupal_goto('account/prefs/privacy'); |
916
|
|
|
} |
917
|
|
|
|
918
|
|
|
if (is_numeric($iuid) && $iuid > 0) { |
919
|
|
|
if (!db_result(db_query('SELECT COUNT(iuid) FROM {ignore_user} WHERE uid = %d AND iuid = %d', $user->uid, $iuid))) { |
920
|
|
|
db_query('INSERT INTO {ignore_user} (uid, iuid) VALUES (%d, %d)', $user->uid, $iuid); |
921
|
|
|
}// endif db_result |
922
|
|
|
|
923
|
|
|
if (module_exists('pm_block_user')) { |
924
|
|
|
if (!db_result(db_query('SELECT COUNT(recipient) FROM {pm_block_user} WHERE author = %d AND recipient = %d', $iuid, $user->uid))) { |
925
|
|
|
db_query('INSERT INTO {pm_block_user} (author, recipient) VALUES (%d, %d)', $iuid, $user->uid); |
926
|
|
|
}// endif db_result |
927
|
|
|
}// endif module_exists('pm_block_user') |
928
|
|
|
|
929
|
|
|
}// endif $iuid |
930
|
|
|
} |
931
|
|
|
} |
932
|
|
|
|
933
|
|
|
/** |
934
|
|
|
* Add another user's UID to the current user's ignore list. |
935
|
|
|
*/ |
936
|
|
|
function boincwork_ignore_user_add_user($iuid = NULL) { |
937
|
|
|
global $user; |
938
|
|
|
|
939
|
|
|
if ($user->uid == $iuid) { |
940
|
|
|
drupal_set_message(bts('You can\'t add yourself to your own ignore list.', array(), NULL, 'boinc:ignore-user-error-message'), 'error'); |
941
|
|
|
drupal_goto(); |
942
|
|
|
} |
943
|
|
|
|
944
|
|
|
$otheraccount = user_load($iuid); |
945
|
|
|
|
946
|
|
|
if (is_numeric($iuid) && $iuid > 0) { |
947
|
|
|
if (!db_result(db_query('SELECT COUNT(iuid) FROM {ignore_user} WHERE uid = %d AND iuid = %d', $user->uid, $iuid))) { |
948
|
|
|
db_query('INSERT INTO {ignore_user} (uid, iuid) VALUES (%d, %d)', $user->uid, $iuid); |
949
|
|
|
}// endif db_result |
950
|
|
|
|
951
|
|
|
if (module_exists('pm_block_user')) { |
952
|
|
|
if (!db_result(db_query('SELECT COUNT(recipient) FROM {pm_block_user} WHERE author = %d AND recipient = %d', $iuid, $user->uid))) { |
953
|
|
|
db_query('INSERT INTO {pm_block_user} (author, recipient) VALUES (%d, %d)', $iuid, $user->uid); |
954
|
|
|
}// endif db_result |
955
|
|
|
}// endif module_exists('pm_block_user') |
956
|
|
|
|
957
|
|
|
drupal_set_message( |
958
|
|
|
bts('@username has been added to your ignore list. See your !privacy_preferences for more details.', |
959
|
|
|
array( |
960
|
|
|
'@username' => $otheraccount->boincuser_name, |
961
|
|
|
'!privacy_preferences' => l(bts('privacy preferences', array(), NULL, 'boinc:ignore-user-add'), 'account/prefs/privacy'), |
962
|
|
|
), |
963
|
|
|
NULL, 'boinc:ignore-user-add'), |
964
|
|
|
'status'); |
965
|
|
|
drupal_goto(); |
966
|
|
|
} |
967
|
|
|
else { |
968
|
|
|
drupal_not_found(); |
969
|
|
|
}// endif iuid |
970
|
|
|
} |
971
|
|
|
|
972
|
|
|
/** |
973
|
|
|
* Remove user from user's ignore list. |
974
|
|
|
*/ |
975
|
|
|
function boincwork_ignore_user_remove_user($iuid = NULL) { |
976
|
|
|
global $user; |
977
|
|
|
$otheraccount = user_load($iuid); |
978
|
|
|
|
979
|
|
|
db_query('DELETE FROM {ignore_user} WHERE uid = %d AND iuid = %d', $user->uid, $iuid); |
980
|
|
|
if (module_exists('pm_block_user')) { |
981
|
|
|
db_query('DELETE FROM {pm_block_user} WHERE author = %d AND recipient = %d', $iuid, $user->uid); |
982
|
|
|
}// endif module_exists |
983
|
|
|
drupal_set_message( |
984
|
|
|
bts('@username has been removed from your ignore list. See your !privacy_preferences for more details.', |
985
|
|
|
array( |
986
|
|
|
'@username' => $otheraccount->boincuser_name, |
987
|
|
|
'!privacy_preferences' => l(bts('privacy preferences', array(), NULL, 'boinc:ignore-user-add'), 'account/prefs/privacy'), |
988
|
|
|
), |
989
|
|
|
NULL, 'boinc:ignore-user-add'), |
990
|
|
|
'status'); |
991
|
|
|
drupal_goto('account/prefs/privacy'); |
992
|
|
|
} |
993
|
|
|
|
994
|
|
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * |
995
|
|
|
* Consent to Privacy funtions |
996
|
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * */ |
997
|
|
|
|
998
|
|
|
/** |
999
|
|
|
* Load consent types for privacy preferences from database. Returns |
1000
|
|
|
* an array of the relevant consent_types. Otherwise returns an emtpy |
1001
|
|
|
* array. |
1002
|
|
|
*/ |
1003
|
|
|
function boincwork_load_privacyconsenttypes() { |
1004
|
|
|
|
1005
|
|
|
db_set_active('boinc_rw'); |
1006
|
|
|
$db_result = db_query("SELECT id,shortname,description FROM consent_type WHERE enabled=1 AND privacypref=1 ORDER by project_specific ASC"); |
1007
|
|
|
db_set_active('drupal'); |
1008
|
|
|
|
1009
|
|
|
if ($db_result) { |
1010
|
|
|
$consent_types = array(); |
1011
|
|
|
while ($result = db_fetch_array($db_result)) { |
1012
|
|
|
$consent_types[] = $result; |
1013
|
|
|
} |
1014
|
|
|
return $consent_types; |
1015
|
|
|
} |
1016
|
|
|
return array(); |
1017
|
|
|
} |
1018
|
|
|
|
1019
|
|
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * |
1020
|
|
|
* Utility functions |
1021
|
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * */ |
1022
|
|
|
|
1023
|
|
|
/** |
1024
|
|
|
* Set the default preference set for the user |
1025
|
|
|
*/ |
1026
|
|
|
function boincwork_set_default_venue($venue = '') { |
1027
|
|
|
|
1028
|
|
|
global $user; |
1029
|
|
|
$account = user_load($user->uid); |
1030
|
|
|
|
1031
|
|
|
if ($venue == 'generic') { |
1032
|
|
|
$venue = ''; |
1033
|
|
|
} |
1034
|
|
|
|
1035
|
|
|
db_set_active('boinc_rw'); |
1036
|
|
|
db_query(" |
1037
|
|
|
UPDATE user |
1038
|
|
|
SET venue = '%s' |
1039
|
|
|
WHERE id = %d", |
1040
|
|
|
$venue, $account->boincuser_id |
1041
|
|
|
); |
1042
|
|
|
db_set_active('default'); |
1043
|
|
|
} |
1044
|
|
|
|
1045
|
|
|
/** |
1046
|
|
|
* Recursively validate submitted form values against a set of rules |
1047
|
|
|
*/ |
1048
|
|
|
function boincwork_validate_form($validation_rules, $values, $path = array()) { |
1049
|
|
|
foreach ($validation_rules as $field => $rules) { |
1050
|
|
|
$parents = $path; |
1051
|
|
|
if (is_array($values[$field])) { |
1052
|
|
|
// Process nested form elements |
1053
|
|
|
$parents[] = $field; |
1054
|
|
|
boincwork_validate_form($rules, $values[$field], $parents); |
1055
|
|
|
} |
1056
|
|
|
else { |
1057
|
|
|
if ($parents) { |
1058
|
|
|
// form_set_error() identifies nested form elements with '][' as a |
1059
|
|
|
// delimiter between each parent and child element |
1060
|
|
|
$parents[] = $field; |
1061
|
|
|
$form_field = implode('][', $parents); |
1062
|
|
|
} |
1063
|
|
|
else { |
1064
|
|
|
$form_field = $field; |
1065
|
|
|
} |
1066
|
|
|
if (isset($rules['datatype']) AND !boincwork_validate_datatype($values[$field], $rules['datatype'])) { |
|
|
|
|
1067
|
|
|
form_set_error($form_field, bts('Invalid data type for @field', array('@field' => $field), NULL, 'boinc:account-preferences')); |
1068
|
|
|
} |
1069
|
|
|
if (isset($rules['min']) AND $values[$field] < $rules['min']) { |
|
|
|
|
1070
|
|
|
form_set_error($form_field, bts('Minimum value not met for @field', array('@field' => $field), NULL, 'boinc:account-preferences')); |
1071
|
|
|
} |
1072
|
|
|
if (isset($rules['max']) AND $values[$field] > $rules['max']) { |
|
|
|
|
1073
|
|
|
form_set_error($form_field, bts('Maximum value exceeded for @field', array('@field' => $field), NULL, 'boinc:account-preferences')); |
1074
|
|
|
} |
1075
|
|
|
} |
1076
|
|
|
} |
1077
|
|
|
} |
1078
|
|
|
|
1079
|
|
|
/** |
1080
|
|
|
* Check that numeric data conforms to specifications |
1081
|
|
|
*/ |
1082
|
|
|
function boincwork_validate_datatype($data, $datatype = NULL) { |
1083
|
|
|
switch ($datatype) { |
1084
|
|
|
case 'float': |
1085
|
|
|
if (!is_numeric($data)) { |
1086
|
|
|
return FALSE; |
1087
|
|
|
} |
1088
|
|
|
$data += 0.0; |
1089
|
|
|
if (!is_float($data)) { |
|
|
|
|
1090
|
|
|
return FALSE; |
1091
|
|
|
} |
1092
|
|
|
break; |
1093
|
|
|
|
1094
|
|
|
case 'integer': |
1095
|
|
|
if (!is_numeric($data)) { |
1096
|
|
|
return FALSE; |
1097
|
|
|
} |
1098
|
|
|
$data += 0; |
1099
|
|
|
if (!is_int($data)) { |
|
|
|
|
1100
|
|
|
return FALSE; |
1101
|
|
|
} |
1102
|
|
|
break; |
1103
|
|
|
|
1104
|
|
|
case 'text': |
1105
|
|
|
default: |
|
|
|
|
1106
|
|
|
|
1107
|
|
|
} |
1108
|
|
|
return TRUE; |
1109
|
|
|
} |
1110
|
|
|
|
1111
|
|
|
/** |
1112
|
|
|
* Format a number to be displayed using a maximum number of digits |
1113
|
|
|
*/ |
1114
|
|
|
function boincwork_format_stats($number, $max_digits = 4) { |
1115
|
|
|
$suffix = array( |
1116
|
|
|
0 => '', |
1117
|
|
|
1 => 'k', |
1118
|
|
|
2 => 'M', |
1119
|
|
|
3 => 'G', |
1120
|
|
|
4 => 'T', |
1121
|
|
|
5 => 'P', |
1122
|
|
|
6 => 'E', |
1123
|
|
|
7 => 'Z', |
1124
|
|
|
8 => 'Y' |
1125
|
|
|
); |
1126
|
|
|
if (!is_numeric($number)) $number = 0; |
1127
|
|
|
|
1128
|
|
|
$digits = floor(log($number, 10)) + 1; |
1129
|
|
|
$magnitude = 0; |
1130
|
|
|
$precision = 0; |
1131
|
|
|
if ($digits > $max_digits) { |
1132
|
|
|
$magnitude = floor(($digits - ($max_digits - 3)) / 3); |
1133
|
|
|
$precision = $max_digits - ($digits - ($magnitude * 3) + 1); |
1134
|
|
|
$number = round($number / pow(1000, $magnitude), $precision); |
|
|
|
|
1135
|
|
|
} |
1136
|
|
|
$number = number_format($number, $precision) . (($magnitude) ? "{$suffix[$magnitude]}" : ''); |
|
|
|
|
1137
|
|
|
|
1138
|
|
|
return $number; |
1139
|
|
|
} |
1140
|
|
|
|
1141
|
|
|
//------------------------------------------------------------------------------------------------ |
1142
|
|
|
// load_configuration(): Convert structured text/xml to array |
1143
|
|
|
//------------------------------------------------------------------------------------------------ |
1144
|
|
|
|
1145
|
|
|
function load_configuration($text) |
1146
|
|
|
{ |
1147
|
|
|
if (preg_match('/^\<\?xml .*\?\>$/i', $text)) return null; |
1148
|
|
|
if ($xml = text_to_xml($text)) return xml_to_array($xml); |
1149
|
|
|
return false; |
1150
|
|
|
} |
1151
|
|
|
|
1152
|
|
|
//------------------------------------------------------------------------------------------------ |
1153
|
|
|
// save_configuration(): Convert array to structured text/xml |
1154
|
|
|
//------------------------------------------------------------------------------------------------ |
1155
|
|
|
|
1156
|
|
|
function save_configuration($array) |
1157
|
|
|
{ |
1158
|
|
|
if ($xml = array_to_xml($array)) return xml_to_text($xml, false, true); |
1159
|
|
|
return false; |
1160
|
|
|
} |
1161
|
|
|
|
1162
|
|
|
//------------------------------------------------------------------------------------------------ |
1163
|
|
|
// array_to_xml(): Take a multidimensional array and convert it to a structured |
1164
|
|
|
// DOM XML object |
1165
|
|
|
//------------------------------------------------------------------------------------------------ |
1166
|
|
|
|
1167
|
|
|
function array_to_xml($array, $dom = false, $parent_node = false) { |
1168
|
|
|
$is_root = false; |
1169
|
|
|
if (!$dom) $dom = new DomDocument('1.0'); |
1170
|
|
|
if (!$parent_node) { |
1171
|
|
|
$parent_node = $dom; |
1172
|
|
|
$is_root = true; |
1173
|
|
|
} |
1174
|
|
|
// Created an intermediate array to attempt to sort by @position |
1175
|
|
|
$ordered_array = array(); |
1176
|
|
|
$unordered_array = array(); |
1177
|
|
|
foreach ($array as $name => $value) { |
1178
|
|
|
if ($is_root) { |
1179
|
|
|
$unordered_array[] = $array; |
1180
|
|
|
break; |
1181
|
|
|
} |
1182
|
|
|
if (is_array($value)) { |
1183
|
|
|
if (is_numeric(key($value))) { |
1184
|
|
|
foreach ($value as $item) { |
1185
|
|
|
if (is_array($item) AND isset($item['@position'])) { |
|
|
|
|
1186
|
|
|
$ordered_array[$item['@position']] = array( |
1187
|
|
|
$name => $item |
1188
|
|
|
); |
1189
|
|
|
} |
1190
|
|
|
else { |
1191
|
|
|
$unordered_array[] = array( |
1192
|
|
|
$name => $item |
1193
|
|
|
); |
1194
|
|
|
} |
1195
|
|
|
} |
1196
|
|
|
} |
1197
|
|
|
elseif (isset($value['@position'])) { |
1198
|
|
|
$ordered_array[$value['@position']] = array( |
1199
|
|
|
$name => $value |
1200
|
|
|
); |
1201
|
|
|
} |
1202
|
|
|
else { |
1203
|
|
|
$unordered_array[] = array( |
1204
|
|
|
$name => $value |
1205
|
|
|
); |
1206
|
|
|
} |
1207
|
|
|
} |
1208
|
|
|
else { |
1209
|
|
|
$unordered_array[] = array( |
1210
|
|
|
$name => $value |
1211
|
|
|
); |
1212
|
|
|
} |
1213
|
|
|
} |
1214
|
|
|
|
1215
|
|
|
// Now append items without explicit positions at the end |
1216
|
|
|
$primed_array = array_merge($ordered_array, $unordered_array); |
1217
|
|
|
|
1218
|
|
|
// Convert to XML... |
1219
|
|
|
foreach ($primed_array as $item) { |
1220
|
|
|
list($name, $value) = each($item); |
1221
|
|
|
if (strcmp($name, '@attributes') == 0) { |
1222
|
|
|
if (!is_array($value)) continue; |
1223
|
|
|
foreach ($value as $attributeName => $attributeValue) { |
1224
|
|
|
$parent_node->setAttribute($attributeName, $attributeValue); |
1225
|
|
|
} |
1226
|
|
|
} elseif (strcmp($name, '@value') == 0) { |
1227
|
|
|
if (isset($value)) $parent_node->nodeValue = $value; |
1228
|
|
|
} elseif (strcmp($name, '@position') == 0) { |
1229
|
|
|
continue; |
1230
|
|
|
} else { |
1231
|
|
|
if (is_numeric($name)) { |
1232
|
|
|
$name = $parent_node->tagName; |
1233
|
|
|
} |
1234
|
|
|
$current_item = $dom->createElement($name); |
1235
|
|
|
if (is_array($value)) { |
1236
|
|
|
if (is_numeric(key($value))) { |
1237
|
|
|
$current_node = $parent_node->appendChild($current_item); |
1238
|
|
|
$current_node = array_to_xml($value, $dom, $current_node); |
1239
|
|
|
$child_count = $current_node->childNodes->length; |
1240
|
|
|
for ($i = 0; $i < $child_count; $i++) { |
1241
|
|
|
$parent_node->appendChild($current_node->childNodes->item(0)); |
1242
|
|
|
} |
1243
|
|
|
$parent_node->removeChild($current_node); |
1244
|
|
|
} else { |
1245
|
|
|
$current_node = $dom->appendChild($current_item); |
1246
|
|
|
$parent_node->appendChild(array_to_xml($value, $dom, $current_node)); |
1247
|
|
|
} |
1248
|
|
|
} else { |
1249
|
|
|
if (isset($value)) $current_item->nodeValue = $value; |
1250
|
|
|
$parent_node->appendChild($current_item); |
1251
|
|
|
} |
1252
|
|
|
} |
1253
|
|
|
} |
1254
|
|
|
/* |
1255
|
|
|
foreach ($array as $name => $value) { |
1256
|
|
|
if (strcmp($name, '@attributes') == 0) { |
1257
|
|
|
if (!is_array($value)) continue; |
1258
|
|
|
foreach ($value as $attributeName => $attributeValue) { |
1259
|
|
|
$parent_node->setAttribute($attributeName, $attributeValue); |
1260
|
|
|
} |
1261
|
|
|
} elseif (strcmp($name, '@value') == 0) { |
1262
|
|
|
if (isset($value)) $parent_node->nodeValue = $value; |
1263
|
|
|
} else { |
1264
|
|
|
if (is_numeric($name)) { |
1265
|
|
|
$name = $parent_node->tagName; |
1266
|
|
|
} |
1267
|
|
|
$current_item = $dom->createElement($name); |
1268
|
|
|
if (is_array($value)) { |
1269
|
|
|
if (is_numeric(key($value))) { |
1270
|
|
|
$current_node = $parent_node->appendChild($current_item); |
1271
|
|
|
$current_node = array_to_xml($value, $dom, $current_node); |
1272
|
|
|
$child_count = $current_node->childNodes->length; |
1273
|
|
|
for ($i = 0; $i < $child_count; $i++) { |
1274
|
|
|
$parent_node->appendChild($current_node->childNodes->item(0)); |
1275
|
|
|
} |
1276
|
|
|
$parent_node->removeChild($current_node); |
1277
|
|
|
} else { |
1278
|
|
|
$current_node = $dom->appendChild($current_item); |
1279
|
|
|
$parent_node->appendChild(array_to_xml($value, $dom, $current_node)); |
1280
|
|
|
} |
1281
|
|
|
} else { |
1282
|
|
|
if (isset($value)) $current_item->nodeValue = $value; |
1283
|
|
|
$parent_node->appendChild($current_item); |
1284
|
|
|
} |
1285
|
|
|
} |
1286
|
|
|
}*/ |
1287
|
|
|
return $parent_node; |
1288
|
|
|
} |
1289
|
|
|
|
1290
|
|
|
//------------------------------------------------------------------------------------------------ |
1291
|
|
|
// xml_to_text(): Convert an XML DOM object to string format |
1292
|
|
|
//------------------------------------------------------------------------------------------------ |
1293
|
|
|
|
1294
|
|
|
function xml_to_text($xml, $include_xml_declaration = true, $add_carriage_returns = false) |
1295
|
|
|
{ |
1296
|
|
|
$xml->formatOutput = true; |
1297
|
|
|
$text = $xml->saveXML(); |
1298
|
|
|
if (!$include_xml_declaration) { |
1299
|
|
|
$text = preg_replace('/<\?xml version=.*\?>\s*/i', '', $text, 1); |
1300
|
|
|
} |
1301
|
|
|
if ($add_carriage_returns) {; |
1302
|
|
|
$text = preg_replace('/\n/i', "\r\n", $text); |
1303
|
|
|
} |
1304
|
|
|
return trim($text); |
1305
|
|
|
} |
1306
|
|
|
|
1307
|
|
|
//------------------------------------------------------------------------------------------------ |
1308
|
|
|
// text_to_xml(): Convert an XML DOM object to string format |
1309
|
|
|
//------------------------------------------------------------------------------------------------ |
1310
|
|
|
|
1311
|
|
|
function text_to_xml($text) { |
1312
|
|
|
$xml = new DomDocument(); |
1313
|
|
|
if ( !($xml->loadXML($text)) ) return false; |
1314
|
|
|
return $xml; |
1315
|
|
|
} |
1316
|
|
|
|
1317
|
|
|
|
1318
|
|
|
//------------------------------------------------------------------------------------------------ |
1319
|
|
|
// xml_to_array(): Convert an XML DOM object to array format |
1320
|
|
|
//------------------------------------------------------------------------------------------------ |
1321
|
|
|
|
1322
|
|
|
function xml_to_array($xml) { |
1323
|
|
|
$node = $xml->firstChild; //$xml->first_child(); |
1324
|
|
|
$result = ''; |
1325
|
|
|
$index = 1; |
1326
|
|
|
$position = 0; |
1327
|
|
|
while (!is_null($node)) { |
1328
|
|
|
switch ($node->nodeType) { |
1329
|
|
|
case XML_TEXT_NODE: |
1330
|
|
|
if (trim($node->nodeValue) != '') $result = $node->nodeValue; |
|
|
|
|
1331
|
|
|
break; |
1332
|
|
|
case XML_ELEMENT_NODE: |
1333
|
|
|
$node_name = $node->nodeName; |
1334
|
|
|
$parent = $node->parentNode; |
1335
|
|
|
$sibling = $node->nextSibling; |
1336
|
|
|
|
1337
|
|
|
// Determine if this node forms a set with siblings (share a node name) |
1338
|
|
|
while (($sibling) AND (($sibling->nodeType != XML_ELEMENT_NODE) OR ($sibling->nodeName != $node->nodeName))) $sibling = $sibling->nextSibling; |
|
|
|
|
1339
|
|
|
if (!$sibling) { |
1340
|
|
|
$sibling = $node->previousSibling; |
1341
|
|
|
while (($sibling) AND (($sibling->nodeType != XML_ELEMENT_NODE) OR ($sibling->nodeName != $node->nodeName))) $sibling = $sibling->previousSibling; |
|
|
|
|
1342
|
|
|
} |
1343
|
|
|
|
1344
|
|
|
if ($sibling) { |
1345
|
|
|
$result[$node_name][$index] = ''; |
1346
|
|
|
if ($node->childNodes) { |
1347
|
|
|
$result[$node_name][$index] = xml_to_array($node) ; |
|
|
|
|
1348
|
|
|
} |
1349
|
|
|
if ($node->hasAttributes()) { |
1350
|
|
|
$attributes = $node->attributes; |
1351
|
|
|
if ($result[$node_name][$index] !== '' AND !is_array($result[$node_name][$index])) { |
|
|
|
|
1352
|
|
|
$result[$node_name][$index] = array('@value' => $result[$node_name][$index]); |
1353
|
|
|
} |
1354
|
|
|
foreach ($attributes as $key => $attribute) { |
1355
|
|
|
$result[$node_name][$index]['@attributes'][$attribute->name] = $attribute->value; |
1356
|
|
|
} |
1357
|
|
|
} |
1358
|
|
|
// Retain the position of the element |
1359
|
|
|
if (!is_array($result[$node_name][$index])) { |
1360
|
|
|
$result[$node_name][$index] = array( |
1361
|
|
|
'@value' => $result[$node_name][$index] |
1362
|
|
|
); |
1363
|
|
|
} |
1364
|
|
|
$result[$node_name][$index]['@position'] = $position; |
1365
|
|
|
$position++; |
1366
|
|
|
$index++; |
1367
|
|
|
} else { |
1368
|
|
|
$result[$node_name] = ''; |
1369
|
|
|
if ($node->childNodes) { |
1370
|
|
|
$result[$node_name] = xml_to_array($node) ; |
|
|
|
|
1371
|
|
|
} |
1372
|
|
|
if ($node->hasAttributes()) { |
1373
|
|
|
$attributes = $node->attributes; |
1374
|
|
|
if ($result[$node_name] !== '' AND !is_array($result[$node_name])) { |
|
|
|
|
1375
|
|
|
$result[$node_name] = array('@value' => $result[$node_name]); |
1376
|
|
|
} |
1377
|
|
|
foreach($attributes as $key => $attribute) { |
1378
|
|
|
$result[$node_name]['@attributes'][$attribute->name] = $attribute->value; |
1379
|
|
|
} |
1380
|
|
|
} |
1381
|
|
|
// Retain the position of the element |
1382
|
|
|
if (!is_array($result[$node_name])) { |
1383
|
|
|
$result[$node_name] = array( |
1384
|
|
|
'@value' => $result[$node_name] |
1385
|
|
|
); |
1386
|
|
|
} |
1387
|
|
|
$result[$node_name]['@position'] = $position; |
1388
|
|
|
$position++; |
1389
|
|
|
} |
1390
|
|
|
break; |
1391
|
|
|
} |
1392
|
|
|
$node = $node->nextSibling; |
1393
|
|
|
} |
1394
|
|
|
return $result; |
1395
|
|
|
} |
1396
|
|
|
|
1397
|
|
|
|
1398
|
|
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * |
1399
|
|
|
* Functions for use in displaying special case text in views |
1400
|
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * */ |
1401
|
|
|
|
1402
|
|
|
/** |
1403
|
|
|
* Determine output for host list views when no hosts are found. |
1404
|
|
|
*/ |
1405
|
|
|
function boincwork_views_host_list_empty_text($context = NULL) { |
1406
|
|
|
|
1407
|
|
|
// Pull the BOINC user ID from the view arguments to get show_hosts |
1408
|
|
|
// preference for that user |
1409
|
|
|
require_boinc('boinc_db'); |
1410
|
|
|
$view = views_get_current_view(); |
1411
|
|
|
$account = user_load($view->args[0]); |
1412
|
|
|
$boincuser = BoincUser::lookup_id($account->boincuser_id); |
1413
|
|
|
|
1414
|
|
|
// Determine if hosts are associated at all or just hidden |
1415
|
|
|
$output = ''; |
1416
|
|
|
if ($boincuser->show_hosts) { |
1417
|
|
|
switch($context) { |
1418
|
|
|
case 'active': |
1419
|
|
|
$output .= '<h2>' . bts('No active computers', array(), NULL, 'boinc:host-list') . '</h2>'; |
|
|
|
|
1420
|
|
|
$output .= '<p>' . bts('This user has no computers that have been' |
|
|
|
|
1421
|
|
|
. ' active in the last 30 days.', array(), NULL, 'boinc:host-list') . '</p>'; |
1422
|
|
|
break; |
1423
|
|
|
|
1424
|
|
|
case 'preferences': |
1425
|
|
|
$output .= '<h2>' . bts('No computers', array(), NULL, 'boinc:host-list') . '</h2>'; |
|
|
|
|
1426
|
|
|
$output .= '<p>' . bts('There are no computers assigned to this' |
|
|
|
|
1427
|
|
|
. ' preference set.', array(), NULL, 'boinc:host-list') . '</p>'; |
1428
|
|
|
break; |
1429
|
|
|
|
1430
|
|
|
default: |
|
|
|
|
1431
|
|
|
$output .= '<h2>' . bts('Computers pending', array(), NULL, 'boinc:host-list') . '</h2>'; |
|
|
|
|
1432
|
|
|
$output .= '<p>' . bts('This user does not yet have any associated' |
|
|
|
|
1433
|
|
|
. ' computers. Computers will be displayed when they have earned their' |
1434
|
|
|
. ' first credits.', array(), NULL, 'boinc:host-list') . '</p>'; |
1435
|
|
|
} |
1436
|
|
|
} |
1437
|
|
|
else { |
1438
|
|
|
$output .= '<h2>' . bts('Computers hidden', array(), NULL, 'boinc:host-list') . '</h2>'; |
|
|
|
|
1439
|
|
|
$output .= '<p>' . bts('This user has chosen not to show information' |
|
|
|
|
1440
|
|
|
. ' about their computers.', array(), NULL, 'boinc:host-list') . '</p>'; |
1441
|
|
|
} |
1442
|
|
|
return $output; |
1443
|
|
|
} |
1444
|
|
|
|
1445
|
|
|
/** |
1446
|
|
|
* Determine output for task list views when no tasks are found. |
1447
|
|
|
*/ |
1448
|
|
|
function boincwork_views_task_list_empty_text($context = NULL) { |
1449
|
|
|
|
1450
|
|
|
// |
1451
|
|
|
$output = ''; |
1452
|
|
|
switch($context) { |
|
|
|
|
1453
|
|
|
default: |
|
|
|
|
1454
|
|
|
$output .= '<h2>' . bts('No @type tasks', array('@type' => $context), NULL, 'boinc:task-list') |
|
|
|
|
1455
|
|
|
. '</h2>'; |
1456
|
|
|
$output .= '<p>' . bts('There are no tasks of this type on record', array(), NULL, 'boinc:task-list') |
|
|
|
|
1457
|
|
|
. '</p>'; |
1458
|
|
|
} |
1459
|
|
|
return $output; |
1460
|
|
|
} |
1461
|
|
|
|
1462
|
|
|
/** |
1463
|
|
|
* Output links to perform host actions |
1464
|
|
|
*/ |
1465
|
|
|
function boincwork_host_action_links($host_id) { |
1466
|
|
|
$output = ''; |
1467
|
|
|
if (boincwork_host_user_is_owner($host_id)) { |
1468
|
|
|
// Show merge hosts option |
1469
|
|
|
$output = '<ul class="tab-list"><li class="first tab">'; |
1470
|
|
|
$output .= l(bts('Merge', array(), NULL, 'boinc:form-merge'), "host/{$host_id}/merge"); |
1471
|
|
|
$output .= '</li>'; |
1472
|
|
|
// If host has no tasks, allow the host to be deleted |
1473
|
|
|
if (!boincwork_host_get_task_count($host_id)) { |
1474
|
|
|
$output .= '<li class="tab">'; |
1475
|
|
|
$output .= l(bts('Delete', array(), NULL, 'boinc:form-delete'), "host/{$host_id}/delete", |
1476
|
|
|
array( |
1477
|
|
|
'attributes' => array( |
1478
|
|
|
'onclick' => 'return confirm(\'' . bts('This will delete host @id' |
1479
|
|
|
. ' from your account forever. Are you sure this is OK?', |
1480
|
|
|
array('@id' => $host_id), |
1481
|
|
|
NULL, 'boinc:account-host-delete') . '\')' |
1482
|
|
|
) |
1483
|
|
|
) |
1484
|
|
|
); |
1485
|
|
|
$output .= '</li>'; |
1486
|
|
|
} |
1487
|
|
|
$output .= '</ul>'; |
1488
|
|
|
} |
1489
|
|
|
return $output; |
1490
|
|
|
} |
1491
|
|
|
|
1492
|
|
|
/** |
1493
|
|
|
* Get details for a given host |
1494
|
|
|
*/ |
1495
|
|
|
function boincwork_host_get_info($host_id) { |
1496
|
|
|
db_set_active('boinc_ro'); |
1497
|
|
|
$host = db_fetch_object(db_query( |
1498
|
|
|
"SELECT * FROM {host} WHERE id = '%d'", |
1499
|
|
|
$host_id |
1500
|
|
|
)); |
1501
|
|
|
db_set_active('default'); |
1502
|
|
|
return $host; |
1503
|
|
|
} |
1504
|
|
|
|
1505
|
|
|
/** |
1506
|
|
|
* Get the number of tasks associated with a given host |
1507
|
|
|
*/ |
1508
|
|
|
function boincwork_host_get_task_count($host_id) { |
1509
|
|
|
db_set_active('boinc_ro'); |
1510
|
|
|
$count = db_result(db_query( |
1511
|
|
|
"SELECT COUNT(*) FROM {result} WHERE hostid = '%d'", |
1512
|
|
|
$host_id |
1513
|
|
|
)); |
1514
|
|
|
db_set_active('default'); |
1515
|
|
|
return $count; |
1516
|
|
|
} |
1517
|
|
|
|
1518
|
|
|
/** |
1519
|
|
|
* Check whether a user is the owner of a host |
1520
|
|
|
*/ |
1521
|
|
|
function boincwork_host_user_is_owner($host_id, $uid = NULL) { |
1522
|
|
|
if (!$uid) { |
1523
|
|
|
global $user; |
1524
|
|
|
$uid = $user->uid; |
1525
|
|
|
} |
1526
|
|
|
$account = user_load($uid); |
1527
|
|
|
// Get host owner |
1528
|
|
|
db_set_active('boinc_ro'); |
1529
|
|
|
$owner = db_result(db_query( |
1530
|
|
|
"SELECT userid FROM {host} WHERE id = '%d'", |
1531
|
|
|
$host_id |
1532
|
|
|
)); |
1533
|
|
|
db_set_active('default'); |
1534
|
|
|
return ($account->boincuser_id === $owner); |
1535
|
|
|
} |
1536
|
|
|
|
1537
|
|
|
/** |
1538
|
|
|
* Determine output for host last contact time |
1539
|
|
|
*/ |
1540
|
|
|
function boincwork_host_last_contact($timestamp, $host_id = NULL, $context = NULL) { |
1541
|
|
|
$output = '---'; |
1542
|
|
|
$root_log_dir = variable_get('boinc_host_sched_logs_dir', ''); |
1543
|
|
|
$log = ''; |
1544
|
|
|
if ($timestamp) { |
1545
|
|
|
$output = date('j M Y G:i:s T', $timestamp); |
1546
|
|
|
} |
1547
|
|
|
if ($root_log_dir AND $host_id) { |
|
|
|
|
1548
|
|
|
$subdir = substr($host_id, 0, -3) OR $subdir = 0; |
|
|
|
|
1549
|
|
|
$log = implode('/', array($root_log_dir, $subdir, $host_id)); |
1550
|
|
|
} |
1551
|
|
|
if ($log AND file_exists($log)) { |
|
|
|
|
1552
|
|
|
$output = l($output, "host/{$host_id}/log"); |
1553
|
|
|
} |
1554
|
|
|
return $output; |
1555
|
|
|
} |
1556
|
|
|
|
1557
|
|
|
/** |
1558
|
|
|
* |
1559
|
|
|
*/ |
1560
|
|
|
function boincwork_host_venue_selector($host_id) { |
1561
|
|
|
$output = ''; |
1562
|
|
|
if (function_exists('jump_quickly')) { |
1563
|
|
|
$path = "host/{$host_id}/set-venue"; |
1564
|
|
|
$venues = array( |
1565
|
|
|
"{$path}/generic" => bts('Generic', array(), NULL, 'boinc:account-preferences-location'), |
1566
|
|
|
"{$path}/home" => bts('Home', array(), NULL, 'boinc:account-preferences-location:-1:ignoreoverwrite'), |
1567
|
|
|
"{$path}/work" => bts('Work', array(), NULL, 'boinc:account-preferences-location'), |
1568
|
|
|
"{$path}/school" => bts('School', array(), NULL, 'boinc:account-preferences-location') |
1569
|
|
|
); |
1570
|
|
|
variable_set('jump_use_js_venues-Array', 1); |
1571
|
|
|
drupal_add_js(drupal_get_path('module', 'jump') . '/jump.js'); |
1572
|
|
|
drupal_add_js(drupal_get_path('theme', 'boinc') . '/js/prefs.js', 'theme'); |
1573
|
|
|
// Get current venue |
1574
|
|
|
db_set_active('boinc_ro'); |
1575
|
|
|
$venue = db_result(db_query( |
1576
|
|
|
"SELECT venue FROM {host} WHERE id = '%d'", |
1577
|
|
|
$host_id |
1578
|
|
|
)); |
1579
|
|
|
db_set_active('default'); |
1580
|
|
|
$output .= jump_quickly($venues, 'venues', 1, "{$path}/{$venue}"); |
1581
|
|
|
} |
1582
|
|
|
return $output; |
1583
|
|
|
} |
1584
|
|
|
|
1585
|
|
|
/** |
1586
|
|
|
* Determine output for task reported time / deadline |
1587
|
|
|
*/ |
1588
|
|
|
function boincwork_task_time_reported($received_time = NULL, $deadline = NULL, $context = NULL) { |
1589
|
|
|
$output = '---'; |
1590
|
|
|
if ($received_time OR $deadline) { |
|
|
|
|
1591
|
|
|
$timestamp = ($received_time) ? $received_time : $deadline; |
1592
|
|
|
$output = date('j M Y G:i:s T', $timestamp); |
1593
|
|
|
// Add a wrapper to deadline text |
1594
|
|
|
if (!$received_time) { |
1595
|
|
|
if (time() < $deadline) { |
1596
|
|
|
$output = '<span class="on-time">' . $output . '</span>'; |
1597
|
|
|
} |
1598
|
|
|
else { |
1599
|
|
|
$output = '<span class="past-due">' . $output . '</span>'; |
1600
|
|
|
} |
1601
|
|
|
} |
1602
|
|
|
} |
1603
|
|
|
return $output; |
1604
|
|
|
} |
1605
|
|
|
|
1606
|
|
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * |
1607
|
|
|
* Functions for creating a task table for users, hosts, and workunits |
1608
|
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * */ |
1609
|
|
|
|
1610
|
|
|
/** |
1611
|
|
|
* boincwork_tasktable |
1612
|
|
|
* |
1613
|
|
|
* Given two DB results, generates a table of tasks with a navigation |
1614
|
|
|
* header, and application filter. |
1615
|
|
|
* |
1616
|
|
|
* Parameters |
1617
|
|
|
* |
1618
|
|
|
* @param int $category |
1619
|
|
|
* An integer specifying the category of task table to display: 0 => |
1620
|
|
|
* account, 1=> workunit, 2=> host. These are hardcoded. |
1621
|
|
|
* @param int $queryid |
1622
|
|
|
* The id of the user, host, or workunit to query. Will be added to |
1623
|
|
|
* the SQL query. |
1624
|
|
|
* @param int $tselect |
1625
|
|
|
* The task selection state chosen by the user. 0 is for all states, |
1626
|
|
|
* other states are defined in html/inc/result.inc |
1627
|
|
|
* @param int $app_id |
1628
|
|
|
* Application id of the application chosen by user. 0 and -1 are |
1629
|
|
|
* for all applications. |
1630
|
|
|
* @param int $tablerows |
1631
|
|
|
* Number of table row to display per page. Defaults to 20. |
1632
|
|
|
*/ |
1633
|
|
|
function boincwork_tasktable($category = 0, $queryid = 1, $tselect = NULL, $app_id = 0, $tablerows = 20) { |
1634
|
|
|
// Check type parameter, if not (0,2) then return an error. |
1635
|
|
|
if ( ($category!=0) AND ($category!=1) AND ($category!=2) ) { |
|
|
|
|
1636
|
|
|
watchdog('boincwork', 'task table called with invalid category = %category', array('%category' => $category), WATCHDOG_WARNING); |
1637
|
|
|
return ''; |
1638
|
|
|
} |
1639
|
|
|
|
1640
|
|
|
require_boinc( array('util', 'result') ); |
1641
|
|
|
|
1642
|
|
|
global $language; |
1643
|
|
|
$locality=$language->language; |
1644
|
|
|
$nf = new NumberFormatter($locality, NumberFormatter::DECIMAL); |
1645
|
|
|
$nf->setAttribute(NumberFormatter::MIN_FRACTION_DIGITS, 0); |
1646
|
|
|
$nf->setAttribute(NumberFormatter::MAX_FRACTION_DIGITS, 0); |
1647
|
|
|
|
1648
|
|
|
$output = ''; |
1649
|
|
|
|
1650
|
|
|
$state_hnames = array( |
1651
|
|
|
STATE_ALL => 'All', |
1652
|
|
|
STATE_IN_PROGRESS => 'In progress', |
1653
|
|
|
STATE_PENDING => 'Pending', |
1654
|
|
|
STATE_VALID => 'Valid', |
1655
|
|
|
STATE_INVALID => 'Invalid', |
1656
|
|
|
STATE_ERROR => 'Error', |
1657
|
|
|
); |
1658
|
|
|
// Array (hash) to count total number of results/tasks, and their states. |
1659
|
|
|
$taskstates = array( |
1660
|
|
|
STATE_ALL => 0, |
1661
|
|
|
STATE_IN_PROGRESS => 0, |
1662
|
|
|
STATE_PENDING => 0, |
1663
|
|
|
STATE_VALID => 0, |
1664
|
|
|
STATE_INVALID => 0, |
1665
|
|
|
STATE_ERROR => 0, |
1666
|
|
|
); |
1667
|
|
|
// Array to hold pretty-print result data to be displayed in a table. |
1668
|
|
|
$resultdata = array(); |
1669
|
|
|
// Arrays for applications. Form below uses $applications as parameter. |
1670
|
|
|
$application_map = array(); |
1671
|
|
|
$application_select_count = array(); |
1672
|
|
|
$applications = array(); |
1673
|
|
|
|
1674
|
|
|
// BOINC DB queries for results, application names |
1675
|
|
|
db_set_active('boinc_ro'); |
1676
|
|
|
|
1677
|
|
|
// Query to retreive all results, in order to calculate status for a |
1678
|
|
|
// host with application names for each result. |
1679
|
|
|
$sqlall = "SELECT user_friendly_name," |
1680
|
|
|
."r.appid as appid," |
1681
|
|
|
."r.server_state AS server_state," |
1682
|
|
|
."r.outcome AS outcome," |
1683
|
|
|
."r.client_state AS client_state," |
1684
|
|
|
."r.validate_state AS validate_state," |
1685
|
|
|
."r.exit_status AS exit_status " |
1686
|
|
|
."FROM {result} AS r " |
1687
|
|
|
."INNER JOIN {app} AS a " |
1688
|
|
|
."ON r.appid=a.id "; |
1689
|
|
|
|
1690
|
|
|
// Use userid, hostid, or workunitid |
1691
|
|
|
if ($category==0) { |
1692
|
|
|
$sqlall .= " WHERE r.userid='%s' "; |
1693
|
|
|
} |
1694
|
|
|
elseif ($category==1) { |
1695
|
|
|
$sqlall .= " WHERE r.workunitid='%s' "; |
1696
|
|
|
} |
1697
|
|
|
elseif ($category==2) { |
1698
|
|
|
$sqlall .= " WHERE r.hostid='%s' "; |
1699
|
|
|
} |
1700
|
|
|
$sqlall .= " ORDER BY user_friendly_name"; |
1701
|
|
|
$dbres_all = db_query($sqlall, $queryid); |
1702
|
|
|
db_set_active('default'); |
1703
|
|
|
|
1704
|
|
|
// Loop 1 of DB results |
1705
|
|
|
if ($dbres_all) { |
1706
|
|
|
while ($result = db_fetch_object($dbres_all)) { |
1707
|
|
|
$mystate = state_num($result); |
1708
|
|
|
if ( ($result->appid==$app_id) OR ($app_id==0) OR ($app_id==-1) ) { |
|
|
|
|
1709
|
|
|
$taskstates[STATE_ALL]++; |
1710
|
|
|
switch ($mystate) { |
1711
|
|
|
case STATE_IN_PROGRESS: |
1712
|
|
|
$taskstates[STATE_IN_PROGRESS]++; |
1713
|
|
|
break; |
1714
|
|
|
case STATE_PENDING: |
1715
|
|
|
$taskstates[STATE_PENDING]++; |
1716
|
|
|
break; |
1717
|
|
|
case STATE_VALID: |
1718
|
|
|
$taskstates[STATE_VALID]++; |
1719
|
|
|
break; |
1720
|
|
|
case STATE_INVALID: |
1721
|
|
|
$taskstates[STATE_INVALID]++; |
1722
|
|
|
break; |
1723
|
|
|
case STATE_ERROR: |
1724
|
|
|
$taskstates[STATE_ERROR]++; |
1725
|
|
|
break; |
1726
|
|
|
} |
1727
|
|
|
}// if app_id |
1728
|
|
|
|
1729
|
|
|
//map holds a map between app ids and user friendly names for all applications. |
1730
|
|
|
$application_map[$result->appid] = $result->user_friendly_name; |
1731
|
|
|
if ( ($mystate == $tselect) OR ($tselect==STATE_ALL) ) { |
|
|
|
|
1732
|
|
|
//count of appids in the results. |
1733
|
|
|
$application_select_count[$result->appid]++; |
1734
|
|
|
}// if mystate |
1735
|
|
|
|
1736
|
|
|
}// while |
1737
|
|
|
} |
1738
|
|
|
else { |
|
|
|
|
1739
|
|
|
} |
1740
|
|
|
|
1741
|
|
|
// Entry for all applications. |
1742
|
|
|
$allcount = $application_select_count ? array_sum($application_select_count) : 0; |
|
|
|
|
1743
|
|
|
$applications[-1] = bts('Application', array(), NULL, 'boinc:task-table'); |
1744
|
|
|
$applications[0] = bts('All applications', array(), NULL, 'boinc:task-table') . ' (' . $allcount . ')'; |
1745
|
|
|
// Create application filter from application_map and application_select_count. |
1746
|
|
|
foreach($application_map as $akey => $aname) { |
1747
|
|
|
$acount = 0; |
1748
|
|
|
if ( $application_select_count and array_key_exists($akey, $application_select_count) ) { |
|
|
|
|
1749
|
|
|
$acount = $application_select_count[$akey]; |
1750
|
|
|
} |
1751
|
|
|
$applications[$akey] = $aname . ' ('. $acount . ')'; |
1752
|
|
|
} |
1753
|
|
|
// Header array for (sub) results table. |
1754
|
|
|
$resultheader = array( |
1755
|
|
|
array( |
1756
|
|
|
'data' => bts('Task ID', array(), NULL, 'boinc:task-table'), |
1757
|
|
|
'field' => 'id', |
1758
|
|
|
), |
1759
|
|
|
array( |
1760
|
|
|
'data' => bts('Workunit ID', array(), NULL, 'boinc:task-table'), |
1761
|
|
|
'field' => 'workunitid', |
1762
|
|
|
), |
1763
|
|
|
array( |
1764
|
|
|
'data' => bts('Computer', array(), NULL, 'boinc:task-table'), |
1765
|
|
|
'field' => 'hostid', |
1766
|
|
|
), |
1767
|
|
|
array( |
1768
|
|
|
'data' => bts('Sent', array(), NULL, 'boinc:task-table'), |
1769
|
|
|
'field' => 'sent_time', |
1770
|
|
|
), |
1771
|
|
|
array( |
1772
|
|
|
'data' => bts('Time Reported or Deadline', array(), NULL, 'boinc:task-table') |
1773
|
|
|
), |
1774
|
|
|
array( |
1775
|
|
|
'data' => bts('Status', array(), NULL, 'boinc:task-table') |
1776
|
|
|
), |
1777
|
|
|
array( |
1778
|
|
|
'data' => bts('Run time', array(), NULL, 'boinc:task-table'), |
1779
|
|
|
'field' => 'elapsed_time', |
1780
|
|
|
), |
1781
|
|
|
array( |
1782
|
|
|
'data' => bts('CPU time', array(), NULL, 'boinc:task-table'), |
1783
|
|
|
'field' => 'cpu_time', |
1784
|
|
|
), |
1785
|
|
|
array( |
1786
|
|
|
'data' => bts('Granted Credit', array(), NULL, 'boinc:task-table'), |
1787
|
|
|
'field' => 'granted_credit', |
1788
|
|
|
), |
1789
|
|
|
// Application is a column, but won't be added until after tablesort_sql(). |
1790
|
|
|
); |
1791
|
|
|
|
1792
|
|
|
// Query to retreive a subset of the total results for the results table. |
1793
|
|
|
db_set_active('boinc_ro'); |
1794
|
|
|
$sqlsub = "SELECT r.id AS id," |
1795
|
|
|
."r.name AS name," |
1796
|
|
|
."r.workunitid AS workunitid," |
1797
|
|
|
."r.hostid as hostid," |
1798
|
|
|
."r.sent_time AS sent_time," |
1799
|
|
|
."r.received_time AS received_time," |
1800
|
|
|
."r.report_deadline AS report_deadline," |
1801
|
|
|
."r.server_state AS server_state," |
1802
|
|
|
."r.outcome AS outcome," |
1803
|
|
|
."r.client_state AS client_state," |
1804
|
|
|
."r.validate_state AS validate_state," |
1805
|
|
|
."r.exit_status AS exit_status," |
1806
|
|
|
."r.elapsed_time AS elapsed_time," |
1807
|
|
|
."r.cpu_time AS cpu_time," |
1808
|
|
|
."r.granted_credit AS granted_credit," |
1809
|
|
|
."r.appid AS appid," |
1810
|
|
|
."r.app_version_id AS app_version_id," |
1811
|
|
|
."a.user_friendly_name," |
1812
|
|
|
."av.version_num AS version_number," |
1813
|
|
|
."av.plan_class AS plan_class," |
1814
|
|
|
."pl.name AS platform " |
1815
|
|
|
."FROM {result} AS r " |
1816
|
|
|
."INNER JOIN {app} AS a " |
1817
|
|
|
."ON r.appid=a.id " |
1818
|
|
|
."LEFT JOIN {app_version} AS av " |
1819
|
|
|
."ON r.app_version_id=av.id " |
1820
|
|
|
."LEFT JOIN {platform} AS pl " |
1821
|
|
|
."ON av.platformid=pl.id "; |
1822
|
|
|
|
1823
|
|
|
// Build an array for the WHERE clauses. The individual clauses are |
1824
|
|
|
// placed into an array, and implode() is used to combine them into |
1825
|
|
|
// a WHERE statement for the sql query. If no such clauses are added |
1826
|
|
|
// to the array, then no WHERE statement will be included. |
1827
|
|
|
$sqlwhere = array(); |
1828
|
|
|
|
1829
|
|
|
// Use userid, hostid, or workunitid |
1830
|
|
|
if ($category==0) { |
1831
|
|
|
$sqlwhere[] = "r.userid = '%s'"; |
1832
|
|
|
} |
1833
|
|
|
elseif ($category==1) { |
1834
|
|
|
$sqlwhere[] = "r.workunitid = '%s'"; |
1835
|
|
|
} |
1836
|
|
|
elseif ($category==2) { |
1837
|
|
|
$sqlwhere[] = "r.hostid = '%s'"; |
1838
|
|
|
} |
1839
|
|
|
|
1840
|
|
|
// Append additional where clauses based on task selection. |
1841
|
|
|
switch ($tselect) { |
1842
|
|
|
case STATE_IN_PROGRESS: |
1843
|
|
|
$sqlwhere[] = "r.server_state = 4"; |
1844
|
|
|
break; |
1845
|
|
|
case STATE_PENDING: |
1846
|
|
|
$sqlwhere[] = "(r.server_state = 5) AND (r.outcome = 1) AND (r.validate_state >= 0) AND (r.validate_state <= 0 OR r.validate_state >= 4) AND (r.validate_state <= 4)"; |
1847
|
|
|
break; |
1848
|
|
|
case STATE_VALID: |
1849
|
|
|
$sqlwhere[] = "(r.server_state = 5) AND (r.outcome = 1) AND (r.validate_state = 1)"; |
1850
|
|
|
break; |
1851
|
|
|
case STATE_INVALID: |
1852
|
|
|
$sqlwhere[] = "(r.server_state = 5) AND ((r.outcome = 6) OR ((r.outcome = 1) AND ((r.validate_state = 2) OR (r.validate_state = 3) OR (r.validate_state = 5))))"; |
1853
|
|
|
break; |
1854
|
|
|
case STATE_ERROR: |
1855
|
|
|
$sqlwhere[] = "(r.server_state = 5) AND (r.outcome >= 3) AND (r.outcome <= 4 OR r.outcome >= 7) AND (r.outcome <= 7)"; |
1856
|
|
|
break; |
1857
|
|
|
default: |
|
|
|
|
1858
|
|
|
} |
1859
|
|
|
|
1860
|
|
|
if (is_numeric($app_id) AND $app_id>0 ) { |
|
|
|
|
1861
|
|
|
$sqlwhere[] = "r.appid = '%s'"; |
1862
|
|
|
if ($sqlwhere) $sqlsub .= " WHERE " . implode(' AND ', $sqlwhere); |
1863
|
|
|
$dbres_sub = pager_query( $sqlsub . tablesort_sql($resultheader), $tablerows, 0, NULL, $queryid, $app_id); |
1864
|
|
|
} |
1865
|
|
|
else { |
1866
|
|
|
if ($sqlwhere) $sqlsub .= " WHERE " . implode(' AND ', $sqlwhere); |
1867
|
|
|
$dbres_sub = pager_query( $sqlsub . tablesort_sql($resultheader), $tablerows, 0, NULL, $queryid); |
1868
|
|
|
} |
1869
|
|
|
db_set_active('default'); |
1870
|
|
|
|
1871
|
|
|
// Loop 2 over DB results. |
1872
|
|
|
if ($dbres_sub) { |
1873
|
|
|
while ($result = db_fetch_object($dbres_sub)) { |
1874
|
|
|
// state_num() function changes $result object, clone $result |
1875
|
|
|
// object for use in state_num() |
1876
|
|
|
// check if state matches selection |
1877
|
|
|
if ( (state_num(clone $result) == $tselect) OR ($tselect==STATE_ALL) ) { |
|
|
|
|
1878
|
|
|
// create pretty result row |
1879
|
|
|
$prettyresult = array( |
1880
|
|
|
array( |
1881
|
|
|
'data' => l($result->name, "task/{$result->id}"), |
1882
|
|
|
'class' => 'task-name', |
1883
|
|
|
), |
1884
|
|
|
l($result->workunitid, "workunit/{$result->workunitid}"), |
1885
|
|
|
l($result->hostid, "host/{$result->hostid}"), |
1886
|
|
|
date('j M Y G:i:s T', $result->sent_time), |
1887
|
|
|
boincwork_task_time_reported($result->received_time, $result->report_deadline), |
1888
|
|
|
state_string($result), |
1889
|
|
|
$nf->format($result->elapsed_time), |
1890
|
|
|
$nf->format($result->cpu_time), |
1891
|
|
|
$nf->format($result->granted_credit), |
1892
|
|
|
array( |
1893
|
|
|
'data' => $result->user_friendly_name . " " . pretty_application_version($result->app_version_id,$result->version_number, $result->plan_class, $result->platform), |
1894
|
|
|
'class' => 'task-app', |
1895
|
|
|
), |
1896
|
|
|
); |
1897
|
|
|
$resultdata[] = array_values($prettyresult); |
1898
|
|
|
} |
1899
|
|
|
}// while |
1900
|
|
|
} |
1901
|
|
|
else { |
|
|
|
|
1902
|
|
|
} |
1903
|
|
|
// Begin result navigation |
1904
|
|
|
|
1905
|
|
|
// Set pathprefix based on type |
1906
|
|
|
if ($category==0) { |
1907
|
|
|
$pathprefix = 'account/tasks'; |
1908
|
|
|
} |
1909
|
|
|
elseif ($category==1) { |
1910
|
|
|
$pathprefix = 'workunit/' . $queryid . '/tasks'; |
1911
|
|
|
} |
1912
|
|
|
elseif ($category==2) { |
1913
|
|
|
$pathprefix = 'host/' . $queryid . '/tasks'; |
1914
|
|
|
} |
1915
|
|
|
// Need an "All" tab as well, maps to app_id of zero. |
1916
|
|
|
$application_map[0] = bts('All', array(), NULL, 'boinc:task-table'); |
1917
|
|
|
$stitems = array(); |
1918
|
|
|
foreach ($taskstates as $state => $numstates) { |
1919
|
|
|
$mypath = $pathprefix . '/' . $state . '/' . $app_id; |
|
|
|
|
1920
|
|
|
if ($state==STATE_ALL) { |
1921
|
|
|
$ltext = '<span class="tab task-app-name">' . bts('All', array(), NULL, 'boinc:task-table') . ' (' . $numstates . ')</span>'; |
1922
|
|
|
} |
1923
|
|
|
else { |
1924
|
|
|
$ltext = '<span class="tab">' . bts($state_hnames[$state], array(), NULL, 'boinc:task-table') . ' (' . $numstates . ')</span>'; |
1925
|
|
|
} |
1926
|
|
|
$myitem = array( |
1927
|
|
|
'data' => l($ltext, $mypath, array('html' => TRUE) ), |
1928
|
|
|
); |
1929
|
|
|
if ($state==$tselect) { |
1930
|
|
|
$myitem['class'] = 'active'; |
1931
|
|
|
} |
1932
|
|
|
$stitems[] = $myitem; |
1933
|
|
|
} |
1934
|
|
|
// Add reset button |
1935
|
|
|
$mypath = $pathprefix . '/0/0'; |
1936
|
|
|
$ltext = '<span class="tab">' . bts('Reset', array(), NULL, 'boinc:task-table') . '</span>'; |
1937
|
|
|
$stitems[] = array( 'data' => l($ltext, $mypath, array('html' => TRUE) ) ); |
1938
|
|
|
|
1939
|
|
|
$output .= theme_item_list($stitems, NULL, 'ul' . ' class="tabs secondary clearfix"'); |
1940
|
|
|
|
1941
|
|
|
// Application select-drop down form |
1942
|
|
|
// Hack to place Application form into header |
1943
|
|
|
// App ID of zero maps to "-1" for drop-down box. |
1944
|
|
|
if ($app_id==0) { |
1945
|
|
|
$app_id=-1; |
1946
|
|
|
} |
1947
|
|
|
$resultheader[] = drupal_get_form('boincwork_selectapp_form', $applications, $app_id); |
1948
|
|
|
|
1949
|
|
|
// Begin table of results |
1950
|
|
|
if ( is_array($resultheader) AND is_array($resultdata) ) { |
|
|
|
|
1951
|
|
|
|
1952
|
|
|
// Take advantage of the fact that $category is the same as the row/column we want to remove. |
1953
|
|
|
if ( ($category==1) OR ($category==2) ) { |
|
|
|
|
1954
|
|
|
unset($resultheader[$category]); |
1955
|
|
|
delete_col($resultdata, $category); |
1956
|
|
|
} |
1957
|
|
|
|
1958
|
|
|
$output .= theme_table($resultheader, $resultdata); |
1959
|
|
|
if (count($resultdata) > 0) { |
1960
|
|
|
$output .= theme('pager'); |
1961
|
|
|
} |
1962
|
|
|
} |
1963
|
|
|
return $output; |
1964
|
|
|
} |
1965
|
|
|
|
1966
|
|
|
/** |
1967
|
|
|
* Function to delete a column from an array. |
1968
|
|
|
*/ |
1969
|
|
|
function delete_col(&$array, $offset) { |
1970
|
|
|
return array_walk($array, function (&$v) use ($offset) { |
1971
|
|
|
array_splice($v, $offset, 1); |
1972
|
|
|
}); |
1973
|
|
|
} |
1974
|
|
|
|
1975
|
|
|
/** |
1976
|
|
|
* Pretty print the application version |
1977
|
|
|
* |
1978
|
|
|
* Parameters are obtained from the BOINC project database, result, |
1979
|
|
|
* app, app_version, and platform tables. |
1980
|
|
|
* |
1981
|
|
|
* Parameters |
1982
|
|
|
* @param int $appverid |
1983
|
|
|
* app_version_id field, may be negative- anonymous platforms. |
1984
|
|
|
* @param int $vernum |
1985
|
|
|
* version_num field, application version number, may be NULL |
1986
|
|
|
* @param int $plan_class |
1987
|
|
|
* plan_class field, applcation plan class, may be NULL |
1988
|
|
|
* @param string $plfm |
1989
|
|
|
* platform name, may be NULL |
1990
|
|
|
*/ |
1991
|
|
|
function pretty_application_version($appverid, $vernum, $plan_class, $plfm) { |
1992
|
|
|
switch ($appverid) { |
1993
|
|
|
case ANON_PLATFORM_UNKNOWN: |
1994
|
|
|
return "Anonymous platform"; |
1995
|
|
|
case ANON_PLATFORM_CPU: |
1996
|
|
|
return "Anonymous platform CPU"; |
1997
|
|
|
case ANON_PLATFORM_NVIDIA: |
1998
|
|
|
return "Anonymous platform NVIDIA GPU"; |
1999
|
|
|
case ANON_PLATFORM_ATI: |
2000
|
|
|
return "Anonymous platform AMD GPU"; |
2001
|
|
|
case ANON_PLATFORM_INTEL_GPU: |
2002
|
|
|
return "Anonymous platform Intel GPU"; |
2003
|
|
|
case ANON_PLATFORM_APPLE_GPU: |
2004
|
|
|
return "Anonymous platform Apple GPU"; |
2005
|
|
|
case 0: |
2006
|
|
|
return "---"; |
2007
|
|
|
default: |
|
|
|
|
2008
|
|
|
// Handle the case where the appversid is still negative. This |
2009
|
|
|
// may be cause BOINC has introduced a new anonymous platform |
2010
|
|
|
// that is not handled by the above case statements. |
2011
|
|
|
if ($appverid < 0) { |
2012
|
|
|
return "Unknown Anonymous platform"; |
2013
|
|
|
} |
2014
|
|
|
else { |
2015
|
|
|
$prettyv = sprintf("%d.%02d", $vernum/100, $vernum%100); |
2016
|
|
|
$prettyc = ($plan_class) ? "($av->plan_class)" : ''; |
|
|
|
|
2017
|
|
|
return "v$prettyv $prettyc $plfm"; |
2018
|
|
|
} |
2019
|
|
|
} |
2020
|
|
|
} |
2021
|
|
|
|
PHP has two types of connecting operators (logical operators, and boolean operators):
and
&&
or
||
The difference between these is the order in which they are executed. In most cases, you would want to use a boolean operator like
&&
, or||
.Let’s take a look at a few examples:
Logical Operators are used for Control-Flow
One case where you explicitly want to use logical operators is for control-flow such as this:
Since
die
introduces problems of its own, f.e. it makes our code hardly testable, and prevents any kind of more sophisticated error handling; you probably do not want to use this in real-world code. Unfortunately, logical operators cannot be combined withthrow
at this point:These limitations lead to logical operators rarely being of use in current PHP code.