% Author: Albert Law
% File: "qdelall.m"
% Date: 2006-05-05
% Description: This will kill all the user queues on a PBS system.
% Note #1: designed for WESTGRID but should work on CLUMEQ.
% Note #2: Will destroy any file in the working directory with the name "test1234567890.txt"


function qdelall (username)

    filename = 'test1234567890.txt';

    system(['qstat | grep ', username, ' > ', filename]);
    fid = fopen(filename);

    while (feof(fid) ~= 1)
        system(['qdel ', strtok(fgetl(fid))]);
    end;

    system(['rm -f ', filename]);