sceox/totoro
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: sceox:a89fa44572edbe83f4a6356adc5b9b39857628ed
Branches Tags
sceox:master
...
compare: sceox:a3be661e9902d99186efbb15ee6fca5e9b6608ff
Branches Tags
sceox:master

2 Commits
a89fa44572 ... a3be661e99

Author SHA1 Message Date
sceox
a3be661e99 clean up debugging line 2020-12-29 17:00:04 -08:00
sceox
7353143239 do not unveil local::lib; lock unveil 2020-12-29 16:56:41 -08:00
1 changed files with 1 additions and 2 deletions
Show Stats Expand all files Collapse all files

3
print.pl
View File

@ -10,8 +10,8 @@ use OpenBSD::Unveil;
pledge( qw(unveil rpath dns inet) ) || die "Unable to pledge: $!"; 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: $!"; unveil( $jobs_dir, "r" ) || die "Unable to unveil: $!";
unveil() || die "Unable to lock unveil: $!";
use local::lib '/var/www/perl5'; use local::lib '/var/www/perl5';
use Net::Printer; use Net::Printer;
@ -31,7 +31,6 @@ my $lp = new Net::Printer();
my $q = URI::Query->new( $ENV{'QUERY_STRING'} ); my $q = URI::Query->new( $ENV{'QUERY_STRING'} );
my %hash = $q->hash; my %hash = $q->hash;
#print Dumper( \%hash );
if($hash{'file'}) { if($hash{'file'}) {
my $file = "$jobs_dir/$hash{'file'}"; my $file = "$jobs_dir/$hash{'file'}";