Next Trivial Utilities 103

printd: Temporary errors

       symlink $head, $CONF{curfile} or
         temp_error("Couldn't symlink $head to $CONF{curfile}: $!", 30);
     unless (opendir SPOOLD, $dir) {
       temp_error("Couldn't read spool directory $dir: $!", 10);
     }
        sub temp_error {
          my ($message, $delay) = @_;
          ###XXX TODO log the $message
          warn "printd: $message\n";
          $NEXTOP = time() + $delay;
          next MAINLOOP;
        }


Next Menu Copyright © 2012 M. J. Dominus