first pass at something ready to try/test

[iceplex.git] / iceplexd

diff --git a/iceplexd b/iceplexd
index 1f1c293..2904be1 100644 (file)
--- a/iceplexd
+++ b/iceplexd
@@ -1 +1,27 @@
 #!/usr/bin/perl
+#
+# iceplexd
+#
+# Copyright (c) 2003 Ivan Kohler
+# All rights reserved.
+# This program is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself.
+
+# TODO, fake it for now :)
+
+# daemonize
+
+while (1) {
+
+  # select all servers
+  # SELECT * FROM iceplex_servers
+
+  foreach my $server ( @servers ) {
+    #ping , set status
+    # ask # of listeners
+    #update database
+
+  }
+
+sleep 5;
+}