UNIX for Dummies Questions & Answers

# last line of code in /etc/profile
alias lp='/path/to/my/perl/code/script.pl'

#!/usr/bin/perl

use PDF::Create;

my      $fsize=12;
my      $xmargin=0.25*72,       $ymargin=0.5*72;
my      $ymin=0+$ymargin,       $ymax=(11*72)-$ymargin,
        $xmin=0+$xmargin,       $xmax=(8.5*72)-$xmargin,
        $n=0;

my $pdf = new PDF::Create(      'fh'       => *STDOUT,
                                'Version'  => 1.2,
                                'PageMode' => 'UseOutlines',
                                'Author'   => 'Some Guy',
                                'Title'    => 'Log File',       );

my $root = $pdf->new_page(      'MediaBox' => [ 0, 0, 8.5*72, 11*72 ]);

# Add a page which inherits its attributes from $root
my $page = $root->new_page;

# Prepare 2 fonts
my $f1 = $pdf->font(            'Subtype'  => 'Type1',
                                'Encoding' => 'WinAnsiEncoding',
                                'BaseFont' => 'Courier'         );

my $f2 = $pdf->font(            'Subtype'  => 'Type1',
                                'Encoding' => 'WinAnsiEncoding',
                                'BaseFont' => 'Courier-Bold');

$page->stringc($f2, 40, 306, 426, "Log File");
$page->stringc($f1, 20, 306, 396, "Generated on ".`date`);

while(!eof(STDIN))
{
        # Add another page
        my $page2 = $root->new_page;

        for($y = $ymax; $y >= $ymin; $y-=(144/$fsize))
        {
                if(eof(STDIN)) { break }
                my $line=<STDIN>;
                $page2->stringl($f1, $fsize, $xmin, $y, $line);
        }
}

# Add the missing PDF objects and a the footer then close the file
$pdf->close;

:                                                          
#       @(#) file 25.2 95/03/27                            
#                                                          
#                                                          
# lp interface for print to file                           
#                                                          
                                                           
#Set up some global variables.                             
: ${SPOOLDIR:=/usr/spool/lp}                               
: ${LOCALPATH:=${SPOOLDIR}/bin}                            
                                                           
shift; shift; shift; shift; shift                          
files="$*"                                                 
for file in $files                                         
do                                                         
        cp ${file} /u/spool/`/bin/basename $file`                              
done                                                       
exit 0   
  ------end of script------                                                 
-bash-3.2# l file                                          
-r-xr-x---    1 bin      lp         267 Sep 19 11:25 file

cd /u
mkdir spool
chown root spool
chgrp group spool
chmod 0777 spool
chmod +t spool