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 |
dir=var/log |
server=./bin/server-mojo.pl |
9 |
test -d $dir || mkdir -v $dir || exit |
|
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 |
|
|
22 |
while true ; do |
while true ; do |
23 |
perl -c $server || exit |
|
24 |
test -f log && mv -v log $dir/dev.`ls $dir/dev* | wc -l` |
FREY_NO_LOG=1 perl -c $server || exit |
25 |
FREY_RESTART=1 $server 2>&1 | tee -a log |
FREY_RESTART=1 $server || exit |
26 |
|
FREY_SWITCH_SCREEN=0 |
27 |
|
|
28 |
done |
done |
29 |
|
|