- Added a sinq module for monitoring the Accelerator broadcast
- Added automatic notification via SMS SKIPPED: psi/dgrambroadcast.c psi/dgrambroadcast.h psi/make_gen psi/psi.c psi/sinq.c psi/sinq.h
This commit is contained in:
21
macro.c
21
macro.c
@@ -829,7 +829,7 @@ static int ProtectedExec(ClientData clientData, Tcl_Interp *interp,
|
||||
{
|
||||
char pBueffel[1024];
|
||||
pPubTcl self = NULL;
|
||||
int iRet;
|
||||
int iRet, length;
|
||||
char *pPtr;
|
||||
Tcl_Interp *pTcl = NULL;
|
||||
|
||||
@@ -853,9 +853,22 @@ static int ProtectedExec(ClientData clientData, Tcl_Interp *interp,
|
||||
|
||||
iRet = Tcl_Eval(pTcl,pBueffel);
|
||||
if(iRet == TCL_OK)
|
||||
{
|
||||
strncpy(pBueffel,pTcl->result,1023);
|
||||
SCWrite(pCon,pBueffel,eStatus);
|
||||
{ length = strlen(pTcl->result);
|
||||
if(length < 1024){
|
||||
strncpy(pBueffel,pTcl->result,1023);
|
||||
SCWrite(pCon,pBueffel,eStatus);
|
||||
} else {
|
||||
length += 10;
|
||||
pPtr = (char *)malloc(length*sizeof(char));
|
||||
if(pPtr == NULL){
|
||||
SCWrite(pCon,"ERROR: out of memory in TclAction",eError);
|
||||
return 0;
|
||||
}
|
||||
memset(pPtr,0,length*sizeof(char));
|
||||
strncpy(pPtr,pTcl->result,length-1);
|
||||
SCWrite(pCon,pPtr,eStatus);
|
||||
free(pPtr);
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
else
|
||||
|
||||
Reference in New Issue
Block a user