trunk/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

while true ; do

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

done

1	dpavlin	658	#!/bin/sh -x
2	dpavlin	477
3	dpavlin	658	# 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	dpavlin	639	server=./bin/server-mojo.pl
9	dpavlin	479
10	dpavlin	658	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	dpavlin	617	export FREY_SWITCH_SCREEN=1
21	dpavlin	477
22			while true ; do
23	dpavlin	617
24			FREY_NO_LOG=1 perl -c $server \|\| exit
25	dpavlin	658	FREY_RESTART=1 $server \|\| exit
26	dpavlin	617	FREY_SWITCH_SCREEN=0
27
28	dpavlin	477	done
29