CMSCOPE changed

2 files changed, 60 insertions, 0 deletions

diff --git a/modules/fileio/etc/fileio.quit b/modules/fileio/etc/fileio.quit
new file mode 100755
index 000000000..eb8dbe267
--- /dev/null
+++ b/modules/fileio/etc/fileio.quit
@@ -0,0 +1,14 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2007-2008 - INRIA
+// Copyright (C) 2009 - DIGITEO
+//
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at
+// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+
+// =============================================================================
+// close all opened files
+mclose('all');
+// =============================================================================
diff --git a/modules/fileio/etc/fileio.start b/modules/fileio/etc/fileio.start
new file mode 100755
index 000000000..c07076082
--- /dev/null
+++ b/modules/fileio/etc/fileio.start
@@ -0,0 +1,46 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2009-2011 - DIGITEO
+//
+// This file must be used under the terms of the CeCILL.
+// This source file is licensed as described in the file COPYING, which
+// you should have received as part of this distribution.  The terms
+// are also available at
+// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+
+//Load  functions libraries
+// =============================================================================
+load('SCI/modules/fileio/macros/lib');
+
+// Initialize CURL environment
+// =============================================================================
+function startModule()
+    if getos()=="Linux" then
+
+        // List of hard-coded paths comes from curl sources (configure.ac)
+
+        userBundle = getenv("CURL_CA_BUNDLE", "");
+        if isempty(userBundle) then // Not defined by the user
+
+            standardFiles = ["/etc/ssl/certs/ca-certificates.crt";
+                    "/etc/pki/tls/certs/ca-bundle.crt";
+                    "/usr/share/ssl/certs/ca-bundle.crt";
+                    "/usr/local/share/certs/ca-root.crt";
+                    "/etc/ssl/cert.pem"];
+
+            for iFile = 1:size(standardFiles, "*")
+                if isfile(standardFiles(iFile)) then
+                    setenv("CURL_CA_BUNDLE", standardFiles(iFile));
+                    break
+                end
+            end
+        end
+
+        caBundle = getenv("CURL_CA_BUNDLE", "");
+        caPath = getenv("CURL_CA_PATH", "");
+        if isempty(caBundle) & isempty(caPath) then
+            setenv("CURL_CA_PATH", "/etc/ssl/certs/");
+        end
+    end
+endfunction
+startModule();
+clear startModule
\ No newline at end of file