[Sumover-dev] [svn commit] r4880 - in vic/branches/mpeg4: tcl

[sumover-dev at cs.ucl.ac.uk]

Author: piers
Date: Wed Sep  1 14:32:51 2010
New Revision: 4880

Modified:
   vic/branches/mpeg4/main.cpp
   vic/branches/mpeg4/tcl/cf-main.tcl

Log:
Tidied up logging code and made it add one explanatory line at the top of the log file to indicate what each of the values are.


Modified: vic/branches/mpeg4/main.cpp
==============================================================================
--- vic/branches/mpeg4/main.cpp	(original)
+++ vic/branches/mpeg4/main.cpp	Wed Sep  1 14:32:51 2010
@@ -681,7 +681,6 @@
 			tcl.add_option("logFrameRate", "true");
 			// Uses auto generated filename of the form:
 			// {UNIX seconds}{host IP}{username}
-			//tcl.add_option("logFrameFile", optarg);
 			break;
 
 		case 'L':

Modified: vic/branches/mpeg4/tcl/cf-main.tcl
==============================================================================
--- vic/branches/mpeg4/tcl/cf-main.tcl	(original)
+++ vic/branches/mpeg4/tcl/cf-main.tcl	Wed Sep  1 14:32:51 2010
@@ -67,6 +67,7 @@
 		global logFrameChannel
 		set logFrameFile "vic-[clock seconds]-[gethostname]-[user_heuristic].log"
 		set logFrameChannel [open "$logFrameFile" "w" ]
+		puts $logFrameChannel "#\[src sdes cname] \[clock seconds] fps bps loss"
 		#set logFrameChannel [open [resource logFrameFile] w ]
 	}