Switch to side-by-side view

--- a
+++ b/functions/adminfunc/plugin_urlwrite.m
@@ -0,0 +1,147 @@
+function [output,status] = plugin_urlwrite(urlChar,location,method,params)
+%   URLWRITE Save the contents of a URL to a file.
+%   URLWRITE(URL,FILENAME) saves the contents of a URL to a file.  FILENAME
+%   can specify the complete path to a file.  If it is just the name, it will
+%   be created in the current directory.
+%
+%   F = URLWRITE(...) returns the path to the file.
+%
+%   F = URLWRITE(...,METHOD,PARAMS) passes information to the server as
+%   part of the request.  The 'method' can be 'get', or 'post' and PARAMS is a
+%   cell array of param/value pairs.
+%
+%   [F,STATUS] = URLWRITE(...) catches any errors and returns the error code. 
+%
+%   Examples:
+%   urlwrite('http://www.mathworks.com/',[tempname '.html'])
+%   urlwrite('ftp://ftp.mathworks.com/README','readme.txt')
+%   urlwrite(['file:///' fullfile(prefdir,'history.m')],'myhistory.m')
+% 
+%   From behind a firewall, use the Preferences to set your proxy server.
+%
+%   See also URLREAD.
+
+%   Adapted by A. Delorme from 
+%   Matthew J. Simoneau, 13-Nov-2001
+%   Copyright 1984-2011 The MathWorks, Inc.
+%   $Revision: 1.4.4.14 $ $Date: 2011/09/03 22:43:01 $
+
+% This function requires Java.
+if ~usejava('jvm')
+   error(message('MATLAB:urlwrite:NoJvm'));
+end
+
+import('com.mathworks.mlwidgets.io.InterruptibleStreamCopier');
+
+% Be sure the proxy settings are set.
+com.mathworks.mlwidgets.html.HTMLPrefs.setProxySettings
+
+% Check number of inputs and outputs.
+if ~ischar(urlChar)
+    error('MATLAB:urlwrite:InvalidInput','The first input, the URL, must be a character array.');
+end
+if ~ischar(location)
+    error('MATLAB:urlwrite:InvalidInput','The second input, a filename, must be a character array.');
+end
+if (nargin > 2) && ~strcmpi(method,'get') && ~strcmpi(method,'post')
+    error('MATLAB:urlwrite:InvalidInput','Second argument must be either "get" or "post".');
+end
+
+% Do we want to throw errors or catch them?
+if nargout == 2
+    catchErrors = true;
+else
+    catchErrors = false;
+end
+
+% Set default outputs.
+output = '';
+status = 0;
+
+% GET method.  Tack param/value to end of URL.
+if (nargin > 2) && strcmpi(method,'get')
+    if mod(length(params),2) == 1
+        error('MATLAB:urlwrite:InvalidInput','Invalid parameter/value pair arguments.');
+    end
+    for i=1:2:length(params)
+        if (i == 1), separator = '?'; else separator = '&'; end
+        param = char(java.net.URLEncoder.encode(params{i}));
+        value = char(java.net.URLEncoder.encode(params{i+1}));
+        urlChar = [urlChar separator param '=' value];
+    end
+end
+
+% Create a urlConnection.
+[urlConnection,errorid,errormsg] = plugin_urlreadwrite(mfilename,urlChar);
+if isempty(urlConnection)
+    if catchErrors, return
+    else error(errorid,errormsg);
+    end
+end
+
+pluginSize = 2*plugin_urlsize(urlChar)/1000000;
+timeOut = max(round(pluginSize*1000), 5000);
+urlConnection.setReadTimeout(timeOut); % timeout in 5 seconds
+
+% POST method.  Write param/values to server.
+if (nargin > 2) && strcmpi(method,'post')
+    try
+        urlConnection.setDoOutput(true);
+        urlConnection.setRequestProperty( ...
+            'Content-Type','application/x-www-form-urlencoded');
+        printStream = java.io.PrintStream(urlConnection.getOutputStream);
+        for i=1:2:length(params)
+            if (i > 1), printStream.print('&'); end
+            param = char(java.net.URLEncoder.encode(params{i}));
+            value = char(java.net.URLEncoder.encode(params{i+1}));
+            printStream.print([param '=' value]);
+        end
+        printStream.close;
+    catch
+        if catchErrors, return
+        else error('MATLAB:urlwrite:ConnectionFailed','Could not POST to URL.');
+        end
+    end
+end
+
+% Specify the full path to the file so that getAbsolutePath will work when the
+% current directory is not the startup directory and urlwrite is given a
+% relative path.
+file = java.io.File(location);
+if ~file.isAbsolute
+   location = fullfile(pwd,location);
+   file = java.io.File(location);
+end
+
+% Make sure the path isn't nonsense.
+try
+   file = file.getCanonicalFile;
+catch
+   error('MATLAB:urlwrite:InvalidOutputLocation','Could not resolve file "%s".',char(file.getAbsolutePath));
+end
+
+% Open the output file.
+try
+    fileOutputStream = java.io.FileOutputStream(file);
+catch
+    error('MATLAB:urlwrite:InvalidOutputLocation','Could not open output file "%s".',char(file.getAbsolutePath));
+end
+
+% Read the data from the connection.
+try
+    inputStream = urlConnection.getInputStream;
+    % This StreamCopier is unsupported and may change at any time.
+    isc = InterruptibleStreamCopier.getInterruptibleStreamCopier;
+    isc.copyStream(inputStream,fileOutputStream);
+    inputStream.close;
+    fileOutputStream.close;
+    output = char(file.getAbsolutePath);
+catch
+    fileOutputStream.close;
+    delete(file);
+    if catchErrors, return
+    else error('MATLAB:urlwrite:ConnectionFailed','Error downloading URL. Your network connection may be down or your proxy settings improperly configured.');
+    end
+end
+
+status = 1;