mambax7 /
extcal
| @@ 122-143 (lines=22) @@ | ||
| 119 | } |
|
| 120 | ||
| 121 | // ----- Look if the $p_filelist is really an array |
|
| 122 | if (is_array($p_filelist)) { |
|
| 123 | // ----- Call the create fct |
|
| 124 | $v_result = PclTarHandleCreate($p_tarname, $p_filelist, $p_mode, $p_add_dir, $p_remove_dir); |
|
| 125 | } // ----- Look if the $p_filelist is a string |
|
| 126 | else { |
|
| 127 | if (is_string($p_filelist)) { |
|
| 128 | // ----- Create a list with the elements from the string |
|
| 129 | $v_list = explode(' ', $p_filelist); |
|
| 130 | ||
| 131 | // ----- Call the create fct |
|
| 132 | $v_result = PclTarHandleCreate($p_tarname, $v_list, $p_mode, $p_add_dir, $p_remove_dir); |
|
| 133 | } // ----- Invalid variable |
|
| 134 | else { |
|
| 135 | // ----- Error log |
|
| 136 | PclErrorLog(-3, 'Invalid variable type p_filelist'); |
|
| 137 | $v_result = -3; |
|
| 138 | } |
|
| 139 | } |
|
| 140 | ||
| 141 | // ----- Return |
|
| 142 | TrFctEnd(__FILE__, __LINE__, $v_result); |
|
| 143 | ||
| 144 | return $v_result; |
|
| 145 | } |
|
| 146 | ||
| @@ 267-288 (lines=22) @@ | ||
| 264 | } |
|
| 265 | ||
| 266 | // ----- Look if the $p_filelist is really an array |
|
| 267 | if (is_array($p_filelist)) { |
|
| 268 | // ----- Call the add fct |
|
| 269 | $v_result = PclTarHandleAppend($p_tarname, $p_filelist, $p_mode, $p_list_detail, $p_add_dir, $p_remove_dir); |
|
| 270 | } // ----- Look if the $p_filelist is a string |
|
| 271 | else { |
|
| 272 | if (is_string($p_filelist)) { |
|
| 273 | // ----- Create a list with the elements from the string |
|
| 274 | $v_list = explode(' ', $p_filelist); |
|
| 275 | ||
| 276 | // ----- Call the add fct |
|
| 277 | $v_result = PclTarHandleAppend($p_tarname, $v_list, $p_mode, $p_list_detail, $p_add_dir, $p_remove_dir); |
|
| 278 | } // ----- Invalid variable |
|
| 279 | else { |
|
| 280 | // ----- Error log |
|
| 281 | PclErrorLog(-3, 'Invalid variable type p_filelist'); |
|
| 282 | $v_result = -3; |
|
| 283 | } |
|
| 284 | } |
|
| 285 | ||
| 286 | // ----- Return |
|
| 287 | if (1 != $v_result) { |
|
| 288 | TrFctEnd(__FILE__, __LINE__, 0); |
|
| 289 | ||
| 290 | return 0; |
|
| 291 | } |
|
