demoharvest(sendMailFlag)

function demoharvest(sendMailFlag)
%DEMOHARVEST  Gather all Shared Demo files.
%   DEMOHARVEST(sendMailFlag) gathers all the demo files
%   depending upon user's preference and creates an index file. If sendMailFlag 
%   is set to 1 then it will notify about the new demos found to the people
%   in the demo mailing list. Default value is set to 1.
%
%   NOTE:
%   Before running this file, open demoharvestConfig.m file to configure
%   dirPath, dirPathUrl, harvestList and emailList.
%
%   This file only works on Windows.

%   Copyright 1984-2007 The MathWorks, Inc.
%
%   Author : Santosh Kasula

% Set defaults
% Send email notification by default
if (nargin < 1), sendMailFlag = true; end

%get the demoharvest configuration variables
config = demoharvestConfig();

%Get the dirPath and dirPathurl from preferences
if isempty(config.dirPath)
    edit('demoharvestConfig.m');
    error('config.dirPath is not configured.');
end

if isempty(config.dirPathUrl)
    config.dirPathUrl = ['file:///' config.dirPath];
    warning('config.dirPathUrl is not configured. Check demoharvestConfig.m to configure.');
end
%Call the sharedemo function
findShareDemos(config,'sharedemos', sendMailFlag);