Megatest

Check-in [8149616a1d]
Login
Overview
Comment:Fixed debug message print that was missing the port
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | server-log-handshaking
Files: files | file ages | folders
SHA1: 8149616a1d37e9956fe80db687c68dfe2f1e9b80
User & Date: mrwellan on 2017-01-30 14:24:36
Other Links: branch diff | manifest | tags
Context
2017-01-31
13:20
Don't fixate on first possible best server, if it isn't good keep on looking for a good candidate check-in: 8de206008d user: mrwellan tags: server-log-handshaking
2017-01-30
14:24
Fixed debug message print that was missing the port check-in: 8149616a1d user: mrwellan tags: server-log-handshaking
04:46
Make server runtime settable, improved log rotate check-in: 581192039a user: matt tags: server-log-handshaking
Changes

Modified dashboard.scm from [bb7acd661f] to [9bbb1ee284].

99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
(if (args:get-arg "-h")
    (begin
      (print help)
      (exit)))

(if (not (common:on-homehost?))
    (begin
      (debug:print 0 "ERROR: Current policy requires running dashboard on homehost: " (common:get-homehost))))
    
;; TODO: Move this inside (main)
;;
(if (not (launch:setup))
    (begin
      (print "Failed to find megatest.config, exiting") 
      (exit 1)))







|







99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
(if (args:get-arg "-h")
    (begin
      (print help)
      (exit)))

(if (not (common:on-homehost?))
    (begin
      (debug:print 0 *default-log-port* "ERROR: Current policy requires running dashboard on homehost: " (common:get-homehost))))
    
;; TODO: Move this inside (main)
;;
(if (not (launch:setup))
    (begin
      (print "Failed to find megatest.config, exiting") 
      (exit 1)))

Modified utils/lock-stats.sh from [3f061e6171] to [84d255afaf].

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/bin/bash

while IFS=': ' read x x x x p x x i x; do
    if ! [[ ${i}x == "x" ]];then
	if ! $(echo $i|grep EOF >/dev/null);then
	    fname=$(sudo find -L "/proc/$p/fd" -maxdepth 1 -inum "$i" -exec readlink {} \; -quit)
	    if $(echo $fname | grep megatest.db > /dev/null) || \
	       $(echo $fname | egrep '.db/\d+.db' > /dev/null);then
		echo $fname
	    fi
	fi
    fi
done < /proc/locks





|







1
2
3
4
5
6
7
8
9
10
11
12
13
#!/bin/bash

while IFS=': ' read x x x x p x x i x; do
    if ! [[ ${i}x == "x" ]];then
	if ! $(echo $i|grep EOF >/dev/null);then
	    fname=$(find -L "/proc/$p/fd" -maxdepth 1 -inum "$i" -exec readlink {} \; -quit)
	    if $(echo $fname | grep megatest.db > /dev/null) || \
	       $(echo $fname | egrep '.db/\d+.db' > /dev/null);then
		echo $fname
	    fi
	fi
    fi
done < /proc/locks