class.tx_nG6_eid.php 45.1 KB
Newer Older
Penom Nom's avatar
Penom Nom committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<?php
/***************************************************************
*  Copyright notice
*
*  (c) 2009 PF bioinformatique de Toulouse <>
*  All rights reserved
*
*  This script is part of the TYPO3 project. The TYPO3 project is
*  free software; you can redistribute it and/or modify
*  it under the terms of the GNU General Public License as published by
*  the Free Software Foundation; either version 2 of the License, or
*  (at your option) any later version.
*
*  The GNU General Public License can be found at
*  http://www.gnu.org/copyleft/gpl.html.
*
*  This script is distributed in the hope that it will be useful,
*  but WITHOUT ANY WARRANTY; without even the implied warranty of
*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
*  GNU General Public License for more details.
*
*  This copyright notice MUST APPEAR in all copies of the script!
***************************************************************/

25
26
27
28
29
30
31
32
//require_once(PATH_t3lib.'class.t3lib_befunc.php');
//require_once(PATH_t3lib.'stddb/tables.php');
//require_once(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('cms','ext_tables.php'));
//require_once(PATH_t3lib.'class.t3lib_db.php');
require_once(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/lib/class.tx_nG6_db.php');
require_once(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/lib/class.tx_nG6_utils.php');
require_once(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/lib/class.tx_nG6_process.php');
require_once(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/res/smarty/libs/Smarty.class.php');
Penom Nom's avatar
Penom Nom committed
33
34
35
36
37
38
39
40
41
42
43
44
45

/**
 * Class 'tx_nG6_eid' for the 'nG6' extension.
 * This class is in charge of all communication between the client and the server using AJAX
 *
 * @author	PF bioinformatique de Toulouse <>
 */
class tx_nG6_eid {

    /**
     * The main function of the tx_nG6_eid, this function is the one called when using ajax
     */
    function main() {
46
    	
Penom Nom's avatar
Penom Nom committed
47
    	// Connect to the databse
48
49
50
51
    	//\TYPO3\CMS\Frontend\Utility\EidUtility::connectDB();
    	$type = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('type'));
    	$user_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('user_id'));
    	error_log("tx_nG6_eid ".$type." \n ", 3, "/work/tmp/mes-erreurs.log");
Penom Nom's avatar
Penom Nom committed
52
53
    	// If the type of data requested is project
    	if ($type == 'project') {
54
    		$project_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('id'));
Penom Nom's avatar
Penom Nom committed
55
	    	// Select all runs linked to the project
Penom Nom's avatar
Penom Nom committed
56
	    	$project_runs = tx_nG6_db::get_user_project_runs($user_id, $project_id, 'tx_nG6_run.date DESC');
Penom Nom's avatar
Penom Nom committed
57
58
59
	    	// for each run
	    	$html_tree = '';
			foreach($project_runs as $run_id => $run_values) {
60
				$html_tree .= '<li class="jstree-closed" name=\''.str_replace(array('###SPAN_NAME###', '###SPAN_DATE###'), array($run_values['name'], strftime('%d-%m-%y',$run_values['date'])), trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('run_short_description'))).'\' id=\''.$run_id.'\'> <a href=\'#\'>'.str_replace(array('###SPAN_NAME###', '###SPAN_DATE###', '###SPAN_NB_SEQ###', '###SPAN_SPECIES###'), array($run_values['name'], strftime('%d-%m-%y',$run_values['date']), $run_values['nb_sequences'], $run_values['species']), trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('run_description'))).'</a></li>';
Penom Nom's avatar
Penom Nom committed
61
62
			}
	    	// Then all project analysis
Penom Nom's avatar
Penom Nom committed
63
	    	$project_analysis = tx_nG6_db::get_user_project_analysis($user_id, $project_id, 'tx_nG6_analyze.name');
Penom Nom's avatar
Penom Nom committed
64
			foreach($project_analysis as $analyse_id => $analyse_values) {  
65
				$html_tree .= '<li name=\''.str_replace(array('###SPAN_NAME###'), array($analyse_values["name"]), trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('analyse_description'))).'\' id=\''.$analyse_id.'\'> <a href=\'#\'>'.str_replace(array('###SPAN_NAME###'), array($analyse_values["name"]), trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('analyse_description'))).'</a></li>';
Penom Nom's avatar
Penom Nom committed
66
67
68
69
70
71
			}
			// Return the html_tree
	    	print $html_tree;
	    	
	    // If the type of data requested is run
    	} else if ($type == 'run'){
72
			$run_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('id'));
Penom Nom's avatar
Penom Nom committed
73
			// Select all analysis linked to the run and the run information
Penom Nom's avatar
Penom Nom committed
74
			$run_analysis = tx_nG6_db::get_user_run_analysis($user_id, $run_id, 'tx_nG6_analyze.name');
Penom Nom's avatar
Penom Nom committed
75
76
77
			$run_info = tx_nG6_db::select_run($run_id);
	    	// for each analysis
	    	$html_tree = '';
78
			$html_tree .= '<li name=\'run_'.$run_id.'_'.trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP("raw_data_description")).'\'  id=\'data_'.$run_id.'\'> <a href=\'#\'>'.trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP("raw_data_description")).'</a></li>';
Penom Nom's avatar
Penom Nom committed
79
			foreach($run_analysis as $analyse_id => $analyse_values) {   
80
				$html_tree .= '<li name=\'run_'.$run_id.'_'.str_replace(array('###SPAN_NAME###'), array($analyse_values["name"]), trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('analyse_description'))).'\' id=\''.$analyse_id.'\'> <a href=\'#\'>'.str_replace(array('###SPAN_NAME###'), array($analyse_values["name"]), trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('analyse_description'))).'</a></li>';
Penom Nom's avatar
Penom Nom committed
81
82
83
84
85
86
			}
			// Return the html_tree
			print $html_tree;
	    	
    	// If asked to check a job status
    	} else if($type == 'check_status') {
87
88
    		$pid = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('pid'));
    		$archive_path = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('archive_path'));
Penom Nom's avatar
Penom Nom committed
89
90
91
92
93
94
95
96
97
98
99
100
101
    		$process = new Process();
    		$process->setPid($pid);
    		// If the job is done
    		if ($process->status()) {
    			print "pid=0&archive_path=".$archive_path;
    		// If the job is still runing
    		} else {
    			print "pid=".$process->getPid()."&archive_path=".$archive_path;
    		}
            
    	// If asked to hide a {project/run}
    	} else if ($type == 'hide') {
    		
102
    		$ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('ids'));
Penom Nom's avatar
Penom Nom committed
103
104
    		// {project/run}_id to array (1;2;3;...) -> [1;2;3;...]
    		$tab_ids = explode(";",$ids);
105
    		$hide_level = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('hide_level'));
Penom Nom's avatar
Penom Nom committed
106
107
108
    		
    		if ($hide_level == 'project') {
	    		foreach($tab_ids as $id => $value) {
Jerome Mariette's avatar
Jerome Mariette committed
109
		    		tx_nG6_db::hide_project($value);
Penom Nom's avatar
Penom Nom committed
110
111
112
	    		}
    		} else if ($hide_level == 'run') {
	    		foreach($tab_ids as $id => $value) {
113
		    		tx_nG6_db::hide_run($value, $user_id);
Penom Nom's avatar
Penom Nom committed
114
115
116
	    		}
    		} else if ($hide_level == 'analysis') {
	    		foreach($tab_ids as $id => $value) {
117
		    		tx_nG6_db::hide_analysis($value, $user_id);
Penom Nom's avatar
Penom Nom committed
118
119
120
121
122
123
	    		}
    		}

        // If asked to unhide a {project/run}
    	} else if ($type == 'unhide') {
    		    		
124
    		$ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('ids'));
Penom Nom's avatar
Penom Nom committed
125
126
    		// {project/run}_id to array (1;2;3;...) -> [1;2;3;...]
    		$tab_ids = explode(";",$ids);
127
    		$unhide_level = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('unhide_level'));
Penom Nom's avatar
Penom Nom committed
128
129
130

    		if ($unhide_level == 'project') {
	    		foreach($tab_ids as $id => $value) {
Jerome Mariette's avatar
Jerome Mariette committed
131
		    		tx_nG6_db::unhide_project($value);
Penom Nom's avatar
Penom Nom committed
132
133
134
	    		}
    		} else if ($unhide_level == 'run') {
	    		foreach($tab_ids as $id => $value) {
Jerome Mariette's avatar
Jerome Mariette committed
135
		    		tx_nG6_db::unhide_run($value, true);
Penom Nom's avatar
Penom Nom committed
136
137
138
	    		}
    		} else if ($unhide_level == 'analysis') {
	    		foreach($tab_ids as $id => $value) {
Jerome Mariette's avatar
Jerome Mariette committed
139
		    		tx_nG6_db::unhide_analysis($value, true);
Penom Nom's avatar
Penom Nom committed
140
141
142
143
144
145
	    		}
    		}
    		
    	// If asked to delete a {project/run/analyze}	
    	} else if ($type == 'delete') {

146
    		$ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('ids'));
Penom Nom's avatar
Penom Nom committed
147
148
    		// {project/run}_id to array (1;2;3;...) -> [1;2;3;...]
    		$tab_ids = explode(";",$ids);
149
150
151
152
    		$delete_level = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('del_level'));
    		$data_folder = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('data_folder'));
			$user_login = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('user_login'));
			$user_pwd = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('user_pwd'));
Penom Nom's avatar
Penom Nom committed
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167

    		$res = 0;
    		// check login and password
    		if (isset($user_login) && isset($user_pwd) && $user_login != 'undefined' && $user_pwd != 'undefined') {
    			$res = 0;
		    	$connection = ssh2_connect('127.0.0.1', 22);
				if (!$connection) { $res = 3; }
				if (!ssh2_auth_password($connection, $user_login, $user_pwd)) { $res=2;}
    		} else {
    			$res = 3;
    		}
			
			if ($res == 0) {
	    		if ($delete_level == 'project') {
		    		foreach($tab_ids as $id => $value) {
Jerome Mariette's avatar
Jerome Mariette committed
168
			    		$res = tx_nG6_db::delete_project($value, $user_login, $user_pwd, $data_folder);
Penom Nom's avatar
Penom Nom committed
169
170
171
172
			    		if ($res != 0) { break; }
		    		}
	    		} else if ($delete_level == 'run') {
		    		foreach($tab_ids as $id => $value) {
Jerome Mariette's avatar
Jerome Mariette committed
173
			    		$res = tx_nG6_db::delete_run($value, $user_login, $user_pwd, $data_folder);
Penom Nom's avatar
Penom Nom committed
174
175
176
177
178
179
180
181
182
183
184
185
186
187
			    		if ($res != 0) { break; }
		    		}
	    		} else if ($delete_level == 'analysis') {
		    		foreach($tab_ids as $id => $value) {
			    		$res = tx_nG6_db::delete_analysis($value, $user_login, $user_pwd, $data_folder);
			    		if ($res != 0) { break; }
		    		}
	    		}
			}
    		print $res;

        // If asked to publish a project
    	} else if ($type == 'publish') {
    		    		
188
    		$ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('ids'));
Penom Nom's avatar
Penom Nom committed
189
190
191
    		// project_id to array (1;2;3;...) -> [1;2;3;...]
    		$tab_ids = explode(";",$ids);
    		foreach($tab_ids as $id => $value) {
Jerome Mariette's avatar
Jerome Mariette committed
192
	    		tx_nG6_db::publish_project($value);
Penom Nom's avatar
Penom Nom committed
193
194
195
196
197
    		}
    		
        // If asked to unpublish a project
    	} else if ($type == 'unpublish') {
    		    		
198
    		$ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('ids'));
Penom Nom's avatar
Penom Nom committed
199
200
201
202
203
204
205
206
    		// project_id to array (1;2;3;...) -> [1;2;3;...]
    		$tab_ids = explode(";",$ids);
    		foreach($tab_ids as $id => $value) {
	    		tx_nG6_db::unpublish_project($value);
    		}
    		
        // If asked the size
    	} else if ($type == 'get_size') {
207
208
    		$ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('ids'));
    		$view = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('view'));
Penom Nom's avatar
Penom Nom committed
209
210
211
212
    		$tab_ids = explode(",",$ids);
    		$full_size = 0;
    		foreach($tab_ids as $id => $value) {
    			if ($view == "run") {
213
    				$full_size += tx_nG6_db::get_run_size($value, true);
Penom Nom's avatar
Penom Nom committed
214
    			} else if ($view == "project") {
215
    				$full_size += tx_nG6_db::get_project_size($value, true);
Penom Nom's avatar
Penom Nom committed
216
217
218
219
    			}
    		}
    		print tx_nG6_utils::get_octet_string_representation($full_size);
    	
Penom Nom's avatar
Penom Nom committed
220
    	// data size
Penom Nom's avatar
Penom Nom committed
221
    	}else if ($type == 'get_data_size'){
222
223
224
    		$run_ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('run_ids'));
    		$data_ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('data_ids'));
    		$analysis_ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('analysis_ids'));
Penom Nom's avatar
Penom Nom committed
225
226
227
228
    		$full_size = 0;
    		
    		if ($run_ids){
    			$data = explode(',', $run_ids);
229
230
    			foreach($data as $id => $value) {
    				$full_size += tx_nG6_db::get_run_size($value, true);
Penom Nom's avatar
Penom Nom committed
231
232
    			}
    		}
233
    		if ($data_ids){
Penom Nom's avatar
Penom Nom committed
234
235
236
    			$data = explode(',', $data_ids);
    			foreach($data as $id => $value) {
    				$full_size += tx_nG6_db::get_run_size($value, false);
237
    			}
Penom Nom's avatar
Penom Nom committed
238
    		}
239
    		if ($analysis_ids){
Penom Nom's avatar
Penom Nom committed
240
241
242
    			$data = explode(',', $analysis_ids);
    			foreach($data as $id => $value) {
    				$full_size += tx_nG6_db::get_analysis_size($value);
243
    			}
Penom Nom's avatar
Penom Nom committed
244
245
246
    		}
    		print $full_size . ":::" . tx_nG6_utils::get_octet_string_representation($full_size);
    		
Penom Nom's avatar
Penom Nom committed
247
248
    	// If update a field
    	} else if ($type == 'update_db_field') {
249
    		
Penom Nom's avatar
Penom Nom committed
250
    		//Retrieve infomation
251
252
253
254
    		$table = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('table'));
    		$id     = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('pk'));
    		$field  = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('field'));
    		$value  = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('value'));
Penom Nom's avatar
Penom Nom committed
255
256
    	
    		//If change concernes a date
257
    		if( $field == "date" || $field == "crdate" ) {
Penom Nom's avatar
Penom Nom committed
258
    			//Change date format
259
260
    			$date = explode('-', $value);
    			$timestamp = mktime (0, 0, 1, $date[1], $date[2], $date[0]);
Penom Nom's avatar
Penom Nom committed
261
    			//Update the entity
262
    			tx_nG6_db::update_field($table, $id, $field, $timestamp);
Penom Nom's avatar
Penom Nom committed
263
    		}
264
    		else {
Penom Nom's avatar
Penom Nom committed
265
    			//Update the entity
266
    			tx_nG6_db::update_field($table, $id, $field, $value);
Penom Nom's avatar
Penom Nom committed
267
268
    		}
    		print $value;
269
270
271
272

    	}
    	// add comment
    	else if ($type == 'add_comment') {	
273
274
275
276
    		$view 			= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('view'));
    		$view_id    	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('view_id')); // project_id or run_id or analyze_id
    		$new_comment  	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('new_comment'));
    		$cruser_id		= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('cruser_id'));
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
    		$res = 0 ;
    		
    		if ($new_comment){
	    			if($view == 'project'){
	    				$res = tx_nG6_db::add_project_comment($view_id, $cruser_id, $new_comment) ;
	    			}
	    			elseif ($view == 'run') {
	    				$res = tx_nG6_db::add_run_comment($view_id, $cruser_id, $new_comment) ;
	    			}
	    			elseif ($view == 'analyze') {
	    				$res = tx_nG6_db::add_analyze_comment($view_id, $cruser_id, $new_comment) ;
	    			}
    		}
    		
    		print $res;
    	}
    	//delete comment
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
    	else if ($type == 'delete_comment') {
    		$view 			= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('view'));
    		$view_id    	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('view_id')); // project_id or run_id or analyze_id
    		$comment_id		= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('comment_id'));
    		$res = 0 ;
    		if($view == 'project'){
    			$res = tx_nG6_db::delete_project_comment($view_id, $comment_id);
    		}
    		elseif ($view == 'run') {
    			$res = tx_nG6_db::delete_run_comment($view_id, $comment_id);
    		}
    		elseif ($view == 'analyze') {
    			$res = tx_nG6_db::delete_analyze_comment($view_id, $comment_id);
    		}
    		print $res;
309
    	}
310
311
312
313
    	//update comment
    	else if ($type == 'update_comment') {
    		$comment_id		= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('comment_id'));
    		$new_comment  	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('new_comment'));
314
    		$res = 0;
315
    		$new_comment = urldecode($new_comment);
316
   			$res = tx_nG6_db::update_comment($comment_id, $new_comment);
317
   			print $res;
Penom Nom's avatar
Penom Nom committed
318
319
320
321
    	
    	// If asked the krona page
    	} else if ($type == 'get_krona') {
    		
322
323
324
    		$data_folder = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('data_folder'));
    		$file_name = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('file_name'));
    		$sequence_name = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('sequence_name'));
Penom Nom's avatar
Penom Nom committed
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
    		
    		$doc = new DomDocument();
    		$data_root = $doc->createElement('data');
    		$doc->appendChild($data_root);
    		$attr_data_root = $doc->createAttribute("xml:id");
    		$data_root->appendChild($attr_data_root);
    		
    		$t_data_root = $doc->createTextNode('data_root');
    		$attr_data_root->appendChild($t_data_root);
    		$data_root->setIdAttribute("xml:id", true);
    		
    		$magnitude = $doc->createElement('magnitude');
    		$magnitude->setAttribute("attribute", "g");
    		$magnitude = $data_root->appendChild($magnitude);
    		$magnitudet = $doc->createTextNode('');
    		$magnitudet = $magnitude->appendChild($magnitudet); 
    		
    		$color = $doc->createElement('color');
    		$color = $data_root->appendChild($color);    		
    		$colort = $doc->createTextNode('');
    		$colort = $color->appendChild($colort); 
    		
    		$attributes = $doc->createElement('attributes');
    		$attributes->setAttribute("g", $sequence_name);
    		$attributes = $data_root->appendChild($attributes);  
    		$attributest = $doc->createTextNode('');
    		$attributest = $attributes->appendChild($attributest); 
    		
    		$datasets = $doc->createElement('datasets');
    		$datasets->setAttribute("names", $file_name);
    		$datasets = $data_root->appendChild($datasets); 
    		$datasetst = $doc->createTextNode('');
    		$datasetst = $datasets->appendChild($datasetst); 

359
			$file_path = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('file_path'));
Penom Nom's avatar
Penom Nom committed
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
			$file_path = $data_folder."/".$file_path;
			
			// If the file exists
			$total = 0;
			if (file_exists($file_path)) {
				$lines = file($file_path);
				// Loop through our array
				foreach ($lines as $line_num => $line) {
					if ($line != "") {
						$mparts = explode("\t", trim($line));
						if ($mparts[0] != "taxlevel" and $mparts[0] != "0") {
							// If this guy doesnt exist yet
							$id_searched = str_replace(".", "_", "node_".$mparts[1]);
							if (is_null($doc->getElementById($id_searched))) {
    	        				$parentl = implode("_", array_slice(explode(".", $mparts[1]), 0, -1));
        	        			// If no parent yet, this is the root
        	        			if (is_null($doc->getElementById("node_".$parentl))) {
        	        				$current_node = $doc->createElement('node');
        	        				$current_node->setAttribute("name", $mparts[2]);
        	        				$current_node->setAttribute("g", $mparts[4]);
        	        				$id = $doc->getElementById("data_root");
        	        				$id->appendChild($current_node);
        	        				$attr_current_node = $doc->createAttribute("xml:id");
									$current_node->appendChild($attr_current_node);	        	        				
        	        				$t_current_node = $doc->createTextNode("node_".str_replace(".", "_", $mparts[1]));
									$attr_current_node->appendChild($t_current_node);
									$current_node->setIdAttribute("xml:id", true);
						    		$current_nodet = $doc->createTextNode('');
						    		$current_nodet = $current_node->appendChild($current_nodet);
        	        			} else {
        	        				$current_node = $doc->createElement('node');
        	        				$current_node->setAttribute("name", $mparts[2]);
        	        				$current_node->setAttribute("g", $mparts[4]);
        	        				$id = $doc->getElementById("node_".$parentl);
        	        				$id->appendChild($current_node);
        	        				$attr_current_node = $doc->createAttribute("xml:id");
									$current_node->appendChild($attr_current_node);	        	        				
        	        				$t_current_node = $doc->createTextNode("node_".str_replace(".", "_", $mparts[1]));
									$attr_current_node->appendChild($t_current_node);
									$current_node->setIdAttribute("xml:id", true);
						    		$current_nodet = $doc->createTextNode('');
						    		$current_nodet = $current_node->appendChild($current_nodet); 
        	        			}
    	        			}
						}
						if ($mparts[0] == "1") {
							$total += (int)$mparts[4];
						}
					}
				}
			}    			
			
    		$color->setAttribute("attribute", "g");
    		$color->setAttribute("valueStart", "0");
    		$color->setAttribute("valueEnd", (string)$total);
    		$color->setAttribute("hueStart", "120");
    		$color->setAttribute("hueEnd", "360");
			
			$xml_string = $doc->saveXML();
			$xml_parts = explode("\n", $xml_string);
    		$val = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">';
    		$val .= '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" lang="fr">';
    		$val .= '<head>';
    		$val .= '</head>';
    		$val .= '<body>';
    		$val .= '<div id="options" style="position:absolute;left:0;top:0"></div>';
    		$val .= '<div id="details" style="position:absolute;top:1%;right:2%;text-align:right;"></div>';
    		$val .= '<canvas id="canvas" width="100%" height="100%">This browser does not support HTML5</canvas><div>';
    		$val .= '<img id="hiddenImage" src="http://krona.sourceforge.net/img/hidden.png" visibility="hide"/>';
429
    		$val .= '<script name="tree" src="'.\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::siteRelPath('nG6').'res/js/krona-1.1.js"></script>';
Penom Nom's avatar
Penom Nom committed
430
431
432
433
434
    		$val .= $xml_parts[1];
    		$val .= '</div>';
    		$val .= '</body>';
    		$val .= '</html>';
    		print $val;
Jerome Mariette's avatar
Jerome Mariette committed
435
436
437
    		
    	} else if ($type == 'delete_users') {
    		
438
    		$ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('ids'));
Jerome Mariette's avatar
Jerome Mariette committed
439
440
    		// users_id to array (1;2;3;...) -> [1;2;3;...]
    		$tab_ids = explode(";",$ids);
441
			$project_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('project_id'));
Jerome Mariette's avatar
Jerome Mariette committed
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
			
			// try to delete users in project ...
			if($project_id != "") {				
				$none_access = "";
				foreach($tab_ids as $id => $del_user_id) {
					tx_nG6_db::delete_access_to_project($del_user_id, $project_id);
					
					// find if user can't access to any project
					$users_access = tx_nG6_db::count_number_of_project_access($del_user_id);
					if($users_access == '0'){
						$none_access .= $del_user_id.";";
					}
				}
				
				if($none_access == ""){		// everybody has at least one access to a project
					$others_access = '0';	
				}else{						// list separate by coma of users who can't access to any project
					$others_access = substr($none_access, 0, -1);
				}
				
				print $others_access;
				
			// delete users of DB...
			}else{
				
				foreach($tab_ids as $k_id => $v_id){
					// delete group
					$gid = tx_nG6_db::get_user_usergroup($v_id);
					// delete user
					tx_nG6_db::delete_user($v_id);
					if(tx_nG6_db::count_users_in_group($gid) == 0){
						tx_nG6_db::delete_group($gid);
					}
				}
				
			}
			
		// to change users' right on project
    	} else if ($type == 'change_right') {
    		
482
483
484
			$project_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('project_id'));
			$c_user_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('c_user_id'));
			$right_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('right_id'));
Jerome Mariette's avatar
Jerome Mariette committed
485
486
487
488
489
490

			tx_nG6_db::change_access_to_project($c_user_id, $project_id, $right_id);
			
		// jquery autocomplete
    	} else if ($type == 'autocomplete') {
    		
491
492
493
    		$col = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('gender'));
    		$project_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('project_id'));
    		$name_start = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('name_start'));
494
    		
Jerome Mariette's avatar
Jerome Mariette committed
495
    		// user search
496
    		if($col != 'title' && $col != 'location' && $col != 'organism'){
Jerome Mariette's avatar
Jerome Mariette committed
497
498
499
500
501
502
503
504
505
506
507
508
    			$res = tx_nG6_db::get_all_names_starting_with($name_start, $col);
	    		foreach($res as $res_id => $res_val){
	    			// find right on project
	    			$res[$res_id]['right_id'] = tx_nG6_db::get_user_right_on_project($res_val['uid'], $project_id);
	    			
	    			// find creator username 
	    			$cruser_infos = tx_nG6_db::get_user_informations($res[$res_id]['cruser_id']);
	    			$res[$res_id]['cruser_username'] = $cruser_infos['username'];
	    		}
	    		
	    	// group search
    		}else{
509
    			if ($col == "location" || $col == "organism") { $col = "tx_nG6_".$col; }
510
    			$res = tx_nG6_db::get_all_starts_with_in_group($name_start, $col);
Jerome Mariette's avatar
Jerome Mariette committed
511
512
513
514
515
    		}
    		$json_res = json_encode($res);
    		print $json_res;
    	
    	// add a new member on project
Jerome Mariette's avatar
Jerome Mariette committed
516
    	} else if ($type == 'add_user') {
Jerome Mariette's avatar
Jerome Mariette committed
517
    		
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
    		$part 		= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('part'));
    		$user_name	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('username'));
    		$project_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('project_id'));
    		$right_id	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('right'));
    		$group_name	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('title'));
    		$location	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('location'));
    		$organism	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('organism'));
    		$email = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('email'));
    		$first_name = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('first_name'));
    		$last_name = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('last_name'));
    		$password = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('password'));
			$cruser_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('creator'));
			$from_email = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('from_email'));
			$pid = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('pid'));
			$project_url = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('project_url'));
			$send_an_email = filter_var(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('send_an_email')), FILTER_VALIDATE_BOOLEAN);
534
			
Jerome Mariette's avatar
Jerome Mariette committed
535
536
537
538
    		// if group not exists, create group
    		$group_id = tx_nG6_db::get_group_id($group_name);
    		if( !isset($group_id) ){
    			
539
    			$cruser_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('creator'));
540
    			tx_nG6_db::create_new_group($cruser_id, $group_name, $organism, $location);
Jerome Mariette's avatar
Jerome Mariette committed
541
542
543
544
    			$group_id = tx_nG6_db::get_group_id($group_name);
    			
    		}
    			
Jerome Mariette's avatar
Jerome Mariette committed
545
    		$user = tx_nG6_db::select_user_by_username($user_name);
Jerome Mariette's avatar
Jerome Mariette committed
546

Jerome Mariette's avatar
Jerome Mariette committed
547
    		// if user does not exists in DB
Jerome Mariette's avatar
Jerome Mariette committed
548
    		if(!isset($user)){
549
    		
550
551
    			$create_user_email = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('create_user_email'));
    			$create_user_title = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('create_user_title'));
Jerome Mariette's avatar
Jerome Mariette committed
552
    			
553
    			$res_code = tx_nG6_db::add_user($user_name, $first_name, $last_name, $email, tx_nG6_utils::hash_password($password), $cruser_id, $group_id, $pid);
Jerome Mariette's avatar
Jerome Mariette committed
554
    			
Jerome Mariette's avatar
Jerome Mariette committed
555
556
    			if ($res_code == 0) {
	    			// find the new user id
Jerome Mariette's avatar
Jerome Mariette committed
557
	    			$user = tx_nG6_db::select_user_by_username($user_name);
Jerome Mariette's avatar
Jerome Mariette committed
558
559
	    			
	    			// authorize new access
Jerome Mariette's avatar
Jerome Mariette committed
560
	    			tx_nG6_db::add_access_to_project($user["uid"], $project_id, $right_id);
Jerome Mariette's avatar
Jerome Mariette committed
561
562
563
564
565
566
	    			
	    			if ($send_an_email) {
		    			// send an email to the new user
		    			$message = str_replace("###USER_FIRST_NAME###", $first_name, $create_user_email);
		    			$message = str_replace("###USER_LAST_NAME###", $last_name, $message);
		    			$message = str_replace("###USER_LOGIN###", $user_name, $message);
567
		    			$message = str_replace("###USER_PASSWORD###", $password, $message);
Jerome Mariette's avatar
Jerome Mariette committed
568
569
570
571
572
573
574
575
576
577
		    			$message = str_replace("###PROJECT_LINK###", $project_url, $message);
		    			$msg_table = explode('\n', $message);
		    			$message = implode("\n", $msg_table);
		    			mail($email, $create_user_title, $message, "From: <".$from_email.">");
		    		}
	    			print '2'; // ok
	    		} else if ($res_code == 1) {
	    			print '4'; // username exists
	    		} else if ($res_code == 2) {
	    			print '5'; // email exists
Jerome Mariette's avatar
Jerome Mariette committed
578
	    		}
Jerome Mariette's avatar
Jerome Mariette committed
579
	    		
Jerome Mariette's avatar
Jerome Mariette committed
580
    		// user exists in DB
Jerome Mariette's avatar
Jerome Mariette committed
581
582
583
584
    		} else if ($user["username"] != $user_name || $user["email"] != $email || $user["first_name"] != $first_name || $user["last_name"] != $last_name) {
    			// there is difference between information provided and the user account
    			print '3';
    		} else {
Jerome Mariette's avatar
Jerome Mariette committed
585
    			// can user access to the project ? 
Jerome Mariette's avatar
Jerome Mariette committed
586
    			if(tx_nG6_db::get_user_right_on_project($user["uid"], $project_id) == -1){
Jerome Mariette's avatar
Jerome Mariette committed
587
588

    				// authorize new access
Jerome Mariette's avatar
Jerome Mariette committed
589
    				tx_nG6_db::add_access_to_project($user["uid"], $project_id, $right_id);
Jerome Mariette's avatar
Jerome Mariette committed
590
591
    				
	    			// send an email to the  user
Jerome Mariette's avatar
Jerome Mariette committed
592
	    			if ($email != "" && $send_an_email) {
Jerome Mariette's avatar
Jerome Mariette committed
593
	    			
594
595
		    			$add_user_email = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('add_user_email'));
		    			$add_user_title = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('add_user_title'));
Jerome Mariette's avatar
Jerome Mariette committed
596
597
598
599
600
	    				$project = tx_nG6_db::select_project($project_id);
		    			$message = str_replace("###USER_FIRST_NAME###", $first_name, $add_user_email);
		    			$message = str_replace("###USER_LAST_NAME###", $last_name, $message);
		    			$message = str_replace("###PROJECT_NAME###", $project["name"], $message);
		    			$message = str_replace("###PROJECT_DESCRIPTION###", $project["description"], $message);
601
		    			$message = str_replace("###PROJECT_LINK###", $project_url, $message);
Jerome Mariette's avatar
Jerome Mariette committed
602
603
604
		    			$msg_table = explode('\n', $message);
		    			$message = implode("\n", $msg_table);
		    			mail($email, $add_user_title, $message, "From: <".$from_email.">");
Jerome Mariette's avatar
Jerome Mariette committed
605
		    			
Jerome Mariette's avatar
Jerome Mariette committed
606
		    		}
Jerome Mariette's avatar
Jerome Mariette committed
607
    				print '0';
Jerome Mariette's avatar
Jerome Mariette committed
608
    				
Jerome Mariette's avatar
Jerome Mariette committed
609
610
611
612
    			} else {
    				print '1';	// already access to the project
    			}
    		}
Jerome Mariette's avatar
Jerome Mariette committed
613

Penom Nom's avatar
Penom Nom committed
614
615
616
    	}
    	
    	else if ( $type == 'add_to_ng6_admin'){
617
    		$userid = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('userid'));
Penom Nom's avatar
Penom Nom committed
618
619
620
    		tx_nG6_db::add_to_ng6_admin($userid);
    	}
    	else if ( $type == 'delete_from_ng6_admin'){
621
622
623
    		$userids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('userids'));
    		$userids = explode(',', $userids);
    		tx_nG6_db::remove_from_ng6_admin($userids);
Penom Nom's avatar
Penom Nom committed
624
    	}
625
626
627
628
629
630
631
632
633
634
635
636
    	else if($type == 'update_user'){
    		$email = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('email'));
    		$first_name = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('first_name'));
    		$last_name = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('last_name'));
    		$group_name	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('title'));
    		$location	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('location'));
    		$organism	= trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('organism'));
    		$user_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('id'));
    		$password = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('password'));
    		$cruser_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('creator'));
    		$send_an_email = filter_var(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('send_an_email')), FILTER_VALIDATE_BOOLEAN);
    		$from_email = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('from_email'));
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
    		
    		$updated = tx_nG6_db::update_user($user_id, $first_name, $last_name, $email, $group_name, $organism, $location, tx_nG6_utils::hash_password($password)) ;
    		
    		$nb_updated = count($updated);
    		
    		if ( $nb_updated > 0 && $send_an_email){
    			$user_infos = tx_nG6_db::get_user_informations($user_id);
    			$email = $user_infos['email'];
    			$first_name =  $user_infos['first_name'];
    			$last_name =  $user_infos['last_name'];
    			$mail_title = "[NG6]Your user informations have been updated.";
    			$mail_content = "Dear " . $first_name . " " . $last_name . ",\n\nSome of your personnal informations have been updated : \n\n";
    			if ($email != ''){
    				foreach($updated as $key => $value){
    					
    					if($key == 'password'){
    						$mail_content .= 'password' . "\t: " . $password . "\n" ;
    					}
    					elseif ($key == 'usergroup'){
    						$mail_content .= 'title' . "\t: " . $group_name . "\n" ;
    						$mail_content .= 'location' . "\t: " . $location . "\n" ;
    						$mail_content .= 'organism' . "\t: " . $organism . "\n" ;
    					}
    					else {
    						$mail_content .= ucwords(str_replace("_", " ", $key)) . "\t: " . $value . "\n" ;
    					}
    				}
664
    				$mail_content .= "\nThe NG6 team";
665
666
667
668
    				mail($email, $mail_title, $mail_content, "From: <".$from_email.">");
    			}
    		}
    		
669
    		print $nb_updated;
Penom Nom's avatar
Penom Nom committed
670
    	}
671
672
673
    	else if ($type == 'get_user_group'){
    		$id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('id'));
    		print json_encode(tx_nG6_db::get_group_informations(tx_nG6_db::get_user_usergroup($id)));
Penom Nom's avatar
Penom Nom committed
674
    	}
Penom Nom's avatar
Penom Nom committed
675
    	elseif($type == 'runs_table') {
676
677
678
679
680
681
    		$smarty = new Smarty();
    		$smarty->setTemplateDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/pi1');
    		$smarty->setCompileDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/res/smarty/templates_c');
    		$smarty->setCacheDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/res/smarty/cache');
    		$smarty->setConfigDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/res/smarty/configs');
    		$smarty->security = true;
Jerome Mariette's avatar
Jerome Mariette committed
682
    		$smarty->security_settings['MODIFIER_FUNCS'] = array('count');
683
684
685
686
    		$project_id = intVal(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('project_id')));
    		$user_id = intVal(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('user_id')));
    		$login_user = intVal(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('login_user')));
    		$page_id = intVal(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('page_id')));
Jerome Mariette's avatar
Jerome Mariette committed
687
    		$project_runs = tx_nG6_db::get_project_runs($project_id);
688
    		$is_project_admin = tx_nG6_db::is_administrator($user_id, 'project', $project_id);
689
    		$is_at_least_admin_of_1_run = false;
Jerome Mariette's avatar
Jerome Mariette committed
690
    		foreach($project_runs as $run_id => $run_values) {
691
    			$is_admin = tx_nG6_db::is_administrator($user_id, 'run', $run_values['id']);
Jerome Mariette's avatar
Jerome Mariette committed
692
693
    			$project_runs[$run_id]['is_admin'] = $is_admin;
    			if ($is_admin) { $is_at_least_admin_of_1_run = true; }
694
695
696
    			$href = '<a href="index.php?id='.$page_id.'&tx_nG6_pi1[run_id]='.$run_values['id'].'&tx_nG6_pi1[project_id]='.$run_values['project_id'].'">'.$run_values['name'].'</a>';
    			$project_runs[$run_id]['href'] = $href;
    		}
Jerome Mariette's avatar
Jerome Mariette committed
697
    		$smarty->assign('runs', $project_runs);
698
    		$smarty->assign('is_project_admin', $is_project_admin);
Jerome Mariette's avatar
Jerome Mariette committed
699
700
701
    		$smarty->assign('is_at_least_admin_of_1_run', $is_at_least_admin_of_1_run);
    		$smarty->assign('login_user', $login_user);
    		print $smarty->fetch('run_table.tpl');
702
703
704
    		
    	} elseif($type == 'projects_table') {
    		$smarty = new Smarty();
705
706
707
708
    		$smarty->setTemplateDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/pi1');
    		$smarty->setCompileDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/res/smarty/templates_c');
    		$smarty->setCacheDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/res/smarty/cache');
    		$smarty->setConfigDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/res/smarty/configs');
709
710
    		$smarty->security = true;
    		$smarty->security_settings['MODIFIER_FUNCS'] = array('count');
711
712
713
714
715
    		$user_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('user_id'));
    		$login_user = intVal(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('login_user')));
    		$page_id = intVal(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('page_id')));
    		$projects = tx_nG6_db::select_all_user_projects($user_id, 'tx_nG6_project.uid DESC');
    		//$projects = tx_nG6_db::select_all_user_projects($user_id, 'tx_nG6_project.name');
716
717
718
    		$is_at_least_admin_of_1_project = false;
    		foreach($projects as $project_id => $project_values) {
    			$is_admin = tx_nG6_db::is_project_administrator($user_id, $project_values['id']);
719
720
721
722
723
    			if ($is_admin) { $is_at_least_admin_of_1_project = true; }
    			$projects[$project_id]['is_admin'] = $is_admin;
    			$projects[$project_id]['is_manager'] = tx_nG6_db::is_project_manager($user_id, $project_values['id']);
    			$projects[$project_id]['is_member'] = tx_nG6_db::is_project_member($user_id, $project_values['id']);
    			$href = '<a href="index.php?id='.$page_id.'&tx_nG6_pi1[project_id]='.$project_values['id'].'">'.$project_values['name'].'</a>';
724
725
726
727
728
    			$projects[$project_id]['href'] = $href;
    		}
    		$smarty->assign('projects', $projects);
    		$smarty->assign('is_at_least_admin_of_1_project', $is_at_least_admin_of_1_project);
    		$smarty->assign('login_user', $login_user);
Penom Nom's avatar
Penom Nom committed
729
    		$smarty->assign('is_ng6_admin', tx_nG6_db::is_ng6_administrator($user_id) ? true : false);
730
    		print $smarty->fetch('project_table.tpl');
731
732
733
    		
    	} elseif($type == 'analyses_table') {    		
    		$smarty = new Smarty();
734
735
736
737
    		$smarty->setTemplateDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/pi1');
    		$smarty->setCompileDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/res/smarty/templates_c');
    		$smarty->setCacheDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/res/smarty/cache');
    		$smarty->setConfigDir(\TYPO3\CMS\Core\Utility\ExtensionManagementUtility::extPath('nG6').'/res/smarty/configs');
738
739
    		$smarty->security = true;
    		$smarty->security_settings['MODIFIER_FUNCS'] = array('count');
740
741
742
743
744
    		$user_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('user_id'));
    		$login_user = intVal(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('login_user')));
    		$page_id = intVal(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('page_id')));
    		$project_id = intVal(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('project_id')));
    		$run_id = intVal(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('run_id')));
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
    		if ($run_id != "") {
    			$analysis = tx_nG6_db::get_run_analysis($run_id);
    		} else {
    			$analysis = tx_nG6_db::get_project_analysis($project_id);
    		}
			// Add some information to the table
			foreach($analysis as $analysis_id => $analysis_values) {
				if (tx_nG6_db::is_administrator($user_id, 'analyze', $analysis_values['id'])) { $is_admin = true; }
				$analysis[$analysis_id]['is_admin'] = tx_nG6_db::is_administrator($user_id, 'analyze', $analysis_values['id']);
				if ($run_id != "") {
					$href = '<a href="index.php?id='.$page_id.'&tx_nG6_pi1[project_id]='.$project_id.'&tx_nG6_pi1[run_id]='.$run_id.'&tx_nG6_pi1[analyze_id]='.$analysis_values['id'].'">'.$analysis_values['name'].'</a>';
				} else {
					$href = '<a href="index.php?id='.$page_id.'&tx_nG6_pi1[project_id]='.$project_id.'&tx_nG6_pi1[analyze_id]='.$analysis_values['id'].'">'.$analysis_values['name'].'</a>';
				}
				$analysis[$analysis_id]['href'] = $href;
			}
			$smarty->assign('display_analysis_result', $is_admin);
			$smarty->assign('is_admin', $is_admin);
    		$smarty->assign('h_analysis', tx_nG6_utils::trace_hierarchy($analysis));
    		$smarty->assign('login_user', $login_user);
    		print $smarty->fetch('analysis_table.tpl');
Celine Noirot's avatar
Celine Noirot committed
766
767
768
    	} elseif($type == 'install') {
    		$res = tx_nG6_db::select_user_by_username("admin_install");
    		if ($res != null){
Jerome Mariette's avatar
Jerome Mariette committed
769
    			$res2 = tx_nG6_db::finalize_installation($res["uid"],
770
771
772
773
774
775
    					trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('username')),
    					trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('first_name')),
    					trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('last_name')),
    					trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('email')),
    					tx_nG6_utils::hash_password(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('password'))),
    					trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('pid')),
776
    					"Demo project",
Penom Nom's avatar
Penom Nom committed
777
    					"This project presents demonstration workflows",
778
779
780
    					trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('title')),
    					trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('organism')),
    					trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('location'))
Penom Nom's avatar
Penom Nom committed
781
    					
Celine Noirot's avatar
Celine Noirot committed
782
    			);
Jerome Mariette's avatar
Jerome Mariette committed
783
784
    			// if there is a result, then log the user
    			if ($res2) {
785
    				$GLOBALS['TSFE'] = \TYPO3\CMS\Core\Utility\GeneralUtility::makeInstance('tslib_fe', $GLOBALS['TYPO3_CONF_VARS'], \TYPO3\CMS\Core\Utility\GeneralUtility::_GP('id'), '');
Jerome Mariette's avatar
Jerome Mariette committed
786
787
788
    				$GLOBALS['TSFE']->initFEuser();
    				$GLOBALS['TSFE']->fe_user->createUserSession(array('uid' =>$res["uid"]));
    			}
Celine Noirot's avatar
Celine Noirot committed
789
    		}
Celine Noirot's avatar
Celine Noirot committed
790
    		print $res;
Jerome Mariette's avatar
Jerome Mariette committed
791
    	} elseif($type == 'project_data_repartition') {
792
793
    		$role = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('role'));    		
    		$by = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('by'));
794
    		print json_encode(tx_nG6_db::select_projects_repartition($role, $by));
795
    	} elseif($type == 'project_distribution') {
796
797
798
    		$values = split(",", trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('values')));
    		$by = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('by'));
    		$role = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('role'));
799
    		print json_encode(tx_nG6_db::select_projects_distribution($values, $by, $role));
Penom Nom's avatar
Penom Nom committed
800
    	} elseif($type == 'project_evolution') {
801
802
803
    		$values = split(",", trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('values')));
    		$by = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('by'));
    		$role = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('role'));
804
    	    $cumulate = false;
805
    		if(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('cumulate')) == '1'){
806
807
808
    			$cumulate = true;
    		}
    		print json_encode(tx_nG6_db::select_projects_evolution($values, $by, $role, $cumulate));
809
    		
Jerome Mariette's avatar
Jerome Mariette committed
810
    	} elseif($type == 'data_distribution'){
811
812
813
    		$values = split(",", trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('values')));
    		$by = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('by'));
    		$role = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('role'));
Jerome Mariette's avatar
Jerome Mariette committed
814
    		$get_analyzes = false;
815
    		if(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('get_analyzes')) == '1'){
Jerome Mariette's avatar
Jerome Mariette committed
816
817
    			$get_analyzes = true;
    		}
Jerome Mariette's avatar
Jerome Mariette committed
818
    		$octet = true;
819
    		if(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('bases')) == '1'){
Jerome Mariette's avatar
Jerome Mariette committed
820
    			$octet = false;
Jerome Mariette's avatar
Jerome Mariette committed
821
    		}
Jerome Mariette's avatar
Jerome Mariette committed
822
    		print json_encode(tx_nG6_db::select_storage_distribution($values, $by, $role, $get_analyzes, $octet));
823
    		
824
		} elseif($type == 'data_evolution'){
825
826
827
    		$values = split(",", trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('values')));
    		$by = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('by'));
    		$role = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('role'));
828
    		$get_analyzes = false;
829
    		if(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('get_analyzes')) == '1'){
830
831
832
    			$get_analyzes = true;
    		}
    		$octet = true;
833
    		if(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('bases')) == '1'){
834
835
836
    			$octet = false;
    		}
    		$cumulate = false;
837
    		if(trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('cumulate')) == '1'){
838
839
840
    			$cumulate = true;
    		}
    		print json_encode(tx_nG6_db::select_storage_evolution($values, $by, $role, $get_analyzes, $octet, $cumulate));
841
    		
842
    	} elseif ($type == 'purge_managment_mail') {
843
                $all_projects = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('project')); 
Celine Noirot's avatar
Celine Noirot committed
844
845
                print json_encode(tx_nG6_pi6::send_purge_demand_mail($all_projects));
        } elseif ($type == 'purge_managment_resend_mail') {
846
                        $purge_ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('purge_demand'));    
Celine Noirot's avatar
Celine Noirot committed
847
                         print json_encode(tx_nG6_pi6::resend_purge_demand_mail($purge_ids));
848
849
        } elseif ($type == 'refresh_purge_demand') {
                $purge_delay = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('purge_delay'));
Celine Noirot's avatar
Celine Noirot committed
850
                print json_encode(tx_nG6_db::get_purge_demand_list($purge_delay));
851
    	}  elseif ($type == 'refresh_purge_list') {
852
853
854
855
856
                $max_retention_date = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('max_retention_date'));
    		$filter_size = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('filter_size'));
    		$without_laboratories_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('without_lab'));
                $with_laboratories_id = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('with_lab'));
    		$create_users = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('create_users'));
857
    		//Change date format
858
    		print json_encode(tx_nG6_db::filter_list_retention_data_info($filter_size,$max_retention_date,$create_users, $without_laboratories_id,$with_laboratories_id));
Celine Noirot's avatar
Celine Noirot committed
859
        } elseif ($type == 'delete_purge_data') {
Celine Noirot's avatar
Celine Noirot committed
860
                 //Delete data link to the list of purge demand
861
862
863
864
                 $purge_ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('purge_demand'));    
                        $data_folder = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('data_folder'));
			$user_login = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('user_login'));
			$user_pwd = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('user_pwd'));
865
866
867

                $res = tx_nG6_db::delete_purge_demand($purge_ids,$user_login, $user_pwd, $data_folder);
                print $res;
868
        } elseif ($type == 'extend_retention_date_from_demand') {
Celine Noirot's avatar
Celine Noirot committed
869
                //Extend the retention date for the
870
871
872
                        $purge_ids = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('purge_demand'));    		
                        $value =  trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('date_value'));
                        $type_extend =  trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('type_extend')); //all project or only run/analyse obsolete
Celine Noirot's avatar
Celine Noirot committed
873
874
875
                        //Change date format
                        $date = explode('/', $value);
                        $timestamp = mktime (0, 0, 1, $date[1], $date[0], $date[2]);
876
877
878
                        print json_encode(tx_nG6_db::extend_retention_date_from_demand(explode(',',$purge_ids),$timestamp,$type_extend));
        } elseif ($type == 'extend_retention_date_from_project') {
                //Extend the retention date for the
879
880
                        $projects_id_str = trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('projects_id'));    		
                        $value =  trim(\TYPO3\CMS\Core\Utility\GeneralUtility::_GP('date_value'));
881
882
883
884
885
886
887
888
                        //Change date format
                        $date = explode('/', $value);
                        $timestamp = mktime (0, 0, 1, $date[1], $date[0], $date[2]);
                        //TODO project
                        print json_encode(tx_nG6_db::extend_retention_date_from_project($projects_id_str,$timestamp, TRUE));
        } elseif ($type == 'get_all_project') {
                print json_encode(tx_nG6_db::select_all_projects());
        }				
Penom Nom's avatar
Penom Nom committed
889
890
891
892
893
894
895
896
897
    }

}

if (defined('TYPO3_MODE') && $TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['ext/nG6/class.tx_nG6_eid.php']) {
    include_once($TYPO3_CONF_VARS[TYPO3_MODE]['XCLASS']['ext/nG6/class.tx_nG6_eid.php']);
}

// Instanciation
898
$SOBE = \TYPO3\CMS\Core\Utility\GeneralUtility::makeInstance('tx_nG6_eid');
Penom Nom's avatar
Penom Nom committed
899
900
$SOBE->main();

901
?>