=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/sm1Socket.hh,v retrieving revision 1.1.1.1 retrieving revision 1.3 diff -u -p -r1.1.1.1 -r1.3 --- OpenXM/src/kan96xx/plugin/sm1Socket.hh 1999/10/08 02:12:05 1.1.1.1 +++ OpenXM/src/kan96xx/plugin/sm1Socket.hh 2000/02/24 12:33:48 1.3 @@ -1,7 +1,9 @@ +/* $OpenXM: OpenXM/src/kan96xx/plugin/sm1Socket.hh,v 1.2 2000/01/16 07:55:48 takayama Exp $ */ else if (strcmp(key,"sm1.socket") == 0) { if (size != 3) { errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension"); } + if (SecureMode) errorKan1("%s\n","Security violation for sm1.socket."); obj1 = getoa(obj,1); obj2 = getoa(obj,2); if (obj1.tag != Sdollar) {