export

 $Id: export.m,v 1.15 2004/05/21 15:55:02 dalai Exp $

0001 % $Id: export.m,v 1.15 2004/05/21 15:55:02 dalai Exp $
0002 
0003 function export(pref,filename,data)
0004 
0005 matname = [filename,'.mat'];
0006 matpath = pref.tmp;
0007 
0008 tarname = [filename,'.tar.gz'];
0009 tarpath = pref.tar;
0010 
0011 scp = pref.scp;
0012 if ( scp == 1)
0013     user = pref.user;
0014     server = pref.server;
0015     remotepath = pref.remote;
0016 end
0017 
0018 disp(dispconsole('|',['exporting ' filename],':','in .mat format','|'));
0019 [state_mat,warning_mat] = export2mat(matpath,matname,data);
0020 
0021 if ( state_mat == 0 )
0022     disp(dispconsole('|',matname,':','mat export ok','|'));
0023     disp(dispconsole('|',['exporting ' matname],':','in .tar.gz format','|'));
0024     [state_tgz,warning_tgz] = export2tgz(matpath,matname,tarpath,tarname);
0025     if ( state_tgz == 0 )
0026         disp(dispconsole('|',tarname,':','tar.gz export ok','|'));
0027         disp(dispconsole('|',matname,':','removing','|'));
0028         [state_matrm,warning_matrm] = export2rm(matpath,matname);
0029         if ( state_matrm == 0 )
0030             disp(dispconsole('|',matname,':','removed','|'));
0031         else
0032             disp(dispconsole('|',matname,':','removing FAILED !!','|'));
0033             disp(warning_matrm);
0034         end
0035         if ( scp == 1 )
0036             disp(dispconsole('|',['scp ' tarname],':','exporting','|'));
0037             [state_scp,warning_scp] = export2scp(tarpath,tarname,user,server,remotepath);
0038             if ( state_scp == 0 )
0039                 disp(dispconsole('|',tarname,':','scp export ok','|'));
0040                 disp(dispconsole('|',['local ' tarname],':','removing','|'));
0041                 [state_tgzrm,warning_tgzrm] = export2rm(tarpath,tarname);
0042                 if ( state_tgzrm == 0 )
0043                     disp(dispconsole('|',['local ' tarname],':','removed','|'));
0044                 else
0045                     disp(dispconsole('|',['local ' tarname],':','removing FAILED !!','|'));
0046                     disp(warning_tgzrm);
0047                 end
0048             else
0049                 disp(dispconsole('|',['scp ' tarname],':','export FAILED !!','|'));
0050                 disp(warning_scp);
0051             end
0052         end
0053     else
0054         disp(dispconsole('|',tarname,':','FAILED !!!','|'));
0055         disp(warning_tgz);
0056     end
0057     disp(dispconsole('|',['export of ',filename],':','finished','|'));
0058 else
0059     disp(dispconsole('|',matname,':','FAILED !!','|'));
0060     disp(warning_mat);
0061     disp(dispconsole('|',['export of ',filename],':','!!! FAILED !!!','|'));
0062 end