#!/usr/bin/perl

if (!$ARGV[0]) {
  do {
    system("perl node.cgi 1")
  } until (!-e 'update.fcc')
} else {
  use FCC::node;
  use gserv qw(localip);
  my $local=0; if (localip() =~/^192.168/) { $local=1 }
  FCC::node::start(7050,0,$local);
}