my ($file, $local_user, $remote_user) = @ARGV;
my $job_id = $1 if ( $file =~ m/job_(\d+)/ );
my ($file, $local_user, $remote_user) = @ARGV;
my $job_id = $1 if ( $file =~ m/job_(\d+)/ );
my $spool = '/var/spool/cups-pdf/';
mkdir "$spool/$username" if ( ! -e "$spool/$username" );
my $filename_only = $file;
$filename_only =~ s/^.*\///; # basename
my $spool = '/var/spool/cups-pdf/';
mkdir "$spool/$username" if ( ! -e "$spool/$username" );
my $filename_only = $file;
$filename_only =~ s/^.*\///; # basename