iceplexd

   1 #!/usr/bin/perl
   2 #
   3 # iceplexd
   4 #
   5 # Copyright (c) 2003 Ivan Kohler
   6 # All rights reserved.
   7 # This program is free software; you can redistribute it and/or modify it under
   8 # the same terms as Perl itself.
   9
  10 # TODO, fake it for now :)
  11
  12 # daemonize
  13
  14 while (1) {
  15
  16   # select all servers
  17   # SELECT * FROM iceplex_servers
  18
  19   foreach my $server ( @servers ) {
  20     #ping , set status
  21     # ask # of listeners
  22     #update database
  23
  24   }
  25
  26 sleep 5;
  27 }