zimbardo/bin/dev.sh

#!/bin/sh -x

# This is my homage to Erlang - self restarting perl :-)
#
# it enabled to use die and confess when needed without
# having to worry about development flow

server=./bin/server-mojo.pl

pid=`cat var/dev.pid`
echo "## $pid"
if [ ! -z "$pid" ] ; then
        echo "# kill $pid"
        kill $pid
        killall server-mojo.pl
fi

echo $$ > var/dev.pid

export FREY_SWITCH_SCREEN=1
export FREY_DEV=1
export FREY_COUCH=1

while true ; do

        FREY_NO_LOG=1 perl -c $server || exit
        FREY_RESTART=1 $server || exit
        FREY_SWITCH_SCREEN=0

done

1	#!/bin/sh -x
2
3	# This is my homage to Erlang - self restarting perl :-)
4	#
5	# it enabled to use die and confess when needed without
6	# having to worry about development flow
7
8	server=./bin/server-mojo.pl
9
10	pid=`cat var/dev.pid`
11	echo "## $pid"
12	if [ ! -z "$pid" ] ; then
13	echo "# kill $pid"
14	kill $pid
15	killall server-mojo.pl
16	fi
17
18	echo $$ > var/dev.pid
19
20	export FREY_SWITCH_SCREEN=1
21	export FREY_DEV=1
22	export FREY_COUCH=1
23
24	while true ; do
25
26	FREY_NO_LOG=1 perl -c $server \|\| exit
27	FREY_RESTART=1 $server \|\| exit
28	FREY_SWITCH_SCREEN=0
29
30	done
31