663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
|
Tcl_SetObjResult(interp, Tcl_NewStringObj("setuid failed", -1));
return(TCL_ERROR);
}
Tcl_SetObjResult(interp, Tcl_NewStringObj("", -1));
return(TCL_ERROR);
}
static int tuapi_getuid(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
uid_t uid;
Tcl_WideInt tclUid;
if (objc != 1) {
|
|
|
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
|
Tcl_SetObjResult(interp, Tcl_NewStringObj("setuid failed", -1));
return(TCL_ERROR);
}
Tcl_SetObjResult(interp, Tcl_NewStringObj("", -1));
return(TCL_OK);
}
static int tuapi_getuid(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
uid_t uid;
Tcl_WideInt tclUid;
if (objc != 1) {
|