matlabcentral(opt1st)

function matlabcentral(opt1st)
% MATLABCENTRAL is a quick access to MathWorks MATLAB Central Platform
%  
%   MATLABCENTRAL does give the MATLAB User a quick access trough Links
%   either to open on the Internet Browser the Main page of the MATLAB
%   Central or to ask for a keyword to search in MATLAB Central.
% 
%  SYNTAX: >> matlabcentral           % Display out the Start Link Options
%          >> matlabcentral('open')   % Open on the Internet Explorer at Main Page
%             % Open IE and Search MATLABcentral for entered Keyword
%          >> matlabcentral('search') + Keyword after request.
%

%% AUTHOR    : Frank Gonzalez-Morphy 
%% $DATE     : 30-Nov-2004 16:01:17 $ 
%% $Revision : 1.10 $ 
%% DEVELOPED : 7.0.1.24704 (R14) Service Pack 1 
%% FILENAME  : matlabcentral.m 

if nargin == 0
    v = version;
    if v(1) == '7'  % >= R14 Version
        txtl1 = sprintf('\n  :: ***  MATLAB Central quick access *** \n  :: ');
        disp(txtl1)
        txt_open = sprintf(['  :: Options are:  ', ...
            '<a href="matlab: matlabcentral(''open'')  ">matlabcentral(''open'')</a>']);
        disp(txt_open)
        txt_view = sprintf(['  ::               ', ...
            '<a href="matlab: matlabcentral(''search'')  ">matlabcentral(''search'')</a> \n']);
        disp(txt_view)
        return
    else
        % ... for another versions of MATLAB
        disp(' ')
        disp('  :: ***  MATLAB Central quick access *** <R14')
        disp('  :: ')
        opt = lower(input('  :: Enter Option: open/search [open]? : ','s'));
        if isempty(opt)  % if pressed just enter, then set default
            opt = 'open';
        end
        if (strcmp(opt, 'open') || strcmp(opt, 'search'))
            matlabcentral(opt);
            return
        else
            error('  :: Wrong start option entered! ')
        end
    end
end


switch opt1st
    case 'open'
        web('http://www.mathworks.com/matlabcentral/','-browser')
    case 'search'
        keyw = input('  :: ... Enter Keyword to Search: ', 's');
        disp(' ')
        if ischar(keyw)
            web(['http://www.mathworks.com/matlabcentral/fileexchange/loadFileList.do?objectType=search&criteria=' keyw], '-browser')
        else
            error('  ::FG:MATLABCENTRAL - Not valid Option or Not a String!')
        end
    otherwise
        help(mfilename)
        error('  ::FG:MATLABCENTRAL - Wrong start Option entered!')
end

% Created with NEWFCN.m by Frank Gonzlez-Morphy  
% Contact...: [e-mail]  
% ===== EOF ====== [matlabcentral.m] ======