function cron_monterey2(ndays)

if ~nargin
    ndays = 7;
end

warning('off')
webDir = getWebPath;
imgDir = fullfile(getWebPath, 'bog', 'images');

% M1 specprr plots ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
% 20070731 brian - Commented out this block. THere's no PRR on M1 anymore
% try
%     m1_lookPrr(ndays)
%     set(0,'CurrentFigure',1)
%     webprint(fullfile(imgDir, ['m1Ed.png']));
%     set(0,'CurrentFigure',2)
%     webprint(fullfile(imgDir, ['m1Lu.png']));
%     set(0,'CurrentFigure',3)
%     webprint(fullfile(imgDir, ['m1Ed10.png']));
%     set(0,'CurrentFigure',4)
%     webprint(fullfile(imgDir, ['m1Lu10.png']));
% %     set(0,'CurrentFigure',5)
% %     webprint(fullfile(imgDir, [id 'm1Ed20.png']));
% %     set(0,'CurrentFigure',6)
% %     webprint(fullfile(imgDir, [id 'm1Lu20.png']));
% catch
%     err = lasterror;
%     fprintf(1, '[ERROR] m1_lookPrr failed - %s -> %s\n', err.identifier, err.message);
% end
% close all

% M2 specprr plots ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
try
    m2_lookPrr(ndays)
    set(0,'CurrentFigure',1)
    webprint(fullfile(imgDir, ['m2Ed.png']));
    set(0,'CurrentFigure',2)
    webprint(fullfile(imgDir, ['m2Lu.png']));
    set(0,'CurrentFigure',3)
    webprint(fullfile(imgDir, ['m2Ed20.png']));
    set(0,'CurrentFigure',4)
    webprint(fullfile(imgDir, ['m2Lu20.png']));
    
catch
    err = lasterror;
    fprintf(1, '[%s] m2_lookPrr failed - %s -> %s\n', mfilename, err.identifier, err.message);
end
close all


ids = {'m1','m2'};
for i = 1:length(ids)
    close all
    id = ids{i};
    
    % GPS plot ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    % 20070731 brian - Commented out this block. Someone else is making the GPS plot now
    % try
    %     m_lookGps(id, ndays)
    %     set(0,'CurrentFigure',1)
    %     webprint(fullfile(imgDir, [id '_gps.png']));
    % catch
    %     err = lasterror;
    %     fprintf(1, '[ERROR] m_lookGps(%s) failed - %s -> %s\n', id, err.identifier, err.message);
    % end
    % close all
    
    % Fluormeter plot ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    try
        m_lookFluor(id, ndays)
        set(0,'CurrentFigure',1)
        webprint(fullfile(imgDir, [id '_fluor.png']));
    catch
        err = lasterror;
        fprintf(1, '[%s] m_lookFlour(%s) failed - %s -> %s\n', mfilename, id, err.identifier, err.message);
    end
    close all

    % HS2 plot ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%     try
%         m_lookHs2(id, ndays)
%         set(0,'CurrentFigure',1)
%         webprint(fullfile(imgDir, [id '_hs2.png']));
%     catch
%         fprintf(1, 'm_lookHs2(%s) failed\n', id);
%     end
%     close all

    % pCO2 plot ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    try
        m_lookPco2(id, ndays)
        set(0,'CurrentFigure',1)
        webprint(fullfile(imgDir, [id 'pco2_1.png']));
        set(0,'CurrentFigure',2)
        webprint(fullfile(imgDir, [id 'pco2_2.png']));
        set(0,'CurrentFigure',3)
        webprint(fullfile(imgDir, [id 'pco2_3.png']));
        set(0,'CurrentFigure',4)
        webprint(fullfile(imgDir, [id 'pco2_4.png']));
    catch
        err = lasterror;
        fprintf(1, '[%s] m_lookPco2(%s) failed - %s -> %s\n', mfilename, id, err.identifier, err.message);
    end
    close all

    % EMETER Plot ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    try
        m_lookEMeter(id, ndays)
        set(0,'CurrentFigure',1)
        webprint(fullfile(imgDir, [id '_emeter_1.png']));
        set(0,'CurrentFigure',2)
        webprint(fullfile(imgDir, [id '_emeter_2.png']));
        set(0,'CurrentFigure',3)
        webprint(fullfile(imgDir, [id '_emeter_3.png']));

    catch
        err = lasterror;
        fprintf(1, '[%s] m_lookEMeter(%s) failed - %s -> %s\n', mfilename, id, err.identifier, err.message);
    end
    close all

    % Download information plots ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    try
        m_lookDlinfo(id, ndays)
        set(0,'CurrentFigure',1)
        webprint(fullfile(imgDir, [id '_dlduration.png']));
        set(0,'CurrentFigure',2)
        webprint(fullfile(imgDir, [id '_dlsize.png']));
        set(0,'CurrentFigure',3)
        webprint(fullfile(imgDir, [id '_dlrate.png']));
        set(0,'CurrentFigure',4)
        webprint(fullfile(imgDir, [id '_dlexit.png']));
    catch
        err = lasterror;
        fprintf(1, '[%s] m_lookDlinfo(%s) failed - %s -> %s\n', mfilename, id, err.identifier, err.message);
    end
    close all

    % Plots specific to m1
%     if id == 'm1'
%         
%         % ECOBB plot ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%         try
%             m_lookEcobb(id, ndays)
%             set(0,'CurrentFigure',1)
%             webprint(fullfile(imgDir, [id '_ecobb.png']));
%         catch
%             fprintf(1, 'm_lookkEcobb(%s) failed\n', id);
%         end
%         close all
% 
%         % ECOFL plot ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%         try
%             m_lookEcofl(id, ndays)
%             set(0,'CurrentFigure',1)
%             webprint(fullfile(imgDir, [id '_ecofl.png']));
%         catch
%             fprintf(1, 'm_lookEcofl(%s) failed\n', id);
%         end
%         close all
%     end


end

warning('on')

function webprint(filename)
% WEBPRINT - a subfunction for doing the printing onto the web

switch (computer)
    case 'MAC'
        set(gcf, 'PaperPosition', [0 0 8 6.4])
        setfontsize(12)
        
    otherwise
        set(gcf, 'PaperPosition', [0 0 5 4])
        setfontsize(7)
end
print(gcf,'-dpng', filename)


