Changeset 4792

Timestamp:

Nov 26, 2014, 12:26:51 AM (10 years ago)

Author:

ldelgass

Message:

Don't add extra pid to stats log line

Location:

vtkvis/trunk

Files:

• RenderServer.cpp (modified) (6 diffs)
• RenderServer.h (modified) (1 diff)
• RendererCmd.cpp (modified) (2 diffs)

vtkvis/trunk/RenderServer.cpp

@@ -203 +203 @@
     std::ostringstream oss;
     oss << "nv>ok -token " << g_stats.nCommands <<  "\n";
-    int nBytes = oss.str().length();
+    std::string str = oss.str();
+    int nBytes = str.length();
 
     TRACE("Sending OK for commands through %lu", g_stats.nCommands);
 #ifdef USE_THREADS
-    queueResponse(clientData, oss.str().c_str(), nBytes, Response::VOLATILE, Response::OK);
-#else
-    if (write(fdOut, oss.str().c_str(), nBytes) < 0) {
+    queueResponse(clientData, str.c_str(), nBytes, Response::VOLATILE, Response::OK);
+#else
+    if (write(fdOut, str.c_str(), nBytes) < 0) {
         ERROR("write failed: %s", strerror(errno));
         return -1;
@@ -218 +219 @@
 
 int
-VtkVis::getStatsFile(Tcl_Interp *interp, Tcl_Obj *objPtr)
-{
-    Tcl_Obj **objv;
-    int objc;
-    int i;
+VtkVis::getStatsFile(Tcl_Obj *objPtr)
+{
     char fileName[33];
+    char pidstr[200];
     md5_state_t state;
     md5_byte_t digest[16];
@@ -232 +231 @@
         return g_statsFile;
     }
-    if (Tcl_ListObjGetElements(interp, objPtr, &objc, &objv) != TCL_OK) {
-        return -1;
-    }
-    Tcl_ListObjAppendElement(interp, objPtr, Tcl_NewStringObj("pid", 3));
-    Tcl_ListObjAppendElement(interp, objPtr, Tcl_NewIntObj(getpid()));
+    /* By itself the client's key/value pairs aren't unique.  Add in the
+     * process id of this render server. */
+    sprintf(pidstr, "%ld", (long)g_stats.pid);
+
+    /* Create an md5 hash of the key/value pairs and use it as the file name. */
     string = Tcl_GetStringFromObj(objPtr, &length);
-
     md5_init(&state);
-    md5_append(&state, (const md5_byte_t *)string, length);
+    md5_append(&state, (const md5_byte_t *)string, strlen(string));
+    md5_append(&state, (const md5_byte_t *)pidstr, strlen(pidstr));
     md5_finish(&state, digest);
-    for (i = 0; i < 16; i++) {
+    for (int i = 0; i < 16; i++) {
         sprintf(fileName + i * 2, "%02x", digest[i]);
     }
@@ -318 +317 @@
     /* pid */
     Tcl_DStringAppendElement(&ds, "pid");
-    sprintf(buf, "%d", getpid());
+    sprintf(buf, "%ld", (long)g_stats.pid);
     Tcl_DStringAppendElement(&ds, buf);
     /* host */
@@ -391 +390 @@
     }
     Tcl_DStringAppend(&ds, "\n", -1);
-    f = getStatsFile(NULL, NULL);
+    f = getStatsFile(NULL);
     result = writeToStatsFile(f, Tcl_DStringValue(&ds), 
                               Tcl_DStringLength(&ds));
@@ -520 +519 @@
 
     memset(&g_stats, 0, sizeof(g_stats));
+    g_stats.pid = getpid();
     gettimeofday(&g_stats.start, NULL);
 

vtkvis/trunk/RenderServer.h

@@ -49 +49 @@
 extern int g_statsFile;
 extern int writeToStatsFile(int f, const char *s, size_t length);
-extern int getStatsFile(Tcl_Interp * interp, Tcl_Obj *objPtr);
+extern int getStatsFile(Tcl_Obj *objPtr);
 
 }

vtkvis/trunk/RendererCmd.cpp

@@ -2325 +2325 @@
     /* Use the initial client key value pairs as the parts for a generating
      * a unique file name. */
-    int fd = VtkVis::getStatsFile(interp, objv[1]);
+    int fd = VtkVis::getStatsFile(objv[1]);
     if (fd < 0) {
         Tcl_AppendResult(interp, "can't open stats file: ", 
@@ -2345 +2345 @@
         objPtr = Tcl_NewStringObj("pid", 3);
         Tcl_ListObjAppendElement(interp, listObjPtr, objPtr);
-        Tcl_ListObjAppendElement(interp, listObjPtr, Tcl_NewIntObj(getpid()));
+        Tcl_ListObjAppendElement(interp, listObjPtr, Tcl_NewLongObj((long)VtkVis::g_stats.pid));
         /* host */
         objPtr = Tcl_NewStringObj("host", 4);