dipole-on-surf/create_hpc_bat.lsf

redrawoff;
status = layoutmode;
slash = "/";
if (operatingsystem == "windows") {slash = "\\";}

curdir = pwd;
######################################################
# Get local hostname
#
######################################################
if (fileexists("temppath.txt")) {
    temppath = read("temppath.txt");
    len = length(temppath);
    temppath = substring(temppath,1,len-2);
    cd(temppath);
    if (fileexists("hostname.txt")) {
        hostname = read("hostname.txt");
        len = length(hostname);
        hostname = substring(hostname,1,len-2);
        cd(curdir);
    } else {
        cd(curdir);
        break;
    }
} else {
    break;
}
######################################################
files = splitstring(dir,endl);
isCreated = false;
fname = curdir+slash+hostname+"exec.bat";
if (fileexists(fname)){rm(fname);}
for(i=1:length(files)) {
    file_to_check = files{i};
    ?file_to_check+" --"+num2str(length(file_to_check))+"ext: "+fileextension(file_to_check);
    if(fileextension(file_to_check) == "") {?"!!!!!! dir";}
    hpc_file_check; # uses variables: file_to_check, fname
}
write(fname,"exit /b 0");
cd(curdir);
redrawon;