From: Torbjorn T. <et...@us...> - 2004-03-30 21:18:37
|
Update of /cvsroot/jungerl/jungerl/lib/esmb/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28456/src Modified Files: esmb.erl Log Message: Index: esmb.erl =================================================================== RCS file: /cvsroot/jungerl/jungerl/lib/esmb/src/esmb.erl,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- esmb.erl 26 Mar 2004 11:59:06 -0000 1.11 +++ esmb.erl 30 Mar 2004 21:06:56 -0000 1.12 @@ -10,7 +10,7 @@ connect/2, connect/3, connect/4, close/1, user_logon/3, emsg/3, tree_connect/4, tree_connect/5, list_dir/3, called/1, open_file_ro/3, open_file_rw/3, stream_read_file/3, - read_file/3, mkdir/3, rmdir/3, + read_file/3, mkdir/3, rmdir/3, is_ok/2, astart/0, istart/0, ustart/0, client/2, aclient/2, iclient/2, uclient/2, close_file/2, write_file/4, delete_file/3, caller/0, @@ -1623,6 +1623,11 @@ %%% %%% Error messages %%% + +is_ok(Pdu, DefaultEmsg) when Pdu#smbpdu.eclass == ?SUCCESS -> ok; +is_ok(Pdu, DefaultEmsg) when record(Pdu, smbpdu) -> + {error, emsg(Pdu#smbpdu.eclass, Pdu#smbpdu.ecode, DefaultEmsg)}. + emsg(Eclass, Ecode, DefaultEmsg) -> case catch emsg(Eclass, Ecode) of {'EXIT', _} -> DefaultEmsg; |