clean up debugging line
This commit is contained in:
parent
7353143239
commit
a3be661e99
1
print.pl
1
print.pl
@ -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'}";
|
||||||
|
Loading…
x
Reference in New Issue
Block a user