Next Welcome to my ~/bin 96

printd: Printing errors

        sub handle_printlp_result {
          my @errors = ('No error',
                        'printer argument missing',
                        'printer argument malformed',
                        'printer file is not a character device',
                        'group is not lp',
                        'couldn\'t open printer device',
                        'read error',
                        'write error',
                        'RESERVED',
                        'exec failure',
                        );
          my $err = shift;
          temp_error("printlp failed: ($err: $errors[$err])", 10);
        }


Next Menu Copyright © 2005 M. J. Dominus