list only dirty repos

Signed-off-by: Jeff Carr <jcarr@wit.com>

Makefile

@@ -49,12 +49,19 @@ redomod:
 curl-help:
 	curl --silent http://localhost:9419/help
 
+# only show repos that git reports as dirty
+curl-list-dirty:
+	curl --silent http://localhost:9419/list?onlydirty=true
+
+# only show repos that need to be merged to the master branch
 curl-list-changed:
 	curl --silent http://localhost:9419/list?perfect=false
 
+# include repos that you probably can't git push commits
 curl-list-include-readonly:
 	curl --silent http://localhost:9419/list?readonly=true
 
+# list every repo found
 curl-gitpull-everypackage:
 	curl --silent http://localhost:9419/gitpull
 

http.go

@@ -93,6 +93,7 @@ func okHandler(w http.ResponseWriter, r *http.Request) {
 
 	if route == "/list" {
 		readonly := r.URL.Query().Get("readonly")
+		onlydirty := r.URL.Query().Get("onlydirty")
 		perfect := r.URL.Query().Get("perfect")
 		var count int
 
@@ -102,6 +103,12 @@ func okHandler(w http.ResponseWriter, r *http.Request) {
 
 			count += 1
 			header := repo.StandardHeader()
+			if onlydirty == "true" {
+				if repo.CheckDirty() {
+					msg(w, header+"")
+				}
+				continue
+			}
 
 			if repo.ReadOnly() {
 				if readonly == "true" {