Changeset 1037 for trunk/src/dir_uvmat.m

Timestamp:

May 1, 2018, 4:31:01 PM (6 years ago)

Author:

sommeria

Message:

miscellaneous adaptations to opendap

File:

• trunk/src/dir_uvmat.m (modified) (2 diffs)

trunk/src/dir_uvmat.m

@@ -27 +27 @@
 %=======================================================================
 
-function [ ListFiles] = dir_uvmat(DirName)
+function [ ListFiles,errormsg] = dir_uvmat(DirName)
+errormsg='';
 if regexp(DirName,'^http://')
     catalog=[DirName,'/catalog.xml'];
+    try
     str=urlread(catalog);
-    ListFiles=(regexp(str,'xlink:title="(?<name>[^"]+)"','names'))';
+    catch ME
+        ListFiles=[];
+        errormsg=ME.message;
+        return
+    end
+    ListFiles=(regexp(str,'xlink:title="(?<name>[^"]+)"','names'))';%list subfolders
     NumDir=numel(ListFiles);
-    ListFiles=[ListFiles;(regexp(str,'dataset name="(?<name>[^"]+)"','names'))'];
+    ListFiles=[ListFiles;(regexp(str,'dataset name="(?<name>[^"]+)"','names'))'];% append files to the list
     for ilist=1:numel(ListFiles)
         ListFiles(ilist).date=0;
@@ -43 +50 @@
         ListFiles(ilist).isdir=true;
     end
+    ListFiles(NumDir+1)=[];
 else
     ListFiles=dir(DirName);