Parent Directory | Revision Log
don't include status bar if FREY_DEV environment variable isn't set
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 | 1167 | export FREY_DEV=1 |
22 | dpavlin | 477 | |
23 | while true ; do | ||
24 | dpavlin | 617 | |
25 | FREY_NO_LOG=1 perl -c $server || exit | ||
26 | dpavlin | 658 | FREY_RESTART=1 $server || exit |
27 | dpavlin | 617 | FREY_SWITCH_SCREEN=0 |
28 | |||
29 | dpavlin | 477 | done |
30 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |