--- trunk/bin/dev.sh	2008/11/24 22:56:41	506
+++ trunk/bin/dev.sh	2009/07/02 18:56:17	1167
@@ -1,13 +1,30 @@
-#!/bin/sh
+#!/bin/sh -x
 
-server=./bin/continuity-server.pl
+# 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
 
-dir=var/log
-test -d $dir || mkdir -v $dir || exit
+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
 
 while true ; do
-perl -c $server || exit
-test -f log && mv -v log $dir/dev.`ls $dir/dev* | wc -l`
-DISPLAY= FREY_RESTART=1 $server # 2>&1 | tee -a log | ccze -A
+
+	FREY_NO_LOG=1 perl -c $server || exit
+	FREY_RESTART=1 $server || exit
+	FREY_SWITCH_SCREEN=0
+
 done