%% By L_DelOff
%  Функция формирует ссылку и скачивает архив с сайта NOAA
%  status=0 - cкачал успешно

function status=downloadEvent(url)
global param
%% Дебаг
if 1%param.downloadEvent.debug
    param.downloadEvent.debug=1;
    param.downloadEvent.loglevel=3;
    param.data.path='D:\Git\earthquake\DATA\';
    url='https://satdat.ngdc.noaa.gov/dmsp/data/f18/ssies/2014/03/PS.CKGWC_SC.U_DI.A_GP.SIES3-F18-R99990-B9999090-APGA_AR.GLOBAL_DD.20140303_TP.000001-235959_DF.EDR.gz';
end
%% Начало
if param.downloadEvent.loglevel==3
    message=['Скачиваю... \n'];
    fprintf(message)
end
%% Вытаскиваю из URL имя файла
a=find((ismember(url,'/')));
filename=url(a(end)+1:end);
%% Путь для скачивания
filepath=[param.data.path 'temp/' filename];
%% Проверяю, можно ли записать в темп
if ~isfolder([param.data.path 'temp'])
    mkdir([param.data.path 'temp'])
end
%% Скачиваю
try
    outfilename = websave(filepath,url);
    status=0;
catch ME    
    warning(ME.message);
    switch ME.identifier
        case 'MATLAB:webservices:HTTP404StatusCodeError'
            status=404;
        otherwise
            ME            
            status=-1;
    end
end

if param.downloadEvent.loglevel==3
    if status==0
        message=['\bГотово \n'];
        fprintf(message)
    end
end
end