| 1 |
#!/bin/sh |
#!/bin/sh -x |
| 2 |
|
|
| 3 |
server=./bin/continuity-server.pl |
# 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 |
perl -c $server || exit |
server=./bin/server-mojo.pl |
| 9 |
|
|
| 10 |
dir=var/log |
pid=`cat var/dev.pid` |
| 11 |
test -d $dir || mkdir -v $dir || exit |
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 |
|
|
| 22 |
while true ; do |
while true ; do |
| 23 |
test -f log && mv -v log $dir/dev.`ls $dir/dev* | wc -l` |
|
| 24 |
FREY_RESTART=1 $server 2>&1 | tee -a log |
FREY_NO_LOG=1 perl -c $server || exit |
| 25 |
|
FREY_RESTART=1 $server || exit |
| 26 |
|
FREY_SWITCH_SCREEN=0 |
| 27 |
|
|
| 28 |
done |
done |
| 29 |
|
|
Parent Directory
| 
Revision Log
| 
Patch