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

Compare commits

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

No commits in common. "a3be661e9902d99186efbb15ee6fca5e9b6608ff" and "a89fa44572edbe83f4a6356adc5b9b39857628ed" have entirely different histories.
a3be661e99 ... a89fa44572

1 changed files with 2 additions and 1 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,6 +31,7 @@ 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'}";