Parent Directory | Revision Log
document starter script if only a bit :-)
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 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |