[BACK]Return to sm1Socket.hh CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / plugin
File: [local] / OpenXM / src / kan96xx / plugin / sm1Socket.hh (download)

Revision 1.3, Thu Feb 24 12:33:48 2000 UTC (24 years, 2 months ago) by takayama
Branch: MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.2: +2 -1 lines 

The option for security level is introduced to work as a server
for web cite.
If you turn on the secure option by [(SecureMode) 1] system_variable,
then you cannot execute shell commands, cannot open files, and
cannot open TCP/IP ports.
Once you turn on the option, you cannot turn off.

/* $OpenXM: OpenXM/src/kan96xx/plugin/sm1Socket.hh,v 1.3 2000/02/24 12:33: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) {
      errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension : the second argument must be a keyword.");
    }
    if (obj2.tag != Sarray) {
      errorKan1("%s\n","[(sm1.socket) (key for sm1.socket) [ args ]] extension : the third argument must be an array of argument.");
    }
    rob = Kplugin_sm1Socket(KopString(obj1),obj2);
  }