diff --git a/print.pl b/print.pl index cd1c0f9..b9d4896 100755 --- a/print.pl +++ b/print.pl @@ -3,12 +3,20 @@ use strict; use warnings; +my $jobs_dir = "/var/www/jobs"; + +use OpenBSD::Pledge; +use OpenBSD::Unveil; + +pledge( qw(unveil rpath dns inet) ) || die "Unable to pledge: $!"; + +unveil( "/var/www/perl5", "r" ) || die "Unable to unveil: $!"; +unveil( $jobs_dir, "r" ) || die "Unable to unveil: $!"; + use local::lib '/var/www/perl5'; use Net::Printer; use URI::Query; -my $jobs_dir = "/var/www/jobs"; - print "content-type:text/html; charset=utf-8\n\n"; print "\n"; print "\n";