Bugzilla – Attachment 128251 Details for
Bug 29168
Only show "Request article" if allowed on the detail view
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
Bug 29168 - Error trace when viewing detail in OPAC when logged in
Bug 29168 - Error trace when viewing detail in OPAC when logged in.txt (text/plain), 25.02 KB, created by
David Nind
on 2021-12-05 08:39:53 UTC
(
hide
)
Description:
Bug 29168 - Error trace when viewing detail in OPAC when logged in
Filename:
MIME Type:
Creator:
David Nind
Created:
2021-12-05 08:39:53 UTC
Size:
25.02 KB
patch
obsolete
> >Error trace > >The method Koha::Patron->can_article_request is not covered by tests! > >Trace begun at /kohadevbox/koha/Koha/Object.pm line 875 >Koha::Object::AUTOLOAD('Koha::Patron=HASH(0x55c564e0df98)') called at /kohadevbox/koha/opac/opac-detail.pl line 792 >eval {...} at /kohadevbox/koha/opac/opac-detail.pl line 2 >CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2ddetail_2epl::__ANON__('CGI::Compile=HASH(0x55c565c8fe70)', '', '/kohadevbox/koha/opac/opac-detail.pl', '/kohadevbox/koha/opac', 'ARRAY(0x55c5675839d0)') called at /usr/share/perl5/CGI/Compile.pm line 151 >CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2ddetail_2epl::opac_2ddetail_2epl at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30 >CGI::Emulate::PSGI::__ANON__('HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 95 >Plack::App::WrapCGI::call('Plack::App::WrapCGI=HASH(0x55c563a6a478)', 'HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 50 >Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55c55f983ea8)', 'HASH(0x55c56546ceb8)', '/kohadevbox/koha/opac/opac-detail.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 >Plack::App::File::call('Plack::App::CGIBin=HASH(0x55c55f983ea8)', 'HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 >Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55c560a80b20)', 'HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 >Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55c56070fea0)', 'HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 20 >Plack::Middleware::HTTPExceptions::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 >eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 >Try::Tiny::try('CODE(0x55c563f06650)', 'Try::Tiny::Catch=REF(0x55c564e07118)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 >Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55c56071fca0)', 'HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 >Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55c560a9f310)', 'HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 >Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55c56098df00)', 'HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c56546ceb8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 >Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55c560a9ffb8)', 'HASH(0x55c56546ceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c56546ceb8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104 >Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55c560a82620)', 'HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 >Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55c56071fd00)', 'HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 >Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55c560aa92f0)', 'HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 >Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55c558ee9348)', 'HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 38 >Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 >eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 >Try::Tiny::try('CODE(0x55c5640b4d48)', 'Try::Tiny::Catch=REF(0x55c563c69048)') called at /usr/share/perl5/Plack/Middleware/StackTrace.pm line 42 >Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55c55f983bc0)', 'HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 >Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55c55f983e30)', 'HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 >Plack::Component::__ANON__('HASH(0x55c5663f15e0)') called at /usr/share/perl5/Plack/Util.pm line 145 >eval {...} at /usr/share/perl5/Plack/Util.pm line 145 >Plack::Util::run_app('CODE(0x55c55f983db8)', 'HASH(0x55c5663f15e0)') called at /usr/share/perl5/Starman/Server.pm line 195 >Starman::Server::dispatch_request('Starman::Server=HASH(0x55c5588592d8)', 'HASH(0x55c5663f15e0)') called at /usr/share/perl5/Starman/Server.pm line 298 >Starman::Server::process_request('Starman::Server=HASH(0x55c5588592d8)', 'Net::Server::Proto::UNIX=GLOB(0x55c563e279a8)') called at /usr/share/perl5/Net/Server.pm line 72 >Net::Server::run_client_connection('Starman::Server=HASH(0x55c5588592d8)') called at /usr/share/perl5/Net/Server/PreFork.pm line 225 >eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 225 >Net::Server::PreFork::run_child('Starman::Server=HASH(0x55c5588592d8)') called at /usr/share/perl5/Net/Server/PreFork.pm line 183 >Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55c5588592d8)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 >Net::Server::PreFork::loop('Starman::Server=HASH(0x55c5588592d8)') called at /usr/share/perl5/Net/Server.pm line 58 >Net::Server::run('Starman::Server=HASH(0x55c5588592d8)', 'port', 'ARRAY(0x55c558e65a50)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'kohadev-koha', 'group', 'kohadev-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/kohadev/plack-error.log', 'pid_file', '/var/run/koha/kohadev/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 >Starman::Server::run('Starman::Server=HASH(0x55c5588592d8)', 'CODE(0x55c558859188)', 'HASH(0x55c558858f30)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 >Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55c5588591a0)', 'CODE(0x55c558859188)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 >Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55c5585b38b8)', 'Plack::Handler::Starman=HASH(0x55c5588591a0)') called at /usr/share/perl5/Plack/Runner.pm line 277 >Plack::Runner::run('Plack::Runner=HASH(0x55c5585685c0)') called at /usr/bin/starman line 38 > at /usr/share/perl5/Exception/Class/Base.pm line 88 > > in Exception::Class::Base::throw at /usr/share/perl5/Exception/Class/Base.pm line 88 > > 85: > 86: $proto->rethrow if ref $proto; > 87: > 88: die $proto->new(@_); > 89: } > 90: > 91: sub rethrow { > > Show function arguments > in Koha::Object::AUTOLOAD at /kohadevbox/koha/Koha/Object.pm line 875 > > 872: Koha::Exceptions::Object::MethodNotCoveredByTests->throw( > 873: error => sprintf("The method %s->%s is not covered by tests!", ref($self), $method), > 874: show_trace => 1 > 875: ) unless grep { $_ eq $method } @known_methods; > 876: > 877: > 878: my $r = eval { $self->_result->$method(@_) }; > > Show function arguments > in (eval) at /kohadevbox/koha/opac/opac-detail.pl line 792 > > 789: > 790: my $artreqpossible; > 791: > 792: if ( $patron && $patron->can_article_request ) { > 793: $artreqpossible = $biblio->can_article_request($patron); > 794: } > 795: else { > > in CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2ddetail_2epl::__ANON__ at /kohadevbox/koha/opac/opac-detail.pl line 2 > > 1: #!/usr/bin/perl > 2: > 3: # Copyright 2000-2002 Katipo Communications > 4: # Copyright 2010 BibLibre > 5: # Copyright 2011 KohaAloha, NZ > > Show function arguments > in CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2ddetail_2epl::opac_2ddetail_2epl at /usr/share/perl5/CGI/Compile.pm line 151 > > 148: # this is necessary for MSWin32 > 149: my $orig_warn = $SIG{__WARN__} || sub { warn(@_) }; > 150: local $SIG{__WARN__} = sub { $orig_warn->(@_) unless $_[0] =~ /^No such signal/ }; > 151: $code->($self, $data, $path, $dir, \@args) > 152: }; > 153: }; > 154: > > in CGI::Emulate::PSGI::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30 > > 27: local *STDOUT = $stdout; > 28: local *STDERR = $env->{'psgi.errors'}; > 29: > 30: $code->(); > 31: } > 32: } > 33: > > Show function arguments > in Plack::App::WrapCGI::call at /usr/share/perl5/Plack/App/WrapCGI.pm line 95 > > 92: > 93: sub call { > 94: my($self, $env) = @_; > 95: $self->_app->($env); > 96: } > 97: > 98: 1; > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Plack::App::CGIBin::serve_path at /usr/share/perl5/Plack/App/CGIBin.pm line 50 > > 47: my $app = $self->{_compiled}->{$file} ||= Plack::App::WrapCGI->new( > 48: script => $file, execute => $self->would_exec($file), > 49: )->to_app; > 50: $app->($env); > 51: } > 52: > 53: 1; > > Show function arguments > in Plack::App::File::call at /usr/share/perl5/Plack/App/File.pm line 34 > > 31: $env->{'plack.file.PATH_INFO'} = ''; > 32: } > 33: > 34: return $self->serve_path($env, $file); > 35: } > 36: > 37: sub locate_file { > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Plack::Middleware::LogWarn::call at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 > > 19: message => join '', @_ > 20: }); > 21: }; > 22: my $res = $self->app->($env); > 23: > 24: return $res; > 25: } > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Plack::Middleware::Log4perl::call at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 > > 27: $self->logger->$level($args->{message}); > 28: }; > 29: > 30: $self->app->($env); > 31: } > 32: > 33: 1; > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Plack::Middleware::HTTPExceptions::try {...} at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 20 > > 17: my($self, $env) = @_; > 18: > 19: my $res = try { > 20: $self->app->($env); > 21: } catch { > 22: $self->transform_error($_, $env); > 23: }; > > in (eval) at /usr/share/perl5/Try/Tiny.pm line 100 > > 97: if ( $wantarray ) { > 98: @ret = $try->(); > 99: } elsif ( defined $wantarray ) { > 100: $ret[0] = $try->(); > 101: } else { > 102: $try->(); > 103: }; > > in Try::Tiny::try at /usr/share/perl5/Try/Tiny.pm line 93 > > 90: > 91: # failed will be true if the eval dies, because 1 will not be returned > 92: # from the eval body > 93: my $failed = not eval { > 94: $@ = $prev_error; > 95: > 96: # evaluate the try block in the correct context > > Show function arguments > in Plack::Middleware::HTTPExceptions::call at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 > > 20: $self->app->($env); > 21: } catch { > 22: $self->transform_error($_, $env); > 23: }; > 24: > 25: return $res if ref $res eq 'ARRAY'; > 26: > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Plack::Middleware::ErrorDocument::call at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 > > 12: my $self = shift; > 13: my $env = shift; > 14: > 15: my $r = $self->app->($env); > 16: > 17: $self->response_cb($r, sub { > 18: my $r = shift; > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Plack::App::URLMap::call at /usr/share/perl5/Plack/App/URLMap.pm line 71 > > 68: return $self->response_cb($app->($env), sub { > 69: $env->{PATH_INFO} = $orig_path_info; > 70: $env->{SCRIPT_NAME} = $orig_script_name; > 71: }); > 72: } > 73: > 74: DEBUG && warn "All matching failed.\n"; > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Koha::Middleware::RealIP::call at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 > > 61: } > 62: } > 63: > 64: return $self->app->($env); > 65: } > 66: > 67: =head2 get_real_ip > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Koha::Middleware::SetEnv::call at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 104 > > 101: %setenvs > 102: }; > 103: > 104: return $self->app->($env); > 105: } > 106: > 107: =head1 AUTHOR > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Plack::Middleware::Static::call at /usr/share/perl5/Plack/Middleware/Static.pm line 18 > > 15: return $res; > 16: } > 17: > 18: return $self->app->($env); > 19: } > 20: > 21: sub _handle_static { > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Plack::Middleware::ReverseProxy::call at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 > > 65: } > 66: } > 67: > 68: $self->app->($env); > 69: } > 70: > 71: 1; > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Plack::Middleware::Lint::call at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 > > 21: my $env = shift; > 22: > 23: $self->validate_env($env); > 24: my $res = $self->app->($env); > 25: return $self->validate_res($res); > 26: } > 27: > > Show function arguments > in Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > in (eval) at /usr/share/perl5/Try/Tiny.pm line 100 > > 97: if ( $wantarray ) { > 98: @ret = $try->(); > 99: } elsif ( defined $wantarray ) { > 100: $ret[0] = $try->(); > 101: } else { > 102: $try->(); > 103: }; > > in Plack::Middleware::StackTrace::call at /usr/share/perl5/Try/Tiny.pm line 93 > > 90: > 91: # failed will be true if the eval dies, because 1 will not be returned > 92: # from the eval body > 93: my $failed = not eval { > 94: $@ = $prev_error; > 95: > 96: # evaluate the try block in the correct context > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in Plack::Middleware::AccessLog::call at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 > > 24: my $self = shift; > 25: my($env) = @_; > 26: > 27: my $res = $self->app->($env); > 28: > 29: if ( ref($res) && ref($res) eq 'ARRAY' ) { > 30: my $content_length = Plack::Util::content_length($res->[2]); > > Show function arguments > in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50 > > 47: sub to_app { > 48: my $self = shift; > 49: $self->prepare_app; > 50: return sub { $self->call(@_) }; > 51: } > 52: > 53: > > Show function arguments > in (eval) at /usr/share/perl5/Plack/Util.pm line 145 > > 142: sub run_app($$) { > 143: my($app, $env) = @_; > 144: > 145: return eval { $app->($env) } || do { > 146: my $body = "Internal Server Error"; > 147: $env->{'psgi.errors'}->print($@); > 148: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ]; > > in Plack::Util::run_app at /usr/share/perl5/Plack/Util.pm line 145 > > 142: sub run_app($$) { > 143: my($app, $env) = @_; > 144: > 145: return eval { $app->($env) } || do { > 146: my $body = "Internal Server Error"; > 147: $env->{'psgi.errors'}->print($@); > 148: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ]; > > Show function arguments > in Starman::Server::dispatch_request at /usr/share/perl5/Starman/Server.pm line 195 > > 192: my ($self, $env) = @_; > 193: > 194: # Run PSGI apps > 195: my $res = Plack::Util::run_app($self->{app}, $env); > 196: > 197: if (ref $res eq 'CODE') { > 198: $res->(sub { $self->_finalize_response($env, $_[0]) }); > > Show function arguments > in Starman::Server::process_request at /usr/share/perl5/Starman/Server.pm line 298 > > 295: > 296: $self->_prepare_env($env); > 297: > 298: $self->dispatch_request($env); > 299: > 300: DEBUG && warn "[$$] Request done\n"; > 301: > > Show function arguments > in Net::Server::run_client_connection at /usr/share/perl5/Net/Server.pm line 72 > > 69: $self->post_accept_hook($c); # user customizable hook > 70: > 71: my $ok = $self->allow_deny($c) && $self->allow_deny_hook($c); # do allow/deny check on client info > 72: if ($ok) { > 73: $self->process_request($c); # This is where the core functionality of a Net::Server should be. > 74: } else { > 75: $self->request_denied_hook($c); # user customizable hook > > Show function arguments > in (eval) at /usr/share/perl5/Net/Server/PreFork.pm line 225 > > 222: $prop->{'connected'} = 1; > 223: print $write "$$ processing\n"; > 224: > 225: my $ok = eval { $self->run_client_connection; 1 }; > 226: if (! $ok) { > 227: print $write "$$ exiting\n"; > 228: die $@; > > in Net::Server::PreFork::run_child at /usr/share/perl5/Net/Server/PreFork.pm line 225 > > 222: $prop->{'connected'} = 1; > 223: print $write "$$ processing\n"; > 224: > 225: my $ok = eval { $self->run_client_connection; 1 }; > 226: if (! $ok) { > 227: print $write "$$ exiting\n"; > 228: die $@; > > Show function arguments > in Net::Server::PreFork::run_n_children at /usr/share/perl5/Net/Server/PreFork.pm line 183 > > 180: if ($prop->{'child_communication'}) { > 181: $prop->{'parent_sock'} = $childsock; > 182: } > 183: $self->run_child; > 184: } > 185: } > 186: } > > Show function arguments > in Net::Server::PreFork::loop at /usr/share/perl5/Net/Server/PreFork.pm line 107 > > 104: > 105: my $start = $prop->{'min_servers'}; > 106: $self->log(3, "Beginning prefork ($start processes)"); > 107: $self->run_n_children($start); > 108: > 109: $self->run_parent; > 110: } > > Show function arguments > in Net::Server::run at /usr/share/perl5/Net/Server.pm line 58 > > 55: $self->post_bind; # allow for chrooting, becoming a different user and group > 56: > 57: $self->pre_loop_hook; # user customizable hook > 58: $self->loop; # repeat accept/process cycle > 59: > 60: $self->server_close; # close the server and release the port > 61: } > > Show function arguments > in Starman::Server::run at /usr/share/perl5/Starman/Server.pm line 106 > > 103: max_requests => $options->{max_requests} || 1000, > 104: user => $options->{user} || $>, > 105: group => $options->{group} || $), > 106: listen => $options->{backlog} || 1024, > 107: check_for_waiting => 1, > 108: no_client_stdout => 1, > 109: %extra > > Show function arguments > in Plack::Handler::Starman::run at /usr/share/perl5/Plack/Handler/Starman.pm line 25 > > 22: } > 23: $self->{net_server_args} = \%nsa if %nsa; > 24: > 25: Starman::Server->new->run($app, {%$self}); > 26: } > 27: > 28: 1; > > Show function arguments > in Plack::Loader::Delayed::run at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 > > 17: }; > 18: > 19: $server->{psgi_app_builder} = $self->{builder}; > 20: $server->run($app); > 21: } > 22: > 23: 1; > > Show function arguments > in Plack::Runner::run at /usr/share/perl5/Plack/Runner.pm line 277 > > 274: $loader->preload_app($app); > 275: > 276: my $server = $self->load_server($loader); > 277: $loader->run($server); > 278: } > 279: > 280: 1; > > Show function arguments > at /usr/bin/starman line 38 > > 35: } > 36: > 37: $runner->set_options(argv => \@argv); > 38: $runner->run; > 39: > 40: __END__ > 41:
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 29168
:
125890
|
125920
|
125921
|
127175
|
127441
| 128251