Next Trivial Utilities 105

print

        #!/usr/bin/perl
        #
        # print
        #
        # tool for spooling files
        #
        # Idea: Ready-to-print files are deposited in the spool directory
        # These must be in the right format.
        # The job of 'print' is to convert the file to the right format
        # and then copy it to the spool directory
        #
        use strict;
        use File::Copy;
        use Getopt::Std;
        use lib '/home/mjd/lib';
        use MJD::Print;
        use vars qw($opt_t $opt_n $opt_v $opt_s $opt_b);
        umask 077;
        my @TMPFILES = ();
        END {
          unlink @TMPFILES;
          rmdir $tempdir;
        }


Next Menu Copyright © 2012 M. J. Dominus