Help for this page

Select Code to Download

Select or download this

use Time::HiRes qw(usleep);
use File::Spec;

...
    system File::Spec->catfile($_, 'fastcgi.pl'), qw(-l /tmp/mysite.so
+cket -n 3 -d);
  }
}

Select or download this

#!/bin/sh
if ! /etc/init.d/lighttpd status > /dev/null; then
...
if ! /etc/init.d/fastcgi status > /dev/null; then
  /etc/init.d/fastcgi restart
fi