@@ -25,7 +25,14 @@ init([]) -> ping_master(MasterNode); undefined -> MasterNode = node() - end, + end, + + case application:get_env(pidfile) of + {ok, Location} -> + Pid = os:getpid(), + ok = file:write_file(Location, list_to_binary(Pid)); + undefined -> ok + end, case application:get_env(conf) of {ok, Conf} -> @@ -89,4 +96,4 @@ figure_responder() -> end. process_appmods(undefined) -> []; -process_appmods({ok, V}) -> V. +process_appmods({ok, V}) -> V. \ No newline at end of file elibs/fuzed_frontend_supervisor.erl @@ -76,6 +76,10 @@ OptionParser.new do |opts| opts.on("-p", "--port PORT", "Port for web server.") do |dir| options[:port] = dir end + + opts.on("-P", "--pidfile PIDFILE", "Location to write pid file.") do |pidfile| + options[:pidfile] = pidfile + end opts.on("-f", "--frontend-responder MODULE", "Module to use for Pool calculation.") do |mod| options[:module] = mod @@ -101,6 +105,8 @@ detached = options[:detached] ? '-detached' : '' master = options[:master_name] || DEFAULT_MASTER_NODE nodename = options[:name] || DEFAULT_NODE_NAME +pidfile = options[:pidfile] ? "-fuzed_frontend pidfile \"'#{options[:pidfile]}'\"" : '' + spec = options[:spec] || "kind=normal" details = details_from_string(spec) @@ -119,6 +125,7 @@ if options[:conf] #{code_paths} -name '#{nodename}' \ -setcookie #{cookie_hash(master)} \ + #{pidfile} \ -fuzed_frontend master "'#{master}'" \ -fuzed_frontend details #{details} \ -fuzed_frontend conf "'#{options[:conf]}'" \ @@ -153,6 +160,7 @@ else #{code_paths} -name '#{nodename}' \ -setcookie #{cookie_hash(master)} \ + #{pidfile} \ -fuzed_frontend master "'#{master}'" \ -fuzed_frontend http_server '#{http_server}' \ -fuzed_frontend details #{details} \ rlibs/cli/frontend.rb 508131296a13d94ad67fafe083258faa3e9074e4 Tom Preston-Werner tom@mojombo.com http://github.com/KirinDave/fuzed/commit/54a10b2ed8ca703c2e5d285ff7bdab11c0b5daff 54a10b2ed8ca703c2e5d285ff7bdab11c0b5daff 2008-06-14T20:13:40-07:00 2008-06-14T20:13:40-07:00 pid file option for frontend 68a5c5588ae5d880d7fe70e2094f584b4c66bdcb Tom Preston-Werner tom@mojombo.com