Next Welcome to my ~/bin 91

printd

     sub mainloop {
      MAINLOOP:
       while (1) {
         sleep ($NEXTOP - time()) while $NEXTOP > time();
         %CONF = load_conf($CONFIG);
         my @QUEUE = read_spoold($CONF{spooldir});
         if (@QUEUE == 0) {          # empty queue
     #      $NEXTOP = time() + 2;     # try again in two seconds
     #      next;

continued...


Next Menu Copyright © 2005 M. J. Dominus