steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

builder: use base portion of hostname

db4
Eduardo Cavazos 2008-02-10 03:01:20 -06:00
parent e0a19714ae
commit ad7ec00c29
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/builder/builder.factor
View File

@ -30,7 +30,9 @@ IN: builder
SYMBOL: builder-recipients SYMBOL: builder-recipients
: tag-subject ( str -- str ) `{ "builder@" ,[ host-name ] ": " , } concat ; : host-name* ( -- name ) host-name "." split first ;
: tag-subject ( str -- str ) `{ "builder@" ,[ host-name* ] ": " , } concat ;
: email-string ( subject -- ) : email-string ( subject -- )
`{ "mutt" "-s" ,[ tag-subject ] %[ builder-recipients get ] } `{ "mutt" "-s" ,[ tag-subject ] %[ builder-recipients get ] }
@ -158,11 +160,11 @@ SYMBOL: build-status
builder-test "builder.test fatal error" run-or-notify builder-test "builder.test fatal error" run-or-notify
"../load-everything-log" exists? "../load-everything-log" exists?
[ "builder: load-everything" "../load-everything-log" email-file ] [ "load-everything" "../load-everything-log" email-file ]
when when
"../failing-tests" exists? "../failing-tests" exists?
[ "builder: failing tests" "../failing-tests" email-file ] [ "failing tests" "../failing-tests" email-file ]
when when
"ready" build-status set-global ; "ready" build-status set-global ;