login($_SESSION['user'], $_SESSION['pass'])) { exit('Login Failed'); } include('Net/SFTP.php'); $sftp = new Net_SFTP('sun01'); //cambiar esto luego por "Sun01" if (!$sftp->login($_SESSION['user'], $_SESSION['pass'])) { exit('Login Failed'); } } $numcores = $_POST["numcores"]; $numservers = $_POST["numservers"]; $lista_multiple = $_POST["listmultiple"]; switch( $_POST['boton'] ) { case "Descargar": $permisos = $sftp->stat('/home/'.($_SESSION['user']).'/scripts/'); $sftp->chmod(0777, '/home/'.($_SESSION['user']).'/scripts/'); if (count($lista_multiple) > 0){ for($i=0;$icreate($ListaArchivos) == 0) { die('Error : '.$archivo_zip->errorInfo(true)); } header("Content-disposition: attachment; filename=ceconea.zip"); header("Content-type: application/octet-stream"); readfile("ceconea.zip"); exec("rm ceconea.zip",$salida); } $sftp->chmod($permisos['permissions'], '/home/'.($_SESSION['user']).'/scripts/'); break; case "Eliminar": //ELIMINARRR $permisos = $sftp->stat('/home/'.($_SESSION['user']).'/scripts/'); $sftp->chmod(0777, '/home/'.($_SESSION['user']).'/scripts/'); for($i=0;$ichmod($permisos['permissions'], '/home/'.($_SESSION['user']).'/scripts/'); header("location: colas_upload.php"); break; case "Ejecutar": $permisos = $sftp->stat('/home/'.($_SESSION['user']).'/scripts/'); $sftp->chmod(0777, '/home/'.($_SESSION['user']).'/scripts/'); if((count($lista_multiple))==1){ $filename=$lista_multiple[0]; $longstring = strlen($filename); $extension = substr($filename,($longstring-3),$longstring); if((".sh" == $extension) || ("exe" == $extension) || ("bin" == $extension) || (".SH" == $extension) || ("EXE" == $extension) || ("BIN" == $extension)){ if ($numcores!="" && $numservers!=""){ $ssh->exec('echo " #PBS -N '.$filename.' #PBS -l nodes='.$numservers.':ppn='.$numcores.' #PBS -d /home/'.($_SESSION['user']).'/scripts/ source /usr/local/intel/composer_xe_2011_sp1.11.339/bin/ifortvars.sh intel64 source /usr/local/intel/composer_xe_2011_sp1.10.319/bin/iccvars.sh intel64 source /usr/local/intel/mpi/bin64/mpivars.sh export NETCDF=/usr/local/netcdf-intel/ export WRFIO_NCD_LARGE_FILE_SUPPORT=1 mpirun ./'.$filename.'" > scripts/script_ejecutar' ); $ssh->exec('qsub ~/scripts/script_ejecutar'); $ssh->exec('rm ~/scripts/script_ejecutar'); echo ""; } else{ echo ""; } } else{ echo ""; } } else{ if((count($lista_multiple))==0){ echo ""; } else{ echo ""; } } $sftp->chmod($permisos['permissions'], '/home/'.($_SESSION['user']).'/scripts/'); break; case "Encolar": $permisos = $sftp->stat('/home/'.($_SESSION['user']).'/scripts/'); $sftp->chmod(0777, '/home/'.($_SESSION['user']).'/scripts/'); if((count($lista_multiple))==1){ $filename=$lista_multiple[0]; $longstring = strlen($filename); $extension = substr($filename,($longstring-3),$longstring); if((".sh" == $extension) || (".SH" == $extension)){ $ssh->exec('qsub ~/scripts/'.$filename); $ssh->exec('rm ~/scripts/'.$filename); echo ""; } else{ echo ""; } } else{ if((count($lista_multiple))==0){ echo ""; } else{ echo ""; } } $sftp->chmod($permisos['permissions'], '/home/'.($_SESSION['user']).'/scripts/'); break; } ?>