From 78289c91f8e4971c1704dc3a0193705205891b47 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 7 Mar 2019 08:52:32 +0100
Subject: [PATCH] strip domain, apparmor replace roule

---
 cups-pdf-find-owner.pl | 7 ++++++-
 doc/cups-pdf.txt       | 6 ++++++
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/cups-pdf-find-owner.pl b/cups-pdf-find-owner.pl
index 54fafcc..b1754d7 100755
--- a/cups-pdf-find-owner.pl
+++ b/cups-pdf-find-owner.pl
@@ -7,6 +7,8 @@ use Data::Dump qw(dump);
 use File::Slurp;
 use DBI;
 
+open(STDERR, '>>', '/var/log/cups/find_owner_log');
+
 my ($file, $local_user, $remote_user) = @ARGV;
 
 my $job_id = $1 if ( $file =~ m/job_(\d+)/ );
@@ -45,12 +47,15 @@ warn "## row = ",dump($row);
 $sth->finish;
 
 my $username = $row->{username} || die "no username in row = ",dump($row);
+$username =~ s/\@ffzg.hr$//; # strip domain, same as pGina
 
 my $spool = '/var/spool/cups-pdf/';
 mkdir "$spool/$username" if ( ! -e "$spool/$username" );
 my $filename_only = $file;
 $filename_only =~ s/^.*\///; # basename
 
-rename $file, "$spool/$username/$filename_only";
+my $to = "$spool/$username/$filename_only";
+rename $file, $to;
+warn "# $to";
 
 exit 0;
diff --git a/doc/cups-pdf.txt b/doc/cups-pdf.txt
index 19dd752..c18d982 100644
--- a/doc/cups-pdf.txt
+++ b/doc/cups-pdf.txt
@@ -23,3 +23,9 @@ add permission for script execution:
   /srv/safeq/cups-pdf-find-owner.pl uxr,
 }
 
+
+
+apparmor_parser -r /etc/apparmor.d/usr.sbin.cupsd
+
+/etc/init.d/apparmor restart
+
-- 
2.20.1