2026/08/09-06:47:57 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-06:47:57 Worker processes cleaned up 2026/08/09-06:47:57 Server closing! Process Backgrounded 2026/08/09-06:47:58 Starman::Server (type Net::Server::PreFork) starting! pid(3575175) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-07:14:22 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-07:14:22 Worker processes cleaned up 2026/08/09-07:14:22 Server closing! Process Backgrounded 2026/08/09-07:14:23 Starman::Server (type Net::Server::PreFork) starting! pid(3577566) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-08:19:09 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-08:19:09 Worker processes cleaned up 2026/08/09-08:19:09 Server closing! Process Backgrounded 2026/08/09-08:19:10 Starman::Server (type Net::Server::PreFork) starting! pid(3581614) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-08:59:03 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-08:59:03 Worker processes cleaned up 2026/08/09-08:59:03 Server closing! Process Backgrounded 2026/08/09-08:59:04 Starman::Server (type Net::Server::PreFork) starting! pid(3584263) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-10:06:38 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-10:06:38 Worker processes cleaned up 2026/08/09-10:06:38 Server closing! Process Backgrounded 2026/08/09-10:06:39 Starman::Server (type Net::Server::PreFork) starting! pid(3588891) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-10:23:07 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-10:23:07 Worker processes cleaned up 2026/08/09-10:23:07 Server closing! Process Backgrounded 2026/08/09-10:23:08 Starman::Server (type Net::Server::PreFork) starting! pid(3590393) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-12:10:35 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-12:10:35 Worker processes cleaned up 2026/08/09-12:10:35 Server closing! Process Backgrounded 2026/08/09-12:10:36 Starman::Server (type Net::Server::PreFork) starting! pid(3596948) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-12:56:12 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-12:56:12 Worker processes cleaned up 2026/08/09-12:56:12 Server closing! Process Backgrounded 2026/08/09-12:56:13 Starman::Server (type Net::Server::PreFork) starting! pid(3600088) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-16:20:40 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-16:20:40 Worker processes cleaned up 2026/08/09-16:20:40 Server closing! Process Backgrounded 2026/08/09-16:20:41 Starman::Server (type Net::Server::PreFork) starting! pid(3612252) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-16:57:59 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-16:57:59 Worker processes cleaned up 2026/08/09-16:57:59 Server closing! Process Backgrounded 2026/08/09-16:58:00 Starman::Server (type Net::Server::PreFork) starting! pid(3614864) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-17:12:51 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-17:12:51 Worker processes cleaned up 2026/08/09-17:12:51 Server closing! Process Backgrounded 2026/08/09-17:12:52 Starman::Server (type Net::Server::PreFork) starting! pid(3616159) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-17:24:32 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-17:24:33 Worker processes cleaned up 2026/08/09-17:24:33 Server closing! Process Backgrounded 2026/08/09-17:24:34 Starman::Server (type Net::Server::PreFork) starting! pid(3617343) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-18:57:23 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-18:57:23 Worker processes cleaned up 2026/08/09-18:57:23 Server closing! Process Backgrounded 2026/08/09-18:57:24 Starman::Server (type Net::Server::PreFork) starting! pid(3623075) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-18:59:44 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-18:59:44 Worker processes cleaned up 2026/08/09-18:59:44 Server closing! Process Backgrounded 2026/08/09-18:59:45 Starman::Server (type Net::Server::PreFork) starting! pid(3623683) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-19:01:10 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-19:01:11 Worker processes cleaned up 2026/08/09-19:01:11 Server closing! Process Backgrounded 2026/08/09-19:01:11 Starman::Server (type Net::Server::PreFork) starting! pid(3624292) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-19:31:40 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-19:31:40 Worker processes cleaned up 2026/08/09-19:31:40 Server closing! Process Backgrounded 2026/08/09-19:31:41 Starman::Server (type Net::Server::PreFork) starting! pid(3626454) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-21:19:32 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-21:19:32 Worker processes cleaned up 2026/08/09-21:19:32 Server closing! Process Backgrounded 2026/08/09-21:19:33 Starman::Server (type Net::Server::PreFork) starting! pid(3633248) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-22:36:41 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-22:36:41 Worker processes cleaned up 2026/08/09-22:36:41 Server closing! Process Backgrounded 2026/08/09-22:36:42 Starman::Server (type Net::Server::PreFork) starting! pid(3638945) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-22:48:52 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-22:48:52 Worker processes cleaned up 2026/08/09-22:48:52 Server closing! Process Backgrounded 2026/08/09-22:48:53 Starman::Server (type Net::Server::PreFork) starting! pid(3640352) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/09-23:51:45 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/09-23:51:45 Worker processes cleaned up 2026/08/09-23:51:45 Server closing! Process Backgrounded 2026/08/09-23:51:46 Starman::Server (type Net::Server::PreFork) starting! pid(3644256) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-00:44:13 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-00:44:13 Worker processes cleaned up 2026/08/10-00:44:13 Server closing! Process Backgrounded 2026/08/10-00:44:14 Starman::Server (type Net::Server::PreFork) starting! pid(3647933) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-01:54:05 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-01:54:05 Worker processes cleaned up 2026/08/10-01:54:05 Server closing! Process Backgrounded 2026/08/10-01:54:06 Starman::Server (type Net::Server::PreFork) starting! pid(3652201) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-06:05:25 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-06:05:25 Worker processes cleaned up 2026/08/10-06:05:25 Server closing! Process Backgrounded 2026/08/10-06:05:26 Starman::Server (type Net::Server::PreFork) starting! pid(3666953) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-07:14:06 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-07:14:06 Worker processes cleaned up 2026/08/10-07:14:06 Server closing! Process Backgrounded 2026/08/10-07:14:07 Starman::Server (type Net::Server::PreFork) starting! pid(3671587) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-10:33:37 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-10:33:37 Worker processes cleaned up 2026/08/10-10:33:37 Server closing! Process Backgrounded 2026/08/10-10:33:38 Starman::Server (type Net::Server::PreFork) starting! pid(3683213) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-11:57:08 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-11:57:08 Worker processes cleaned up 2026/08/10-11:57:08 Server closing! Process Backgrounded 2026/08/10-11:57:09 Starman::Server (type Net::Server::PreFork) starting! pid(3688470) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-12:05:19 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-12:05:19 Worker processes cleaned up 2026/08/10-12:05:19 Server closing! Process Backgrounded 2026/08/10-12:05:21 Starman::Server (type Net::Server::PreFork) starting! pid(3689588) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-13:28:36 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-13:28:36 Worker processes cleaned up 2026/08/10-13:28:36 Server closing! Process Backgrounded 2026/08/10-13:28:37 Starman::Server (type Net::Server::PreFork) starting! pid(3694772) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-20:03:27 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-20:03:27 Worker processes cleaned up 2026/08/10-20:03:27 Server closing! Process Backgrounded 2026/08/10-20:03:28 Starman::Server (type Net::Server::PreFork) starting! pid(3717198) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-20:09:52 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-20:09:53 Worker processes cleaned up 2026/08/10-20:09:53 Server closing! Process Backgrounded 2026/08/10-20:09:54 Starman::Server (type Net::Server::PreFork) starting! pid(3717990) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-21:37:08 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-21:37:08 Worker processes cleaned up 2026/08/10-21:37:08 Server closing! Process Backgrounded 2026/08/10-21:37:09 Starman::Server (type Net::Server::PreFork) starting! pid(3723541) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/10-23:28:20 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/10-23:28:21 Worker processes cleaned up 2026/08/10-23:28:21 Server closing! Process Backgrounded 2026/08/10-23:28:22 Starman::Server (type Net::Server::PreFork) starting! pid(3730722) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/11-00:18:03 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-00:18:03 Worker processes cleaned up 2026/08/11-00:18:03 Server closing! Process Backgrounded 2026/08/11-00:18:04 Starman::Server (type Net::Server::PreFork) starting! pid(3734083) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/11-00:25:16 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-00:25:16 Worker processes cleaned up 2026/08/11-00:25:16 Server closing! Process Backgrounded 2026/08/11-00:25:17 Starman::Server (type Net::Server::PreFork) starting! pid(3734953) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/11-01:27:28 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-01:27:28 Worker processes cleaned up 2026/08/11-01:27:28 Server closing! Process Backgrounded 2026/08/11-01:27:29 Starman::Server (type Net::Server::PreFork) starting! pid(3738933) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/11-03:00:50 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-03:00:50 Worker processes cleaned up 2026/08/11-03:00:50 Server closing! Process Backgrounded 2026/08/11-03:00:51 Starman::Server (type Net::Server::PreFork) starting! pid(3744616) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/11-03:23:00 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-03:23:00 Worker processes cleaned up 2026/08/11-03:23:00 Server closing! Process Backgrounded 2026/08/11-03:23:02 Starman::Server (type Net::Server::PreFork) starting! pid(3746308) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/11-04:52:57 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-04:52:57 Worker processes cleaned up 2026/08/11-04:52:57 Server closing! Process Backgrounded 2026/08/11-04:52:58 Starman::Server (type Net::Server::PreFork) starting! pid(3751864) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/11-07:27:51 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-07:27:51 Worker processes cleaned up 2026/08/11-07:27:51 Server closing! Process Backgrounded 2026/08/11-07:27:52 Starman::Server (type Net::Server::PreFork) starting! pid(3762190) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/11-08:34:01 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-08:34:02 Worker processes cleaned up 2026/08/11-08:34:02 Server closing! Process Backgrounded 2026/08/11-08:34:03 Starman::Server (type Net::Server::PreFork) starting! pid(3766255) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ DBIx::Class::Storage::DBI::catch {...} (): DBI Connection failed: DBI connect('database=koha_acqref;host=db;port=3306','koha_acqref',...) failed: Unknown server host 'db' (-2) at /kohadevbox/koha/Koha/Database.pm line 75. at /kohadevbox/koha/C4/Context.pm line 633 at /usr/share/perl5/DBIx/Class/Exception.pm line 77 DBIx::Class::Exception::throw('DBIx::Class::Exception', 'DBI Connection failed: DBI connect(\'database=koha_acqref;host=db;port=3306\',\'koha_acqref\',...) failed: Unknown server host \'db\' (-2) at /kohadevbox/koha/Koha/Database.pm line 75.^J', 0) called at /usr/share/perl5/DBIx/Class/Schema.pm line 1118 DBIx::Class::Schema::throw_exception('Koha::Schema=HASH(0x55aa9e396eb8)', 'DBI Connection failed: DBI connect(\'database=koha_acqref;host=db;port=3306\',\'koha_acqref\',...) failed: Unknown server host \'db\' (-2) at /kohadevbox/koha/Koha/Database.pm line 75.^J') called at /usr/share/perl5/DBIx/Class/Storage.pm line 113 DBIx::Class::Storage::throw_exception('DBIx::Class::Storage::DBI::mysql=HASH(0x55aa9e681cd8)', 'DBI Connection failed: DBI connect(\'database=koha_acqref;host=db;port=3306\',\'koha_acqref\',...) failed: Unknown server host \'db\' (-2) at /kohadevbox/koha/Koha/Database.pm line 75.^J') called at /usr/share/perl5/DBIx/Class/Storage/DBI.pm line 1680 DBIx::Class::Storage::DBI::catch {...} ('DBI connect(\'database=koha_acqref;host=db;port=3306\',\'koha_acqref\',...) failed: Unknown server host \'db\' (-2) at /kohadevbox/koha/Koha/Database.pm line 75.^J') called at /usr/share/perl5/Try/Tiny.pm line 123 Try::Tiny::try('CODE(0x55aaa5bda858)', 'Try::Tiny::Catch=REF(0x55aaa5d43948)') called at /usr/share/perl5/DBIx/Class/Storage/DBI.pm line 1681 DBIx::Class::Storage::DBI::_connect('DBIx::Class::Storage::DBI::mysql=HASH(0x55aa9e681cd8)') called at /usr/share/perl5/DBIx/Class/Storage/DBI.pm line 1047 DBIx::Class::Storage::DBI::_populate_dbh('DBIx::Class::Storage::DBI::mysql=HASH(0x55aa9e681cd8)') called at /usr/share/perl5/DBIx/Class/Storage/DBI.pm line 961 DBIx::Class::Storage::DBI::dbh('DBIx::Class::Storage::DBI::mysql=HASH(0x55aa9e681cd8)') called at /kohadevbox/koha/C4/Context.pm line 633 C4::Context::dbh('C4::Context') called at /kohadevbox/koha/C4/Languages.pm line 483 C4::Languages::language_get_description('de', 'de', 'language') called at /kohadevbox/koha/C4/Languages.pm line 400 C4::Languages::_build_languages_arrayref('ARRAY(0x55aaa5c03ef0)', undef, 'ARRAY(0x55aaa5bbdaa0)') called at /kohadevbox/koha/C4/Languages.pm line 159 C4::Languages::getTranslatedLanguages('intranet', undef) called at /kohadevbox/koha/C4/Languages.pm line 773 C4::Languages::getlanguage('CGI=HASH(0x55aaa5b2fec8)') called at /kohadevbox/koha/C4/Templates.pm line 309 C4::Templates::themelanguage('/kohadevbox/koha/koha-tmpl/intranet-tmpl', 'intranet-main.tt', 'intranet', 'CGI=HASH(0x55aaa5b2fec8)') called at /kohadevbox/koha/C4/Templates.pm line 194 C4::Templates::_get_template_file('intranet-main.tt', 'intranet', 'CGI=HASH(0x55aaa5b2fec8)') called at /kohadevbox/koha/C4/Templates.pm line 249 C4::Templates::gettemplate('intranet-main.tt', 'intranet', 'CGI=HASH(0x55aaa5b2fec8)') called at /kohadevbox/koha/C4/Auth.pm line 187 C4::Auth::get_template_and_user('HASH(0x55aaa5e85f20)') called at /kohadevbox/koha/mainpage.pl line 43 eval {...} at /kohadevbox/koha/mainpage.pl line 2 CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl::__ANON__('CGI::Compile=HASH(0x55aaa5adbfb0)', '', '/kohadevbox/koha/mainpage.pl', '/kohadevbox/koha', 'ARRAY(0x55aaa5bd3468)') called at /usr/share/perl5/CGI/Compile.pm line 151 CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl::mainpage_2epl at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30 CGI::Emulate::PSGI::__ANON__('HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 95 Plack::App::WrapCGI::call('Plack::App::WrapCGI=HASH(0x55aaa5adc058)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 50 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55aaa44a71e8)', 'HASH(0x55aaa5907410)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55aaa44a71e8)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55aaa5b65498)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55aaa5b621a0)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55aaa5b64e68)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') 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(0x55aaa5c6f248)', 'Try::Tiny::Catch=REF(0x55aaa5cd6c30)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55aaa5b64ec8)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55aaa5955028)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55aaa44d0958)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55aaa5b0bee8)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55aaa5912f48)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55aaa59553e8)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55aaa59ce5f8)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55aaa59d0470)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55aa99e41910)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55aaa4493d48)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55aaa44b54f8)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55aaa5907410)') 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(0x55aaa44b5348)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55aa99813590)', 'HASH(0x55aaa5907410)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55aa99813590)', 'Net::Server::Proto::UNIX=GLOB(0x55aaa6264aa0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55aa99813590)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55aa99813590)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55aa99813590)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55aa99813590)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55aa99813590)', 'port', 'ARRAY(0x55aa99dce668)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1, 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55aa99813590)', 'CODE(0x55aa99813440)', 'HASH(0x55aa998131e8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55aa99813458)', 'CODE(0x55aa99813440)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55aa9955a010)', 'Plack::Handler::Starman=HASH(0x55aa99813458)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55aa994f3b00)') called at /bin/starman line 38 2026/08/11-18:16:38 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-18:16:38 Worker processes cleaned up 2026/08/11-18:16:38 Server closing! Process Backgrounded 2026/08/11-18:16:39 Starman::Server (type Net::Server::PreFork) starting! pid(3800045) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Connection to the memcached servers 'memcached:11211' failed. Are the unix socket permissions set properly? Is the host reachable? If you ignore this warning, you will face performance issues Connection to the memcached servers 'memcached:11211' failed. Are the unix socket permissions set properly? Is the host reachable? If you ignore this warning, you will face performance issues Connection to the memcached servers 'memcached:11211' failed. Are the unix socket permissions set properly? Is the host reachable? If you ignore this warning, you will face performance issues Connection to the memcached servers 'memcached:11211' failed. Are the unix socket permissions set properly? Is the host reachable? If you ignore this warning, you will face performance issues Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641d9882210)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4fe8b60)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4fe8b60)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e3a1fc28)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e50ad968)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4fc1248)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e5121328)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') 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(0x5641e5098818)', 'Try::Tiny::Catch=REF(0x5641e59c6090)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4fc4b70)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e453f0)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fc28)') 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(0x5641e3a01e30)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e3a1fc28)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e3a1f910)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641d9882508)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4f84ae0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4f84ae0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e3a21610)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') 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(0x5641e4e38fd8)', 'Try::Tiny::Catch=REF(0x5641e5f0dbe0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21610)') 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(0x5641e3a085b8)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e3a21610)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e3a12710)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4f47da0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e5060e38)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e5060e38)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4e9bf78)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e50ad968)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4fc1248)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e5121328)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') 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(0x5641e4e9bf90)', 'Try::Tiny::Catch=REF(0x5641e4eb26e0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4fc4b70)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e453f0)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bf78)') 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(0x5641e3a01e30)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4e9bf78)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e3a120a8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4f467a0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4f42140)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4f42140)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e4fed070)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') 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(0x5641e4fecff8)', 'Try::Tiny::Catch=REF(0x5641e4fc5bd0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fed070)') 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(0x5641e3a085b8)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4fed070)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e3a084f8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e5021ff0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4fd4a60)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4fd4a60)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4e37ea8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e509ab28)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4f1cf48)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4ffba68)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') 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(0x5641e4fe4a18)', 'Try::Tiny::Catch=REF(0x5641e500b270)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e5078980)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e45b10)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e37ea8)') 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(0x5641e3a01e30)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4e37ea8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4e9bf78)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e512a3f0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4e1f0d8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4e1f0d8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e4e9c9b8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e507cb60)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e500ff58)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4df9bd8)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') 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(0x5641e4e39080)', 'Try::Tiny::Catch=REF(0x5641e4fbeef0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4e6d0d8)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4fa6e28)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9c9b8)') 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(0x5641e3a085b8)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4e9c9b8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4fed070)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4fd4790)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4ed2740)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4ed2740)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4e9bfd8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e509ab28)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4f1cf48)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4ffba68)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') 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(0x5641e4e4e390)', 'Try::Tiny::Catch=REF(0x5641e3a01f50)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e5078980)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e45b10)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e9bfd8)') 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(0x5641e3a01e30)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4e9bfd8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4e37ea8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e5079a60)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4e61f60)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4e61f60)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e3a21538)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e507cb60)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e500ff58)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4df9bd8)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') 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(0x5641e506dea8)', 'Try::Tiny::Catch=REF(0x5641e4e39230)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4e6d0d8)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4fa6e28)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a21538)') 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(0x5641e3a085b8)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e3a21538)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4e9c9b8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e509b7b8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4fe8aa0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4fe8aa0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4e73b08)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e509ab28)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4f1cf48)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4ffba68)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') 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(0x5641e4e71808)', 'Try::Tiny::Catch=REF(0x5641da39e368)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e5078980)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e45b10)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e73b08)') 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(0x5641e3a01e30)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4e73b08)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4e9bfd8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e5079598)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4fa7b48)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4fa7b48)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e4fce890)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') 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(0x5641e4e3b220)', 'Try::Tiny::Catch=REF(0x5641d96ca8f8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fce890)') 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(0x5641e3a085b8)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4fce890)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e3a21538)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4f82fe8)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4f41090)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4f41090)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e3a1fb80)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e50ad968)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4fc1248)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e5121328)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') 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(0x5641e4e45dc8)', 'Try::Tiny::Catch=REF(0x5641e4f737e0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4fc4b70)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e453f0)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e3a1fb80)') 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(0x5641e3a01e30)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e3a1fb80)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4e73b08)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4fdb6e8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e5090b70)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e5090b70)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e5090ed0)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') 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(0x5641e4faa9b0)', 'Try::Tiny::Catch=REF(0x5641e4f2ffa8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5090ed0)') 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(0x5641e3a085b8)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e5090ed0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4fce890)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e5064b40)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4e3a7a8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4e3a7a8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4f5bae0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e50ad968)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4fc1248)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e5121328)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') 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(0x5641e4e7a728)', 'Try::Tiny::Catch=REF(0x5641e4ece9a8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4fc4b70)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e453f0)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f5bae0)') 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(0x5641e3a01e30)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4f5bae0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e3a1fb80)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4e6a1b8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4df4218)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4df4218)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e5071388)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') 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(0x5641e4e61e88)', 'Try::Tiny::Catch=REF(0x5641e4e05330)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5071388)') 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(0x5641e3a085b8)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e5071388)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e5090ed0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4f0d470)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e50649d8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e50649d8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e500b1e0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e50ad968)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4fc1248)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e5121328)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') 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(0x5641e4e3e138)', 'Try::Tiny::Catch=REF(0x5641e4feaa28)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4fc4b70)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e453f0)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e500b1e0)') 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(0x5641e3a01e30)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e500b1e0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4f5bae0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e50715c8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e3a21a60)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e3a21a60)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e5098f90)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') 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(0x5641e5090db0)', 'Try::Tiny::Catch=REF(0x5641e4e31628)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5098f90)') 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(0x5641e3a085b8)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e5098f90)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e5071388)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4ed5c58)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4e3abf8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4e3abf8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4fd4a48)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e50ad968)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4fc1248)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e5121328)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') 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(0x5641e4f25eb8)', 'Try::Tiny::Catch=REF(0x5641e4f14f98)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4fc4b70)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e453f0)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4a48)') 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(0x5641e3a01e30)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4fd4a48)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e500b1e0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e50f7240)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e51260b0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e51260b0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e4e2d848)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') 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(0x5641e4e38dc8)', 'Try::Tiny::Catch=REF(0x5641e4eb7bc8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e2d848)') 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(0x5641e3a085b8)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4e2d848)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e5098f90)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4f40dc0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4f47e18)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4f47e18)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4f14ef0)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e509ab28)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4f1cf48)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4ffba68)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') 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(0x5641e5098878)', 'Try::Tiny::Catch=REF(0x5641e4fd4550)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e5078980)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e45b10)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f14ef0)') 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(0x5641e3a01e30)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4f14ef0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4fd4a48)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4f2f300)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4df39c0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4df39c0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e511aae8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e507cb60)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e500ff58)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4df9bd8)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') 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(0x5641e5090b10)', 'Try::Tiny::Catch=REF(0x5641e511a938)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4e6d0d8)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4fa6e28)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e511aae8)') 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(0x5641e3a085b8)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e511aae8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4e2d848)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4fe4688)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e503dff0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e503dff0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4f0d038)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e50ad968)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4fc1248)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e5121328)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') 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(0x5641e50ae328)', 'Try::Tiny::Catch=REF(0x5641e4f0d3b0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4fc4b70)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e453f0)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f0d038)') 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(0x5641e3a01e30)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4f0d038)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4f14ef0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4fbf3e8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4f1f598)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4f1f598)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641d9668b88)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') 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(0x5641e5085a90)', 'Try::Tiny::Catch=REF(0x5641e3a21c40)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641d9668b88)') 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(0x5641e3a085b8)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641d9668b88)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e511aae8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4fd3f80)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4e3dc58)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4e3dc58)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e50985d8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e50ad968)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4fc1248)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e5121328)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') 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(0x5641e4f12318)', 'Try::Tiny::Catch=REF(0x5641e4e3a868)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4fc4b70)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e453f0)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50985d8)') 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(0x5641e3a01e30)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e50985d8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4f0d038)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e506dea8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e5129dc0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e5129dc0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e5032e20)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') 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(0x5641e5129a78)', 'Try::Tiny::Catch=REF(0x5641e4e2e070)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5032e20)') 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(0x5641e3a085b8)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e5032e20)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641d9668b88)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4e78c48)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4fa2788)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4fa2788)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e5061018)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e50ad968)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4fc1248)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e5121328)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') 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(0x5641e4ed29f8)', 'Try::Tiny::Catch=REF(0x5641e3a1fe08)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4fc4b70)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e453f0)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5061018)') 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(0x5641e3a01e30)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e5061018)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e50985d8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4df4038)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4f1eb30)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4f1eb30)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e50c7338)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') 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(0x5641e50ac850)', 'Try::Tiny::Catch=REF(0x5641e5036a50)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50c7338)') 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(0x5641e3a085b8)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e50c7338)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e5032e20)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e503df60)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e5084188)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e5084188)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4fd4760)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e509ab28)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4f1cf48)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4ffba68)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') 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(0x5641e5022a10)', 'Try::Tiny::Catch=REF(0x5641e50bacb8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e5078980)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e45b10)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd4760)') 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(0x5641e3a01e30)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4fd4760)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e5061018)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4fbf370)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e5090a80)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e5090a80)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e4e0bf58)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e507cb60)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e500ff58)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4df9bd8)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') 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(0x5641e4fbf610)', 'Try::Tiny::Catch=REF(0x5641e4f5da10)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4e6d0d8)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4fa6e28)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4e0bf58)') 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(0x5641e3a085b8)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4e0bf58)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e50c7338)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4ed2608)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4ed1d08)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4ed1d08)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4f12228)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e50ad968)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4fc1248)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e5121328)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') 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(0x5641e5098d40)', 'Try::Tiny::Catch=REF(0x5641e5098b18)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4fc4b70)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e453f0)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f12228)') 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(0x5641e3a01e30)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4f12228)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4fd4760)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4f5dd58)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e3a21a60)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e3a21a60)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e50e2ce8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') 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(0x5641e501fb98)', 'Try::Tiny::Catch=REF(0x5641e503aa80)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50e2ce8)') 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(0x5641e3a085b8)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e50e2ce8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4e0bf58)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e5022548)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4eb2350)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4eb2350)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4fd03c8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d96703b0)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e50ad968)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4fc1248)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e5121328)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') 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(0x5641e4e7a890)', 'Try::Tiny::Catch=REF(0x5641e5098d28)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4fc4b70)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e453f0)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4fd03c8)') 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(0x5641e3a01e30)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4fd03c8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4f12228)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e50910b0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4e618d0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4e618d0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e512f580)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e3958158)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e5074c68)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4e69d68)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4e69d08)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') 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(0x5641e50f74b0)', 'Try::Tiny::Catch=REF(0x5641e5129d18)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4faa770)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e38d08)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e512f580)') 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(0x5641e3a085b8)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e512f580)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e50e2ce8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e50783c8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e5064a08)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e5064a08)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4f536b8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e509ab28)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4f1cf48)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4ffba68)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') 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(0x5641e4ed2770)', 'Try::Tiny::Catch=REF(0x5641e5078800)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e5078980)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e45b10)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4f536b8)') 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(0x5641e3a01e30)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4f536b8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4fd03c8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e50c7350)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4e6d9c0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4e6d9c0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e50ac7a8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e507cb60)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e500ff58)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4df9bd8)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') 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(0x5641e4ea3f30)', 'Try::Tiny::Catch=REF(0x5641e4e39158)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4e6d0d8)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4fa6e28)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e50ac7a8)') 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(0x5641e3a085b8)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e50ac7a8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e512f580)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4fa5f30)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e4fa30a0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e4fa30a0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e5060f70)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641e394f198)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e509ab28)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e4f1cf48)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4ffba68)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') 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(0x5641e50bad48)', 'Try::Tiny::Catch=REF(0x5641e4e7a7b8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e5078980)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4e45b10)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a1ff40)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ee9120)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e4feb478)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e509a990)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4f77d70)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4ffecf0)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a38)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e3962218)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a01f20)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e5060f70)') 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(0x5641e3a01e30)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e5060f70)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e4f536b8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3800049: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5641e4e38ab0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5641e5032988)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5641e5032988)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e4eb7bf8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5641d9670410)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5641e507cb60)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5641e500ff58)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5641e4df9bd8)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') 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(0x5641e50c7a10)', 'Try::Tiny::Catch=REF(0x5641e4ea4200)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5641e4e6d0d8)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5641e4fa6e28)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5641e3a219e8)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5641e4ed67d8)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5641e506dc68)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5641e5074908)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5641e4e05af8)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5641e4e053f0)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5641d9668a50)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5641e39e6e18)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5641e3a086d8)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5641e4eb7bf8)') 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(0x5641e3a085b8)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5641d8fa8960)', 'HASH(0x5641e4eb7bf8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5641d8fa8960)', 'Net::Server::Proto::UNIX=GLOB(0x5641e50ac7a8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5641d8fa8960)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5641d8fa8960)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'port', 'ARRAY(0x5641d95f57f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5641d8fa8960)', 'CODE(0x5641d8fa8810)', 'HASH(0x5641d8fa85b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5641d8fa8828)', 'CODE(0x5641d8fa8810)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5641d8d825f8)', 'Plack::Handler::Starman=HASH(0x5641d8fa8828)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5641d8d29a88)') called at /bin/starman line 38 2026/08/11-18:21:17 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-18:21:17 Worker processes cleaned up 2026/08/11-18:21:17 Server closing! Process Backgrounded 2026/08/11-18:21:18 Starman::Server (type Net::Server::PreFork) starting! pid(3801300) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3801301: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x56284728e350)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x562852b3f1e8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x562852b3f1e8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x56285131d108)', 'HASH(0x562852c22068)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x56285131d108)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x562852bbb228)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x562852b92668)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x562852b778e8)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') 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(0x562852b9c418)', 'Try::Tiny::Catch=REF(0x5628527c6978)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x562852bf11a8)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x562852b8f138)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x56285141ee98)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x562852bbb738)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x562852b77630)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x562852a09f28)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x562852c14288)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x562852b77558)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x562847074ce8)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x562851366c10)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x562851415d30)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852c22068)') 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(0x562851328320)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5628469b0e10)', 'HASH(0x562852c22068)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5628469b0e10)', 'Net::Server::Proto::UNIX=GLOB(0x56285141e778)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5628469b0e10)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5628469b0e10)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5628469b0e10)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5628469b0e10)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5628469b0e10)', 'port', 'ARRAY(0x562847001678)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5628469b0e10)', 'CODE(0x5628469b0cc0)', 'HASH(0x5628469b0a68)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5628469b0cd8)', 'CODE(0x5628469b0cc0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x56284678c9d8)', 'Plack::Handler::Starman=HASH(0x5628469b0cd8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x562846725f30)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3801302: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x56284728e618)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x562852bb2068)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x562852bb2068)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x56284707c860)', 'HASH(0x562852bd0480)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x56284707c860)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x562852bbce30)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x562852bfaea8)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x562852bc0e80)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') 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(0x562852bfe870)', 'Try::Tiny::Catch=REF(0x5628527bd040)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x562852b2ab98)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x562852bb5a10)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x562851423b20)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x562852c05d70)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x562852b5a748)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x562852ba52b0)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x562852bff110)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x562852bb57b8)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x562847074d00)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x56285135e8b0)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5628514080b0)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562852bd0480)') 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(0x562851407f60)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5628469b0e10)', 'HASH(0x562852bd0480)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5628469b0e10)', 'Net::Server::Proto::UNIX=GLOB(0x562851414c58)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5628469b0e10)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5628469b0e10)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5628469b0e10)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5628469b0e10)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5628469b0e10)', 'port', 'ARRAY(0x562847001678)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5628469b0e10)', 'CODE(0x5628469b0cc0)', 'HASH(0x5628469b0a68)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5628469b0cd8)', 'CODE(0x5628469b0cc0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x56284678c9d8)', 'Plack::Handler::Starman=HASH(0x5628469b0cd8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x562846725f30)') called at /bin/starman line 38 2026/08/11-18:23:16 Received QUIT. Running a graceful shutdown Sending children hup signal Child process 3801302 exited with status 0 - signal was 1 2026/08/11-18:23:17 Worker processes cleaned up 2026/08/11-18:23:17 Server closing! Process Backgrounded 2026/08/11-18:23:21 Starman::Server (type Net::Server::PreFork) starting! pid(3802520) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3802524: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55fc802937a8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55fc8bb57928)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55fc8bb57928)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55fc8a35a000)', 'HASH(0x55fc8a41f7a0)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55fc8a35a000)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55fc8bb13f90)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55fc8bc0f3c8)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55fc8bc0ee88)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') 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(0x55fc8bbe6040)', 'Try::Tiny::Catch=REF(0x55fc8c2eb9e8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55fc8bc0ef00)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55fc8bc067b0)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55fc8a42e258)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55fc8bbe2d88)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55fc8bb5e058)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55fc8bbf3678)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55fc8bc09cb0)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55fc8bbef078)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55fc80079b70)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55fc8a371ed0)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55fc8a40fc98)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a41f7a0)') 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(0x55fc8a40fb78)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'HASH(0x55fc8a41f7a0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'Net::Server::Proto::UNIX=GLOB(0x55fc8a42d838)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55fc7fa4daa0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'port', 'ARRAY(0x55fc800066a8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'CODE(0x55fc7fa4d950)', 'HASH(0x55fc7fa4d6f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55fc7fa4d968)', 'CODE(0x55fc7fa4d950)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55fc7f792f30)', 'Plack::Handler::Starman=HASH(0x55fc7fa4d968)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55fc7f73af88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3802524: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55fc8bb579a0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55fc8bb8f998)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55fc8bb8f998)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55fc80081bd8)', 'HASH(0x55fc8bc2b118)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55fc80081bd8)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55fc8bbb15b8)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55fc8bbb1558)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55fc8bbf6338)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') 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(0x55fc8bba4e50)', 'Try::Tiny::Catch=REF(0x55fc8bba4d00)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55fc8bb5e1d8)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55fc8bc10e40)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55fc8a42e258)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55fc8bbe2d88)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55fc8bb5e058)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55fc8bbf3678)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55fc8bc09cb0)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55fc8bbef078)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55fc80079b70)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55fc8a371ed0)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55fc8a40fc98)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc2b118)') 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(0x55fc8a40fb78)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'HASH(0x55fc8bc2b118)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'Net::Server::Proto::UNIX=GLOB(0x55fc8bb6cf78)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55fc7fa4daa0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'port', 'ARRAY(0x55fc800066a8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'CODE(0x55fc7fa4d950)', 'HASH(0x55fc7fa4d6f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55fc7fa4d968)', 'CODE(0x55fc7fa4d950)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55fc7f792f30)', 'Plack::Handler::Starman=HASH(0x55fc7fa4d968)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55fc7f73af88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3802524: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55fc8bbf9ae0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55fc8bc02970)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55fc8bc02970)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55fc8a35a000)', 'HASH(0x55fc8bb8b910)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55fc8a35a000)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55fc8bb13f90)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55fc8bc0f3c8)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55fc8bc0ee88)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') 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(0x55fc8bc09b90)', 'Try::Tiny::Catch=REF(0x55fc8bb3c640)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55fc8bc0ef00)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55fc8bc067b0)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55fc8a42e258)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55fc8bbe2d88)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55fc8bb5e058)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55fc8bbf3678)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55fc8bc09cb0)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55fc8bbef078)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55fc80079b70)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55fc8a371ed0)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55fc8a40fc98)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb8b910)') 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(0x55fc8a40fb78)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'HASH(0x55fc8bb8b910)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'Net::Server::Proto::UNIX=GLOB(0x55fc8bc2b118)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55fc7fa4daa0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'port', 'ARRAY(0x55fc800066a8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'CODE(0x55fc7fa4d950)', 'HASH(0x55fc7fa4d6f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55fc7fa4d968)', 'CODE(0x55fc7fa4d950)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55fc7f792f30)', 'Plack::Handler::Starman=HASH(0x55fc7fa4d968)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55fc7f73af88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3802523: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55fc80293020)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55fc8bb6dda8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55fc8bb6dda8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55fc80081450)', 'HASH(0x55fc8a42dc58)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55fc80081450)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55fc8bb9bbc0)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55fc8bc212c8)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55fc8baa7538)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') 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(0x55fc8bc06400)', 'Try::Tiny::Catch=REF(0x55fc8b7d26e0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55fc8bb3d3b8)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55fc8bb5ae00)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55fc8a42e828)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55fc8bb667c0)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55fc8bb3d418)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55fc8bbf0580)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55fc8bba5af0)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55fc8bb80f58)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55fc80079b58)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55fc8a373108)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55fc8a4107e8)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8a42dc58)') 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(0x55fc8a410638)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'HASH(0x55fc8a42dc58)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'Net::Server::Proto::UNIX=GLOB(0x55fc8a42dfb8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55fc7fa4daa0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'port', 'ARRAY(0x55fc800066a8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'CODE(0x55fc7fa4d950)', 'HASH(0x55fc7fa4d6f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55fc7fa4d968)', 'CODE(0x55fc7fa4d950)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55fc7f792f30)', 'Plack::Handler::Starman=HASH(0x55fc7fa4d968)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55fc7f73af88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3802524: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55fc8bc06a50)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55fc8bb9a490)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55fc8bb9a490)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55fc80081bd8)', 'HASH(0x55fc8bbf6410)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55fc80081bd8)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55fc8bbb15b8)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55fc8bbb1558)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55fc8bbf6338)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') 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(0x55fc8bc118d8)', 'Try::Tiny::Catch=REF(0x55fc8bba5240)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55fc8bb5e1d8)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55fc8bc10e40)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55fc8a42e258)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55fc8bbe2d88)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55fc8bb5e058)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55fc8bbf3678)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55fc8bc09cb0)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55fc8bbef078)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55fc80079b70)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55fc8a371ed0)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55fc8a40fc98)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bbf6410)') 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(0x55fc8a40fb78)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'HASH(0x55fc8bbf6410)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'Net::Server::Proto::UNIX=GLOB(0x55fc8bb8b910)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55fc7fa4daa0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'port', 'ARRAY(0x55fc800066a8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'CODE(0x55fc7fa4d950)', 'HASH(0x55fc7fa4d6f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55fc7fa4d968)', 'CODE(0x55fc7fa4d950)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55fc7f792f30)', 'Plack::Handler::Starman=HASH(0x55fc7fa4d968)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55fc7f73af88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3802523: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55fc8bba5c10)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55fc8bb4c558)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55fc8bb4c558)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55fc8a35a460)', 'HASH(0x55fc8bb48978)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55fc8a35a460)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55fc8bb5eb10)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55fc8bb4c4e0)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55fc8bb5bce8)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') 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(0x55fc8bbb1df0)', 'Try::Tiny::Catch=REF(0x55fc8bbdca18)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55fc8bb5eed0)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55fc8bc11c18)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55fc8a42e828)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55fc8bb667c0)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55fc8bb3d418)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55fc8bbf0580)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55fc8bba5af0)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55fc8bb80f58)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55fc80079b58)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55fc8a373108)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55fc8a4107e8)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bb48978)') 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(0x55fc8a410638)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'HASH(0x55fc8bb48978)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'Net::Server::Proto::UNIX=GLOB(0x55fc8bba58f8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55fc7fa4daa0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'port', 'ARRAY(0x55fc800066a8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'CODE(0x55fc7fa4d950)', 'HASH(0x55fc7fa4d6f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55fc7fa4d968)', 'CODE(0x55fc7fa4d950)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55fc7f792f30)', 'Plack::Handler::Starman=HASH(0x55fc7fa4d968)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55fc7f73af88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3802524: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55fc8bb52f50)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55fc8bb97c38)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55fc8bb97c38)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55fc8a35a000)', 'HASH(0x55fc8bc23f90)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55fc8a35a000)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55fc8bb13f90)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55fc8bc0f3c8)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55fc8bc0ee88)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') 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(0x55fc8bb65c80)', 'Try::Tiny::Catch=REF(0x55fc8b80e6c0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55fc8bc0ef00)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55fc8bc067b0)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55fc8a42e258)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55fc8bbe2d88)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55fc8bb5e058)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55fc8bbf3678)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55fc8bc09cb0)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55fc8bbef078)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55fc80079b70)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55fc8a371ed0)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55fc8a40fc98)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc23f90)') 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(0x55fc8a40fb78)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'HASH(0x55fc8bc23f90)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'Net::Server::Proto::UNIX=GLOB(0x55fc8bbf6410)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55fc7fa4daa0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'port', 'ARRAY(0x55fc800066a8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'CODE(0x55fc7fa4d950)', 'HASH(0x55fc7fa4d6f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55fc7fa4d968)', 'CODE(0x55fc7fa4d950)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55fc7f792f30)', 'Plack::Handler::Starman=HASH(0x55fc7fa4d968)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55fc7f73af88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3802523: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55fc8bc070c0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55fc8bb4c330)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55fc8bb4c330)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55fc80081450)', 'HASH(0x55fc8bc06e38)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55fc80081450)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55fc8bb9bbc0)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55fc8bc212c8)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55fc8baa7538)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') 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(0x55fc8bbb4e68)', 'Try::Tiny::Catch=REF(0x55fc8bb4c780)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55fc8bb3d3b8)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55fc8bb5ae00)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55fc8a42e828)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55fc8bb667c0)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55fc8bb3d418)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55fc8bbf0580)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55fc8bba5af0)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55fc8bb80f58)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55fc80079b58)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55fc8a373108)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55fc8a4107e8)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55fc8bc06e38)') 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(0x55fc8a410638)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'HASH(0x55fc8bc06e38)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55fc7fa4daa0)', 'Net::Server::Proto::UNIX=GLOB(0x55fc8bb48978)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55fc7fa4daa0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55fc7fa4daa0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'port', 'ARRAY(0x55fc800066a8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55fc7fa4daa0)', 'CODE(0x55fc7fa4d950)', 'HASH(0x55fc7fa4d6f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55fc7fa4d968)', 'CODE(0x55fc7fa4d950)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55fc7f792f30)', 'Plack::Handler::Starman=HASH(0x55fc7fa4d968)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55fc7f73af88)') called at /bin/starman line 38 2026/08/11-18:26:04 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-18:26:04 Worker processes cleaned up 2026/08/11-18:26:04 Server closing! Process Backgrounded 2026/08/11-18:26:06 Starman::Server (type Net::Server::PreFork) starting! pid(3803657) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f5146db068)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff552d8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff552d8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51e9f1c60)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fde8698)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe7cf70)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51ff06f38)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') 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(0x55f51fecc188)', 'Try::Tiny::Catch=REF(0x55f51fd8c060)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff06f08)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fed54a0)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9f1c60)') 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(0x55f51e9d69e8)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51e9f1c60)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51e9deb20)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51ff55290)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fdf7058)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fdf7058)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff55590)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fdc4228)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fdc4288)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fec5d08)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') 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(0x55f51fe14188)', 'Try::Tiny::Catch=REF(0x55f51e9f2080)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51fe7d2b8)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51ff03c60)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff55590)') 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(0x55f51e9d69e8)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff55590)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ff132b0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fdeb980)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dtags_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-tags.pl^J#!/usr/bin/perl^J^J# Copyright 2000-2002 Katipo Communications^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^J=head1 NAME^J^Jopac-tags.pl^J^J=head1 DESCRIPTION^J^JTODO :: Description here^J^JC4::Scrubber is used to remove all markup content from the sumitted text.^J^J=cut^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse CGI::Cookie; # need to check cookies before having CGI parse the POST request^Juse Array::Utils qw( array_minus );^J^Juse C4::Auth qw( check_cookie_auth get_template_and_user );^Juse C4::Context;^Juse C4::Output qw( output_with_http_headers is_ajax output_html_with_http_headers );^Juse C4::Scrubber;^Juse C4::Tags qw(^J add_tag^J get_approval_rows^J get_tag_rows^J remove_tag^J stratify_tags^J);^Juse C4::XSLT qw( XSLTParse4Display );^Juse Koha::Biblios;^J^Juse Koha::Logger;^Juse Koha::Biblios;^Juse Koha::CirculationRules;^J^Jmy %newtags = ();^Jmy @deltags = ();^Jmy %counts = ();^Jmy @errors = ();^Jmy $perBibResults = {};^J^J# Indexes of @errors that do not apply to a particular biblionumber.^Jmy @globalErrorIndexes = ();^J^Jsub ajax_auth_cgi { # returns CGI object^J my $needed_flags = shift;^J my %cookies = CGI::Cookie->fetch;^J my $input = CGI->new;^J my $sessid = $cookies{\'CGISESSID\'}->value;^J my ($auth_status) = check_cookie_auth( $sessid, $needed_flags );^J if ( $auth_status ne "ok" ) {^J output_with_http_headers $input, undef,^J "window.alert(\'Your CGI session cookie ($sessid) is not current. "^J . "Please refresh the page and try again.\');\n", \'js\';^J exit 0;^J }^J return $input;^J}^J^J# The trick here is to support multiple tags added to multiple biblios in one POST.^J# The HTML might not use this, but it makes it more web-servicey from the start.^J# So the name of param has to have biblionumber built in.^J# For lack of anything more compelling, we just use "newtag[biblionumber]"^J# We split the value into tags at comma and semicolon^J^Jmy $is_ajax = is_ajax();^Jmy $openadds = C4::Context->preference(\'TagsModeration\') ? 0 : 1;^Jmy $query = ($is_ajax) ? &ajax_auth_cgi( {} ) : CGI->new();^Jforeach ( $query->param ) {^J if (/^newtag(.*)/) {^J my $biblionumber = $1;^J unless ( $biblionumber =~ /^\d+$/ ) {^J push @errors, { +\'badparam\' => $_ };^J push @globalErrorIndexes, $#errors;^J next;^J }^J $newtags{$biblionumber} = $query->param($_);^J } elsif (/^del(\d+)$/) {^J push @deltags, $1;^J }^J}^J^Jmy $add_op = ( scalar( keys %newtags ) + scalar(@deltags) ) ? 1 : 0;^Jmy ( $template, $loggedinuser, $cookie );^Jif ($is_ajax) {^J $loggedinuser = C4::Context->userenv->{\'number\'}; # must occur AFTER auth^J} else {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "opac-tags.tt",^J query => $query,^J type => "opac",^J authnotrequired => ( $add_op ? 0 : 1 ), # auth required to add tags^J }^J );^J}^J^Junless ( C4::Context->preference(\'TagsEnabled\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jif ($add_op) {^J unless ($loggedinuser) {^J push @errors, { +\'cud-login\' => 1 };^J push @globalErrorIndexes, $#errors;^J %newtags = (); # zero out any attempted additions^J @deltags = (); # zero out any attempted deletions^J }^J}^J^Jmy $op = $query->param(\'op\') || q{};^Jmy $dels = 0;^Jif ( $op eq \'cud-add\' ) {^J my $scrubber;^J my @newtags_keys = ( keys %newtags );^J if ( scalar @newtags_keys ) {^J $scrubber = C4::Scrubber->new();^J foreach my $biblionumber (@newtags_keys) {^J my $bibResults = { adds => 0, errors => [] };^J my @values = split /[;,]/, $newtags{$biblionumber};^J foreach (@values) {^J s/^\s*(.+)\s*$/$1/;^J my $clean_tag = $scrubber->scrub($_);^J unless ( $clean_tag eq $_ ) {^J if ( $clean_tag =~ /\S/ ) {^J push @errors, { scrubbed => $clean_tag };^J push @{ $bibResults->{errors} }, { scrubbed => $clean_tag };^J } else {^J push @errors, { scrubbed_all_bad => 1 };^J push @{ $bibResults->{errors} }, { scrubbed_all_bad => 1 };^J next; # we don\'t add it if there\'s nothing left!^J }^J }^J my $result =^J ($openadds) ? add_tag( $biblionumber, $clean_tag, $loggedinuser, $loggedinuser ) : # pre-approved^J add_tag( $biblionumber, $clean_tag, $loggedinuser );^J if ($result) {^J $counts{$biblionumber}++;^J $bibResults->{adds}++;^J } else {^J push @errors, { failed_add_tag => $clean_tag };^J push @{ $bibResults->{errors} }, { failed_add_tag => $clean_tag };^J Koha::Logger->get->warn( "add_tag($biblionumber,$clean_tag,$loggedinuser...) returned bad result ("^J . ( defined $result ? $result : \'UNDEF\' )^J . ")" );^J }^J }^J $perBibResults->{$biblionumber} = $bibResults;^J }^J }^J} elsif ( $op eq \'cud-del\' ) {^J foreach (@deltags) {^J if ( remove_tag( $_, $loggedinuser ) ) {^J $dels++;^J } else {^J push @errors, { failed_delete => $_ };^J }^J }^J}^J^Jif ($is_ajax) {^J my $sum = 0;^J foreach ( values %counts ) { $sum += $_; }^J my $js_reply = sprintf( "response = {\n\tadded: %d,\n\tdeleted: %d,\n\terrors: %d", $sum, $dels, scalar @errors );^J^J # If no add attempts were made, flag global errors.^J if (@globalErrorIndexes) {^J $js_reply .= ",\n\tglobal_errors: [";^J my $first = 1;^J foreach (@globalErrorIndexes) {^J $js_reply .= "," unless $first;^J $first = 0;^J $js_reply .= "\n\t\t$_";^J }^J $js_reply .= "\n\t]";^J }^J^J my $err_string = \'\';^J if ( scalar @errors ) {^J $err_string = ",\n\talerts: ["; # open response_function^J my $i = 1;^J foreach (@errors) {^J my $key = ( keys %$_ )[0];^J ( my $quote_escaped = $_->{$key} ) =~ s|"|\\"|g;^J $err_string .= sprintf qq{\n\t\t KOHA.Tags.tag_message.%s("%s")}, $key, $quote_escaped;^J if ( $i < scalar @errors ) { $err_string .= ","; }^J $i++;^J }^J $err_string .= "\n\t]\n"; # close response_function^J }^J^J # Add per-biblionumber results for use on results page^J my $js_perbib = "";^J for my $bib ( keys %$perBibResults ) {^J my $bibResult = $perBibResults->{$bib};^J my $js_bibres = ",\n\t$bib: {\n\t\tadded: $bibResult->{adds}";^J $js_bibres .= ",\n\t\terrors: [";^J my $i = 0;^J foreach ( @{ $bibResult->{errors} } ) {^J $js_bibres .= "," if ($i);^J my $key = ( keys %$_ )[0];^J ( my $quote_escaped = $_->{$key} ) =~ s|"|\\"|g;^J $js_bibres .= sprintf qq{\n\t\t\t KOHA.Tags.tag_message.%s("%s")}, $key, $quote_escaped;^J $i++;^J }^J $js_bibres .= "\n\t\t]\n\t}";^J $js_perbib .= $js_bibres;^J }^J^J output_with_http_headers( $query, undef, "$js_reply\n$err_string\n$js_perbib\n};", \'js\' );^J exit;^J}^J^Jmy $results = [];^Jmy $my_tags = [];^J^Jif ($loggedinuser) {^J my $patron = Koha::Patrons->find( { borrowernumber => $loggedinuser } );^J my $rules = C4::Context->yaml_preference(\'OpacHiddenItems\');^J my $should_hide = ($rules) ? 1 : 0;^J $my_tags = get_tag_rows( { borrowernumber => $loggedinuser } );^J my $my_approved_tags = get_approval_rows( { approved => 1 } );^J^J my $art_req_itypes;^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $art_req_itypes = Koha::CirculationRules->guess_article_requestable_itemtypes(^J { $patron ? ( categorycode => $patron->categorycode ) : () } );^J }^J^J # get biblionumbers stored in the cart^J my @cart_list;^J^J if ( $query->cookie("bib_list") ) {^J my $cart_list = $query->cookie("bib_list");^J @cart_list = split( /\//, $cart_list );^J }^J^J foreach my $tag (@$my_tags) {^J $tag->{visible} = 0;^J my $biblio = Koha::Biblios->find( $tag->{biblionumber} );^J my $record = $biblio->metadata_record(^J {^J embed_items => 1,^J interface => \'opac\',^J patron => $patron,^J }^J );^J next unless $record;^J my @hidden_items;^J if ($should_hide) {^J my $items = $biblio->items->search_ordered;^J my @all_itemnumbers = $items->get_column(\'itemnumber\');^J my @items_to_show = $items->filter_by_visible_in_opac( { opac => 1, patron => $patron } )->as_list;^J @hidden_items = array_minus( @all_itemnumbers, @items_to_show );^J }^J next^J if (^J (^J !$patron^J or ( $patron and !$patron->category->override_hidden_items )^J )^J and $biblio->hidden_in_opac( { rules => $rules } )^J );^J $tag->{title} = $biblio->title;^J $tag->{subtitle} = $biblio->subtitle;^J $tag->{medium} = $biblio->medium;^J $tag->{part_number} = $biblio->part_number;^J $tag->{part_name} = $biblio->part_name;^J $tag->{author} = $biblio->author;^J^J # BZ17530: \'Intelligent\' guess if result can be article requested^J $tag->{artreqpossible} = ( $art_req_itypes->{ $tag->{itemtype} // q{} } || $art_req_itypes->{\'*\'} ) ? 1 : q{};^J^J my $variables = { anonymous_session => ($loggedinuser) ? 0 : 1 };^J $tag->{XSLTBloc} = XSLTParse4Display(^J {^J biblionumber => $tag->{biblionumber},^J record => $record,^J xsl_syspref => \'OPACXSLTResultsDisplay\',^J fix_amps => 1,^J hidden_items => \@hidden_items,^J xslt_variables => $variables,^J }^J );^J^J my $date = $tag->{date_created} || \'\';^J $date =~ /\s+(\d{2}\:\d{2}\:\d{2})/;^J $tag->{time_created_display} = $1;^J $tag->{approved} = ( grep { $_->{term} eq $tag->{term} and $_->{approved} } @$my_approved_tags );^J $tag->{visible} = 1;^J^J # while we\'re checking each line, see if item is in the cart^J if ( grep { $_ eq $biblio->biblionumber } @cart_list ) {^J $tag->{incart} = 1;^J }^J }^J}^J^J$template->param( tagsview => 1 );^J^Jif ($add_op) {^J my $adds = 0;^J for ( values %counts ) { $adds += $_; }^J $template->param(^J add_op => 1,^J added_count => $adds,^J deleted_count => $dels,^J );^J} else {^J my ( $arg, $limit, $mine );^J my $hardmax = 100; # you might disagree what this value should be, but there definitely should be a max^J $limit = $query->param(\'limit\') || $hardmax;^J $mine = $query->param(\'mine\') || 0; # set if the patron want to see only his own tags.^J ( $limit =~ /^\d+$/ and $limit <= $hardmax ) or $limit = $hardmax;^J $template->param( limit => $limit );^J my $arghash = { approved => 1, limit => $limit, \'sort\' => \'-weight_total\' };^J $arghash->{\'borrowernumber\'} = $loggedinuser if $mine;^J^J # ($openadds) or $arghash->{approved} = 1;^J if ( $arg = $query->param(\'tag\') ) {^J $arghash->{term} = $arg;^J }^J^J # Bug 36785: Do not pass biblionumber: get_approval_rows does not \'recognize\' biblionumber^J $results = get_approval_rows($arghash);^J stratify_tags( 10, $results ); # work out the different sizes for things^J my $count = scalar @$results;^J $template->param( TAGLOOP_COUNT => $count, mine => $mine );^J}^J( scalar @errors ) and $template->param( ERRORS => \@errors );^Jmy @orderedresult = sort { uc( $a->{\'term\'} ) cmp uc( $b->{\'term\'} ) } @$results;^J( scalar @$results ) and $template->param( TAGLOOP => \@orderedresult );^J( scalar @$my_tags ) and $template->param( MY_TAGS => $my_tags );^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-tags.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fe7d1c8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fe7d1c8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ffff0b8)', '/kohadevbox/koha/opac/opac-tags.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fdc4228)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fdc4288)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fec5d08)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') 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(0x55f513e42480)', 'Try::Tiny::Catch=REF(0x55f51fffc5e8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51fe7d2b8)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51ff03c60)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffff0b8)') 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(0x55f51e9d69e8)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ffff0b8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ff55590)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fe66170)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff7efa8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff7efa8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51ff517d8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fde8698)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe7cf70)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51ff06f38)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') 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(0x55f51fecc440)', 'Try::Tiny::Catch=REF(0x55f51e9deee0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff06f08)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fed54a0)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff517d8)') 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(0x55f51e9d69e8)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff517d8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ffff0b8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f514851720)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fe1b918)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fe1b918)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51e9e1e58)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fe2ffb0)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe2fea8)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fe2fc08)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') 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(0x55f520042390)', 'Try::Tiny::Catch=REF(0x55f520b723a8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff6ce90)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fef46b8)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51e9e1e58)') 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(0x55f51e9ca900)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51e9e1e58)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51e9e1750)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fec1f00)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fdf71a8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fdf71a8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff1ab40)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fdc4228)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fdc4288)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fec5d08)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') 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(0x55f51ff552d8)', 'Try::Tiny::Catch=REF(0x55f51fe9fd60)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51fe7d2b8)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51ff03c60)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff1ab40)') 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(0x55f51e9d69e8)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff1ab40)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ff517d8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fe1b6c0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff224e0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff224e0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f520062830)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fef4220)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fef46a0)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fee6f00)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') 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(0x55f51fe749c0)', 'Try::Tiny::Catch=REF(0x55f52009fc20)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f52009ff08)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fe6cf58)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520062830)') 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(0x55f51e9ca900)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f520062830)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f520081d20)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51ffba998)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fe9ffe8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fe9ffe8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51fee34e0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fdc4228)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fdc4288)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fec5d08)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') 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(0x55f51ff8cb50)', 'Try::Tiny::Catch=REF(0x55f51ffbae00)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51fe7d2b8)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51ff03c60)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34e0)') 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(0x55f51e9d69e8)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51fee34e0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ff1ab40)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51ff22408)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fe749a8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fe749a8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51fe10650)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fef4220)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fef46a0)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fee6f00)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') 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(0x55f51ff22618)', 'Try::Tiny::Catch=REF(0x55f51ff49838)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f52009ff08)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fe6cf58)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe10650)') 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(0x55f51e9ca900)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51fe10650)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f520062830)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fde0e50)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ffd1658)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ffd1658)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51fec20e0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fdc4228)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fdc4288)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fec5d08)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') 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(0x55f51fec2128)', 'Try::Tiny::Catch=REF(0x55f51fe30090)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51fe7d2b8)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51ff03c60)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fec20e0)') 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(0x55f51e9d69e8)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51fec20e0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51fee34e0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fe70cd8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fe439d0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fe439d0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51fef6840)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fef4220)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fef46a0)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fee6f00)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') 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(0x55f51fe18538)', 'Try::Tiny::Catch=REF(0x55f51ff8be18)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f52009ff08)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fe6cf58)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef6840)') 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(0x55f51e9ca900)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51fef6840)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51fe10650)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fde4f70)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff51a30)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff51a30)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f5200ebfe8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fde8698)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe7cf70)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51ff06f38)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') 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(0x55f51fe7d120)', 'Try::Tiny::Catch=REF(0x55f51ff5c988)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff06f08)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fed54a0)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200ebfe8)') 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(0x55f51e9d69e8)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f5200ebfe8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51fec20e0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51ffdcfc0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f520078388)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f520078388)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f5200c78e8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fe2ffb0)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe2fea8)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fe2fc08)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') 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(0x55f51fe897b0)', 'Try::Tiny::Catch=REF(0x55f51ff26dc8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff6ce90)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fef46b8)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200c78e8)') 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(0x55f51e9ca900)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f5200c78e8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51fef6840)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fecba68)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff8c220)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff8c220)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51ffb3558)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fde8698)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe7cf70)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51ff06f38)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') 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(0x55f51ffff718)', 'Try::Tiny::Catch=REF(0x55f51e9df048)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff06f08)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fed54a0)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffb3558)') 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(0x55f51e9d69e8)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ffb3558)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f5200ebfe8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fe743f0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fefc908)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fefc908)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51ff8baa0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fe2ffb0)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe2fea8)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fe2fc08)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') 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(0x55f51ffe9220)', 'Try::Tiny::Catch=REF(0x55f51ff4c6c8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff6ce90)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fef46b8)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff8baa0)') 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(0x55f51e9ca900)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff8baa0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f5200c78e8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f520098b40)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff51208)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff51208)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff07058)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fdc4228)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fdc4288)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fec5d08)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') 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(0x55f51fecbf90)', 'Try::Tiny::Catch=REF(0x55f51fde8950)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51fe7d2b8)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51ff03c60)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff07058)') 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(0x55f51e9d69e8)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff07058)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ffb3558)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f520084ff0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fffc088)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fffc088)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51ffdceb8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fef4220)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fef46a0)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fee6f00)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') 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(0x55f51fe1b918)', 'Try::Tiny::Catch=REF(0x55f51fefc620)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f52009ff08)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fe6cf58)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdceb8)') 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(0x55f51e9ca900)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ffdceb8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ff8baa0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fffcab0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff1a990)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff1a990)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f5200eb838)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fde8698)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe7cf70)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51ff06f38)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') 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(0x55f5200475e8)', 'Try::Tiny::Catch=REF(0x55f51fe80c50)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff06f08)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fed54a0)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f5200eb838)') 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(0x55f51e9d69e8)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f5200eb838)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ff07058)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51ff2d4f8)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fe183b8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fe183b8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51fef4370)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fe2ffb0)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe2fea8)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fe2fc08)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') 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(0x55f51fee2fb0)', 'Try::Tiny::Catch=REF(0x55f51ffe8f68)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff6ce90)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fef46b8)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fef4370)') 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(0x55f51e9ca900)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51fef4370)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ffdceb8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fffee18)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ffba2f0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ffba2f0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51fffebc0)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fde8698)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe7cf70)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51ff06f38)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') 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(0x55f520098ba0)', 'Try::Tiny::Catch=REF(0x55f51fffc378)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff06f08)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fed54a0)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fffebc0)') 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(0x55f51e9d69e8)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51fffebc0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f5200eb838)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f5200d82d0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff223f0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff223f0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51fee34f0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fe2ffb0)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe2fea8)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fe2fc08)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') 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(0x55f51fe89990)', 'Try::Tiny::Catch=REF(0x55f5200d7a90)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff6ce90)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fef46b8)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fee34f0)') 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(0x55f51e9ca900)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51fee34f0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51fef4370)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f520098a20)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fea0000)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fea0000)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51ffd15e0)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fde8698)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe7cf70)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51ff06f38)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') 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(0x55f51fffce28)', 'Try::Tiny::Catch=REF(0x55f51ff7ef90)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff06f08)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fed54a0)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffd15e0)') 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(0x55f51e9d69e8)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ffd15e0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51fffebc0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fe10590)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fef44a8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fef44a8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f520078a18)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fe2ffb0)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe2fea8)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fe2fc08)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') 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(0x55f51fe3e648)', 'Try::Tiny::Catch=REF(0x55f51ffe0aa0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff6ce90)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fef46b8)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f520078a18)') 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(0x55f51e9ca900)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f520078a18)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51fee34f0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51ff7bfb0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff7be78)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff7be78)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff7f458)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fdc4228)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fdc4288)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fec5d08)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') 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(0x55f51ff03b28)', 'Try::Tiny::Catch=REF(0x55f51ffff400)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51fe7d2b8)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51ff03c60)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7f458)') 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(0x55f51e9d69e8)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff7f458)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ffd15e0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fe10c68)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff2d2b8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff2d2b8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51ffdd170)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fef4220)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fef46a0)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fee6f00)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') 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(0x55f51ffe8f08)', 'Try::Tiny::Catch=REF(0x55f51ffec0b0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f52009ff08)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fe6cf58)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ffdd170)') 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(0x55f51e9ca900)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ffdd170)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f520078a18)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fe3e7e8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff16b20)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff16b20)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51fe3e9c8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fde8698)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe7cf70)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51ff06f38)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') 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(0x55f51ff2b9a8)', 'Try::Tiny::Catch=REF(0x55f520094bf8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff06f08)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fed54a0)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe3e9c8)') 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(0x55f51e9d69e8)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51fe3e9c8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ff7f458)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f5200a3f00)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fe181d8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fe181d8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51fe1ba80)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fe2ffb0)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe2fea8)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fe2fc08)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') 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(0x55f51fe2f170)', 'Try::Tiny::Catch=REF(0x55f52005d1c8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff6ce90)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fef46b8)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe1ba80)') 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(0x55f51e9ca900)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51fe1ba80)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ffdd170)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51ff42760)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fde1678)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fde1678)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51febcbe0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fdc4228)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fdc4288)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fec5d08)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') 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(0x55f51fe3e710)', 'Try::Tiny::Catch=REF(0x55f51fdc3f88)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51fe7d2b8)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51ff03c60)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51febcbe0)') 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(0x55f51e9d69e8)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51febcbe0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51fe3e9c8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51ff22210)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f520062818)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f520062818)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51fe27a28)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fef4220)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fef46a0)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fee6f00)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') 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(0x55f52009fab8)', 'Try::Tiny::Catch=REF(0x55f5200a3d50)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f52009ff08)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fe6cf58)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe27a28)') 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(0x55f51e9ca900)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51fe27a28)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51fe1ba80)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51ff51748)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff51790)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff51790)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff7c118)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fdc4228)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fdc4288)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fec5d08)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') 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(0x55f51e9f1de0)', 'Try::Tiny::Catch=REF(0x55f51ff28410)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51fe7d2b8)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51ff03c60)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff7c118)') 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(0x55f51e9d69e8)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff7c118)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51febcbe0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f520042bb8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ffebde0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ffebde0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51ff222e8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fef4220)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fef46a0)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fee6f00)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') 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(0x55f520026d88)', 'Try::Tiny::Catch=REF(0x55f51fdfa8c8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f52009ff08)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fe6cf58)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff222e8)') 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(0x55f51e9ca900)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff222e8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51fe27a28)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51ff79b48)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dlibrary_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-library.pl^J#!/usr/bin/perl^J^J# Copyright 2020 Athens County Public Libraries^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Context;^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Libraries;^J^Jmy $query = CGI->new();^J^Jmy $branchcode = $query->param(\'branchcode\');^J^J# if OPACShowLibraries is disabled, leave immediately^Jif ( !C4::Context->preference(\'OPACShowLibraries\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-library.tt",^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $library;^Jmy $libraries = Koha::Libraries->search( { public => 1 }, { order_by => [\'branchname\'] } );^J$template->param( public_count => $libraries->count );^Jif ( $template->{VARS}->{singleBranchMode} || $libraries->count == 1 ) {^J $library = $libraries->next;^J} elsif ($branchcode) {^J $library = $libraries->search( { branchcode => $branchcode } )->next;^J}^J^Jif ($library) {^J $template->param( library => $library );^J} else {^J $template->param(^J libraries => $libraries,^J branchcode => C4::Context->userenv ? C4::Context->userenv->{branch} : q{},^J );^J}^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fffc1c8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fffc1c8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51fe7b100)', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fdc4228)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fdc4288)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fec5d08)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') 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(0x55f51fecbab0)', 'Try::Tiny::Catch=REF(0x55f51fec5d98)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51fe7d2b8)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51ff03c60)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51fe7b100)') 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(0x55f51e9d69e8)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51fe7b100)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ff7c118)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51ff492f8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51ff4c608)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51ff4c608)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51ff2aee8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e92d540)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fef4220)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fef46a0)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fee6f00)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') 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(0x55f51ff49ac0)', 'Try::Tiny::Catch=REF(0x55f51fffefc8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f52009ff08)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fe6cf58)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff2aee8)') 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(0x55f51e9ca900)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff2aee8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ff222e8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51febca78)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f5200cd338)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f5200cd338)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff51760)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f360)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fdc4228)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fdc4288)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fec5d08)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') 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(0x55f51ff50d40)', 'Try::Tiny::Catch=REF(0x55f51ff03be8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51fe7d2b8)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51ff03c60)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff51760)') 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(0x55f51e9d69e8)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff51760)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51fe7b100)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803659: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f52009fb48)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f51fefc290)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f51fefc290)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51ff494d8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51463f2b8)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fe2ffb0)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe2fea8)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51fe2fc08)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') 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(0x55f51fe27ba8)', 'Try::Tiny::Catch=REF(0x55f51ff4c5c0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff6ce90)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fef46b8)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9e2080)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff50200)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51ff70280)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f51fdfa6d0)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f52003ab00)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f52009fec0)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b78)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92d198)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9ca9f0)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff494d8)') 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(0x55f51e9ca900)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff494d8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ff2aee8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3803661: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55f51fdf71f0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55f520092028)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55f520092028)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51ff16c70)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55f51e90d7e0)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55f51fde8698)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55f51fe7cf70)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55f51ff06f38)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') 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(0x55f520046ad8)', 'Try::Tiny::Catch=REF(0x55f51fe7b0e8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55f51ff06f08)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55f51fed54a0)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55f51e9f1e28)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55f51ff41ea8)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55f51fe7d780)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55f52004b328)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55f51fecc1b8)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55f51fe69d40)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55f514637b90)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55f51e92e998)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55f51e9d6b08)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55f51ff16c70)') 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(0x55f51e9d69e8)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55f513f74290)', 'HASH(0x55f51ff16c70)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55f513f74290)', 'Net::Server::Proto::UNIX=GLOB(0x55f51ff51760)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55f513f74290)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55f513f74290)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55f513f74290)', 'port', 'ARRAY(0x55f5145c4468)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55f513f74290)', 'CODE(0x55f513f74140)', 'HASH(0x55f513f73ee8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55f513f74158)', 'CODE(0x55f513f74140)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55f513d4eb60)', 'Plack::Handler::Starman=HASH(0x55f513f74158)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55f513cf5ce8)') called at /bin/starman line 38 2026/08/11-18:40:28 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/11-18:40:28 Worker processes cleaned up 2026/08/11-18:40:28 Server closing! Process Backgrounded 2026/08/11-18:40:30 Starman::Server (type Net::Server::PreFork) starting! pid(3805409) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3805411: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb6673c710)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a780)', 'HASH(0x55bb708d9738)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a780)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb7208acb8)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71feda68)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb72039518)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') 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(0x55bb7208cd38)', 'Try::Tiny::Catch=REF(0x55bb72044940)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb72083258)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb7208ad90)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708d8c70)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7201e540)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb7208a5e0)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb72032788)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb7208a208)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb7208ce40)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522c98)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70816690)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708bdde0)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708d9738)') 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(0x55bb707d5cf0)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb708d9738)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb708c5e18)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb6673cbd8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb708145f0)', 'HASH(0x55bb708da760)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb708145f0)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb71fe4428)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71fe60a8)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb72032250)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') 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(0x55bb7205bb98)', 'Try::Tiny::Catch=REF(0x55bb720c3e58)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb72048898)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb7205b958)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708da760)') 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(0x55bb707d5c80)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb708da760)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb708cacf0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805411: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb71ff6520)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb72017990)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb72017990)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a780)', 'HASH(0x55bb720ad190)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a780)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb7208acb8)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71feda68)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb72039518)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') 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(0x55bb708d8c10)', 'Try::Tiny::Catch=REF(0x55bb7207ed30)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb72083258)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb7208ad90)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708d8c70)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7201e540)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb7208a5e0)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb72032788)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb7208a208)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb7208ce40)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522c98)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70816690)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708bdde0)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ad190)') 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(0x55bb707d5cf0)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb720ad190)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb7207e3d0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb71ff2528)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb71fee9c0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb71fee9c0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb708145f0)', 'HASH(0x55bb720a9d00)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb708145f0)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb71fe4428)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71fe60a8)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb72032250)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') 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(0x55bb720a0d78)', 'Try::Tiny::Catch=REF(0x55bb7208a698)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb72048898)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb7205b958)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720a9d00)') 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(0x55bb707d5c80)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb720a9d00)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb720663f0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805411: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb71d98e58)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb71fe6cc0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb71fe6cc0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb708c61f0)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb7208d1d0)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71fed870)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7203d668)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') 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(0x55bb7208a190)', 'Try::Tiny::Catch=REF(0x55bb720adda8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720508b0)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb720a3d20)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708d8c70)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7201e540)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb7208a5e0)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb72032788)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb7208a208)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb7208ce40)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522c98)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70816690)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708bdde0)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61f0)') 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(0x55bb707d5cf0)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb708c61f0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb720ad190)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb7206ea38)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb71de0420)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb71de0420)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb708cb0c8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb720082e0)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb7200d730)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7204cc50)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') 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(0x55bb7205b538)', 'Try::Tiny::Catch=REF(0x55bb720667c8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720c8408)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb71fe3f78)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708cb0c8)') 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(0x55bb707d5c80)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb708cb0c8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb720a9d00)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb72007f98)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb72066738)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb72066738)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb7208a8c0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb720082e0)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb7200d730)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7204cc50)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') 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(0x55bb71d93738)', 'Try::Tiny::Catch=REF(0x55bb71d9c520)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720c8408)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb71fe3f78)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7208a8c0)') 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(0x55bb707d5c80)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb7208a8c0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb708cb0c8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805411: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb71ee3eb8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb71da0138)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb71da0138)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb708167b0)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb7208d1d0)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71fed870)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7203d668)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') 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(0x55bb720634e8)', 'Try::Tiny::Catch=REF(0x55bb720325f0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720508b0)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb720a3d20)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708d8c70)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7201e540)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb7208a5e0)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb72032788)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb7208a208)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb7208ce40)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522c98)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70816690)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708bdde0)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708167b0)') 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(0x55bb707d5cf0)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb708167b0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb708c61f0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb720325c8)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb71f2d480)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb71f2d480)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb71fea958)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb720082e0)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb7200d730)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7204cc50)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') 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(0x55bb72007c38)', 'Try::Tiny::Catch=REF(0x55bb7209e250)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720c8408)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb71fe3f78)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71fea958)') 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(0x55bb707d5c80)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb71fea958)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb7208a8c0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805411: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb71da0678)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb7205aff0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb7205aff0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb708c61a8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb7208d1d0)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71fed870)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7203d668)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') 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(0x55bb71d988b8)', 'Try::Tiny::Catch=REF(0x55bb71da0960)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720508b0)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb720a3d20)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708d8c70)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7201e540)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb7208a5e0)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb72032788)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb7208a208)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb7208ce40)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522c98)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70816690)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708bdde0)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708c61a8)') 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(0x55bb707d5cf0)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb708c61a8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb708167b0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb71feef30)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb72027580)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb72027580)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb708145f0)', 'HASH(0x55bb7204c8d8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb708145f0)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb71fe4428)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71fe60a8)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb72032250)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') 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(0x55bb720c8228)', 'Try::Tiny::Catch=REF(0x55bb71f2d2d0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb72048898)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb7205b958)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7204c8d8)') 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(0x55bb707d5c80)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb7204c8d8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb71fea958)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805411: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb71fedcf0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb72077400)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb72077400)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a780)', 'HASH(0x55bb71de3838)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a780)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb7208acb8)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71feda68)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb72039518)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') 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(0x55bb720b9328)', 'Try::Tiny::Catch=REF(0x55bb72077820)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb72083258)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb7208ad90)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708d8c70)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7201e540)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb7208a5e0)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb72032788)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb7208a208)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb7208ce40)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522c98)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70816690)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708bdde0)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71de3838)') 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(0x55bb707d5cf0)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb71de3838)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb708c61a8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb72038e38)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb71d9c5e0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb71d9c5e0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb7209a3e8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb720082e0)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb7200d730)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7204cc50)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') 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(0x55bb7208c9b8)', 'Try::Tiny::Catch=REF(0x55bb720a4cb8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720c8408)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb71fe3f78)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7209a3e8)') 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(0x55bb707d5c80)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb7209a3e8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb7204c8d8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805411: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb72027238)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb720a11e8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb720a11e8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb708bdbe8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb7208d1d0)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71fed870)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7203d668)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') 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(0x55bb720c87b0)', 'Try::Tiny::Catch=REF(0x55bb71d98ab0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720508b0)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb720a3d20)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708d8c70)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7201e540)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb7208a5e0)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb72032788)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb7208a208)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb7208ce40)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522c98)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70816690)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708bdde0)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb708bdbe8)') 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(0x55bb707d5cf0)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb708bdbe8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb71de3838)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb72002530)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb707cabe8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb707cabe8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb720ddc18)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb720082e0)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb7200d730)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7204cc50)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') 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(0x55bb720b0460)', 'Try::Tiny::Catch=REF(0x55bb72073ca8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720c8408)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb71fe3f78)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720ddc18)') 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(0x55bb707d5c80)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb720ddc18)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb7209a3e8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805411: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb720026e0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb720ad9d0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb720ad9d0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb7205b050)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb7208d1d0)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71fed870)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7203d668)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') 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(0x55bb72008320)', 'Try::Tiny::Catch=REF(0x55bb720ad6d0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720508b0)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb720a3d20)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708d8c70)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7201e540)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb7208a5e0)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb72032788)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb7208a208)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb7208ce40)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522c98)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70816690)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708bdde0)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205b050)') 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(0x55bb707d5cf0)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb7205b050)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb708bdbe8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb7208c970)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb72077118)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb72077118)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb71feaca0)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb720082e0)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb7200d730)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7204cc50)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') 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(0x55bb71fee138)', 'Try::Tiny::Catch=REF(0x55bb71fcfc08)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720c8408)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb71fe3f78)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71feaca0)') 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(0x55bb707d5c80)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb71feaca0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb720ddc18)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805411: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb7205acc0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dshelves_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-shelves.pl^J#!/usr/bin/perl^J^J# Copyright 2015 Koha Team^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Biblio qw( GetBiblioData GetFrameworkCode );^Juse C4::External::BakerTaylor qw( image_url link_url );^Juse C4::Koha qw(^J GetNormalizedEAN^J GetNormalizedISBN^J GetNormalizedOCLCNumber^J GetNormalizedUPC^J);^Juse C4::Members;^Juse C4::Output qw( pagination_bar output_with_http_headers );^Juse C4::Tags qw( get_tags );^Juse C4::XSLT qw( XSLTParse4Display );^J^Juse Koha::Biblios;^Juse Koha::Biblioitems;^Juse Koha::CirculationRules;^Juse Koha::CsvProfiles;^Juse Koha::DateUtils qw/dt_from_string/;^Juse Koha::Items;^Juse Koha::ItemTypes;^Juse Koha::Patrons;^Juse Koha::Virtualshelfshares;^Juse Koha::Virtualshelves;^Juse Koha::RecordProcessor;^J^Juse constant ANYONE => 2;^Juse constant STAFF => 3;^Juse constant PERMITTED => 4;^J^Jmy $query = CGI->new;^J^Jmy $template_name = $query->param(\'rss\') ? "opac-shelves-rss.tt" : "opac-shelves.tt";^J^J# if virtualshelves is disabled, leave immediately^Jif ( !C4::Context->preference(\'virtualshelves\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy $op = $query->param(\'op\') || \'list\';^Jmy ( $template, $loggedinuser, $cookie );^J^Jif ( $op eq \'view\' || $op eq \'list\' ) {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => $template_name,^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J );^J} else {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => $template_name,^J query => $query,^J type => "opac",^J authnotrequired => 0,^J }^J );^J}^J^Jif ( C4::Context->preference("BakerTaylorEnabled") ) {^J $template->param(^J BakerTaylorImageURL => &image_url(),^J BakerTaylorLinkURL => &link_url(),^J );^J}^J^Jmy $referer = $query->param(\'referer\') || $op;^Jmy $page = int( $query->param(\'page\') || 1 );^Jmy $public = 0;^J$public = 1 if $query->param(\'public\') && $query->param(\'public\') == 1;^J^Jmy ( $shelf, $shelfnumber, @messages );^J^J# PART 1: Perform a few actions^Jif ( $op eq \'add_form\' ) {^J^J # Only pass default^J $shelf = { allow_change_from_owner => 1 };^J} elsif ( $op eq \'edit_form\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J^J if ($shelf) {^J $public = $shelf->public;^J my $patron = Koha::Patrons->find( $shelf->owner );^J $template->param( owner => $patron, );^J unless ( $shelf->can_be_managed($loggedinuser) ) {^J push @messages, { type => \'error\', code => \'unauthorized_on_update\' };^J $op = \'list\';^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'cud-add\' ) {^J if ($loggedinuser) {^J my $allow_changes_from = $query->param(\'allow_changes_from\');^J eval {^J $shelf = Koha::Virtualshelf->new(^J {^J shelfname => scalar $query->param(\'shelfname\'),^J sortfield => scalar $query->param(\'sortfield\'),^J public => $public,^J allow_change_from_owner => $allow_changes_from > 0,^J allow_change_from_others => $allow_changes_from == ANYONE,^J allow_change_from_staff => $allow_changes_from == STAFF,^J allow_change_from_permitted_staff => $allow_changes_from == PERMITTED,^J owner => scalar $loggedinuser,^J }^J );^J $shelf->store;^J $shelfnumber = $shelf->shelfnumber;^J };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ( not $shelf ) {^J push @messages, { type => \'error\', code => \'error_on_insert\' };^J } else {^J push @messages, { type => \'message\', code => \'success_on_insert\' };^J $op = \'view\';^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_insert\' };^J $op = \'list\';^J }^J} elsif ( $op eq \'cud-edit\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J $op = $referer;^J my $sortfield = $query->param(\'sortfield\');^J $sortfield = \'title\' unless grep { $_ eq $sortfield } qw( title author copyrightdate itemcallnumber dateadded );^J if ( $sortfield eq \'copyrightdate\' and C4::Context->preference(\'marcflavour\') eq \'UNIMARC\' ) {^J $sortfield = \'publicationyear\';^J }^J if ( $shelf->can_be_managed($loggedinuser) ) {^J $shelf->shelfname( scalar $query->param(\'shelfname\') );^J $shelf->sortfield($sortfield);^J my $allow_changes_from = $query->param(\'allow_changes_from\');^J $shelf->allow_change_from_owner( $allow_changes_from > 0 );^J $shelf->allow_change_from_others( $allow_changes_from == ANYONE );^J $shelf->allow_change_from_staff( $allow_changes_from == STAFF );^J $shelf->allow_change_from_permitted_staff( $allow_changes_from == PERMITTED );^J $shelf->public($public);^J eval { $shelf->store };^J^J if ($@) {^J push @messages, { type => \'error\', code => \'error_on_update\' };^J $op = \'edit_form\';^J } else {^J push @messages, { type => \'message\', code => \'success_on_update\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_update\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'cud-delete\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( $shelf->can_be_deleted($loggedinuser) ) {^J eval { $shelf->delete; };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } else {^J push @messages, { type => \'message\', code => \'success_on_delete\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_delete\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J} elsif ( $op eq \'cud-remove_share\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J my $removed = eval { $shelf->remove_share($loggedinuser); };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($removed) {^J push @messages, { type => \'message\', code => \'success_on_remove_share\' };^J } else {^J push @messages, { type => \'error\', code => \'error_on_remove_share\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J^J} elsif ( $op eq \'cud-add_biblio\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( my $barcode = $query->param(\'barcode\') ) {^J my $item = Koha::Items->find( { barcode => $barcode } );^J if ($item) {^J if ( $shelf->can_biblios_be_added($loggedinuser) ) {^J my $added = eval { $shelf->add_biblio( $item->biblionumber, $loggedinuser ); };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($added) {^J push @messages, { type => \'message\', code => \'success_on_add_biblio\' };^J } else {^J push @messages, { type => \'message\', code => \'error_on_add_biblio\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_add_biblio\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'item_does_not_exist\' };^J }^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J} elsif ( $op eq \'cud-remove_biblios\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J my @biblionumber = $query->multi_param(\'biblionumber\');^J if ($shelf) {^J if ( $shelf->can_biblios_be_removed($loggedinuser) ) {^J my $number_of_biblios_removed = eval {^J $shelf->remove_biblios(^J {^J biblionumbers => \@biblionumber,^J borrowernumber => $loggedinuser,^J }^J );^J };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($number_of_biblios_removed) {^J push @messages, { type => \'message\', code => \'success_on_remove_biblios\' };^J } else {^J push @messages, { type => \'error\', code => \'no_biblio_removed\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_remove_biblios\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = \'view\';^J} elsif ( $op eq \'cud-transfer\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber) if $shelfnumber;^J my $new_owner = $query->param(\'new_owner\'); # borrowernumber or undef^J my $error_code =^J $shelf^J ? $shelf->cannot_be_transferred( { by => $loggedinuser, to => $new_owner, interface => \'opac\' } )^J : \'does_not_exist\';^J^J if ( !$new_owner && $error_code eq \'missing_to_parameter\' ) { # show transfer form^J my $patrons = [];^J my $shares = $shelf->get_shares->search( { borrowernumber => { \'!=\' => undef } } );^J while ( my $share = $shares->next ) {^J my $email = $share->sharee->notice_email_address;^J push @$patrons, { email => $email, borrowernumber => $share->get_column(\'borrowernumber\') } if $email;^J }^J if (@$patrons) {^J $template->param( shared_users => $patrons );^J $op = \'cud-transfer\';^J } else {^J push @messages, { type => \'error\', code => \'no_email_found\' };^J }^J } elsif ($error_code) {^J push @messages, { type => \'error\', code => $error_code };^J $op = \'list\';^J } else { # transfer; remove new_owner from virtualshelfshares, add loggedinuser^J $shelf->_result->result_source->schema->txn_do(^J sub {^J $shelf->get_shares->search( { borrowernumber => $new_owner } )->delete;^J Koha::Virtualshelfshare->new(^J { shelfnumber => $shelfnumber, borrowernumber => $loggedinuser, sharedate => dt_from_string } )^J ->store;^J $shelf->owner($new_owner)->store;^J }^J );^J $op = \'list\';^J }^J}^J^J# PART 2: After a possible action, view one list or show a number of lists^Jif ( $op eq \'view\' ) {^J $shelfnumber ||= $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( $shelf->can_be_viewed($loggedinuser) ) {^J $public = $shelf->public;^J^J # Sortfield param may still include sort order with :asc or :desc, but direction overrides it^J my ( $sortfield, $direction );^J if ( $query->param(\'sortfield\') ) {^J ( $sortfield, $direction ) = split /:/, $query->param(\'sortfield\');^J } else {^J $sortfield = $shelf->sortfield;^J $direction = \'asc\';^J }^J $direction = $query->param(\'direction\') if $query->param(\'direction\');^J $direction = \'asc\' if !$direction or ( $direction ne \'asc\' and $direction ne \'desc\' );^J $sortfield = \'title\'^J if !$sortfield^J or !grep { $_ eq $sortfield } qw( title author copyrightdate itemcallnumber dateadded );^J if ( $sortfield eq \'copyrightdate\' and C4::Context->preference(\'marcflavour\') eq \'UNIMARC\' ) {^J $sortfield = \'publicationyear\';^J }^J^J my $rows;^J if ( $query->param(\'print\') or $query->param(\'rss\') ) {^J $page = "";^J } else {^J $rows = C4::Context->preference(\'OPACnumSearchResults\') || 20;^J }^J my $order_by = $sortfield eq \'itemcallnumber\' ? \'items.cn_sort\' : $sortfield;^J my $contents = $shelf->get_contents->search(^J {},^J {^J distinct => \'biblionumber\',^J join => [ { \'biblionumber\' => { \'biblioitems\' => \'items\' } } ],^J page => $page,^J rows => $rows,^J order_by => { "-$direction" => $order_by },^J }^J );^J^J # get biblionumbers stored in the cart^J my @cart_list;^J if ( my $cart_list = $query->cookie(\'bib_list\') ) {^J @cart_list = split( /\//, $cart_list );^J }^J^J my $patron = Koha::Patrons->find($loggedinuser);^J^J my $categorycode; # needed for may_article_request^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $categorycode = $patron ? $patron->categorycode : undef;^J }^J^J my $record_processor = Koha::RecordProcessor->new( { filters => \'ViewPolicy\' } );^J^J my $art_req_itypes;^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $art_req_itypes = Koha::CirculationRules->guess_article_requestable_itemtypes(^J { $patron ? ( categorycode => $patron->categorycode ) : () } );^J }^J^J my @items_info;^J while ( my $content = $contents->next ) {^J my $biblionumber = $content->biblionumber;^J my $this_item = GetBiblioData($biblionumber);^J my $biblio = Koha::Biblios->find($biblionumber);^J my $record = $biblio->metadata->record;^J my $framework = GetFrameworkCode($biblionumber);^J $record_processor->options(^J {^J interface => \'opac\',^J frameworkcode => $framework^J }^J );^J $record_processor->process($record);^J^J my $marcflavour = C4::Context->preference("marcflavour");^J my $itemtype = Koha::Biblioitems->search( { biblionumber => $content->biblionumber } )->next->itemtype;^J $itemtype = Koha::ItemTypes->find($itemtype);^J if ($itemtype) {^J $this_item->{imageurl} = C4::Koha::getitemtypeimagelocation( \'opac\', $itemtype->imageurl );^J $this_item->{description} = $itemtype->description; #FIXME Should not it be translated_description?^J $this_item->{notforloan} = $itemtype->notforloan;^J }^J $this_item->{\'coins\'} = $biblio->get_coins;^J $this_item->{\'normalized_upc\'} = GetNormalizedUPC( $record, $marcflavour );^J $this_item->{\'normalized_ean\'} = GetNormalizedEAN( $record, $marcflavour );^J $this_item->{\'normalized_oclc\'} = GetNormalizedOCLCNumber( $record, $marcflavour );^J $this_item->{\'normalized_isbn\'} = GetNormalizedISBN( undef, $record, $marcflavour );^J^J # BZ17530: \'Intelligent\' guess if result can be article requested^J $this_item->{artreqpossible} =^J ( $art_req_itypes->{ $this_item->{itemtype} // q{} } || $art_req_itypes->{\'*\'} ) ? 1 : q{};^J^J unless ( defined $this_item->{size} ) {^J^J #TT has problems with size^J $this_item->{size} = q||;^J }^J^J if ( C4::Context->preference(\'TagsEnabled\') and C4::Context->preference(\'TagsShowOnList\') ) {^J $this_item->{TagLoop} = get_tags(^J {^J biblionumber => $biblionumber, approved => 1, \'sort\' => \'-weight\',^J limit => C4::Context->preference(\'TagsShowOnList\'),^J }^J );^J }^J^J my $items = $biblio->items->filter_by_visible_in_opac( { patron => $patron } );^J my $allow_onshelf_holds;^J while ( my $item = $items->next ) {^J^J # This method must take a Koha::Items rs^J $allow_onshelf_holds ||=^J Koha::CirculationRules->get_onshelfholds_policy( { item => $item, patron => $patron } );^J^J }^J^J $this_item->{allow_onshelf_holds} = $allow_onshelf_holds;^J $this_item->{\'ITEM_RESULTS\'} = $items;^J^J my $variables = { anonymous_session => ($loggedinuser) ? 0 : 1 };^J $this_item->{XSLTBloc} = XSLTParse4Display(^J {^J biblionumber => $biblionumber,^J record => $record,^J xsl_syspref => "OPACXSLTListsDisplay",^J fix_amps => 1,^J xslt_variables => $variables,^J items_rs => $items->reset,^J }^J );^J^J if ( grep { $_ eq $biblionumber } @cart_list ) {^J $this_item->{incart} = 1;^J }^J^J $this_item->{biblio_object} = $biblio;^J $this_item->{biblionumber} = $biblionumber;^J $this_item->{shelves} = Koha::Virtualshelves->get_shelves_containing_record(^J {^J biblionumber => $biblionumber,^J borrowernumber => $loggedinuser,^J }^J );^J push @items_info, $this_item;^J }^J^J $template->param(^J can_manage_shelf => $shelf->can_be_managed($loggedinuser),^J can_delete_shelf => $shelf->can_be_deleted($loggedinuser),^J can_remove_biblios => $shelf->can_biblios_be_removed($loggedinuser),^J can_add_biblios => $shelf->can_biblios_be_added($loggedinuser),^J itemsloop => \@items_info,^J sortfield => $sortfield,^J direction => $direction,^J csv_profiles => Koha::CsvProfiles->search(^J {^J type => \'marc\',^J used_for => \'export_records\',^J staff_only => 0^J }^J ),^J );^J if ($page) {^J my $pager = $contents->pager;^J $template->param(^J pagination_bar => pagination_bar(^J q||, $pager->last_page - $pager->first_page + 1,^J $page, "page",^J {^J op => \'view\', shelfnumber => $shelf->shelfnumber, sortfield => $sortfield,^J direction => $direction,^J }^J ),^J );^J }^J my $some_private_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $loggedinuser,^J add_allowed => 1,^J public => 0,^J }^J );^J my $some_public_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $loggedinuser,^J add_allowed => 1,^J public => 1,^J }^J );^J^J $template->param(^J add_to_some_private_shelves => $some_private_shelves,^J add_to_some_public_shelves => $some_public_shelves,^J );^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_view\' };^J undef $shelf;^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'list\' ) {^J my $direction = $query->param(\'direction\') || \'asc\';^J my $sortfield = $query->param(\'sortfield\') || \'shelfname\';^J my $sort_by = { sortfield => $sortfield, direction => $direction };^J^J my $shelves;^J my ($rows) = (20);^J if ( !$public ) {^J $shelves = Koha::Virtualshelves->get_private_shelves(^J { page => $page, rows => $rows, borrowernumber => $loggedinuser, sort_by => $sort_by, } );^J } else {^J $shelves = Koha::Virtualshelves->get_public_shelves( { page => $page, rows => $rows, sort_by => $sort_by, } );^J }^J^J my $pager = $shelves->pager;^J $template->param(^J shelves => $shelves,^J pagination_bar => pagination_bar(^J q||, $pager->last_page - $pager->first_page + 1,^J $page, "page",^J {^J op => \'list\', public => $public, sortfield => $sortfield,^J direction => $direction,^J }^J ),^J );^J}^J^Jmy ( $staffuser, $permitteduser );^J$staffuser = Koha::Patrons->find($loggedinuser)->can_patron_change_staff_only_lists if $loggedinuser;^J$permitteduser = Koha::Patrons->find($loggedinuser)->can_patron_change_permitted_staff_lists if $loggedinuser;^J^J$template->param(^J op => $op,^J referer => $referer,^J shelf => $shelf,^J messages => \@messages,^J public => $public,^J print => scalar $query->param(\'print\') || 0,^J listsview => 1,^J staffuser => $staffuser,^J permitteduser => $permitteduser^J);^J^Jmy $content_type = $query->param(\'rss\') ? \'rss\' : \'html\';^Joutput_with_http_headers $query, $cookie, $template->output, $content_type;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-shelves.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb71de0760)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb71de0760)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a780)', 'HASH(0x55bb7205ac48)', '/kohadevbox/koha/opac/opac-shelves.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a780)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb7208acb8)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71feda68)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb72039518)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') 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(0x55bb7202d6f0)', 'Try::Tiny::Catch=REF(0x55bb71fe6a38)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb72083258)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb7208ad90)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708d8c70)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7201e540)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb7208a5e0)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb72032788)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb7208a208)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb7208ce40)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522c98)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70816690)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708bdde0)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb7205ac48)') 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(0x55bb707d5cf0)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb7205ac48)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb7205b050)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb7207add0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmemberentry_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-memberentry.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse Digest::MD5 qw( md5_base64 md5_hex );^Juse JSON qw( to_json );^Juse List::MoreUtils qw( any each_array uniq );^Juse String::Random qw( random_string );^Juse Try::Tiny;^J^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Context;^Juse C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages );^Juse C4::Form::MessagingPreferences;^Juse C4::Members::Messaging qw( SetMessagingPreferencesFromDefaults );^Juse Koha::AuthUtils;^Juse Koha::Patrons;^Juse Koha::Patron::Consent;^Juse Koha::Patron::Modification;^Juse Koha::Patron::Modifications;^Juse C4::Scrubber;^Juse Koha::DateUtils qw( dt_from_string );^Juse Koha::Email;^Juse Koha::Libraries;^Juse Koha::Patron::Attribute::Types;^Juse Koha::Patron::Attributes;^Juse Koha::Patron::Images;^Juse Koha::Patron::Categories;^Juse Koha::Policy::Patrons::Cardnumber;^Juse Koha::AuthorisedValues;^Jmy $cgi = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-memberentry.tt",^J type => "opac",^J query => $cgi,^J authnotrequired => 1,^J }^J);^J^Jmy $op = $cgi->param(\'op\') || q{};^Jif ( $borrowernumber && ( $op eq \'cud-create\' || $op eq \'new\' ) ) {^J print $cgi->redirect("/cgi-bin/koha/opac-main.pl");^J exit;^J}^J^Jif ( $op eq q{} ) {^J if ($borrowernumber) {^J $op = \'edit\';^J } else {^J $op = \'new\';^J }^J}^J^Jmy $PatronSelfRegistrationDefaultCategory = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^Jmy $defaultCategory = Koha::Patron::Categories->find($PatronSelfRegistrationDefaultCategory);^J^J# Having a valid PatronSelfRegistrationDefaultCategory is mandatory^Jif ( !C4::Context->preference(\'PatronSelfRegistration\') && !$borrowernumber^J || ( ( $op eq \'new\' || $op eq \'cud-create\' ) && !$defaultCategory ) )^J{^J print $cgi->redirect("/cgi-bin/koha/opac-main.pl");^J exit;^J}^J^Jmy $mandatory = GetMandatoryFields($op);^J^Jmy $params = {};^Jif ( $op eq \'cud-create\' || $op eq \'new\' ) {^J my @PatronSelfRegistrationLibraryList = split \'\|\', C4::Context->preference(\'PatronSelfRegistrationLibraryList\');^J $params = { branchcode => { -in => \@PatronSelfRegistrationLibraryList } }^J if @PatronSelfRegistrationLibraryList;^J}^Jmy $libraries = Koha::Libraries->search( $params, { order_by => [\'branchname\'] } );^J^Jmy ( $min, $max ) = Koha::Policy::Patrons::Cardnumber->get_valid_length();^Jif ( defined $min ) {^J $template->param(^J minlength_cardnumber => $min,^J maxlength_cardnumber => $max^J );^J}^J^Jmy $translated_languages = C4::Languages::getTranslatedLanguages( \'opac\', C4::Context->preference(\'opacthemes\') );^J^J$template->param(^J op => $op,^J hidden => GetHiddenFields( $mandatory, $op ),^J mandatory => $mandatory,^J libraries => $libraries,^J OPACPatronDetails => C4::Context->preference(\'OPACPatronDetails\'),^J defaultCategory => $defaultCategory,^J languages => $translated_languages,^J);^J^Jmy $attributes = ParsePatronAttributes( $borrowernumber, $cgi );^Jmy $conflicting_attribute = 0;^J^Jforeach my $attr (@$attributes) {^J my $attribute = Koha::Patron::Attribute->new($attr);^J if ( !$attribute->unique_ok ) {^J my $attr_type = Koha::Patron::Attribute::Types->find( $attr->{code} );^J $template->param(^J extended_unique_id_failed_code => $attr->{code},^J extended_unique_id_failed_value => $attr->{attribute},^J extended_unique_id_failed_description => $attr_type->description,^J );^J $conflicting_attribute = 1;^J }^J}^J^Jif ( $op eq \'cud-create\' ) {^J^J my %borrower = ParseCgiForBorrower($cgi);^J^J %borrower = DelEmptyFields(%borrower);^J $borrower{categorycode} ||= $PatronSelfRegistrationDefaultCategory;^J^J my @empty_mandatory_fields =^J ( CheckMandatoryFields( \%borrower, $op ), CheckMandatoryAttributes( \%borrower, $attributes ) );^J my $invalidformfields = CheckForInvalidFields( { borrower => \%borrower, context => \'create\' } );^J my $match_result = Koha::Patrons->check_for_existing_matches( \%borrower );^J^J delete $borrower{\'password2\'};^J my $is_cardnumber_valid;^J if ( !grep { $_ eq \'cardnumber\' } @empty_mandatory_fields ) {^J^J # No point in checking the cardnumber if it\'s missing and mandatory, it\'ll just generate a^J # spurious length warning.^J my $patron = Koha::Patrons->find( $borrower{borrowernumber} );^J $is_cardnumber_valid = Koha::Policy::Patrons::Cardnumber->is_valid( $borrower{cardnumber}, $patron );^J unless ($is_cardnumber_valid) {^J for my $m ( @{ $is_cardnumber_valid->messages } ) {^J my $message = $m->message;^J if ( $message eq \'already_exists\' ) {^J $template->param( cardnumber_already_exists => 1 );^J } elsif ( $message eq \'invalid_length\' ) {^J $template->param( cardnumber_wrong_length => 1 );^J }^J }^J }^J }^J^J if ( @empty_mandatory_fields^J || @$invalidformfields^J || !$is_cardnumber_valid^J || $conflicting_attribute^J || $match_result->{duplicate_found} )^J {^J^J $template->param(^J empty_mandatory_fields => \@empty_mandatory_fields,^J invalid_form_fields => $invalidformfields,^J borrower => \%borrower,^J duplicate_found => $match_result->{duplicate_found}^J );^J $template->param( patron_attribute_classes => GeneratePatronAttributesForm( undef, $attributes ) );^J } elsif ( md5_base64( uc( $cgi->param(\'captcha\') ) ) ne $cgi->param(\'captcha_digest\') ) {^J $template->param(^J failed_captcha => 1,^J borrower => \%borrower^J );^J $template->param( patron_attribute_classes => GeneratePatronAttributesForm( undef, $attributes ) );^J } elsif ( !$libraries->find( $borrower{branchcode} ) ) {^J die "Branchcode not allowed"; # They hack the form^J } else {^J if ( C4::Context->preference(\'PatronSelfRegistrationVerifyByEmail\') ) {^J ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-registration-email-sent.tt",^J type => "opac",^J query => $cgi,^J authnotrequired => 1,^J }^J );^J $template->param( \'email\' => $borrower{\'email\'} );^J^J my $verification_token = md5_hex( time() . {} . rand() . {} . $$ );^J while ( Koha::Patron::Modifications->search( { verification_token => $verification_token } )->count() ) {^J $verification_token = md5_hex( time() . {} . rand() . {} . $$ );^J }^J^J $borrower{password} =^J Koha::AuthUtils::generate_password( Koha::Patron::Categories->find( $borrower{categorycode} ) )^J unless $borrower{password};^J $borrower{verification_token} = $verification_token;^J^J $borrower{extended_attributes} = to_json($attributes);^J $borrower{borrowernumber} = 0; # prevent warn Missing value for PK column^J Koha::Patron::Modification->new( \%borrower )->store();^J^J #Send verification email^J my $letter = C4::Letters::GetPreparedLetter(^J module => \'members\',^J letter_code => \'OPAC_REG_VERIFY\',^J lang => \'default\', # Patron does not have a preferred language defined yet^J tables => {^J borrower_modifications => $verification_token,^J },^J );^J^J my $message_id = C4::Letters::EnqueueLetter(^J {^J letter => $letter,^J message_transport_type => \'email\',^J to_address => $borrower{\'email\'},^J from_address => C4::Context->preference(\'KohaAdminEmailAddress\'),^J }^J );^J C4::Letters::SendQueuedMessages( { message_id => $message_id } ) if $message_id;^J } else {^J $borrower{password} ||=^J Koha::AuthUtils::generate_password( Koha::Patron::Categories->find( $borrower{categorycode} ) );^J my $consent_dt = delete $borrower{gdpr_proc_consent};^J my $patron;^J try {^J $patron = Koha::Patron->new( \%borrower )->store;^J Koha::Patron::Consent->new(^J { borrowernumber => $patron->borrowernumber, type => \'GDPR_PROCESSING\', given_on => $consent_dt } )^J ->store^J if $patron && $consent_dt;^J C4::Members::Messaging::SetMessagingPreferencesFromDefaults(^J { borrowernumber => $patron->borrowernumber, categorycode => $patron->categorycode } );^J } catch {^J my $type = ref($_);^J my $info = "$_";^J $template->param( error_type => $type, error_info => $info );^J $template->param( borrower => \%borrower );^J };^J^J ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-registration-confirmation.tt",^J type => "opac",^J query => $cgi,^J authnotrequired => 1,^J }^J ) if $patron;^J^J if ($patron) {^J $patron->extended_attributes->filter_by_branch_limitations->delete;^J $patron->extended_attributes($attributes);^J^J $template->param( password_cleartext => $patron->plain_text_password );^J $template->param( borrower => $patron->unblessed );^J^J $template->param( confirmed => 1 );^J^J # If \'AutoEmailNewUser\' syspref is on, email user their account details from the \'notice\' that matches the user\'s branchcode.^J if ( C4::Context->preference("AutoEmailNewUser") ) {^J^J #look for defined primary email address, if blank - attempt to use borr.email and borr.emailpro instead^J my $emailaddr = $patron->notice_email_address;^J^J # if we manage to find a valid email address, send notice^J if ($emailaddr) {^J eval {^J my $letter = GetPreparedLetter(^J module => \'members\',^J letter_code => \'WELCOME\',^J branchcode => $patron->branchcode,,^J lang => $patron->lang || \'default\',^J tables => {^J \'branches\' => $patron->branchcode,^J \'borrowers\' => $patron->borrowernumber,^J },^J want_librarian => 1,^J ) or return;^J^J my $message_id = EnqueueLetter(^J {^J letter => $letter,^J borrowernumber => $patron->id,^J to_address => $emailaddr,^J message_transport_type => \'email\'^J }^J );^J SendQueuedMessages( { message_id => $message_id } ) if $message_id;^J };^J }^J }^J^J # Notify library of new patron registration^J my $notify_library = C4::Context->preference(\'EmailPatronRegistrations\');^J if ($notify_library) {^J $patron->notify_library_of_registration($notify_library);^J }^J^J }^J }^J }^J} elsif ( $op eq \'cud-update\' ) {^J^J my $borrower = Koha::Patrons->find($borrowernumber)->unblessed;^J^J my %borrower = ParseCgiForBorrower($cgi);^J $borrower{borrowernumber} = $borrowernumber;^J $borrower{categorycode} = $borrower->{categorycode};^J^J my @empty_mandatory_fields = grep { $_ ne \'password\' } # password is not required when editing personal details^J ( CheckMandatoryFields( \%borrower, $op ), CheckMandatoryAttributes( \%borrower, $attributes ) );^J my $invalidformfields = CheckForInvalidFields( { borrower => \%borrower, context => \'update\' } );^J^J # Send back the data to the template^J %borrower = ( %$borrower, %borrower );^J^J if ( @empty_mandatory_fields || @$invalidformfields ) {^J $template->param(^J empty_mandatory_fields => \@empty_mandatory_fields,^J invalid_form_fields => $invalidformfields,^J borrower => \%borrower,^J );^J $template->param( patron_attribute_classes => GeneratePatronAttributesForm( $borrowernumber, $attributes ) );^J^J $template->param( op => \'edit\' );^J } else {^J^J # If preferred name is not included but firstname is then set preferred_name to firstname^J $borrower{preferred_name} = $borrower{firstname}^J if defined $borrower{firstname} && !defined $borrower{preferred_name};^J my %borrower_changes = DelUnchangedFields( $borrowernumber, %borrower );^J $borrower_changes{\'changed_fields\'} = join \',\', keys %borrower_changes;^J my $extended_attributes_changes = FilterUnchangedAttributes( $borrowernumber, $attributes );^J^J if ( $borrower_changes{\'changed_fields\'} || scalar @{$extended_attributes_changes} > 0 ) {^J ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-memberentry-update-submitted.tt",^J type => "opac",^J query => $cgi,^J authnotrequired => 1,^J }^J );^J^J $borrower_changes{borrowernumber} = $borrowernumber;^J $borrower_changes{extended_attributes} = to_json($extended_attributes_changes);^J^J Koha::Patron::Modifications->search( { borrowernumber => $borrowernumber } )->delete;^J^J $borrower_changes{verification_token} = q{}; # prevent warn Missing value for PK column^J my $m = Koha::Patron::Modification->new( \%borrower_changes )->store();^J^J #Automatically approve patron profile changes if set in syspref^J^J if ( C4::Context->preference(\'AutoApprovePatronProfileSettings\') ) {^J^J # Need to get the object from database, otherwise it is not complete enough to allow deletion^J # when approval has been performed.^J my $tmp_m = Koha::Patron::Modifications->find( { borrowernumber => $borrowernumber } );^J $tmp_m->approve() if $tmp_m;^J }^J^J my $patron = Koha::Patrons->find($borrowernumber);^J $template->param( borrower => $patron->unblessed );^J } else {^J my $patron = Koha::Patrons->find($borrowernumber);^J $template->param(^J op => \'edit\',^J nochanges => 1,^J borrower => $patron->unblessed,^J patron_attribute_classes => GeneratePatronAttributesForm( $borrowernumber, $attributes ),^J );^J }^J }^J} elsif ( $op eq \'edit\' ) { #Display logged in borrower\'s data^J my $patron = Koha::Patrons->find($borrowernumber);^J my $borrower = $patron->unblessed;^J^J $template->param(^J borrower => $borrower,^J hidden => GetHiddenFields( $mandatory, \'edit\' ),^J );^J^J if ( C4::Context->preference(\'OPACpatronimages\') ) {^J $template->param( display_patron_image => 1 ) if $patron->image;^J }^J^J $template->param( patron_attribute_classes => GeneratePatronAttributesForm($borrowernumber) );^J^J my $patron_pending_modification =^J Koha::Patron::Modifications->search( { borrowernumber => $patron->borrowernumber } )->next;^J if ($patron_pending_modification) {^J $template->param( patron_pending_modification => $patron_pending_modification );^J }^J} else {^J^J # Render self-registration page^J $template->param( patron_attribute_classes => GeneratePatronAttributesForm() );^J}^J^Jmy $captcha = random_string("CCCCC");^Jmy $patron_param = Koha::Patrons->find($borrowernumber);^J$template->param( has_guarantor_flag => $patron_param->guarantor_relationships->guarantors->_resultset->count )^J if $patron_param;^J^J$template->param(^J captcha => $captcha,^J captcha_digest => md5_base64($captcha),^J patron => $patron_param^J);^J^Joutput_html_with_http_headers $cgi, $cookie, $template->output, undef, { force_no_caching => 1 };^J^Jsub GetHiddenFields {^J my ( $mandatory, $op ) = @_;^J my %hidden_fields;^J^J my $BorrowerUnwantedField =^J $op eq \'edit\' || $op eq \'cud-update\'^J ? C4::Context->preference("PatronSelfModificationBorrowerUnwantedField")^J : C4::Context->preference("PatronSelfRegistrationBorrowerUnwantedField");^J^J my @fields = split( /\|/, $BorrowerUnwantedField || q|| );^J foreach (@fields) {^J next unless m/\w/o;^J^J #Don\'t hide mandatory fields^J next if $mandatory->{$_};^J $hidden_fields{$_} = 1;^J }^J^J return \%hidden_fields;^J}^J^Jsub GetMandatoryFields {^J my ($op) = @_;^J^J my %mandatory_fields;^J^J my $BorrowerMandatoryField =^J $op eq \'edit\' || $op eq \'cud-update\'^J ? C4::Context->preference("PatronSelfModificationMandatoryField")^J : C4::Context->preference("PatronSelfRegistrationBorrowerMandatoryField");^J^J my @fields = split( /\|/, $BorrowerMandatoryField );^J push @fields, \'gdpr_proc_consent\' if C4::Context->preference(\'PrivacyPolicyConsent\') && $op eq \'cud-create\';^J^J foreach (@fields) {^J $mandatory_fields{$_} = 1;^J }^J^J if ( $op eq \'cud-create\' || $op eq \'new\' ) {^J $mandatory_fields{\'email\'} = 1^J if C4::Context->preference(\'PatronSelfRegistrationVerifyByEmail\');^J }^J^J return \%mandatory_fields;^J}^J^Jsub CheckMandatoryFields {^J my ( $borrower, $op ) = @_;^J^J my @empty_mandatory_fields;^J^J my $mandatory_fields = GetMandatoryFields($op);^J delete $mandatory_fields->{\'cardnumber\'};^J^J foreach my $key ( keys %$mandatory_fields ) {^J push( @empty_mandatory_fields, $key )^J unless ( defined( $borrower->{$key} ) && $borrower->{$key} );^J }^J^J return @empty_mandatory_fields;^J}^J^Jsub CheckMandatoryAttributes {^J my ( $borrower, $attributes ) = @_;^J^J my @empty_mandatory_fields;^J^J for my $attribute (@$attributes) {^J my $attr = Koha::Patron::Attribute::Types->find( $attribute->{code} );^J push @empty_mandatory_fields, $attribute->{code}^J if $attr && $attr->opac_mandatory && $attribute->{attribute} =~ m|^\s*$|;^J }^J^J return @empty_mandatory_fields;^J}^J^Jsub CheckForInvalidFields {^J my $params = shift;^J my $borrower = $params->{borrower};^J my $context = $params->{context};^J my @invalidFields;^J if ( $borrower->{\'email\'} ) {^J unless ( Koha::Email->is_valid( $borrower->{email} ) ) {^J push( @invalidFields, "email" );^J } elsif ( C4::Context->preference("PatronSelfRegistrationEmailMustBeUnique") && $context eq \'create\' ) {^J my $patrons_with_same_email = Koha::Patrons->search( # FIXME Should be search_limited?^J {^J email => $borrower->{email},^J (^J exists $borrower->{borrowernumber}^J ? ( borrowernumber => { \'!=\' => $borrower->{borrowernumber} } )^J : ()^J )^J }^J )->count;^J if ($patrons_with_same_email) {^J push @invalidFields, "duplicate_email";^J }^J } elsif ( C4::Context->preference("PatronSelfRegistrationConfirmEmail")^J && $borrower->{\'email\'} ne $borrower->{\'repeat_email\'}^J && !defined $borrower->{borrowernumber} )^J {^J push @invalidFields, "email_match";^J }^J^J # email passed all tests, so prevent attempting to store repeat_email^J delete $borrower->{\'repeat_email\'};^J }^J if ( $borrower->{\'emailpro\'} ) {^J push( @invalidFields, "emailpro" ) unless Koha::Email->is_valid( $borrower->{\'emailpro\'} );^J }^J if ( $borrower->{\'B_email\'} ) {^J push( @invalidFields, "B_email" ) unless Koha::Email->is_valid( $borrower->{\'B_email\'} );^J }^J if ( defined $borrower->{\'password\'}^J and $borrower->{\'password\'} ne $borrower->{\'password2\'} )^J {^J push( @invalidFields, "password_match" );^J }^J if ( $borrower->{\'password\'} ) {^J my ( $is_valid, $error ) = Koha::AuthUtils::is_password_valid(^J $borrower->{password},^J Koha::Patron::Categories->find(^J $borrower->{categorycode} || C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\')^J )^J );^J unless ($is_valid) {^J push @invalidFields, \'password_too_short\' if $error eq \'too_short\';^J push @invalidFields, \'password_too_weak\' if $error eq \'too_weak\';^J push @invalidFields, \'password_has_whitespaces\' if $error eq \'has_whitespaces\';^J }^J }^J^J if ( $borrower->{\'dateofbirth\'} ) {^J my $patron = Koha::Patron->new( { dateofbirth => $borrower->{\'dateofbirth\'} } );^J my $age = $patron->get_age;^J my $borrowercategory = Koha::Patron::Categories->find( $borrower->{\'categorycode\'} );^J my ( $low, $high ) = ( $borrowercategory->dateofbirthrequired, $borrowercategory->upperagelimit );^J my $upper_registration_age_restriction = C4::Context->preference("PatronSelfRegistrationAgeRestriction");^J if ( ( $high && ( $age > $high ) ) or ( $age < $low ) ) {^J push @invalidFields, \'ERROR_age_limitations\';^J }^J if ( $upper_registration_age_restriction && $age > $upper_registration_age_restriction ) {^J push @invalidFields, \'ERROR_age_limitations_self_registration\';^J }^J }^J^J return \@invalidFields;^J}^J^Jsub ParseCgiForBorrower {^J my ($cgi) = @_;^J^J my $scrubber = C4::Scrubber->new();^J my %borrower;^J^J foreach my $field ( $cgi->param ) {^J if ( $field =~ \'^borrower_\' ) {^J my ($key) = substr( $field, 9 );^J if ( $field !~ \'^borrower_password\' ) {^J $borrower{$key} = $scrubber->scrub( scalar $cgi->param($field) );^J } else {^J^J # Allow html characters for passwords^J $borrower{$key} = $cgi->param($field);^J }^J }^J }^J^J # Replace checkbox \'agreed\' by datetime in gdpr_proc_consent^J $borrower{gdpr_proc_consent} = dt_from_string^J if $borrower{gdpr_proc_consent} && $borrower{gdpr_proc_consent} eq \'agreed\';^J^J delete $borrower{$_}^J for^J qw/borrowernumber date_renewed debarred debarredcomment flags privacy privacy_guarantor_fines privacy_guarantor_checkouts checkprevcheckout updated_on lastseen login_attempts overdrive_auth_token anonymized/^J ; # See also members/memberentry.pl^J delete $borrower{$_}^J for^J qw/dateenrolled dateexpiry borrowernotes opacnote sort1 sort2 sms_provider_id autorenew_checkouts gonenoaddress lost relationship/^J ; # On OPAC only^J delete $borrower{$_}^J for split( /\s*\|\s*/, C4::Context->preference(\'PatronSelfRegistrationBorrowerUnwantedField\') || q{} );^J^J return %borrower;^J}^J^Jsub DelUnchangedFields {^J my ( $borrowernumber, %new_data ) = @_;^J^J # get the mandatory fields so we can get the hidden fields^J my $mandatory = GetMandatoryFields(\'edit\');^J my $patron = Koha::Patrons->find($borrowernumber);^J my $current_data = $patron->unblessed;^J^J # get the hidden fields so we don\'t obliterate them should they have data patrons aren\'t allowed to modify^J my $hidden_fields = GetHiddenFields( $mandatory, \'edit\' );^J^J foreach my $key ( keys %new_data ) {^J next^J if ( $new_data{$key} || $current_data->{$key} )^J && $new_data{$key} ne $current_data->{$key}^J && !$hidden_fields->{$key};^J delete $new_data{$key};^J }^J^J return %new_data;^J}^J^Jsub DelEmptyFields {^J my (%borrower) = @_;^J^J foreach my $key ( keys %borrower ) {^J delete $borrower{$key} unless $borrower{$key};^J }^J^J return %borrower;^J}^J^Jsub FilterUnchangedAttributes {^J my ( $borrowernumber, $entered_attributes ) = @_;^J^J my @patron_attributes = grep { $_->type->opac_editable ? $_ : () }^J Koha::Patron::Attributes->search( { borrowernumber => $borrowernumber } )->as_list;^J^J my $patron_attribute_types;^J foreach my $attr (@patron_attributes) {^J $patron_attribute_types->{ $attr->code } += 1;^J }^J^J my $passed_attribute_types;^J foreach my $attr ( @{$entered_attributes} ) {^J $passed_attribute_types->{ $attr->{code} } += 1;^J }^J^J my @changed_attributes;^J^J # Loop through the current patron attributes^J foreach my $attribute_type ( keys %{$patron_attribute_types} ) {^J if ( ( $patron_attribute_types->{$attribute_type} // q{} ) ne^J ( $passed_attribute_types->{$attribute_type} // q{} ) )^J {^J # count differs, overwrite all attributes for given type^J foreach my $attr ( @{$entered_attributes} ) {^J push @changed_attributes, $attr^J if $attr->{code} eq $attribute_type;^J }^J } else {^J^J # count matches, check values^J my $changes = 0;^J foreach my $attr ( grep { $_->code eq $attribute_type } @patron_attributes ) {^J $changes = 1^J unless any { $_->{value} eq $attr->attribute } @{$entered_attributes};^J last if $changes;^J }^J^J if ($changes) {^J foreach my $attr ( @{$entered_attributes} ) {^J push @changed_attributes, $attr^J if $attr->{code} eq $attribute_type;^J }^J }^J }^J }^J^J # Loop through passed attributes, looking for new ones^J foreach my $attribute_type ( keys %{$passed_attribute_types} ) {^J if ( !defined $patron_attribute_types->{$attribute_type} ) {^J^J # YAY, new stuff^J foreach my $attr ( grep { $_->{code} eq $attribute_type } @{$entered_attributes} ) {^J push @changed_attributes, $attr;^J }^J }^J }^J^J return \@changed_attributes;^J}^J^Jsub GeneratePatronAttributesForm {^J my ( $borrowernumber, $entered_attributes ) = @_;^J^J # Get all attribute types and the values for this patron (if applicable)^J my @types = grep { $_->opac_editable() or $_->opac_display } # FIXME filter using DBIC^J Koha::Patron::Attribute::Types->search()->as_list();^J if ( scalar(@types) == 0 ) {^J return [];^J }^J^J my @displayable_attributes = grep { $_->type->opac_display ? $_ : () }^J Koha::Patron::Attributes->search( { borrowernumber => $borrowernumber } )->as_list;^J^J my %attr_values = ();^J^J # Build the attribute values list either from the passed values^J # or taken from the patron itself^J if ( defined $entered_attributes ) {^J foreach my $attr (@$entered_attributes) {^J push @{ $attr_values{ $attr->{code} } }, $attr->{attribute};^J }^J } elsif ( defined $borrowernumber ) {^J my @editable_attributes = grep { $_->type->opac_editable ? $_ : () } @displayable_attributes;^J foreach my $attr (@editable_attributes) {^J push @{ $attr_values{ $attr->code } }, $attr->attribute;^J }^J }^J^J # Add the non-editable attributes (that don\'t come from the form)^J foreach my $attr ( grep { !$_->type->opac_editable } @displayable_attributes ) {^J push @{ $attr_values{ $attr->code } }, $attr->attribute;^J }^J^J # Find all existing classes^J my @classes = sort( uniq( map { $_->class } @types ) );^J my %items_by_class;^J^J foreach my $attr_type (@types) {^J push @{ $items_by_class{ $attr_type->class() } }, {^J type => $attr_type,^J^J # If editable, make sure there\'s at least one empty entry,^J # to make the template\'s job easier^J values => $attr_values{ $attr_type->code() } || [\'\']^J }^J unless !defined $attr_values{ $attr_type->code() }^J and !$attr_type->opac_editable;^J }^J^J # Finally, build a list of containing classes^J my @class_loop;^J foreach my $class (@classes) {^J next unless ( $items_by_class{$class} );^J^J my $av = Koha::AuthorisedValues->search( { category => \'PA_CLASS\', authorised_value => $class } );^J^J my $lib = $av->count ? $av->next->opac_description : $class;^J^J push @class_loop,^J {^J class => $class,^J items => $items_by_class{$class},^J lib => $lib,^J };^J }^J^J return \@class_loop;^J}^J^Jsub ParsePatronAttributes {^J my ( $borrowernumber, $cgi ) = @_;^J^J my @codes = $cgi->multi_param(\'patron_attribute_code\');^J my @values = $cgi->multi_param(\'patron_attribute_value\');^J^J my @editable_attribute_types =^J map { $_->code } Koha::Patron::Attribute::Types->search( { opac_editable => 1 } )->as_list;^J^J my $ea = each_array( @codes, @values );^J my @attributes;^J^J my $delete_candidates = {};^J^J my $scrubber = C4::Scrubber->new();^J while ( my ( $code, $value ) = $ea->() ) {^J if ( any { $_ eq $code } @editable_attribute_types ) {^J^J # It is an editable attribute^J if ( !defined($value) or $value eq \'\' ) {^J $delete_candidates->{$code} = 1^J unless $delete_candidates->{$code};^J } else {^J^J # we\'ve got a value^J push @attributes, { code => $code, attribute => $scrubber->scrub($value) };^J^J # \'code\' is no longer a delete candidate^J delete $delete_candidates->{$code}^J if defined $delete_candidates->{$code};^J }^J }^J }^J^J foreach my $code ( keys %{$delete_candidates} ) {^J if (^J !$borrowernumber # self-registration^J || Koha::Patron::Attributes->search( { borrowernumber => $borrowernumber, code => $code } )->count > 0^J )^J {^J push @attributes, { code => $code, attribute => \'\' }^J unless any { $_->{code} eq $code } @attributes;^J }^J }^J^J return \@attributes;^J}^J^J1;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-memberentry.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb71feeb28)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb71feeb28)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb72073a98)', '/kohadevbox/koha/opac/opac-memberentry.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb720082e0)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb7200d730)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7204cc50)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') 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(0x55bb7206e708)', 'Try::Tiny::Catch=REF(0x55bb71ff1958)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720c8408)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb71fe3f78)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72073a98)') 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(0x55bb707d5c80)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb72073a98)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb71feaca0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805411: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb71dd8868)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb72050658)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb72050658)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb72002320)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb707f4d68)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb7208d1d0)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71fed870)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7203d668)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') 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(0x55bb72063590)', 'Try::Tiny::Catch=REF(0x55bb66522de8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720508b0)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb720a3d20)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708d8c70)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7201e540)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb7208a5e0)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb72032788)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb7208a208)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb7208ce40)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522c98)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70816690)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708bdde0)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb72002320)') 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(0x55bb707d5cf0)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb72002320)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb7205ac48)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb7209e0a0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dshelves_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-shelves.pl^J#!/usr/bin/perl^J^J# Copyright 2015 Koha Team^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Biblio qw( GetBiblioData GetFrameworkCode );^Juse C4::External::BakerTaylor qw( image_url link_url );^Juse C4::Koha qw(^J GetNormalizedEAN^J GetNormalizedISBN^J GetNormalizedOCLCNumber^J GetNormalizedUPC^J);^Juse C4::Members;^Juse C4::Output qw( pagination_bar output_with_http_headers );^Juse C4::Tags qw( get_tags );^Juse C4::XSLT qw( XSLTParse4Display );^J^Juse Koha::Biblios;^Juse Koha::Biblioitems;^Juse Koha::CirculationRules;^Juse Koha::CsvProfiles;^Juse Koha::DateUtils qw/dt_from_string/;^Juse Koha::Items;^Juse Koha::ItemTypes;^Juse Koha::Patrons;^Juse Koha::Virtualshelfshares;^Juse Koha::Virtualshelves;^Juse Koha::RecordProcessor;^J^Juse constant ANYONE => 2;^Juse constant STAFF => 3;^Juse constant PERMITTED => 4;^J^Jmy $query = CGI->new;^J^Jmy $template_name = $query->param(\'rss\') ? "opac-shelves-rss.tt" : "opac-shelves.tt";^J^J# if virtualshelves is disabled, leave immediately^Jif ( !C4::Context->preference(\'virtualshelves\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy $op = $query->param(\'op\') || \'list\';^Jmy ( $template, $loggedinuser, $cookie );^J^Jif ( $op eq \'view\' || $op eq \'list\' ) {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => $template_name,^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J );^J} else {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => $template_name,^J query => $query,^J type => "opac",^J authnotrequired => 0,^J }^J );^J}^J^Jif ( C4::Context->preference("BakerTaylorEnabled") ) {^J $template->param(^J BakerTaylorImageURL => &image_url(),^J BakerTaylorLinkURL => &link_url(),^J );^J}^J^Jmy $referer = $query->param(\'referer\') || $op;^Jmy $page = int( $query->param(\'page\') || 1 );^Jmy $public = 0;^J$public = 1 if $query->param(\'public\') && $query->param(\'public\') == 1;^J^Jmy ( $shelf, $shelfnumber, @messages );^J^J# PART 1: Perform a few actions^Jif ( $op eq \'add_form\' ) {^J^J # Only pass default^J $shelf = { allow_change_from_owner => 1 };^J} elsif ( $op eq \'edit_form\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J^J if ($shelf) {^J $public = $shelf->public;^J my $patron = Koha::Patrons->find( $shelf->owner );^J $template->param( owner => $patron, );^J unless ( $shelf->can_be_managed($loggedinuser) ) {^J push @messages, { type => \'error\', code => \'unauthorized_on_update\' };^J $op = \'list\';^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'cud-add\' ) {^J if ($loggedinuser) {^J my $allow_changes_from = $query->param(\'allow_changes_from\');^J eval {^J $shelf = Koha::Virtualshelf->new(^J {^J shelfname => scalar $query->param(\'shelfname\'),^J sortfield => scalar $query->param(\'sortfield\'),^J public => $public,^J allow_change_from_owner => $allow_changes_from > 0,^J allow_change_from_others => $allow_changes_from == ANYONE,^J allow_change_from_staff => $allow_changes_from == STAFF,^J allow_change_from_permitted_staff => $allow_changes_from == PERMITTED,^J owner => scalar $loggedinuser,^J }^J );^J $shelf->store;^J $shelfnumber = $shelf->shelfnumber;^J };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ( not $shelf ) {^J push @messages, { type => \'error\', code => \'error_on_insert\' };^J } else {^J push @messages, { type => \'message\', code => \'success_on_insert\' };^J $op = \'view\';^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_insert\' };^J $op = \'list\';^J }^J} elsif ( $op eq \'cud-edit\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J $op = $referer;^J my $sortfield = $query->param(\'sortfield\');^J $sortfield = \'title\' unless grep { $_ eq $sortfield } qw( title author copyrightdate itemcallnumber dateadded );^J if ( $sortfield eq \'copyrightdate\' and C4::Context->preference(\'marcflavour\') eq \'UNIMARC\' ) {^J $sortfield = \'publicationyear\';^J }^J if ( $shelf->can_be_managed($loggedinuser) ) {^J $shelf->shelfname( scalar $query->param(\'shelfname\') );^J $shelf->sortfield($sortfield);^J my $allow_changes_from = $query->param(\'allow_changes_from\');^J $shelf->allow_change_from_owner( $allow_changes_from > 0 );^J $shelf->allow_change_from_others( $allow_changes_from == ANYONE );^J $shelf->allow_change_from_staff( $allow_changes_from == STAFF );^J $shelf->allow_change_from_permitted_staff( $allow_changes_from == PERMITTED );^J $shelf->public($public);^J eval { $shelf->store };^J^J if ($@) {^J push @messages, { type => \'error\', code => \'error_on_update\' };^J $op = \'edit_form\';^J } else {^J push @messages, { type => \'message\', code => \'success_on_update\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_update\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'cud-delete\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( $shelf->can_be_deleted($loggedinuser) ) {^J eval { $shelf->delete; };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } else {^J push @messages, { type => \'message\', code => \'success_on_delete\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_delete\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J} elsif ( $op eq \'cud-remove_share\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J my $removed = eval { $shelf->remove_share($loggedinuser); };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($removed) {^J push @messages, { type => \'message\', code => \'success_on_remove_share\' };^J } else {^J push @messages, { type => \'error\', code => \'error_on_remove_share\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J^J} elsif ( $op eq \'cud-add_biblio\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( my $barcode = $query->param(\'barcode\') ) {^J my $item = Koha::Items->find( { barcode => $barcode } );^J if ($item) {^J if ( $shelf->can_biblios_be_added($loggedinuser) ) {^J my $added = eval { $shelf->add_biblio( $item->biblionumber, $loggedinuser ); };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($added) {^J push @messages, { type => \'message\', code => \'success_on_add_biblio\' };^J } else {^J push @messages, { type => \'message\', code => \'error_on_add_biblio\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_add_biblio\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'item_does_not_exist\' };^J }^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J} elsif ( $op eq \'cud-remove_biblios\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J my @biblionumber = $query->multi_param(\'biblionumber\');^J if ($shelf) {^J if ( $shelf->can_biblios_be_removed($loggedinuser) ) {^J my $number_of_biblios_removed = eval {^J $shelf->remove_biblios(^J {^J biblionumbers => \@biblionumber,^J borrowernumber => $loggedinuser,^J }^J );^J };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($number_of_biblios_removed) {^J push @messages, { type => \'message\', code => \'success_on_remove_biblios\' };^J } else {^J push @messages, { type => \'error\', code => \'no_biblio_removed\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_remove_biblios\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = \'view\';^J} elsif ( $op eq \'cud-transfer\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber) if $shelfnumber;^J my $new_owner = $query->param(\'new_owner\'); # borrowernumber or undef^J my $error_code =^J $shelf^J ? $shelf->cannot_be_transferred( { by => $loggedinuser, to => $new_owner, interface => \'opac\' } )^J : \'does_not_exist\';^J^J if ( !$new_owner && $error_code eq \'missing_to_parameter\' ) { # show transfer form^J my $patrons = [];^J my $shares = $shelf->get_shares->search( { borrowernumber => { \'!=\' => undef } } );^J while ( my $share = $shares->next ) {^J my $email = $share->sharee->notice_email_address;^J push @$patrons, { email => $email, borrowernumber => $share->get_column(\'borrowernumber\') } if $email;^J }^J if (@$patrons) {^J $template->param( shared_users => $patrons );^J $op = \'cud-transfer\';^J } else {^J push @messages, { type => \'error\', code => \'no_email_found\' };^J }^J } elsif ($error_code) {^J push @messages, { type => \'error\', code => $error_code };^J $op = \'list\';^J } else { # transfer; remove new_owner from virtualshelfshares, add loggedinuser^J $shelf->_result->result_source->schema->txn_do(^J sub {^J $shelf->get_shares->search( { borrowernumber => $new_owner } )->delete;^J Koha::Virtualshelfshare->new(^J { shelfnumber => $shelfnumber, borrowernumber => $loggedinuser, sharedate => dt_from_string } )^J ->store;^J $shelf->owner($new_owner)->store;^J }^J );^J $op = \'list\';^J }^J}^J^J# PART 2: After a possible action, view one list or show a number of lists^Jif ( $op eq \'view\' ) {^J $shelfnumber ||= $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( $shelf->can_be_viewed($loggedinuser) ) {^J $public = $shelf->public;^J^J # Sortfield param may still include sort order with :asc or :desc, but direction overrides it^J my ( $sortfield, $direction );^J if ( $query->param(\'sortfield\') ) {^J ( $sortfield, $direction ) = split /:/, $query->param(\'sortfield\');^J } else {^J $sortfield = $shelf->sortfield;^J $direction = \'asc\';^J }^J $direction = $query->param(\'direction\') if $query->param(\'direction\');^J $direction = \'asc\' if !$direction or ( $direction ne \'asc\' and $direction ne \'desc\' );^J $sortfield = \'title\'^J if !$sortfield^J or !grep { $_ eq $sortfield } qw( title author copyrightdate itemcallnumber dateadded );^J if ( $sortfield eq \'copyrightdate\' and C4::Context->preference(\'marcflavour\') eq \'UNIMARC\' ) {^J $sortfield = \'publicationyear\';^J }^J^J my $rows;^J if ( $query->param(\'print\') or $query->param(\'rss\') ) {^J $page = "";^J } else {^J $rows = C4::Context->preference(\'OPACnumSearchResults\') || 20;^J }^J my $order_by = $sortfield eq \'itemcallnumber\' ? \'items.cn_sort\' : $sortfield;^J my $contents = $shelf->get_contents->search(^J {},^J {^J distinct => \'biblionumber\',^J join => [ { \'biblionumber\' => { \'biblioitems\' => \'items\' } } ],^J page => $page,^J rows => $rows,^J order_by => { "-$direction" => $order_by },^J }^J );^J^J # get biblionumbers stored in the cart^J my @cart_list;^J if ( my $cart_list = $query->cookie(\'bib_list\') ) {^J @cart_list = split( /\//, $cart_list );^J }^J^J my $patron = Koha::Patrons->find($loggedinuser);^J^J my $categorycode; # needed for may_article_request^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $categorycode = $patron ? $patron->categorycode : undef;^J }^J^J my $record_processor = Koha::RecordProcessor->new( { filters => \'ViewPolicy\' } );^J^J my $art_req_itypes;^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $art_req_itypes = Koha::CirculationRules->guess_article_requestable_itemtypes(^J { $patron ? ( categorycode => $patron->categorycode ) : () } );^J }^J^J my @items_info;^J while ( my $content = $contents->next ) {^J my $biblionumber = $content->biblionumber;^J my $this_item = GetBiblioData($biblionumber);^J my $biblio = Koha::Biblios->find($biblionumber);^J my $record = $biblio->metadata->record;^J my $framework = GetFrameworkCode($biblionumber);^J $record_processor->options(^J {^J interface => \'opac\',^J frameworkcode => $framework^J }^J );^J $record_processor->process($record);^J^J my $marcflavour = C4::Context->preference("marcflavour");^J my $itemtype = Koha::Biblioitems->search( { biblionumber => $content->biblionumber } )->next->itemtype;^J $itemtype = Koha::ItemTypes->find($itemtype);^J if ($itemtype) {^J $this_item->{imageurl} = C4::Koha::getitemtypeimagelocation( \'opac\', $itemtype->imageurl );^J $this_item->{description} = $itemtype->description; #FIXME Should not it be translated_description?^J $this_item->{notforloan} = $itemtype->notforloan;^J }^J $this_item->{\'coins\'} = $biblio->get_coins;^J $this_item->{\'normalized_upc\'} = GetNormalizedUPC( $record, $marcflavour );^J $this_item->{\'normalized_ean\'} = GetNormalizedEAN( $record, $marcflavour );^J $this_item->{\'normalized_oclc\'} = GetNormalizedOCLCNumber( $record, $marcflavour );^J $this_item->{\'normalized_isbn\'} = GetNormalizedISBN( undef, $record, $marcflavour );^J^J # BZ17530: \'Intelligent\' guess if result can be article requested^J $this_item->{artreqpossible} =^J ( $art_req_itypes->{ $this_item->{itemtype} // q{} } || $art_req_itypes->{\'*\'} ) ? 1 : q{};^J^J unless ( defined $this_item->{size} ) {^J^J #TT has problems with size^J $this_item->{size} = q||;^J }^J^J if ( C4::Context->preference(\'TagsEnabled\') and C4::Context->preference(\'TagsShowOnList\') ) {^J $this_item->{TagLoop} = get_tags(^J {^J biblionumber => $biblionumber, approved => 1, \'sort\' => \'-weight\',^J limit => C4::Context->preference(\'TagsShowOnList\'),^J }^J );^J }^J^J my $items = $biblio->items->filter_by_visible_in_opac( { patron => $patron } );^J my $allow_onshelf_holds;^J while ( my $item = $items->next ) {^J^J # This method must take a Koha::Items rs^J $allow_onshelf_holds ||=^J Koha::CirculationRules->get_onshelfholds_policy( { item => $item, patron => $patron } );^J^J }^J^J $this_item->{allow_onshelf_holds} = $allow_onshelf_holds;^J $this_item->{\'ITEM_RESULTS\'} = $items;^J^J my $variables = { anonymous_session => ($loggedinuser) ? 0 : 1 };^J $this_item->{XSLTBloc} = XSLTParse4Display(^J {^J biblionumber => $biblionumber,^J record => $record,^J xsl_syspref => "OPACXSLTListsDisplay",^J fix_amps => 1,^J xslt_variables => $variables,^J items_rs => $items->reset,^J }^J );^J^J if ( grep { $_ eq $biblionumber } @cart_list ) {^J $this_item->{incart} = 1;^J }^J^J $this_item->{biblio_object} = $biblio;^J $this_item->{biblionumber} = $biblionumber;^J $this_item->{shelves} = Koha::Virtualshelves->get_shelves_containing_record(^J {^J biblionumber => $biblionumber,^J borrowernumber => $loggedinuser,^J }^J );^J push @items_info, $this_item;^J }^J^J $template->param(^J can_manage_shelf => $shelf->can_be_managed($loggedinuser),^J can_delete_shelf => $shelf->can_be_deleted($loggedinuser),^J can_remove_biblios => $shelf->can_biblios_be_removed($loggedinuser),^J can_add_biblios => $shelf->can_biblios_be_added($loggedinuser),^J itemsloop => \@items_info,^J sortfield => $sortfield,^J direction => $direction,^J csv_profiles => Koha::CsvProfiles->search(^J {^J type => \'marc\',^J used_for => \'export_records\',^J staff_only => 0^J }^J ),^J );^J if ($page) {^J my $pager = $contents->pager;^J $template->param(^J pagination_bar => pagination_bar(^J q||, $pager->last_page - $pager->first_page + 1,^J $page, "page",^J {^J op => \'view\', shelfnumber => $shelf->shelfnumber, sortfield => $sortfield,^J direction => $direction,^J }^J ),^J );^J }^J my $some_private_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $loggedinuser,^J add_allowed => 1,^J public => 0,^J }^J );^J my $some_public_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $loggedinuser,^J add_allowed => 1,^J public => 1,^J }^J );^J^J $template->param(^J add_to_some_private_shelves => $some_private_shelves,^J add_to_some_public_shelves => $some_public_shelves,^J );^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_view\' };^J undef $shelf;^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'list\' ) {^J my $direction = $query->param(\'direction\') || \'asc\';^J my $sortfield = $query->param(\'sortfield\') || \'shelfname\';^J my $sort_by = { sortfield => $sortfield, direction => $direction };^J^J my $shelves;^J my ($rows) = (20);^J if ( !$public ) {^J $shelves = Koha::Virtualshelves->get_private_shelves(^J { page => $page, rows => $rows, borrowernumber => $loggedinuser, sort_by => $sort_by, } );^J } else {^J $shelves = Koha::Virtualshelves->get_public_shelves( { page => $page, rows => $rows, sort_by => $sort_by, } );^J }^J^J my $pager = $shelves->pager;^J $template->param(^J shelves => $shelves,^J pagination_bar => pagination_bar(^J q||, $pager->last_page - $pager->first_page + 1,^J $page, "page",^J {^J op => \'list\', public => $public, sortfield => $sortfield,^J direction => $direction,^J }^J ),^J );^J}^J^Jmy ( $staffuser, $permitteduser );^J$staffuser = Koha::Patrons->find($loggedinuser)->can_patron_change_staff_only_lists if $loggedinuser;^J$permitteduser = Koha::Patrons->find($loggedinuser)->can_patron_change_permitted_staff_lists if $loggedinuser;^J^J$template->param(^J op => $op,^J referer => $referer,^J shelf => $shelf,^J messages => \@messages,^J public => $public,^J print => scalar $query->param(\'print\') || 0,^J listsview => 1,^J staffuser => $staffuser,^J permitteduser => $permitteduser^J);^J^Jmy $content_type = $query->param(\'rss\') ? \'rss\' : \'html\';^Joutput_with_http_headers $query, $cookie, $template->output, $content_type;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-shelves.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb72076da0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb72076da0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb71df2800)', '/kohadevbox/koha/opac/opac-shelves.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb720082e0)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb7200d730)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7204cc50)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') 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(0x55bb7205b4a8)', 'Try::Tiny::Catch=REF(0x55bb72017480)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720c8408)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb71fe3f78)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb71df2800)') 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(0x55bb707d5c80)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb71df2800)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb72073a98)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805411: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb7207ae70)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dcourse_2ddetails_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-course-details.pl^J#!/usr/bin/perl^J^J#^J# Copyright 2012 Bywater Solutions^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^J^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^J^Juse C4::CourseReserves qw( GetCourse GetCourseReserve GetCourseReserves );^J^Jmy $cgi = CGI->new;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-course-details.tt",^J query => $cgi,^J type => "opac",^J authnotrequired => 1,^J }^J);^J^Jmy $course_id = $cgi->param(\'course_id\');^J^Jdie("No course_id given") unless ($course_id);^J^Jmy $course = GetCourse($course_id);^Jmy $course_reserves = GetCourseReserves( course_id => $course_id, include_items => 1, include_count => 1 );^J^J$template->param(^J course => $course,^J course_reserves => $course_reserves,^J);^J^Joutput_html_with_http_headers $cgi, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-course-details.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb7202da20)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb7202da20)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a780)', 'HASH(0x55bb720c88a0)', '/kohadevbox/koha/opac/opac-course-details.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a780)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb7208acb8)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb71feda68)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb72039518)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') 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(0x55bb7200fde8)', 'Try::Tiny::Catch=REF(0x55bb71fd3708)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb72083258)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb7208ad90)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708d8c70)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7201e540)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb7208a5e0)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb72032788)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb7208a208)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb7208ce40)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522c98)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70816690)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708bdde0)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720c88a0)') 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(0x55bb707d5cf0)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb720c88a0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb72002320)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3805412: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55bb72076fb0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmemberentry_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-memberentry.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse Digest::MD5 qw( md5_base64 md5_hex );^Juse JSON qw( to_json );^Juse List::MoreUtils qw( any each_array uniq );^Juse String::Random qw( random_string );^Juse Try::Tiny;^J^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Context;^Juse C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages );^Juse C4::Form::MessagingPreferences;^Juse C4::Members::Messaging qw( SetMessagingPreferencesFromDefaults );^Juse Koha::AuthUtils;^Juse Koha::Patrons;^Juse Koha::Patron::Consent;^Juse Koha::Patron::Modification;^Juse Koha::Patron::Modifications;^Juse C4::Scrubber;^Juse Koha::DateUtils qw( dt_from_string );^Juse Koha::Email;^Juse Koha::Libraries;^Juse Koha::Patron::Attribute::Types;^Juse Koha::Patron::Attributes;^Juse Koha::Patron::Images;^Juse Koha::Patron::Categories;^Juse Koha::Policy::Patrons::Cardnumber;^Juse Koha::AuthorisedValues;^Jmy $cgi = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-memberentry.tt",^J type => "opac",^J query => $cgi,^J authnotrequired => 1,^J }^J);^J^Jmy $op = $cgi->param(\'op\') || q{};^Jif ( $borrowernumber && ( $op eq \'cud-create\' || $op eq \'new\' ) ) {^J print $cgi->redirect("/cgi-bin/koha/opac-main.pl");^J exit;^J}^J^Jif ( $op eq q{} ) {^J if ($borrowernumber) {^J $op = \'edit\';^J } else {^J $op = \'new\';^J }^J}^J^Jmy $PatronSelfRegistrationDefaultCategory = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^Jmy $defaultCategory = Koha::Patron::Categories->find($PatronSelfRegistrationDefaultCategory);^J^J# Having a valid PatronSelfRegistrationDefaultCategory is mandatory^Jif ( !C4::Context->preference(\'PatronSelfRegistration\') && !$borrowernumber^J || ( ( $op eq \'new\' || $op eq \'cud-create\' ) && !$defaultCategory ) )^J{^J print $cgi->redirect("/cgi-bin/koha/opac-main.pl");^J exit;^J}^J^Jmy $mandatory = GetMandatoryFields($op);^J^Jmy $params = {};^Jif ( $op eq \'cud-create\' || $op eq \'new\' ) {^J my @PatronSelfRegistrationLibraryList = split \'\|\', C4::Context->preference(\'PatronSelfRegistrationLibraryList\');^J $params = { branchcode => { -in => \@PatronSelfRegistrationLibraryList } }^J if @PatronSelfRegistrationLibraryList;^J}^Jmy $libraries = Koha::Libraries->search( $params, { order_by => [\'branchname\'] } );^J^Jmy ( $min, $max ) = Koha::Policy::Patrons::Cardnumber->get_valid_length();^Jif ( defined $min ) {^J $template->param(^J minlength_cardnumber => $min,^J maxlength_cardnumber => $max^J );^J}^J^Jmy $translated_languages = C4::Languages::getTranslatedLanguages( \'opac\', C4::Context->preference(\'opacthemes\') );^J^J$template->param(^J op => $op,^J hidden => GetHiddenFields( $mandatory, $op ),^J mandatory => $mandatory,^J libraries => $libraries,^J OPACPatronDetails => C4::Context->preference(\'OPACPatronDetails\'),^J defaultCategory => $defaultCategory,^J languages => $translated_languages,^J);^J^Jmy $attributes = ParsePatronAttributes( $borrowernumber, $cgi );^Jmy $conflicting_attribute = 0;^J^Jforeach my $attr (@$attributes) {^J my $attribute = Koha::Patron::Attribute->new($attr);^J if ( !$attribute->unique_ok ) {^J my $attr_type = Koha::Patron::Attribute::Types->find( $attr->{code} );^J $template->param(^J extended_unique_id_failed_code => $attr->{code},^J extended_unique_id_failed_value => $attr->{attribute},^J extended_unique_id_failed_description => $attr_type->description,^J );^J $conflicting_attribute = 1;^J }^J}^J^Jif ( $op eq \'cud-create\' ) {^J^J my %borrower = ParseCgiForBorrower($cgi);^J^J %borrower = DelEmptyFields(%borrower);^J $borrower{categorycode} ||= $PatronSelfRegistrationDefaultCategory;^J^J my @empty_mandatory_fields =^J ( CheckMandatoryFields( \%borrower, $op ), CheckMandatoryAttributes( \%borrower, $attributes ) );^J my $invalidformfields = CheckForInvalidFields( { borrower => \%borrower, context => \'create\' } );^J my $match_result = Koha::Patrons->check_for_existing_matches( \%borrower );^J^J delete $borrower{\'password2\'};^J my $is_cardnumber_valid;^J if ( !grep { $_ eq \'cardnumber\' } @empty_mandatory_fields ) {^J^J # No point in checking the cardnumber if it\'s missing and mandatory, it\'ll just generate a^J # spurious length warning.^J my $patron = Koha::Patrons->find( $borrower{borrowernumber} );^J $is_cardnumber_valid = Koha::Policy::Patrons::Cardnumber->is_valid( $borrower{cardnumber}, $patron );^J unless ($is_cardnumber_valid) {^J for my $m ( @{ $is_cardnumber_valid->messages } ) {^J my $message = $m->message;^J if ( $message eq \'already_exists\' ) {^J $template->param( cardnumber_already_exists => 1 );^J } elsif ( $message eq \'invalid_length\' ) {^J $template->param( cardnumber_wrong_length => 1 );^J }^J }^J }^J }^J^J if ( @empty_mandatory_fields^J || @$invalidformfields^J || !$is_cardnumber_valid^J || $conflicting_attribute^J || $match_result->{duplicate_found} )^J {^J^J $template->param(^J empty_mandatory_fields => \@empty_mandatory_fields,^J invalid_form_fields => $invalidformfields,^J borrower => \%borrower,^J duplicate_found => $match_result->{duplicate_found}^J );^J $template->param( patron_attribute_classes => GeneratePatronAttributesForm( undef, $attributes ) );^J } elsif ( md5_base64( uc( $cgi->param(\'captcha\') ) ) ne $cgi->param(\'captcha_digest\') ) {^J $template->param(^J failed_captcha => 1,^J borrower => \%borrower^J );^J $template->param( patron_attribute_classes => GeneratePatronAttributesForm( undef, $attributes ) );^J } elsif ( !$libraries->find( $borrower{branchcode} ) ) {^J die "Branchcode not allowed"; # They hack the form^J } else {^J if ( C4::Context->preference(\'PatronSelfRegistrationVerifyByEmail\') ) {^J ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-registration-email-sent.tt",^J type => "opac",^J query => $cgi,^J authnotrequired => 1,^J }^J );^J $template->param( \'email\' => $borrower{\'email\'} );^J^J my $verification_token = md5_hex( time() . {} . rand() . {} . $$ );^J while ( Koha::Patron::Modifications->search( { verification_token => $verification_token } )->count() ) {^J $verification_token = md5_hex( time() . {} . rand() . {} . $$ );^J }^J^J $borrower{password} =^J Koha::AuthUtils::generate_password( Koha::Patron::Categories->find( $borrower{categorycode} ) )^J unless $borrower{password};^J $borrower{verification_token} = $verification_token;^J^J $borrower{extended_attributes} = to_json($attributes);^J $borrower{borrowernumber} = 0; # prevent warn Missing value for PK column^J Koha::Patron::Modification->new( \%borrower )->store();^J^J #Send verification email^J my $letter = C4::Letters::GetPreparedLetter(^J module => \'members\',^J letter_code => \'OPAC_REG_VERIFY\',^J lang => \'default\', # Patron does not have a preferred language defined yet^J tables => {^J borrower_modifications => $verification_token,^J },^J );^J^J my $message_id = C4::Letters::EnqueueLetter(^J {^J letter => $letter,^J message_transport_type => \'email\',^J to_address => $borrower{\'email\'},^J from_address => C4::Context->preference(\'KohaAdminEmailAddress\'),^J }^J );^J C4::Letters::SendQueuedMessages( { message_id => $message_id } ) if $message_id;^J } else {^J $borrower{password} ||=^J Koha::AuthUtils::generate_password( Koha::Patron::Categories->find( $borrower{categorycode} ) );^J my $consent_dt = delete $borrower{gdpr_proc_consent};^J my $patron;^J try {^J $patron = Koha::Patron->new( \%borrower )->store;^J Koha::Patron::Consent->new(^J { borrowernumber => $patron->borrowernumber, type => \'GDPR_PROCESSING\', given_on => $consent_dt } )^J ->store^J if $patron && $consent_dt;^J C4::Members::Messaging::SetMessagingPreferencesFromDefaults(^J { borrowernumber => $patron->borrowernumber, categorycode => $patron->categorycode } );^J } catch {^J my $type = ref($_);^J my $info = "$_";^J $template->param( error_type => $type, error_info => $info );^J $template->param( borrower => \%borrower );^J };^J^J ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-registration-confirmation.tt",^J type => "opac",^J query => $cgi,^J authnotrequired => 1,^J }^J ) if $patron;^J^J if ($patron) {^J $patron->extended_attributes->filter_by_branch_limitations->delete;^J $patron->extended_attributes($attributes);^J^J $template->param( password_cleartext => $patron->plain_text_password );^J $template->param( borrower => $patron->unblessed );^J^J $template->param( confirmed => 1 );^J^J # If \'AutoEmailNewUser\' syspref is on, email user their account details from the \'notice\' that matches the user\'s branchcode.^J if ( C4::Context->preference("AutoEmailNewUser") ) {^J^J #look for defined primary email address, if blank - attempt to use borr.email and borr.emailpro instead^J my $emailaddr = $patron->notice_email_address;^J^J # if we manage to find a valid email address, send notice^J if ($emailaddr) {^J eval {^J my $letter = GetPreparedLetter(^J module => \'members\',^J letter_code => \'WELCOME\',^J branchcode => $patron->branchcode,,^J lang => $patron->lang || \'default\',^J tables => {^J \'branches\' => $patron->branchcode,^J \'borrowers\' => $patron->borrowernumber,^J },^J want_librarian => 1,^J ) or return;^J^J my $message_id = EnqueueLetter(^J {^J letter => $letter,^J borrowernumber => $patron->id,^J to_address => $emailaddr,^J message_transport_type => \'email\'^J }^J );^J SendQueuedMessages( { message_id => $message_id } ) if $message_id;^J };^J }^J }^J^J # Notify library of new patron registration^J my $notify_library = C4::Context->preference(\'EmailPatronRegistrations\');^J if ($notify_library) {^J $patron->notify_library_of_registration($notify_library);^J }^J^J }^J }^J }^J} elsif ( $op eq \'cud-update\' ) {^J^J my $borrower = Koha::Patrons->find($borrowernumber)->unblessed;^J^J my %borrower = ParseCgiForBorrower($cgi);^J $borrower{borrowernumber} = $borrowernumber;^J $borrower{categorycode} = $borrower->{categorycode};^J^J my @empty_mandatory_fields = grep { $_ ne \'password\' } # password is not required when editing personal details^J ( CheckMandatoryFields( \%borrower, $op ), CheckMandatoryAttributes( \%borrower, $attributes ) );^J my $invalidformfields = CheckForInvalidFields( { borrower => \%borrower, context => \'update\' } );^J^J # Send back the data to the template^J %borrower = ( %$borrower, %borrower );^J^J if ( @empty_mandatory_fields || @$invalidformfields ) {^J $template->param(^J empty_mandatory_fields => \@empty_mandatory_fields,^J invalid_form_fields => $invalidformfields,^J borrower => \%borrower,^J );^J $template->param( patron_attribute_classes => GeneratePatronAttributesForm( $borrowernumber, $attributes ) );^J^J $template->param( op => \'edit\' );^J } else {^J^J # If preferred name is not included but firstname is then set preferred_name to firstname^J $borrower{preferred_name} = $borrower{firstname}^J if defined $borrower{firstname} && !defined $borrower{preferred_name};^J my %borrower_changes = DelUnchangedFields( $borrowernumber, %borrower );^J $borrower_changes{\'changed_fields\'} = join \',\', keys %borrower_changes;^J my $extended_attributes_changes = FilterUnchangedAttributes( $borrowernumber, $attributes );^J^J if ( $borrower_changes{\'changed_fields\'} || scalar @{$extended_attributes_changes} > 0 ) {^J ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-memberentry-update-submitted.tt",^J type => "opac",^J query => $cgi,^J authnotrequired => 1,^J }^J );^J^J $borrower_changes{borrowernumber} = $borrowernumber;^J $borrower_changes{extended_attributes} = to_json($extended_attributes_changes);^J^J Koha::Patron::Modifications->search( { borrowernumber => $borrowernumber } )->delete;^J^J $borrower_changes{verification_token} = q{}; # prevent warn Missing value for PK column^J my $m = Koha::Patron::Modification->new( \%borrower_changes )->store();^J^J #Automatically approve patron profile changes if set in syspref^J^J if ( C4::Context->preference(\'AutoApprovePatronProfileSettings\') ) {^J^J # Need to get the object from database, otherwise it is not complete enough to allow deletion^J # when approval has been performed.^J my $tmp_m = Koha::Patron::Modifications->find( { borrowernumber => $borrowernumber } );^J $tmp_m->approve() if $tmp_m;^J }^J^J my $patron = Koha::Patrons->find($borrowernumber);^J $template->param( borrower => $patron->unblessed );^J } else {^J my $patron = Koha::Patrons->find($borrowernumber);^J $template->param(^J op => \'edit\',^J nochanges => 1,^J borrower => $patron->unblessed,^J patron_attribute_classes => GeneratePatronAttributesForm( $borrowernumber, $attributes ),^J );^J }^J }^J} elsif ( $op eq \'edit\' ) { #Display logged in borrower\'s data^J my $patron = Koha::Patrons->find($borrowernumber);^J my $borrower = $patron->unblessed;^J^J $template->param(^J borrower => $borrower,^J hidden => GetHiddenFields( $mandatory, \'edit\' ),^J );^J^J if ( C4::Context->preference(\'OPACpatronimages\') ) {^J $template->param( display_patron_image => 1 ) if $patron->image;^J }^J^J $template->param( patron_attribute_classes => GeneratePatronAttributesForm($borrowernumber) );^J^J my $patron_pending_modification =^J Koha::Patron::Modifications->search( { borrowernumber => $patron->borrowernumber } )->next;^J if ($patron_pending_modification) {^J $template->param( patron_pending_modification => $patron_pending_modification );^J }^J} else {^J^J # Render self-registration page^J $template->param( patron_attribute_classes => GeneratePatronAttributesForm() );^J}^J^Jmy $captcha = random_string("CCCCC");^Jmy $patron_param = Koha::Patrons->find($borrowernumber);^J$template->param( has_guarantor_flag => $patron_param->guarantor_relationships->guarantors->_resultset->count )^J if $patron_param;^J^J$template->param(^J captcha => $captcha,^J captcha_digest => md5_base64($captcha),^J patron => $patron_param^J);^J^Joutput_html_with_http_headers $cgi, $cookie, $template->output, undef, { force_no_caching => 1 };^J^Jsub GetHiddenFields {^J my ( $mandatory, $op ) = @_;^J my %hidden_fields;^J^J my $BorrowerUnwantedField =^J $op eq \'edit\' || $op eq \'cud-update\'^J ? C4::Context->preference("PatronSelfModificationBorrowerUnwantedField")^J : C4::Context->preference("PatronSelfRegistrationBorrowerUnwantedField");^J^J my @fields = split( /\|/, $BorrowerUnwantedField || q|| );^J foreach (@fields) {^J next unless m/\w/o;^J^J #Don\'t hide mandatory fields^J next if $mandatory->{$_};^J $hidden_fields{$_} = 1;^J }^J^J return \%hidden_fields;^J}^J^Jsub GetMandatoryFields {^J my ($op) = @_;^J^J my %mandatory_fields;^J^J my $BorrowerMandatoryField =^J $op eq \'edit\' || $op eq \'cud-update\'^J ? C4::Context->preference("PatronSelfModificationMandatoryField")^J : C4::Context->preference("PatronSelfRegistrationBorrowerMandatoryField");^J^J my @fields = split( /\|/, $BorrowerMandatoryField );^J push @fields, \'gdpr_proc_consent\' if C4::Context->preference(\'PrivacyPolicyConsent\') && $op eq \'cud-create\';^J^J foreach (@fields) {^J $mandatory_fields{$_} = 1;^J }^J^J if ( $op eq \'cud-create\' || $op eq \'new\' ) {^J $mandatory_fields{\'email\'} = 1^J if C4::Context->preference(\'PatronSelfRegistrationVerifyByEmail\');^J }^J^J return \%mandatory_fields;^J}^J^Jsub CheckMandatoryFields {^J my ( $borrower, $op ) = @_;^J^J my @empty_mandatory_fields;^J^J my $mandatory_fields = GetMandatoryFields($op);^J delete $mandatory_fields->{\'cardnumber\'};^J^J foreach my $key ( keys %$mandatory_fields ) {^J push( @empty_mandatory_fields, $key )^J unless ( defined( $borrower->{$key} ) && $borrower->{$key} );^J }^J^J return @empty_mandatory_fields;^J}^J^Jsub CheckMandatoryAttributes {^J my ( $borrower, $attributes ) = @_;^J^J my @empty_mandatory_fields;^J^J for my $attribute (@$attributes) {^J my $attr = Koha::Patron::Attribute::Types->find( $attribute->{code} );^J push @empty_mandatory_fields, $attribute->{code}^J if $attr && $attr->opac_mandatory && $attribute->{attribute} =~ m|^\s*$|;^J }^J^J return @empty_mandatory_fields;^J}^J^Jsub CheckForInvalidFields {^J my $params = shift;^J my $borrower = $params->{borrower};^J my $context = $params->{context};^J my @invalidFields;^J if ( $borrower->{\'email\'} ) {^J unless ( Koha::Email->is_valid( $borrower->{email} ) ) {^J push( @invalidFields, "email" );^J } elsif ( C4::Context->preference("PatronSelfRegistrationEmailMustBeUnique") && $context eq \'create\' ) {^J my $patrons_with_same_email = Koha::Patrons->search( # FIXME Should be search_limited?^J {^J email => $borrower->{email},^J (^J exists $borrower->{borrowernumber}^J ? ( borrowernumber => { \'!=\' => $borrower->{borrowernumber} } )^J : ()^J )^J }^J )->count;^J if ($patrons_with_same_email) {^J push @invalidFields, "duplicate_email";^J }^J } elsif ( C4::Context->preference("PatronSelfRegistrationConfirmEmail")^J && $borrower->{\'email\'} ne $borrower->{\'repeat_email\'}^J && !defined $borrower->{borrowernumber} )^J {^J push @invalidFields, "email_match";^J }^J^J # email passed all tests, so prevent attempting to store repeat_email^J delete $borrower->{\'repeat_email\'};^J }^J if ( $borrower->{\'emailpro\'} ) {^J push( @invalidFields, "emailpro" ) unless Koha::Email->is_valid( $borrower->{\'emailpro\'} );^J }^J if ( $borrower->{\'B_email\'} ) {^J push( @invalidFields, "B_email" ) unless Koha::Email->is_valid( $borrower->{\'B_email\'} );^J }^J if ( defined $borrower->{\'password\'}^J and $borrower->{\'password\'} ne $borrower->{\'password2\'} )^J {^J push( @invalidFields, "password_match" );^J }^J if ( $borrower->{\'password\'} ) {^J my ( $is_valid, $error ) = Koha::AuthUtils::is_password_valid(^J $borrower->{password},^J Koha::Patron::Categories->find(^J $borrower->{categorycode} || C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\')^J )^J );^J unless ($is_valid) {^J push @invalidFields, \'password_too_short\' if $error eq \'too_short\';^J push @invalidFields, \'password_too_weak\' if $error eq \'too_weak\';^J push @invalidFields, \'password_has_whitespaces\' if $error eq \'has_whitespaces\';^J }^J }^J^J if ( $borrower->{\'dateofbirth\'} ) {^J my $patron = Koha::Patron->new( { dateofbirth => $borrower->{\'dateofbirth\'} } );^J my $age = $patron->get_age;^J my $borrowercategory = Koha::Patron::Categories->find( $borrower->{\'categorycode\'} );^J my ( $low, $high ) = ( $borrowercategory->dateofbirthrequired, $borrowercategory->upperagelimit );^J my $upper_registration_age_restriction = C4::Context->preference("PatronSelfRegistrationAgeRestriction");^J if ( ( $high && ( $age > $high ) ) or ( $age < $low ) ) {^J push @invalidFields, \'ERROR_age_limitations\';^J }^J if ( $upper_registration_age_restriction && $age > $upper_registration_age_restriction ) {^J push @invalidFields, \'ERROR_age_limitations_self_registration\';^J }^J }^J^J return \@invalidFields;^J}^J^Jsub ParseCgiForBorrower {^J my ($cgi) = @_;^J^J my $scrubber = C4::Scrubber->new();^J my %borrower;^J^J foreach my $field ( $cgi->param ) {^J if ( $field =~ \'^borrower_\' ) {^J my ($key) = substr( $field, 9 );^J if ( $field !~ \'^borrower_password\' ) {^J $borrower{$key} = $scrubber->scrub( scalar $cgi->param($field) );^J } else {^J^J # Allow html characters for passwords^J $borrower{$key} = $cgi->param($field);^J }^J }^J }^J^J # Replace checkbox \'agreed\' by datetime in gdpr_proc_consent^J $borrower{gdpr_proc_consent} = dt_from_string^J if $borrower{gdpr_proc_consent} && $borrower{gdpr_proc_consent} eq \'agreed\';^J^J delete $borrower{$_}^J for^J qw/borrowernumber date_renewed debarred debarredcomment flags privacy privacy_guarantor_fines privacy_guarantor_checkouts checkprevcheckout updated_on lastseen login_attempts overdrive_auth_token anonymized/^J ; # See also members/memberentry.pl^J delete $borrower{$_}^J for^J qw/dateenrolled dateexpiry borrowernotes opacnote sort1 sort2 sms_provider_id autorenew_checkouts gonenoaddress lost relationship/^J ; # On OPAC only^J delete $borrower{$_}^J for split( /\s*\|\s*/, C4::Context->preference(\'PatronSelfRegistrationBorrowerUnwantedField\') || q{} );^J^J return %borrower;^J}^J^Jsub DelUnchangedFields {^J my ( $borrowernumber, %new_data ) = @_;^J^J # get the mandatory fields so we can get the hidden fields^J my $mandatory = GetMandatoryFields(\'edit\');^J my $patron = Koha::Patrons->find($borrowernumber);^J my $current_data = $patron->unblessed;^J^J # get the hidden fields so we don\'t obliterate them should they have data patrons aren\'t allowed to modify^J my $hidden_fields = GetHiddenFields( $mandatory, \'edit\' );^J^J foreach my $key ( keys %new_data ) {^J next^J if ( $new_data{$key} || $current_data->{$key} )^J && $new_data{$key} ne $current_data->{$key}^J && !$hidden_fields->{$key};^J delete $new_data{$key};^J }^J^J return %new_data;^J}^J^Jsub DelEmptyFields {^J my (%borrower) = @_;^J^J foreach my $key ( keys %borrower ) {^J delete $borrower{$key} unless $borrower{$key};^J }^J^J return %borrower;^J}^J^Jsub FilterUnchangedAttributes {^J my ( $borrowernumber, $entered_attributes ) = @_;^J^J my @patron_attributes = grep { $_->type->opac_editable ? $_ : () }^J Koha::Patron::Attributes->search( { borrowernumber => $borrowernumber } )->as_list;^J^J my $patron_attribute_types;^J foreach my $attr (@patron_attributes) {^J $patron_attribute_types->{ $attr->code } += 1;^J }^J^J my $passed_attribute_types;^J foreach my $attr ( @{$entered_attributes} ) {^J $passed_attribute_types->{ $attr->{code} } += 1;^J }^J^J my @changed_attributes;^J^J # Loop through the current patron attributes^J foreach my $attribute_type ( keys %{$patron_attribute_types} ) {^J if ( ( $patron_attribute_types->{$attribute_type} // q{} ) ne^J ( $passed_attribute_types->{$attribute_type} // q{} ) )^J {^J # count differs, overwrite all attributes for given type^J foreach my $attr ( @{$entered_attributes} ) {^J push @changed_attributes, $attr^J if $attr->{code} eq $attribute_type;^J }^J } else {^J^J # count matches, check values^J my $changes = 0;^J foreach my $attr ( grep { $_->code eq $attribute_type } @patron_attributes ) {^J $changes = 1^J unless any { $_->{value} eq $attr->attribute } @{$entered_attributes};^J last if $changes;^J }^J^J if ($changes) {^J foreach my $attr ( @{$entered_attributes} ) {^J push @changed_attributes, $attr^J if $attr->{code} eq $attribute_type;^J }^J }^J }^J }^J^J # Loop through passed attributes, looking for new ones^J foreach my $attribute_type ( keys %{$passed_attribute_types} ) {^J if ( !defined $patron_attribute_types->{$attribute_type} ) {^J^J # YAY, new stuff^J foreach my $attr ( grep { $_->{code} eq $attribute_type } @{$entered_attributes} ) {^J push @changed_attributes, $attr;^J }^J }^J }^J^J return \@changed_attributes;^J}^J^Jsub GeneratePatronAttributesForm {^J my ( $borrowernumber, $entered_attributes ) = @_;^J^J # Get all attribute types and the values for this patron (if applicable)^J my @types = grep { $_->opac_editable() or $_->opac_display } # FIXME filter using DBIC^J Koha::Patron::Attribute::Types->search()->as_list();^J if ( scalar(@types) == 0 ) {^J return [];^J }^J^J my @displayable_attributes = grep { $_->type->opac_display ? $_ : () }^J Koha::Patron::Attributes->search( { borrowernumber => $borrowernumber } )->as_list;^J^J my %attr_values = ();^J^J # Build the attribute values list either from the passed values^J # or taken from the patron itself^J if ( defined $entered_attributes ) {^J foreach my $attr (@$entered_attributes) {^J push @{ $attr_values{ $attr->{code} } }, $attr->{attribute};^J }^J } elsif ( defined $borrowernumber ) {^J my @editable_attributes = grep { $_->type->opac_editable ? $_ : () } @displayable_attributes;^J foreach my $attr (@editable_attributes) {^J push @{ $attr_values{ $attr->code } }, $attr->attribute;^J }^J }^J^J # Add the non-editable attributes (that don\'t come from the form)^J foreach my $attr ( grep { !$_->type->opac_editable } @displayable_attributes ) {^J push @{ $attr_values{ $attr->code } }, $attr->attribute;^J }^J^J # Find all existing classes^J my @classes = sort( uniq( map { $_->class } @types ) );^J my %items_by_class;^J^J foreach my $attr_type (@types) {^J push @{ $items_by_class{ $attr_type->class() } }, {^J type => $attr_type,^J^J # If editable, make sure there\'s at least one empty entry,^J # to make the template\'s job easier^J values => $attr_values{ $attr_type->code() } || [\'\']^J }^J unless !defined $attr_values{ $attr_type->code() }^J and !$attr_type->opac_editable;^J }^J^J # Finally, build a list of containing classes^J my @class_loop;^J foreach my $class (@classes) {^J next unless ( $items_by_class{$class} );^J^J my $av = Koha::AuthorisedValues->search( { category => \'PA_CLASS\', authorised_value => $class } );^J^J my $lib = $av->count ? $av->next->opac_description : $class;^J^J push @class_loop,^J {^J class => $class,^J items => $items_by_class{$class},^J lib => $lib,^J };^J }^J^J return \@class_loop;^J}^J^Jsub ParsePatronAttributes {^J my ( $borrowernumber, $cgi ) = @_;^J^J my @codes = $cgi->multi_param(\'patron_attribute_code\');^J my @values = $cgi->multi_param(\'patron_attribute_value\');^J^J my @editable_attribute_types =^J map { $_->code } Koha::Patron::Attribute::Types->search( { opac_editable => 1 } )->as_list;^J^J my $ea = each_array( @codes, @values );^J my @attributes;^J^J my $delete_candidates = {};^J^J my $scrubber = C4::Scrubber->new();^J while ( my ( $code, $value ) = $ea->() ) {^J if ( any { $_ eq $code } @editable_attribute_types ) {^J^J # It is an editable attribute^J if ( !defined($value) or $value eq \'\' ) {^J $delete_candidates->{$code} = 1^J unless $delete_candidates->{$code};^J } else {^J^J # we\'ve got a value^J push @attributes, { code => $code, attribute => $scrubber->scrub($value) };^J^J # \'code\' is no longer a delete candidate^J delete $delete_candidates->{$code}^J if defined $delete_candidates->{$code};^J }^J }^J }^J^J foreach my $code ( keys %{$delete_candidates} ) {^J if (^J !$borrowernumber # self-registration^J || Koha::Patron::Attributes->search( { borrowernumber => $borrowernumber, code => $code } )->count > 0^J )^J {^J push @attributes, { code => $code, attribute => \'\' }^J unless any { $_->{code} eq $code } @attributes;^J }^J }^J^J return \@attributes;^J}^J^J1;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-memberentry.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55bb72063b48)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55bb72063b48)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb720860f0)', '/kohadevbox/koha/opac/opac-memberentry.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55bb6652a828)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55bb720082e0)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55bb7200d730)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55bb7204cc50)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') 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(0x55bb71d93000)', 'Try::Tiny::Catch=REF(0x55bb71fa7860)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55bb720c8408)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55bb71fe3f78)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55bb708cb410)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55bb7208cfa0)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55bb720c8300)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55bb7205b898)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55bb72017270)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55bb720911a0)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55bb66522cb0)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55bb70814128)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55bb708c2d48)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55bb720860f0)') 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(0x55bb707d5c80)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55bb65e60140)', 'HASH(0x55bb720860f0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55bb65e60140)', 'Net::Server::Proto::UNIX=GLOB(0x55bb71df2800)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55bb65e60140)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55bb65e60140)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'port', 'ARRAY(0x55bb664af628)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55bb65e60140)', 'CODE(0x55bb65e5fff0)', 'HASH(0x55bb65e5fd98)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55bb65e60008)', 'CODE(0x55bb65e5fff0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55bb65c3b2e8)', 'Plack::Handler::Starman=HASH(0x55bb65e60008)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55bb65bd4a70)') called at /bin/starman line 38 2026/08/12-00:59:07 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-00:59:07 Worker processes cleaned up 2026/08/12-00:59:07 Server closing! Process Backgrounded 2026/08/12-00:59:09 Starman::Server (type Net::Server::PreFork) starting! pid(3836902) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3836903: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d2e1552d0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dshelves_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-shelves.pl^J#!/usr/bin/perl^J^J# Copyright 2015 Koha Team^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Biblio qw( GetBiblioData GetFrameworkCode );^Juse C4::External::BakerTaylor qw( image_url link_url );^Juse C4::Koha qw(^J GetNormalizedEAN^J GetNormalizedISBN^J GetNormalizedOCLCNumber^J GetNormalizedUPC^J);^Juse C4::Members;^Juse C4::Output qw( pagination_bar output_with_http_headers );^Juse C4::Tags qw( get_tags );^Juse C4::XSLT qw( XSLTParse4Display );^J^Juse Koha::Biblios;^Juse Koha::Biblioitems;^Juse Koha::CirculationRules;^Juse Koha::CsvProfiles;^Juse Koha::DateUtils qw/dt_from_string/;^Juse Koha::Items;^Juse Koha::ItemTypes;^Juse Koha::Patrons;^Juse Koha::Virtualshelfshares;^Juse Koha::Virtualshelves;^Juse Koha::RecordProcessor;^J^Juse constant ANYONE => 2;^Juse constant STAFF => 3;^Juse constant PERMITTED => 4;^J^Jmy $query = CGI->new;^J^Jmy $template_name = $query->param(\'rss\') ? "opac-shelves-rss.tt" : "opac-shelves.tt";^J^J# if virtualshelves is disabled, leave immediately^Jif ( !C4::Context->preference(\'virtualshelves\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy $op = $query->param(\'op\') || \'list\';^Jmy ( $template, $loggedinuser, $cookie );^J^Jif ( $op eq \'view\' || $op eq \'list\' ) {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => $template_name,^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J );^J} else {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => $template_name,^J query => $query,^J type => "opac",^J authnotrequired => 0,^J }^J );^J}^J^Jif ( C4::Context->preference("BakerTaylorEnabled") ) {^J $template->param(^J BakerTaylorImageURL => &image_url(),^J BakerTaylorLinkURL => &link_url(),^J );^J}^J^Jmy $referer = $query->param(\'referer\') || $op;^Jmy $page = int( $query->param(\'page\') || 1 );^Jmy $public = 0;^J$public = 1 if $query->param(\'public\') && $query->param(\'public\') == 1;^J^Jmy ( $shelf, $shelfnumber, @messages );^J^J# PART 1: Perform a few actions^Jif ( $op eq \'add_form\' ) {^J^J # Only pass default^J $shelf = { allow_change_from_owner => 1 };^J} elsif ( $op eq \'edit_form\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J^J if ($shelf) {^J $public = $shelf->public;^J my $patron = Koha::Patrons->find( $shelf->owner );^J $template->param( owner => $patron, );^J unless ( $shelf->can_be_managed($loggedinuser) ) {^J push @messages, { type => \'error\', code => \'unauthorized_on_update\' };^J $op = \'list\';^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'cud-add\' ) {^J if ($loggedinuser) {^J my $allow_changes_from = $query->param(\'allow_changes_from\');^J eval {^J $shelf = Koha::Virtualshelf->new(^J {^J shelfname => scalar $query->param(\'shelfname\'),^J sortfield => scalar $query->param(\'sortfield\'),^J public => $public,^J allow_change_from_owner => $allow_changes_from > 0,^J allow_change_from_others => $allow_changes_from == ANYONE,^J allow_change_from_staff => $allow_changes_from == STAFF,^J allow_change_from_permitted_staff => $allow_changes_from == PERMITTED,^J owner => scalar $loggedinuser,^J }^J );^J $shelf->store;^J $shelfnumber = $shelf->shelfnumber;^J };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ( not $shelf ) {^J push @messages, { type => \'error\', code => \'error_on_insert\' };^J } else {^J push @messages, { type => \'message\', code => \'success_on_insert\' };^J $op = \'view\';^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_insert\' };^J $op = \'list\';^J }^J} elsif ( $op eq \'cud-edit\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J $op = $referer;^J my $sortfield = $query->param(\'sortfield\');^J $sortfield = \'title\' unless grep { $_ eq $sortfield } qw( title author copyrightdate itemcallnumber dateadded );^J if ( $sortfield eq \'copyrightdate\' and C4::Context->preference(\'marcflavour\') eq \'UNIMARC\' ) {^J $sortfield = \'publicationyear\';^J }^J if ( $shelf->can_be_managed($loggedinuser) ) {^J $shelf->shelfname( scalar $query->param(\'shelfname\') );^J $shelf->sortfield($sortfield);^J my $allow_changes_from = $query->param(\'allow_changes_from\');^J $shelf->allow_change_from_owner( $allow_changes_from > 0 );^J $shelf->allow_change_from_others( $allow_changes_from == ANYONE );^J $shelf->allow_change_from_staff( $allow_changes_from == STAFF );^J $shelf->allow_change_from_permitted_staff( $allow_changes_from == PERMITTED );^J $shelf->public($public);^J eval { $shelf->store };^J^J if ($@) {^J push @messages, { type => \'error\', code => \'error_on_update\' };^J $op = \'edit_form\';^J } else {^J push @messages, { type => \'message\', code => \'success_on_update\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_update\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'cud-delete\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( $shelf->can_be_deleted($loggedinuser) ) {^J eval { $shelf->delete; };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } else {^J push @messages, { type => \'message\', code => \'success_on_delete\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_delete\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J} elsif ( $op eq \'cud-remove_share\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J my $removed = eval { $shelf->remove_share($loggedinuser); };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($removed) {^J push @messages, { type => \'message\', code => \'success_on_remove_share\' };^J } else {^J push @messages, { type => \'error\', code => \'error_on_remove_share\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J^J} elsif ( $op eq \'cud-add_biblio\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( my $barcode = $query->param(\'barcode\') ) {^J my $item = Koha::Items->find( { barcode => $barcode } );^J if ($item) {^J if ( $shelf->can_biblios_be_added($loggedinuser) ) {^J my $added = eval { $shelf->add_biblio( $item->biblionumber, $loggedinuser ); };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($added) {^J push @messages, { type => \'message\', code => \'success_on_add_biblio\' };^J } else {^J push @messages, { type => \'message\', code => \'error_on_add_biblio\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_add_biblio\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'item_does_not_exist\' };^J }^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J} elsif ( $op eq \'cud-remove_biblios\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J my @biblionumber = $query->multi_param(\'biblionumber\');^J if ($shelf) {^J if ( $shelf->can_biblios_be_removed($loggedinuser) ) {^J my $number_of_biblios_removed = eval {^J $shelf->remove_biblios(^J {^J biblionumbers => \@biblionumber,^J borrowernumber => $loggedinuser,^J }^J );^J };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($number_of_biblios_removed) {^J push @messages, { type => \'message\', code => \'success_on_remove_biblios\' };^J } else {^J push @messages, { type => \'error\', code => \'no_biblio_removed\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_remove_biblios\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = \'view\';^J} elsif ( $op eq \'cud-transfer\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber) if $shelfnumber;^J my $new_owner = $query->param(\'new_owner\'); # borrowernumber or undef^J my $error_code =^J $shelf^J ? $shelf->cannot_be_transferred( { by => $loggedinuser, to => $new_owner, interface => \'opac\' } )^J : \'does_not_exist\';^J^J if ( !$new_owner && $error_code eq \'missing_to_parameter\' ) { # show transfer form^J my $patrons = [];^J my $shares = $shelf->get_shares->search( { borrowernumber => { \'!=\' => undef } } );^J while ( my $share = $shares->next ) {^J my $email = $share->sharee->notice_email_address;^J push @$patrons, { email => $email, borrowernumber => $share->get_column(\'borrowernumber\') } if $email;^J }^J if (@$patrons) {^J $template->param( shared_users => $patrons );^J $op = \'cud-transfer\';^J } else {^J push @messages, { type => \'error\', code => \'no_email_found\' };^J }^J } elsif ($error_code) {^J push @messages, { type => \'error\', code => $error_code };^J $op = \'list\';^J } else { # transfer; remove new_owner from virtualshelfshares, add loggedinuser^J $shelf->_result->result_source->schema->txn_do(^J sub {^J $shelf->get_shares->search( { borrowernumber => $new_owner } )->delete;^J Koha::Virtualshelfshare->new(^J { shelfnumber => $shelfnumber, borrowernumber => $loggedinuser, sharedate => dt_from_string } )^J ->store;^J $shelf->owner($new_owner)->store;^J }^J );^J $op = \'list\';^J }^J}^J^J# PART 2: After a possible action, view one list or show a number of lists^Jif ( $op eq \'view\' ) {^J $shelfnumber ||= $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( $shelf->can_be_viewed($loggedinuser) ) {^J $public = $shelf->public;^J^J # Sortfield param may still include sort order with :asc or :desc, but direction overrides it^J my ( $sortfield, $direction );^J if ( $query->param(\'sortfield\') ) {^J ( $sortfield, $direction ) = split /:/, $query->param(\'sortfield\');^J } else {^J $sortfield = $shelf->sortfield;^J $direction = \'asc\';^J }^J $direction = $query->param(\'direction\') if $query->param(\'direction\');^J $direction = \'asc\' if !$direction or ( $direction ne \'asc\' and $direction ne \'desc\' );^J $sortfield = \'title\'^J if !$sortfield^J or !grep { $_ eq $sortfield } qw( title author copyrightdate itemcallnumber dateadded );^J if ( $sortfield eq \'copyrightdate\' and C4::Context->preference(\'marcflavour\') eq \'UNIMARC\' ) {^J $sortfield = \'publicationyear\';^J }^J^J my $rows;^J if ( $query->param(\'print\') or $query->param(\'rss\') ) {^J $page = "";^J } else {^J $rows = C4::Context->preference(\'OPACnumSearchResults\') || 20;^J }^J my $order_by = $sortfield eq \'itemcallnumber\' ? \'items.cn_sort\' : $sortfield;^J my $contents = $shelf->get_contents->search(^J {},^J {^J distinct => \'biblionumber\',^J join => [ { \'biblionumber\' => { \'biblioitems\' => \'items\' } } ],^J page => $page,^J rows => $rows,^J order_by => { "-$direction" => $order_by },^J }^J );^J^J # get biblionumbers stored in the cart^J my @cart_list;^J if ( my $cart_list = $query->cookie(\'bib_list\') ) {^J @cart_list = split( /\//, $cart_list );^J }^J^J my $patron = Koha::Patrons->find($loggedinuser);^J^J my $categorycode; # needed for may_article_request^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $categorycode = $patron ? $patron->categorycode : undef;^J }^J^J my $record_processor = Koha::RecordProcessor->new( { filters => \'ViewPolicy\' } );^J^J my $art_req_itypes;^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $art_req_itypes = Koha::CirculationRules->guess_article_requestable_itemtypes(^J { $patron ? ( categorycode => $patron->categorycode ) : () } );^J }^J^J my @items_info;^J while ( my $content = $contents->next ) {^J my $biblionumber = $content->biblionumber;^J my $this_item = GetBiblioData($biblionumber);^J my $biblio = Koha::Biblios->find($biblionumber);^J my $record = $biblio->metadata->record;^J my $framework = GetFrameworkCode($biblionumber);^J $record_processor->options(^J {^J interface => \'opac\',^J frameworkcode => $framework^J }^J );^J $record_processor->process($record);^J^J my $marcflavour = C4::Context->preference("marcflavour");^J my $itemtype = Koha::Biblioitems->search( { biblionumber => $content->biblionumber } )->next->itemtype;^J $itemtype = Koha::ItemTypes->find($itemtype);^J if ($itemtype) {^J $this_item->{imageurl} = C4::Koha::getitemtypeimagelocation( \'opac\', $itemtype->imageurl );^J $this_item->{description} = $itemtype->description; #FIXME Should not it be translated_description?^J $this_item->{notforloan} = $itemtype->notforloan;^J }^J $this_item->{\'coins\'} = $biblio->get_coins;^J $this_item->{\'normalized_upc\'} = GetNormalizedUPC( $record, $marcflavour );^J $this_item->{\'normalized_ean\'} = GetNormalizedEAN( $record, $marcflavour );^J $this_item->{\'normalized_oclc\'} = GetNormalizedOCLCNumber( $record, $marcflavour );^J $this_item->{\'normalized_isbn\'} = GetNormalizedISBN( undef, $record, $marcflavour );^J^J # BZ17530: \'Intelligent\' guess if result can be article requested^J $this_item->{artreqpossible} =^J ( $art_req_itypes->{ $this_item->{itemtype} // q{} } || $art_req_itypes->{\'*\'} ) ? 1 : q{};^J^J unless ( defined $this_item->{size} ) {^J^J #TT has problems with size^J $this_item->{size} = q||;^J }^J^J if ( C4::Context->preference(\'TagsEnabled\') and C4::Context->preference(\'TagsShowOnList\') ) {^J $this_item->{TagLoop} = get_tags(^J {^J biblionumber => $biblionumber, approved => 1, \'sort\' => \'-weight\',^J limit => C4::Context->preference(\'TagsShowOnList\'),^J }^J );^J }^J^J my $items = $biblio->items->filter_by_visible_in_opac( { patron => $patron } );^J my $allow_onshelf_holds;^J while ( my $item = $items->next ) {^J^J # This method must take a Koha::Items rs^J $allow_onshelf_holds ||=^J Koha::CirculationRules->get_onshelfholds_policy( { item => $item, patron => $patron } );^J^J }^J^J $this_item->{allow_onshelf_holds} = $allow_onshelf_holds;^J $this_item->{\'ITEM_RESULTS\'} = $items;^J^J my $variables = { anonymous_session => ($loggedinuser) ? 0 : 1 };^J $this_item->{XSLTBloc} = XSLTParse4Display(^J {^J biblionumber => $biblionumber,^J record => $record,^J xsl_syspref => "OPACXSLTListsDisplay",^J fix_amps => 1,^J xslt_variables => $variables,^J items_rs => $items->reset,^J }^J );^J^J if ( grep { $_ eq $biblionumber } @cart_list ) {^J $this_item->{incart} = 1;^J }^J^J $this_item->{biblio_object} = $biblio;^J $this_item->{biblionumber} = $biblionumber;^J $this_item->{shelves} = Koha::Virtualshelves->get_shelves_containing_record(^J {^J biblionumber => $biblionumber,^J borrowernumber => $loggedinuser,^J }^J );^J push @items_info, $this_item;^J }^J^J $template->param(^J can_manage_shelf => $shelf->can_be_managed($loggedinuser),^J can_delete_shelf => $shelf->can_be_deleted($loggedinuser),^J can_remove_biblios => $shelf->can_biblios_be_removed($loggedinuser),^J can_add_biblios => $shelf->can_biblios_be_added($loggedinuser),^J itemsloop => \@items_info,^J sortfield => $sortfield,^J direction => $direction,^J csv_profiles => Koha::CsvProfiles->search(^J {^J type => \'marc\',^J used_for => \'export_records\',^J staff_only => 0^J }^J ),^J );^J if ($page) {^J my $pager = $contents->pager;^J $template->param(^J pagination_bar => pagination_bar(^J q||, $pager->last_page - $pager->first_page + 1,^J $page, "page",^J {^J op => \'view\', shelfnumber => $shelf->shelfnumber, sortfield => $sortfield,^J direction => $direction,^J }^J ),^J );^J }^J my $some_private_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $loggedinuser,^J add_allowed => 1,^J public => 0,^J }^J );^J my $some_public_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $loggedinuser,^J add_allowed => 1,^J public => 1,^J }^J );^J^J $template->param(^J add_to_some_private_shelves => $some_private_shelves,^J add_to_some_public_shelves => $some_public_shelves,^J );^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_view\' };^J undef $shelf;^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'list\' ) {^J my $direction = $query->param(\'direction\') || \'asc\';^J my $sortfield = $query->param(\'sortfield\') || \'shelfname\';^J my $sort_by = { sortfield => $sortfield, direction => $direction };^J^J my $shelves;^J my ($rows) = (20);^J if ( !$public ) {^J $shelves = Koha::Virtualshelves->get_private_shelves(^J { page => $page, rows => $rows, borrowernumber => $loggedinuser, sort_by => $sort_by, } );^J } else {^J $shelves = Koha::Virtualshelves->get_public_shelves( { page => $page, rows => $rows, sort_by => $sort_by, } );^J }^J^J my $pager = $shelves->pager;^J $template->param(^J shelves => $shelves,^J pagination_bar => pagination_bar(^J q||, $pager->last_page - $pager->first_page + 1,^J $page, "page",^J {^J op => \'list\', public => $public, sortfield => $sortfield,^J direction => $direction,^J }^J ),^J );^J}^J^Jmy ( $staffuser, $permitteduser );^J$staffuser = Koha::Patrons->find($loggedinuser)->can_patron_change_staff_only_lists if $loggedinuser;^J$permitteduser = Koha::Patrons->find($loggedinuser)->can_patron_change_permitted_staff_lists if $loggedinuser;^J^J$template->param(^J op => $op,^J referer => $referer,^J shelf => $shelf,^J messages => \@messages,^J public => $public,^J print => scalar $query->param(\'print\') || 0,^J listsview => 1,^J staffuser => $staffuser,^J permitteduser => $permitteduser^J);^J^Jmy $content_type = $query->param(\'rss\') ? \'rss\' : \'html\';^Joutput_with_http_headers $query, $cookie, $template->output, $content_type;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-shelves.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d3970caa0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d3970caa0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2df42fe0)', 'HASH(0x559d39a80598)', '/kohadevbox/koha/opac/opac-shelves.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2df42fe0)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d39a071f0)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39a3c3d8)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39a3c420)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') 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(0x559d39a42340)', 'Try::Tiny::Catch=REF(0x559d382f0a58)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d39a7ae88)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d39a56748)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382e1a68)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d39ab6208)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d39a3f938)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d39a300b0)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d39a6ccf8)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a30398)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b978)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d3822aa10)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d8a60)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a80598)') 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(0x559d38228608)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d39a80598)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d382e1228)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836904: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d2e155388)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d39a24ff8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d39a24ff8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2df43430)', 'HASH(0x559d39a02fc8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2df43430)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d3997e028)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39709c40)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39af6a28)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') 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(0x559d39a58858)', 'Try::Tiny::Catch=REF(0x559d39a25d30)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d396f76a8)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d399ebc78)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382dd5d0)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d399f7918)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d399ebeb8)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d396ef458)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d396ec290)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a7f858)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b990)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d38225ce8)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d4438)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a02fc8)') 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(0x559d381e7430)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d39a02fc8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d382dceb0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836903: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d399eff70)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d39a8f948)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d39a8f948)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2ec70620)', 'HASH(0x559d39a5a7e0)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2ec70620)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d39a566e8)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39a5a9f0)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39a983f0)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') 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(0x559d39a536b0)', 'Try::Tiny::Catch=REF(0x559d399f0588)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d39adcc78)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d39a73638)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382e1a68)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d39ab6208)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d39a3f938)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d39a300b0)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d39a6ccf8)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a30398)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b978)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d3822aa10)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d8a60)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a5a7e0)') 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(0x559d38228608)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d39a5a7e0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d39a56b98)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836904: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d39a68b00)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d39a2c068)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d39a2c068)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2df43718)', 'HASH(0x559d39aa27b0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2df43718)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d39a52b68)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39af2d68)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39a118b8)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') 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(0x559d39af2ba0)', 'Try::Tiny::Catch=REF(0x559d39a37dd0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d399e90a0)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d39abab58)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382dd5d0)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d399f7918)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d399ebeb8)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d396ef458)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d396ec290)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a7f858)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b990)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d38225ce8)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d4438)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39aa27b0)') 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(0x559d381e7430)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d39aa27b0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d39a21990)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836903: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d39a33540)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dlibrary_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-library.pl^J#!/usr/bin/perl^J^J# Copyright 2020 Athens County Public Libraries^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Context;^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Libraries;^J^Jmy $query = CGI->new();^J^Jmy $branchcode = $query->param(\'branchcode\');^J^J# if OPACShowLibraries is disabled, leave immediately^Jif ( !C4::Context->preference(\'OPACShowLibraries\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-library.tt",^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $library;^Jmy $libraries = Koha::Libraries->search( { public => 1 }, { order_by => [\'branchname\'] } );^J$template->param( public_count => $libraries->count );^Jif ( $template->{VARS}->{singleBranchMode} || $libraries->count == 1 ) {^J $library = $libraries->next;^J} elsif ($branchcode) {^J $library = $libraries->search( { branchcode => $branchcode } )->next;^J}^J^Jif ($library) {^J $template->param( library => $library );^J} else {^J $template->param(^J libraries => $libraries,^J branchcode => C4::Context->userenv ? C4::Context->userenv->{branch} : q{},^J );^J}^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d3970d778)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d3970d778)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2df42fe0)', 'HASH(0x559d39a25dc8)', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2df42fe0)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d39a071f0)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39a3c3d8)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39a3c420)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') 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(0x559d39a569e8)', 'Try::Tiny::Catch=REF(0x559d39a0ed90)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d39a7ae88)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d39a56748)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382e1a68)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d39ab6208)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d39a3f938)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d39a300b0)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d39a6ccf8)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a30398)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b978)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d3822aa10)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d8a60)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a25dc8)') 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(0x559d38228608)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d39a25dc8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d39a5a7e0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836904: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d39a770c8)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dcourse_2dreserves_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-course-reserves.pl^J#!/usr/bin/perl^J^J#^J# Copyright 2012 Bywater Solutions^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^J^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^J^Juse C4::CourseReserves qw( SearchCourses );^J^Jmy $cgi = CGI->new;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-course-reserves.tt",^J query => $cgi,^J type => "opac",^J authnotrequired => 1,^J }^J);^J^Jmy $courses = SearchCourses( enabled => \'yes\' );^J^J$template->param( courses => $courses );^Joutput_html_with_http_headers $cgi, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-course-reserves.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d39aee720)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d39aee720)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2df43718)', 'HASH(0x559d39a93a60)', '/kohadevbox/koha/opac/opac-course-reserves.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2df43718)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d39a52b68)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39af2d68)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39a118b8)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') 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(0x559d399f4c50)', 'Try::Tiny::Catch=REF(0x559d39a941b0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d399e90a0)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d39abab58)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382dd5d0)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d399f7918)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d399ebeb8)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d396ef458)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d396ec290)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a7f858)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b990)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d38225ce8)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d4438)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a93a60)') 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(0x559d381e7430)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d39a93a60)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d39aa27b0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836903: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d3981f4e8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d39aebfd0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d39aebfd0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2ec70620)', 'HASH(0x559d382e1228)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2ec70620)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d39a566e8)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39a5a9f0)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39a983f0)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') 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(0x559d399f0150)', 'Try::Tiny::Catch=REF(0x559d39ac2020)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d39adcc78)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d39a73638)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382e1a68)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d39ab6208)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d39a3f938)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d39a300b0)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d39a6ccf8)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a30398)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b978)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d3822aa10)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d8a60)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382e1228)') 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(0x559d38228608)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d382e1228)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d39a25dc8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836904: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d39a3bd88)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dsearch_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-search.pl^J#!/usr/bin/perl^J^J# Copyright 2008 Garry Collum and the Koha Development team^J# Copyright 2010 BibLibre^J# Copyright 2011 KohaAloha, NZ^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^J# Script to perform searching^J# Mostly copied from search.pl, see POD there^Juse Modern::Perl;^J^J## STEP 1. Load things that are used in both search page and^J# results page and decide which template to load, operations^J# to perform, etc.^J## load Koha modules^Juse C4::Context;^Juse List::MoreUtils q/any/;^Juse Try::Tiny;^Juse Encode;^J^Juse Data::Dumper; # TODO remove^J^Juse Koha::SearchEngine::Search;^Juse Koha::SearchEngine::QueryBuilder;^J^Jmy $searchengine = C4::Context->preference("SearchEngine");^Jmy ( $builder, $searcher );^J^J#$searchengine = \'Zebra\'; # XXX^J$builder = Koha::SearchEngine::QueryBuilder->new( { index => \'biblios\' } );^J$searcher = Koha::SearchEngine::Search->new( { index => \'biblios\' } );^J^Juse C4::Output qw( output_html_with_http_headers pagination_bar output_with_http_headers );^Juse C4::Auth qw( get_template_and_user get_session );^Juse C4::Languages qw( getlanguage getLanguages );^Juse C4::Search qw( searchResults );^Juse C4::Search::History;^Juse C4::Biblio qw( GetXmlBiblio CountItemsIssued );^Juse C4::Koha qw( GetItemTypesCategorized getitemtypeimagelocation GetAuthorisedValues );^Juse C4::Tags qw( get_tags );^Juse C4::SocialData;^Juse C4::External::OverDrive;^Juse C4::External::BakerTaylor qw( image_url link_url );^J^Juse Koha::CirculationRules;^Juse Koha::Libraries;^Juse Koha::ItemTypes;^Juse Koha::Ratings;^Juse Koha::Virtualshelves;^Juse Koha::Library::Groups;^Juse Koha::Patrons;^Juse Koha::Plugins;^Juse Koha::SearchFields;^J^Juse POSIX qw(ceil floor strftime);^Juse URI::Escape;^Juse JSON qw/decode_json encode_json/;^Juse Business::ISBN;^J^J# create a new CGI object^J# FIXME: no_undef_params needs to be tested^Juse CGI qw(\'-no_undef_params\' -utf8);^Jmy $cgi = CGI->new;^J^Jmy $branch_group_limit = $cgi->param("branch_group_limit");^Jif ($branch_group_limit) {^J if ( $branch_group_limit =~ /^multibranchlimit-/ ) {^J^J # branch_group_limit is deprecated, it should no longer be used^J # For search groups we are going to convert this branch_group_limit CGI^J # parameter into a multibranchlimit limit CGI parameter for the purposes of^J # actually performing the query^J $cgi->param(^J -name => \'limit\',^J -values => \'multibranchlimit:\' . substr( $branch_group_limit, 17 )^J );^J } else {^J $cgi->append(^J -name => \'limit\',^J -values => [$branch_group_limit]^J );^J }^J}^J^Jmy ( $template, $borrowernumber, $cookie );^J^J# decide which template to use^Jmy $template_name;^Jmy $template_type = \'basic\';^Jmy @params = $cgi->multi_param("limit");^Jmy @searchCategories = $cgi->multi_param(\'searchcat\');^J^Jmy $format = $cgi->param("format") || \'\';^Jif ( $format =~ /(rss|atom|opensearchdescription)/ ) {^J $template_name = \'opac-opensearch.tt\';^J} elsif ( ( @params >= 1 )^J || ( defined $cgi->param("q") && $cgi->param("q") ne "" )^J || ( $cgi->param(\'multibranchlimit\') )^J || ( $cgi->param(\'limit-yr\') )^J || @searchCategories )^J{^J $template_name = \'opac-results.tt\';^J} else {^J $template_name = \'opac-advsearch.tt\';^J $template_type = \'advsearch\';^J}^J^J$format = \'rss\' if $format =~ /^rss2?$/;^J^J# load the template^J( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => $template_name,^J query => $cgi,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jmy $lang = C4::Languages::getlanguage($cgi);^J^Jif ( $template_name eq \'opac-results.tt\' ) {^J $template->param( \'COinSinOPACResults\' => C4::Context->preference(\'COinSinOPACResults\') );^J}^J^J# get biblionumbers stored in the cart^Jmy @cart_list;^J^Jif ( $cgi->cookie("bib_list") ) {^J my $cart_list = $cgi->cookie("bib_list");^J @cart_list = split( /\//, $cart_list );^J}^J^Jif ( $format eq \'rss\' or $format eq \'opensearchdescription\' or $format eq \'atom\' ) {^J $template->param( $format => 1 );^J^J #NOTE: opensearchdescription doesn\'t actually use timestamp...^J $template->param( timestamp => strftime( "%Y-%m-%dT%H:%M:%S-00:00", gmtime ) ) if ( $format eq \'atom\' );^J^J # FIXME - the timestamp is a hack - the biblio update timestamp should be used for each^J # entry, but not sure if that\'s worth an extra database query for each bib^J}^J^J#NOTE: Return now for \'opensearchdescription\' BZ 32639^Jif ( $format && $format eq \'opensearchdescription\' ) {^J my $content_type = $format;^J output_with_http_headers $cgi, $cookie, $template->output, $content_type;^J exit;^J}^J^Jif ( C4::Context->preference("marcflavour") eq "UNIMARC" ) {^J $template->param( \'UNIMARC\' => 1 );^J} elsif ( C4::Context->preference("marcflavour") eq "MARC21" ) {^J $template->param( \'usmarc\' => 1 );^J}^J^J$template->param( \'OPACNoResultsFound\' => C4::Context->preference(\'OPACNoResultsFound\') );^J^J$template->param( OpacStarRatings => C4::Context->preference("OpacStarRatings") );^J^Jif ( C4::Context->preference(\'BakerTaylorEnabled\') ) {^J $template->param(^J BakerTaylorEnabled => 1,^J BakerTaylorImageURL => &image_url(),^J BakerTaylorLinkURL => &link_url(),^J BakerTaylorBookstoreURL => C4::Context->preference(\'BakerTaylorBookstoreURL\'),^J );^J}^J^J## URI Re-Writing^J# Deprecated, but preserved because it\'s interesting :-)^J# The same thing can be accomplished with mod_rewrite in^J# a more elegant way^J#^J#my $rewrite_flag;^J#my $uri = $cgi->url(-base => 1);^J#my $relative_url = $cgi->url(-relative=>1);^J#$uri.="/".$relative_url."?";^J#warn "URI:$uri";^J#my @cgi_params_list = $cgi->param();^J#my $url_params = $cgi->Vars;^J#^J#for my $each_param_set (@cgi_params_list) {^J# $uri.= join "", map "\&$each_param_set=".$_, split("\0",$url_params->{$each_param_set}) if $url_params->{$each_param_set};^J#}^J#warn "New URI:$uri";^J# Only re-write a URI if there are params or if it already hasn\'t been re-written^J#unless (($cgi->param(\'r\')) || (!$cgi->param()) ) {^J# print $cgi->redirect( -uri=>$uri."&r=1",^J# -cookie => $cookie);^J# exit;^J#}^J^J# load the branches^J^Jif ( $cgi->param("returntosearch") ) {^J $template->param( \'ReturnToSearch\' => 1 );^J}^Jif ( $cgi->cookie("search_path_code") ) {^J my $pathcode = $cgi->cookie("search_path_code");^J if ( $pathcode eq \'ads\' ) {^J $template->param( \'ReturnPath\' => \'/cgi-bin/koha/opac-search.pl?returntosearch=1\' );^J } elsif ( $pathcode eq \'exs\' ) {^J $template->param( \'ReturnPath\' => \'/cgi-bin/koha/opac-search.pl?expanded_options=1&returntosearch=1\' );^J } else {^J warn "ReturnPath switch error";^J }^J}^J^Jmy @search_groups = Koha::Library::Groups->get_search_groups( { interface => \'opac\' } )->as_list;^J$template->param( search_groups => \@search_groups );^J^Jif ( $template_type && $template_type eq \'advsearch\' ) {^J^J # load the language limits (for search)^J my $languages_limit_loop = getLanguages( $lang, 1 );^J $template->param( search_languages_loop => $languages_limit_loop, );^J}^J^J# load the Type stuff^Jmy $itemtypes = GetItemTypesCategorized;^J^J# add translated_description to itemtypes^Jforeach my $itemtype ( keys %{$itemtypes} ) {^J^J # Itemtypes search categories don\'t have (yet) translated descriptions, they are auth values (and could still have no descriptions too BZ 18400)^J # If \'iscat\' (see ITEMTYPECAT) then there is no itemtype and the description is not translated^J my $translated_description =^J $itemtypes->{$itemtype}->{iscat}^J ? $itemtypes->{$itemtype}->{description}^J : Koha::ItemTypes->find($itemtype)->translated_description;^J $itemtypes->{$itemtype}->{translated_description} =^J $translated_description || $itemtypes->{$itemtype}->{description} || q{};^J}^J^J# the index parameter is different for item-level itemtypes^Jmy $itype_or_itemtype = ( C4::Context->preference("item-level_itypes") ) ? \'itype\' : \'itemtype\';^Jmy @advancedsearchesloop;^Jmy $cnt;^Jmy $advanced_search_types = C4::Context->preference("OpacAdvancedSearchTypes") || "itemtypes";^Jmy @advanced_search_types = split( /\|/, $advanced_search_types );^J^Jmy $hidingrules = C4::Context->yaml_preference(\'OpacHiddenItems\') // {};^J^Jmy @sorted_itemtypes =^J sort { $itemtypes->{$a}->{translated_description} cmp $itemtypes->{$b}->{translated_description} } keys %$itemtypes;^Jforeach my $advanced_srch_type (@advanced_search_types) {^J $advanced_srch_type =~ s/^\s*//;^J $advanced_srch_type =~ s/\s*$//;^J if ( $advanced_srch_type eq \'itemtypes\' ) {^J^J # itemtype is a special case, since it\'s not defined in authorized values^J my @itypesloop;^J foreach my $thisitemtype (@sorted_itemtypes) {^J next if $hidingrules->{itype} && any { $_ eq $thisitemtype } @{ $hidingrules->{itype} };^J next if $hidingrules->{itemtype} && any { $_ eq $thisitemtype } @{ $hidingrules->{itemtype} };^J my %row = (^J number => $cnt++,^J ccl => "$itype_or_itemtype,phr",^J code => $thisitemtype,^J description => $itemtypes->{$thisitemtype}->{translated_description},^J imageurl => getitemtypeimagelocation( \'opac\', $itemtypes->{$thisitemtype}->{\'imageurl\'} ),^J cat => $itemtypes->{$thisitemtype}->{\'iscat\'},^J hideinopac => $itemtypes->{$thisitemtype}->{\'hideinopac\'},^J searchcategory => $itemtypes->{$thisitemtype}->{\'searchcategory\'},^J );^J if ( !$itemtypes->{$thisitemtype}->{\'hideinopac\'} ) {^J push @itypesloop, \%row;^J }^J }^J my %search_code = (^J advanced_search_type => $advanced_srch_type,^J code_loop => \@itypesloop^J );^J push @advancedsearchesloop, \%search_code;^J } else {^J^J # covers all the other cases: non-itemtype authorized values^J my $advsearchtypes = GetAuthorisedValues( $advanced_srch_type, \'opac\' );^J my @authvalueloop;^J for my $thisitemtype (@$advsearchtypes) {^J my $hiding_key = lc $thisitemtype->{category};^J $hiding_key = "location" if $hiding_key eq \'loc\';^J next^J if $hidingrules->{$hiding_key} && any { $_ eq $thisitemtype->{authorised_value} }^J @{ $hidingrules->{$hiding_key} };^J my %row = (^J number => $cnt++,^J ccl => $advanced_srch_type,^J code => $thisitemtype->{authorised_value},^J description => $thisitemtype->{\'lib_opac\'} || $thisitemtype->{\'lib\'},^J searchcategory => $itemtypes->{$thisitemtype}->{\'searchcategory\'},^J imageurl => getitemtypeimagelocation( \'opac\', $thisitemtype->{\'imageurl\'} ),^J );^J push @authvalueloop, \%row;^J }^J my %search_code = (^J advanced_search_type => $advanced_srch_type,^J code_loop => \@authvalueloop^J );^J push @advancedsearchesloop, \%search_code;^J }^J}^J$template->param( advancedsearchesloop => \@advancedsearchesloop );^J^Jmy $default_sort_by = C4::Context->default_catalog_sort_by;^J^J# The following should only be loaded if we\'re bringing up the advanced search template^Jif ( $template_type && $template_type eq \'advsearch\' ) {^J^J # load the servers (used for searching -- to do federated searching, etc.)^J my $primary_servers_loop; # = displayPrimaryServers();^J $template->param( outer_servers_loop => $primary_servers_loop, );^J^J my $secondary_servers_loop;^J $template->param( outer_sup_servers_loop => $secondary_servers_loop, );^J^J # set the default sorting^J if ($default_sort_by) {^J $template->param( sort_by => $default_sort_by );^J }^J^J my @advsearch_limits = split /,/, C4::Context->preference(\'OpacAdvSearchOptions\');^J my @advsearch_more_limits = split /,/,^J C4::Context->preference(\'OpacAdvSearchMoreOptions\');^J $template->param(^J uc( C4::Context->preference("marcflavour") ) => 1, # we already did this for UNIMARC^J advsearch => 1,^J OpacAdvSearchOptions => \@advsearch_limits,^J OpacAdvSearchMoreOptions => \@advsearch_more_limits,^J );^J^J # use the global setting by default^J if ( C4::Context->preference("expandedSearchOption") == 1 ) {^J $template->param( expanded_options => C4::Context->preference("expandedSearchOption") );^J }^J^J # but let the user override it^J if ( defined $cgi->param(\'expanded_options\') ) {^J if ( ( $cgi->param(\'expanded_options\') == 0 ) || ( $cgi->param(\'expanded_options\') == 1 ) ) {^J $template->param( expanded_options => scalar $cgi->param(\'expanded_options\') );^J }^J }^J^J output_html_with_http_headers $cgi, $cookie, $template->output;^J exit;^J}^J^J### OK, if we\'re this far, we\'re performing an actual search^J^J# Fetch the parameter list as a hash in scalar context:^J# * returns parameter list as tied hash ref^J# * we can edit the values by changing the key^J# * multivalued CGI parameters are returned as a packaged string separated by "\0" (null)^Jmy $params = $cgi->Vars;^Jmy $tag;^Jif ( $params->{tag} ) {^J $tag = $params->{tag};^J $template->param( tag => $tag );^J}^J^J# String with params with the search criteria for the paging in opac-detail^J# param value is URI encoded and params separator is HTML encode (&)^Jmy $pasarParams = \'\';^Jmy $j = 0;^Jfor ( keys %$params ) {^J my @pasarParam = $cgi->multi_param($_);^J for my $paramValue (@pasarParam) {^J $pasarParams .= \'&\' if ( $j > 0 );^J $pasarParams .= uri_escape_utf8($_) . \'=\' . uri_escape_utf8($paramValue);^J $j++;^J }^J}^J^J# Params that can have more than one value^J# sort by is used to sort the query^J# in theory can have more than one but generally there\'s just one^Jmy @sort_by;^Jmy @allowed_sortby =^J qw /acqdate_asc acqdate_dsc author_az author_za call_number_asc call_number_dsc popularity_asc popularity_dsc pubdate_asc pubdate_dsc relevance title_az title_za/;^J@sort_by = $cgi->multi_param(\'sort_by\');^J$sort_by[0] = $default_sort_by if !$sort_by[0] && defined($default_sort_by);^Jforeach my $sort (@sort_by) {^J if ( grep { $_ eq $sort } @allowed_sortby ) {^J $template->param( $sort => 1 );^J }^J}^J$template->param( \'sort_by\' => $sort_by[0] );^J^J# Use the servers defined, or just search our local catalog(default)^Jmy @servers = $cgi->multi_param(\'server\');^Junless (@servers) {^J^J #FIXME: this should be handled using Context.pm^J @servers = ("biblioserver");^J^J # @servers = C4::Context->config("biblioserver");^J}^J^J# operators include boolean and proximity operators and are used^J# to evaluate multiple operands^Jmy @operators = $cgi->multi_param(\'op\');^J@operators = map { uri_unescape($_) } @operators;^J^J# indexes are query qualifiers, like \'title\', \'author\', etc. They^J# can be single or multiple parameters separated by comma: kw,right-Truncation^Jmy @indexes = $cgi->multi_param(\'idx\');^J@indexes = map { uri_unescape($_) } @indexes;^J^J# if a simple index (only one) display the index used in the top search box^Jif ( $indexes[0] && !$indexes[1] ) {^J my $idx = "ms_" . $indexes[0];^J $idx =~ s/\,/comma/g; # template toolkit doesn\'t like variables with a , in it^J $idx =~ s/-/dash/g; # template toolkit doesn\'t like variables with a dash in it^J $template->param( $idx => 1 );^J}^J^J# an operand can be a single term, a phrase, or a complete ccl query^Jmy @operands = $cgi->multi_param(\'q\');^J@operands = map { uri_unescape($_) } @operands;^J^J$template->{VARS}->{querystring} = join( \' \', @operands );^J^J# if a simple search, display the value in the search box^Jmy $basic_search = 0;^Jif ( $operands[0] && !$operands[1] ) {^J my $ms_query = $operands[0];^J $ms_query =~ s/ #\S+//;^J $template->param( ms_value => $ms_query );^J $basic_search = 1;^J}^J^J# limits are use to limit to results to a pre-defined category such as branch or language^Jmy @limits = $cgi->multi_param(\'limit\');^J@limits = map { uri_unescape($_) } @limits;^Jmy @nolimits = $cgi->multi_param(\'nolimit\');^J@nolimits = map { uri_unescape($_) } @nolimits;^Jmy %is_nolimit = map { $_ => 1 } @nolimits;^J@limits = grep { not $is_nolimit{$_} } @limits;^J^Jif ( @searchCategories > 0 ) {^J my @tabcat;^J foreach my $typecategory (@searchCategories) {^J push @tabcat, Koha::ItemTypes->search( { searchcategory => $typecategory } )->get_column(\'itemtype\');^J }^J^J foreach my $itemtypeInCategory (@tabcat) {^J push( @limits, "mc-$itype_or_itemtype,phr:" . $itemtypeInCategory );^J }^J}^J^J@limits = map { uri_unescape($_) } @limits;^J^Jmy $available;^Jforeach my $limit (@limits) {^J if ( $limit =~ /available/ ) {^J $available = 1;^J }^J}^J$template->param( available => $available );^J^J# append year limits if they exist^Jif ( $params->{\'limit-yr\'} ) {^J if ( $params->{\'limit-yr\'} =~ /\d{4}/ ) {^J push @limits, "yr,st-numeric=$params->{\'limit-yr\'}";^J } else {^J^J #FIXME: Should return a error to the user, incorrect date format specified^J }^J}^J^J# Params that can only have one value^Jmy $scan = $params->{\'scan\'};^Jmy $count = C4::Context->preference(\'OPACnumSearchResults\') || 20;^Jmy $countRSS = C4::Context->preference(\'numSearchRSSResults\') || 50;^Jmy $results_per_page = $params->{\'count\'} || $count;^Jmy $offset = $params->{\'offset\'} || 0;^J$offset = 0 if $offset < 0;^Jmy $page = $cgi->param(\'page\') || 1;^J$offset = ( $page - 1 ) * $results_per_page if $page > 1;^Jmy $hits;^Jmy $weight_search = $cgi->param(\'advsearch\') ? $cgi->param(\'weight_search\') || 0 : 1;^J^J# Define some global variables^Jmy ( $error, $query, $simple_query, $query_cgi, $query_desc, $limit, $limit_cgi, $limit_desc, $query_type );^J^Jmy $suppress = 0;^Jif ( C4::Context->preference(\'OpacSuppression\') ) {^J^J # OPAC suppression by IP address^J if ( C4::Context->preference(\'OpacSuppressionByIPRange\') ) {^J my $IPAddress = $ENV{\'REMOTE_ADDR\'};^J my $IPRange = C4::Context->preference(\'OpacSuppressionByIPRange\');^J $suppress = ( $IPAddress !~ /^$IPRange/ );^J } else {^J $suppress = 1;^J }^J}^J^J## I. BUILD THE QUERY^J( $error, $query, $simple_query, $query_cgi, $query_desc, $limit, $limit_cgi, $limit_desc, $query_type ) =^J $builder->build_query_compat(^J \@operators,^J \@operands,^J \@indexes,^J \@limits,^J \@sort_by,^J 0,^J $lang,^J {^J suppress => $suppress,^J is_opac => 1,^J weighted_fields => $weight_search^J }^J );^J^J$template->param( search_query => $query ) if C4::Context->preference(\'DumpSearchQueryTemplate\');^J^Jsub _input_cgi_parse {^J my @elements;^J my $query_cgi = shift or return @elements;^J for my $this_cgi ( split( \'&\', $query_cgi ) ) {^J next unless $this_cgi;^J $this_cgi =~ /(.*?)=(.*)/;^J push @elements, { input_name => $1, input_value => Encode::decode_utf8( uri_unescape($2) ) };^J }^J return @elements;^J}^J^J## parse the query_cgi string and put it into a form suitable for s^Jmy @query_inputs = _input_cgi_parse($query_cgi);^J$template->param( QUERY_INPUTS => \@query_inputs );^J^J## parse the limit_cgi string and put it into a form suitable for s^Jmy @limit_inputs = $limit_cgi ? _input_cgi_parse($limit_cgi) : ();^J^J# OpenURL^Jmy @OpenURL_itypes;^Jif ( C4::Context->preference(\'OPACShowOpenURL\') ) {^J @OpenURL_itypes = split( /\s/, C4::Context->preference(\'OPACOpenURLItemTypes\') );^J $template->param(^J OPACShowOpenURL => 1,^J OpenURLResolverURL => C4::Context->preference(\'OpenURLResolverURL\'),^J OpenURLText => C4::Context->preference(\'OpenURLText\'),^J OpenURLImageLocation => C4::Context->preference(\'OpenURLImageLocation\')^J );^J}^J^J$template->param( LIMIT_INPUTS => \@limit_inputs );^J^J## II. DO THE SEARCH AND GET THE RESULTS^Jmy $total = 0; # the total results for the whole set^Jmy $facets; # this object stores the faceted results that display on the left-hand of the results page^Jmy $results_hashref;^J^Jif ($tag) {^J $query_cgi = "tag=" . uri_escape_utf8($tag) . "&" . $query_cgi;^J my $taglist = get_tags( { term => $tag, approved => 1 } );^J $results_hashref->{biblioserver}->{hits} = scalar(@$taglist);^J my @marclist = map { C4::Biblio::GetXmlBiblio( $_->{biblionumber} ) } @$taglist;^J $results_hashref->{biblioserver}->{RECORDS} = \@marclist;^J^J # FIXME: tag search and standard search should work together, not exclusively^J # FIXME: Because search and standard search don\'t work together OpacHiddenItems^J # displays search results which should be hidden.^J # FIXME: No facets for tags search.^J} else {^J my $json = JSON->new->utf8->allow_nonref(1);^J $pasarParams .= \'&query=\' . uri_escape_utf8( $json->encode($query) );^J $pasarParams .= \'&count=\' . uri_escape_utf8($results_per_page);^J $pasarParams .= \'&simple_query=\' . uri_escape_utf8($simple_query);^J $pasarParams .= \'&query_type=\' . uri_escape_utf8($query_type) if ($query_type);^J my $itemtypes_nocategory =^J { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };^J eval {^J ( $error, $results_hashref, $facets ) = $searcher->search_compat(^J $query, $simple_query, \@sort_by, \@servers, $results_per_page, $offset, undef,^J $itemtypes_nocategory, $query_type, $scan, 1^J );^J };^J}^J^J# use Data::Dumper; print STDERR "-" x 25, "\n", Dumper($results_hashref);^Jif ( not $tag and ( $@ || $error ) ) {^J my $query_error = q{};^J $query_error .= $error if $error;^J $query_error .= $@ if $@;^J $template->param( query_error => $query_error );^J output_html_with_http_headers $cgi, $cookie, $template->output;^J exit;^J}^J^J# At this point, each server has given us a result set^J# now we build that set for template display^Jmy @sup_results_array;^Jmy $search_context = {};^J$search_context->{\'interface\'} = \'opac\';^Jif ( C4::Context->preference(\'OpacHiddenItemsExceptions\') ) {^J $search_context->{patron} = $patron;^J}^J^Jmy $variables = { anonymous_session => ($borrowernumber) ? 0 : 1 };^J^Jmy @plugin_responses = Koha::Plugins->call(^J \'opac_results_xslt_variables\',^J {^J lang => $lang,^J patron_id => $borrowernumber^J }^J);^Jfor my $plugin_variables (@plugin_responses) {^J $variables = { %$variables, %$plugin_variables };^J}^J^Jfor ( my $i = 0 ; $i < @servers ; $i++ ) {^J my $server = $servers[$i];^J if ( $server && $server =~ /biblioserver/ ) { # this is the local bibliographic server^J $hits = $results_hashref->{$server}->{"hits"} // 0;^J if ( $hits == 0 && $basic_search ) {^J $operands[0] = \'"\' . $operands[0] . \'"\'; #quote it^J ## I. BUILD THE QUERY^J ( $error, $query, $simple_query, $query_cgi, $query_desc, $limit, $limit_cgi, $limit_desc, $query_type ) =^J $builder->build_query_compat(^J \@operators,^J \@operands,^J \@indexes,^J \@limits,^J \@sort_by,^J 0,^J $lang,^J {^J suppress => $suppress,^J is_opac => 1,^J weighted_fields => $weight_search^J }^J );^J my $quoted_results_hashref;^J my $itemtypes_nocategory =^J { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };^J eval {^J ( $error, $quoted_results_hashref, $facets ) = $searcher->search_compat(^J $query, $simple_query, \@sort_by, \@servers, $results_per_page, $offset,^J undef, $itemtypes_nocategory, $query_type, $scan, 1^J );^J };^J my $quoted_hits = $quoted_results_hashref->{$server}->{"hits"} // 0;^J if ($quoted_hits) {^J $results_hashref->{\'biblioserver\'} = $quoted_results_hashref->{\'biblioserver\'};^J $hits = $quoted_hits;^J }^J }^J my $page = $cgi->param(\'page\') || 0;^J my @newresults = searchResults(^J $search_context, $query_desc, $hits, $results_per_page, $offset, $scan,^J $results_hashref->{$server}->{"RECORDS"}, $variables^J );^J $hits = 0 unless @newresults;^J^J my $art_req_itypes;^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $art_req_itypes = Koha::CirculationRules->guess_article_requestable_itemtypes(^J { $patron ? ( categorycode => $patron->categorycode ) : () } );^J }^J^J foreach my $res (@newresults) {^J^J # must define a value for size if not present in DB^J # in order to avoid problems generated by the default size value in TT^J if ( not exists $res->{\'size\'} ) { $res->{\'size\'} = "" }^J^J # while we\'re checking each line, see if item is in the cart^J if ( grep { $_ eq $res->{\'biblionumber\'} } @cart_list ) {^J $res->{\'incart\'} = 1;^J }^J^J if ( C4::Context->preference("Babeltheque") and $res->{normalized_isbn} ) {^J if ( my $isbn = Business::ISBN->new( $res->{normalized_isbn} ) ) {^J $isbn = $isbn->as_isbn13->as_string;^J $isbn =~ s/-//g;^J my $social_datas = C4::SocialData::get_data($isbn);^J if ($social_datas) {^J for my $key ( keys %$social_datas ) {^J $res->{$key} = $$social_datas{$key};^J if ( $key eq \'score_avg\' ) {^J $res->{score_int} = sprintf( "%.0f", $$social_datas{score_avg} );^J }^J }^J }^J }^J }^J^J if ( C4::Context->preference(\'TagsEnabled\')^J and C4::Context->preference(\'TagsShowOnList\') )^J {^J if ( my $bibnum = $res->{biblionumber} ) {^J $res->{itemsissued} = CountItemsIssued($bibnum);^J $res->{\'TagLoop\'} = get_tags(^J {^J biblionumber => $bibnum,^J approved => 1,^J sort => \'-weight\',^J limit => C4::Context->preference(\'TagsShowOnList\')^J }^J );^J }^J }^J^J $res->{shelves} = Koha::Virtualshelves->get_shelves_containing_record(^J {^J biblionumber => $res->{biblionumber},^J borrowernumber => $borrowernumber^J }^J );^J^J if ( C4::Context->preference(\'OpacStarRatings\') eq \'all\' ) {^J my $ratings = Koha::Ratings->search( { biblionumber => $res->{biblionumber} } );^J $res->{ratings} = $ratings;^J $res->{my_rating} =^J $borrowernumber ? $ratings->search( { borrowernumber => $borrowernumber } )->next : undef;^J }^J^J # BZ17530: \'Intelligent\' guess if result can be article requested^J $res->{artreqpossible} =^J ( $art_req_itypes->{ $res->{itemtype} // q{} } || $art_req_itypes->{\'*\'} ) ? 1 : q{};^J^J if ( C4::Context->preference(\'OPACLocalCoverImages\') ) {^J $res->{has_local_cover_image} = $res->{biblio_object} ? $res->{biblio_object}->cover_images->count : 0;^J }^J }^J^J if ( $results_hashref->{$server}->{"hits"} ) {^J $total = $total + $hits;^J }^J^J # Opac search history^J if ( C4::Context->preference(\'EnableOpacSearchHistory\') ) {^J unless ($offset) {^J my $path_info = $cgi->url( -path_info => 1 );^J my $query_cgi_history = $cgi->url( -query => 1 );^J $query_cgi_history =~ s/^$path_info\?//;^J $query_cgi_history =~ s/;/&/g;^J my $query_desc_history = join ", ", grep { defined $_ } $query_desc, $limit_desc;^J^J if ( $borrowernumber and $cgi->cookie("CGISESSID") ) {^J^J # To the session (the user is logged in)^J C4::Search::History::add(^J {^J userid => $borrowernumber,^J sessionid => $cgi->cookie("CGISESSID"),^J query_desc => $query_desc_history,^J query_cgi => $query_cgi_history,^J total => $total,^J type => "biblio",^J }^J );^J } else {^J my $new_searches = C4::Search::History::add_to_session(^J {^J cgi => $cgi,^J query_desc => $query_desc_history,^J query_cgi => $query_cgi_history,^J total => $total,^J type => "biblio",^J }^J );^J }^J }^J $template->param( EnableOpacSearchHistory => 1 );^J }^J^J ## If there\'s just one result, redirect to the detail page^J if ( $total == 1^J && $format ne \'rss\'^J && $format ne \'opensearchdescription\'^J && $format ne \'atom\'^J && C4::Context->preference(\'RedirectToSoleResult\') )^J {^J my $biblionumber = $newresults[0]->{biblionumber};^J if ( C4::Context->preference(\'BiblioDefaultView\') eq \'isbd\' ) {^J print $cgi->redirect("/cgi-bin/koha/opac-ISBDdetail.pl?biblionumber=$biblionumber");^J } elsif ( C4::Context->preference(\'BiblioDefaultView\') eq \'marc\' ) {^J print $cgi->redirect("/cgi-bin/koha/opac-MARCdetail.pl?biblionumber=$biblionumber");^J } else {^J print $cgi->redirect("/cgi-bin/koha/opac-detail.pl?biblionumber=$biblionumber");^J }^J exit;^J }^J if ($hits) {^J^J # We build the encrypted list of first OPACnumSearchResults biblios to pass with the search criteria for paging on opac-detail^J $pasarParams .= \'&listBiblios=\';^J my $j = 0;^J foreach (@newresults) {^J my $bibnum = ( $_->{biblionumber} ) ? $_->{biblionumber} : 0;^J $pasarParams .= uri_escape_utf8($bibnum) . \',\';^J $j++;^J last if ( $j == $results_per_page );^J }^J chop $pasarParams if ( $pasarParams =~ /,$/ );^J $pasarParams .= \'&total=\' . uri_escape_utf8( int($total) ) if ( $pasarParams !~ /total=(?:[0-9]+)?/ );^J if ($pasarParams) {^J my $session = get_session( $cgi->cookie("CGISESSID") );^J $session->param( \'busc\' => $pasarParams );^J }^J $template->param( total => $hits );^J my $limit_cgi_not_availablity = $limit_cgi;^J $limit_cgi_not_availablity =~ s/&limit=available//g if defined $limit_cgi_not_availablity;^J $template->param( limit_cgi_not_availablity => $limit_cgi_not_availablity );^J $template->param( limit_cgi => $limit_cgi );^J $template->param( countrss => $countRSS );^J $template->param( query_cgi => $query_cgi );^J $template->param( query_desc => $query_desc );^J $template->param( limit_desc => $limit_desc );^J $template->param( offset => $offset );^J^J if ( $query_desc || $limit_desc ) {^J $template->param( searchdesc => 1 );^J }^J $template->param( results_per_page => $results_per_page );^J my $hide = keys %$hidingrules ? 1 : 0;^J^J $template->param(^J SEARCH_RESULTS => \@newresults,^J suppress_result_number => $hide,^J );^J if ( C4::Context->preference("OPACLocalCoverImages") ) {^J $template->param( OPACLocalCoverImages => 1 );^J }^J ## Build the page numbers on the bottom of the page^J my (^J $page_numbers, $hits_to_paginate, $pages, $current_page_number, $previous_page_offset,^J $next_page_offset, $last_page_offset^J )^J = Koha::SearchEngine::Search->pagination_bar(^J {^J hits => $hits,^J max_result_window => $searcher->max_result_window,^J results_per_page => $results_per_page,^J offset => $offset,^J sort_by => \@sort_by^J }^J );^J $template->param(^J hits_to_paginate => $hits_to_paginate,^J current_page_number => $current_page_number,^J pages => $pages^J );^J $template->param(^J PAGE_NUMBERS => $page_numbers,^J last_page_offset => $last_page_offset,^J previous_page_offset => $previous_page_offset^J ) unless $pages < 2;^J $template->param( next_page_offset => $next_page_offset ) unless $pages eq $current_page_number;^J }^J^J # no hits^J else {^J my $nohits = C4::Context->preference(\'OPACNoResultsFound\');^J if ( $nohits and $nohits =~ /{QUERY_KW}/ ) {^J^J # extracting keywords in case of relaunching search^J ( my $query_kw = $query_desc ) =~ s/ and|or / /g;^J my @query_kw = ( $query_kw =~ /([-\w]+\b)(?:[^:]|$)/g );^J $query_kw = join( \'+\', @query_kw );^J $nohits =~ s/{QUERY_KW}/$query_kw/g;^J $template->param( \'OPACNoResultsFound\' => $nohits );^J }^J $template->param(^J searchdesc => 1,^J query_desc => $query_desc,^J limit_desc => $limit_desc,^J query_cgi => $query_cgi,^J limit_cgi => $limit_cgi^J );^J }^J } # end of the if local^J # asynchronously search the authority server^J elsif ( $server && $server =~ /authorityserver/ ) { # this is the local authority server^J my @inner_sup_results_array;^J for my $sup_record ( @{ $results_hashref->{$server}->{"RECORDS"} } ) {^J my $marc_record_object = MARC::Record->new_from_usmarc($sup_record);^J my $title_field = $marc_record_object->field(100);^J push @inner_sup_results_array, {^J \'title\' => $title_field->subfield(\'a\'),^J \'link\' => "&idx=an&q=" . $marc_record_object->field(\'001\')->as_string(),^J };^J }^J my $servername = $server;^J push @sup_results_array, {^J servername => $servername,^J inner_sup_results_loop => \@inner_sup_results_array^J } if @inner_sup_results_array;^J }^J^J # FIXME: can add support for other targets as needed here^J $template->param( outer_sup_results_loop => \@sup_results_array );^J} #/end of the for loop^J^Jfor my $facet (@$facets) {^J for my $entry ( @{ $facet->{facets} } ) {^J my $index = $entry->{type_link_value};^J my $value = $entry->{facet_link_value};^J $entry->{active} = grep { $_->{input_value} eq qq{$index:$value} } @limit_inputs;^J }^J}^J^Jmy @search_filters = Koha::SearchFilters->search( { opac => 1 }, { order_by => "name" } )->as_list;^Jmy %active_filters;^Jforeach my $sf (@search_filters) {^J $active_filters{ $sf->id } = 1 if grep { "search_filter:" . $sf->id eq $_->{input_value} } @limit_inputs;^J}^J$template->param(^J search_filters => \@search_filters,^J active_filters => \%active_filters,^J) if C4::Context->preference(\'SavedSearchFilters\');^J^J$template->param(^J^J #classlist => $classlist,^J total => $total,^J opacfacets => 1,^J facets_loop => $facets,^J displayFacetCount => C4::Context->preference(\'displayFacetCount\') || 0,^J scan => $scan,^J search_error => $error,^J);^J^Jif ( $query_desc || $limit_desc ) {^J $template->param( searchdesc => 1 );^J}^J^J# VI. BUILD THE TEMPLATE^Jmy $some_private_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $borrowernumber,^J add_allowed => 1,^J public => 0,^J }^J);^Jmy $some_public_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $borrowernumber,^J add_allowed => 1,^J public => 1,^J }^J);^J^J$template->param(^J add_to_some_private_shelves => $some_private_shelves,^J add_to_some_public_shelves => $some_public_shelves,^J);^J^Jmy $content_type = ( $format eq \'rss\' or $format eq \'atom\' or $format eq \'opensearchdescription\' ) ? $format : \'html\';^J^J$template->{VARS}->{DidYouMean} =^J ( defined C4::Context->preference(\'OPACdidyoumean\') && C4::Context->preference(\'OPACdidyoumean\') =~ m/enable/ );^J^Jif ( $offset == 0 ) {^J $template->param( firstPage => 1 );^J}^J^J$template->param( borrowernumber => $borrowernumber );^Joutput_with_http_headers $cgi, $cookie, $template->output, $content_type;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-search.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d39a4f920)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d39a4f920)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2df43718)', 'HASH(0x559d382dd570)', '/kohadevbox/koha/opac/opac-search.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2df43718)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d39a52b68)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39af2d68)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39a118b8)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') 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(0x559d39aee6a8)', 'Try::Tiny::Catch=REF(0x559d39adfea0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d399e90a0)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d39abab58)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382dd5d0)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d399f7918)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d399ebeb8)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d396ef458)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d396ec290)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a7f858)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b990)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d38225ce8)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d4438)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d382dd570)') 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(0x559d381e7430)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d382dd570)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d39a93a60)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836903: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d39a302a8)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dtags_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-tags.pl^J#!/usr/bin/perl^J^J# Copyright 2000-2002 Katipo Communications^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^J=head1 NAME^J^Jopac-tags.pl^J^J=head1 DESCRIPTION^J^JTODO :: Description here^J^JC4::Scrubber is used to remove all markup content from the sumitted text.^J^J=cut^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse CGI::Cookie; # need to check cookies before having CGI parse the POST request^Juse Array::Utils qw( array_minus );^J^Juse C4::Auth qw( check_cookie_auth get_template_and_user );^Juse C4::Context;^Juse C4::Output qw( output_with_http_headers is_ajax output_html_with_http_headers );^Juse C4::Scrubber;^Juse C4::Tags qw(^J add_tag^J get_approval_rows^J get_tag_rows^J remove_tag^J stratify_tags^J);^Juse C4::XSLT qw( XSLTParse4Display );^Juse Koha::Biblios;^J^Juse Koha::Logger;^Juse Koha::Biblios;^Juse Koha::CirculationRules;^J^Jmy %newtags = ();^Jmy @deltags = ();^Jmy %counts = ();^Jmy @errors = ();^Jmy $perBibResults = {};^J^J# Indexes of @errors that do not apply to a particular biblionumber.^Jmy @globalErrorIndexes = ();^J^Jsub ajax_auth_cgi { # returns CGI object^J my $needed_flags = shift;^J my %cookies = CGI::Cookie->fetch;^J my $input = CGI->new;^J my $sessid = $cookies{\'CGISESSID\'}->value;^J my ($auth_status) = check_cookie_auth( $sessid, $needed_flags );^J if ( $auth_status ne "ok" ) {^J output_with_http_headers $input, undef,^J "window.alert(\'Your CGI session cookie ($sessid) is not current. "^J . "Please refresh the page and try again.\');\n", \'js\';^J exit 0;^J }^J return $input;^J}^J^J# The trick here is to support multiple tags added to multiple biblios in one POST.^J# The HTML might not use this, but it makes it more web-servicey from the start.^J# So the name of param has to have biblionumber built in.^J# For lack of anything more compelling, we just use "newtag[biblionumber]"^J# We split the value into tags at comma and semicolon^J^Jmy $is_ajax = is_ajax();^Jmy $openadds = C4::Context->preference(\'TagsModeration\') ? 0 : 1;^Jmy $query = ($is_ajax) ? &ajax_auth_cgi( {} ) : CGI->new();^Jforeach ( $query->param ) {^J if (/^newtag(.*)/) {^J my $biblionumber = $1;^J unless ( $biblionumber =~ /^\d+$/ ) {^J push @errors, { +\'badparam\' => $_ };^J push @globalErrorIndexes, $#errors;^J next;^J }^J $newtags{$biblionumber} = $query->param($_);^J } elsif (/^del(\d+)$/) {^J push @deltags, $1;^J }^J}^J^Jmy $add_op = ( scalar( keys %newtags ) + scalar(@deltags) ) ? 1 : 0;^Jmy ( $template, $loggedinuser, $cookie );^Jif ($is_ajax) {^J $loggedinuser = C4::Context->userenv->{\'number\'}; # must occur AFTER auth^J} else {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "opac-tags.tt",^J query => $query,^J type => "opac",^J authnotrequired => ( $add_op ? 0 : 1 ), # auth required to add tags^J }^J );^J}^J^Junless ( C4::Context->preference(\'TagsEnabled\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jif ($add_op) {^J unless ($loggedinuser) {^J push @errors, { +\'cud-login\' => 1 };^J push @globalErrorIndexes, $#errors;^J %newtags = (); # zero out any attempted additions^J @deltags = (); # zero out any attempted deletions^J }^J}^J^Jmy $op = $query->param(\'op\') || q{};^Jmy $dels = 0;^Jif ( $op eq \'cud-add\' ) {^J my $scrubber;^J my @newtags_keys = ( keys %newtags );^J if ( scalar @newtags_keys ) {^J $scrubber = C4::Scrubber->new();^J foreach my $biblionumber (@newtags_keys) {^J my $bibResults = { adds => 0, errors => [] };^J my @values = split /[;,]/, $newtags{$biblionumber};^J foreach (@values) {^J s/^\s*(.+)\s*$/$1/;^J my $clean_tag = $scrubber->scrub($_);^J unless ( $clean_tag eq $_ ) {^J if ( $clean_tag =~ /\S/ ) {^J push @errors, { scrubbed => $clean_tag };^J push @{ $bibResults->{errors} }, { scrubbed => $clean_tag };^J } else {^J push @errors, { scrubbed_all_bad => 1 };^J push @{ $bibResults->{errors} }, { scrubbed_all_bad => 1 };^J next; # we don\'t add it if there\'s nothing left!^J }^J }^J my $result =^J ($openadds) ? add_tag( $biblionumber, $clean_tag, $loggedinuser, $loggedinuser ) : # pre-approved^J add_tag( $biblionumber, $clean_tag, $loggedinuser );^J if ($result) {^J $counts{$biblionumber}++;^J $bibResults->{adds}++;^J } else {^J push @errors, { failed_add_tag => $clean_tag };^J push @{ $bibResults->{errors} }, { failed_add_tag => $clean_tag };^J Koha::Logger->get->warn( "add_tag($biblionumber,$clean_tag,$loggedinuser...) returned bad result ("^J . ( defined $result ? $result : \'UNDEF\' )^J . ")" );^J }^J }^J $perBibResults->{$biblionumber} = $bibResults;^J }^J }^J} elsif ( $op eq \'cud-del\' ) {^J foreach (@deltags) {^J if ( remove_tag( $_, $loggedinuser ) ) {^J $dels++;^J } else {^J push @errors, { failed_delete => $_ };^J }^J }^J}^J^Jif ($is_ajax) {^J my $sum = 0;^J foreach ( values %counts ) { $sum += $_; }^J my $js_reply = sprintf( "response = {\n\tadded: %d,\n\tdeleted: %d,\n\terrors: %d", $sum, $dels, scalar @errors );^J^J # If no add attempts were made, flag global errors.^J if (@globalErrorIndexes) {^J $js_reply .= ",\n\tglobal_errors: [";^J my $first = 1;^J foreach (@globalErrorIndexes) {^J $js_reply .= "," unless $first;^J $first = 0;^J $js_reply .= "\n\t\t$_";^J }^J $js_reply .= "\n\t]";^J }^J^J my $err_string = \'\';^J if ( scalar @errors ) {^J $err_string = ",\n\talerts: ["; # open response_function^J my $i = 1;^J foreach (@errors) {^J my $key = ( keys %$_ )[0];^J ( my $quote_escaped = $_->{$key} ) =~ s|"|\\"|g;^J $err_string .= sprintf qq{\n\t\t KOHA.Tags.tag_message.%s("%s")}, $key, $quote_escaped;^J if ( $i < scalar @errors ) { $err_string .= ","; }^J $i++;^J }^J $err_string .= "\n\t]\n"; # close response_function^J }^J^J # Add per-biblionumber results for use on results page^J my $js_perbib = "";^J for my $bib ( keys %$perBibResults ) {^J my $bibResult = $perBibResults->{$bib};^J my $js_bibres = ",\n\t$bib: {\n\t\tadded: $bibResult->{adds}";^J $js_bibres .= ",\n\t\terrors: [";^J my $i = 0;^J foreach ( @{ $bibResult->{errors} } ) {^J $js_bibres .= "," if ($i);^J my $key = ( keys %$_ )[0];^J ( my $quote_escaped = $_->{$key} ) =~ s|"|\\"|g;^J $js_bibres .= sprintf qq{\n\t\t\t KOHA.Tags.tag_message.%s("%s")}, $key, $quote_escaped;^J $i++;^J }^J $js_bibres .= "\n\t\t]\n\t}";^J $js_perbib .= $js_bibres;^J }^J^J output_with_http_headers( $query, undef, "$js_reply\n$err_string\n$js_perbib\n};", \'js\' );^J exit;^J}^J^Jmy $results = [];^Jmy $my_tags = [];^J^Jif ($loggedinuser) {^J my $patron = Koha::Patrons->find( { borrowernumber => $loggedinuser } );^J my $rules = C4::Context->yaml_preference(\'OpacHiddenItems\');^J my $should_hide = ($rules) ? 1 : 0;^J $my_tags = get_tag_rows( { borrowernumber => $loggedinuser } );^J my $my_approved_tags = get_approval_rows( { approved => 1 } );^J^J my $art_req_itypes;^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $art_req_itypes = Koha::CirculationRules->guess_article_requestable_itemtypes(^J { $patron ? ( categorycode => $patron->categorycode ) : () } );^J }^J^J # get biblionumbers stored in the cart^J my @cart_list;^J^J if ( $query->cookie("bib_list") ) {^J my $cart_list = $query->cookie("bib_list");^J @cart_list = split( /\//, $cart_list );^J }^J^J foreach my $tag (@$my_tags) {^J $tag->{visible} = 0;^J my $biblio = Koha::Biblios->find( $tag->{biblionumber} );^J my $record = $biblio->metadata_record(^J {^J embed_items => 1,^J interface => \'opac\',^J patron => $patron,^J }^J );^J next unless $record;^J my @hidden_items;^J if ($should_hide) {^J my $items = $biblio->items->search_ordered;^J my @all_itemnumbers = $items->get_column(\'itemnumber\');^J my @items_to_show = $items->filter_by_visible_in_opac( { opac => 1, patron => $patron } )->as_list;^J @hidden_items = array_minus( @all_itemnumbers, @items_to_show );^J }^J next^J if (^J (^J !$patron^J or ( $patron and !$patron->category->override_hidden_items )^J )^J and $biblio->hidden_in_opac( { rules => $rules } )^J );^J $tag->{title} = $biblio->title;^J $tag->{subtitle} = $biblio->subtitle;^J $tag->{medium} = $biblio->medium;^J $tag->{part_number} = $biblio->part_number;^J $tag->{part_name} = $biblio->part_name;^J $tag->{author} = $biblio->author;^J^J # BZ17530: \'Intelligent\' guess if result can be article requested^J $tag->{artreqpossible} = ( $art_req_itypes->{ $tag->{itemtype} // q{} } || $art_req_itypes->{\'*\'} ) ? 1 : q{};^J^J my $variables = { anonymous_session => ($loggedinuser) ? 0 : 1 };^J $tag->{XSLTBloc} = XSLTParse4Display(^J {^J biblionumber => $tag->{biblionumber},^J record => $record,^J xsl_syspref => \'OPACXSLTResultsDisplay\',^J fix_amps => 1,^J hidden_items => \@hidden_items,^J xslt_variables => $variables,^J }^J );^J^J my $date = $tag->{date_created} || \'\';^J $date =~ /\s+(\d{2}\:\d{2}\:\d{2})/;^J $tag->{time_created_display} = $1;^J $tag->{approved} = ( grep { $_->{term} eq $tag->{term} and $_->{approved} } @$my_approved_tags );^J $tag->{visible} = 1;^J^J # while we\'re checking each line, see if item is in the cart^J if ( grep { $_ eq $biblio->biblionumber } @cart_list ) {^J $tag->{incart} = 1;^J }^J }^J}^J^J$template->param( tagsview => 1 );^J^Jif ($add_op) {^J my $adds = 0;^J for ( values %counts ) { $adds += $_; }^J $template->param(^J add_op => 1,^J added_count => $adds,^J deleted_count => $dels,^J );^J} else {^J my ( $arg, $limit, $mine );^J my $hardmax = 100; # you might disagree what this value should be, but there definitely should be a max^J $limit = $query->param(\'limit\') || $hardmax;^J $mine = $query->param(\'mine\') || 0; # set if the patron want to see only his own tags.^J ( $limit =~ /^\d+$/ and $limit <= $hardmax ) or $limit = $hardmax;^J $template->param( limit => $limit );^J my $arghash = { approved => 1, limit => $limit, \'sort\' => \'-weight_total\' };^J $arghash->{\'borrowernumber\'} = $loggedinuser if $mine;^J^J # ($openadds) or $arghash->{approved} = 1;^J if ( $arg = $query->param(\'tag\') ) {^J $arghash->{term} = $arg;^J }^J^J # Bug 36785: Do not pass biblionumber: get_approval_rows does not \'recognize\' biblionumber^J $results = get_approval_rows($arghash);^J stratify_tags( 10, $results ); # work out the different sizes for things^J my $count = scalar @$results;^J $template->param( TAGLOOP_COUNT => $count, mine => $mine );^J}^J( scalar @errors ) and $template->param( ERRORS => \@errors );^Jmy @orderedresult = sort { uc( $a->{\'term\'} ) cmp uc( $b->{\'term\'} ) } @$results;^J( scalar @$results ) and $template->param( TAGLOOP => \@orderedresult );^J( scalar @$my_tags ) and $template->param( MY_TAGS => $my_tags );^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-tags.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d39a838d0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d39a838d0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2df42fe0)', 'HASH(0x559d39849a98)', '/kohadevbox/koha/opac/opac-tags.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2df42fe0)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d39a071f0)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39a3c3d8)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39a3c420)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') 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(0x559d39711520)', 'Try::Tiny::Catch=REF(0x559d39a8ab60)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d39a7ae88)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d39a56748)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382e1a68)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d39ab6208)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d39a3f938)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d39a300b0)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d39a6ccf8)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a30398)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b978)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d3822aa10)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d8a60)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39849a98)') 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(0x559d38228608)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d39849a98)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d382e1228)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836904: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d39a97b40)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d39a02ed8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d39a02ed8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2df43430)', 'HASH(0x559d399f74c8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2df43430)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d3997e028)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39709c40)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39af6a28)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') 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(0x559d397d3430)', 'Try::Tiny::Catch=REF(0x559d39a56180)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d396f76a8)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d399ebc78)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382dd5d0)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d399f7918)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d399ebeb8)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d396ef458)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d396ec290)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a7f858)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b990)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d38225ce8)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d4438)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d399f74c8)') 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(0x559d381e7430)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d399f74c8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d382dd570)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836903: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d39a30278)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d39a5c5d0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d39a5c5d0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2df42fe0)', 'HASH(0x559d2d7555b0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2df42fe0)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d39a071f0)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39a3c3d8)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39a3c420)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') 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(0x559d39a12b20)', 'Try::Tiny::Catch=REF(0x559d39a73950)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d39a7ae88)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d39a56748)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382e1a68)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d39ab6208)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d39a3f938)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d39a300b0)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d39a6ccf8)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a30398)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b978)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d3822aa10)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d8a60)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d2d7555b0)') 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(0x559d38228608)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d2d7555b0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d39849a98)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836904: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d39a02f50)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d39a43140)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d39a43140)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2df43430)', 'HASH(0x559d39adfc60)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2df43430)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d3997e028)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39709c40)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39af6a28)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') 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(0x559d39af2198)', 'Try::Tiny::Catch=REF(0x559d39a34fc0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d396f76a8)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d399ebc78)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382dd5d0)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d399f7918)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d399ebeb8)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d396ef458)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d396ec290)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a7f858)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b990)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d38225ce8)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d4438)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39adfc60)') 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(0x559d381e7430)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d39adfc60)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d399f74c8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3836903: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559d397d7da0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dshelves_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-shelves.pl^J#!/usr/bin/perl^J^J# Copyright 2015 Koha Team^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Biblio qw( GetBiblioData GetFrameworkCode );^Juse C4::External::BakerTaylor qw( image_url link_url );^Juse C4::Koha qw(^J GetNormalizedEAN^J GetNormalizedISBN^J GetNormalizedOCLCNumber^J GetNormalizedUPC^J);^Juse C4::Members;^Juse C4::Output qw( pagination_bar output_with_http_headers );^Juse C4::Tags qw( get_tags );^Juse C4::XSLT qw( XSLTParse4Display );^J^Juse Koha::Biblios;^Juse Koha::Biblioitems;^Juse Koha::CirculationRules;^Juse Koha::CsvProfiles;^Juse Koha::DateUtils qw/dt_from_string/;^Juse Koha::Items;^Juse Koha::ItemTypes;^Juse Koha::Patrons;^Juse Koha::Virtualshelfshares;^Juse Koha::Virtualshelves;^Juse Koha::RecordProcessor;^J^Juse constant ANYONE => 2;^Juse constant STAFF => 3;^Juse constant PERMITTED => 4;^J^Jmy $query = CGI->new;^J^Jmy $template_name = $query->param(\'rss\') ? "opac-shelves-rss.tt" : "opac-shelves.tt";^J^J# if virtualshelves is disabled, leave immediately^Jif ( !C4::Context->preference(\'virtualshelves\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy $op = $query->param(\'op\') || \'list\';^Jmy ( $template, $loggedinuser, $cookie );^J^Jif ( $op eq \'view\' || $op eq \'list\' ) {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => $template_name,^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J );^J} else {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => $template_name,^J query => $query,^J type => "opac",^J authnotrequired => 0,^J }^J );^J}^J^Jif ( C4::Context->preference("BakerTaylorEnabled") ) {^J $template->param(^J BakerTaylorImageURL => &image_url(),^J BakerTaylorLinkURL => &link_url(),^J );^J}^J^Jmy $referer = $query->param(\'referer\') || $op;^Jmy $page = int( $query->param(\'page\') || 1 );^Jmy $public = 0;^J$public = 1 if $query->param(\'public\') && $query->param(\'public\') == 1;^J^Jmy ( $shelf, $shelfnumber, @messages );^J^J# PART 1: Perform a few actions^Jif ( $op eq \'add_form\' ) {^J^J # Only pass default^J $shelf = { allow_change_from_owner => 1 };^J} elsif ( $op eq \'edit_form\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J^J if ($shelf) {^J $public = $shelf->public;^J my $patron = Koha::Patrons->find( $shelf->owner );^J $template->param( owner => $patron, );^J unless ( $shelf->can_be_managed($loggedinuser) ) {^J push @messages, { type => \'error\', code => \'unauthorized_on_update\' };^J $op = \'list\';^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'cud-add\' ) {^J if ($loggedinuser) {^J my $allow_changes_from = $query->param(\'allow_changes_from\');^J eval {^J $shelf = Koha::Virtualshelf->new(^J {^J shelfname => scalar $query->param(\'shelfname\'),^J sortfield => scalar $query->param(\'sortfield\'),^J public => $public,^J allow_change_from_owner => $allow_changes_from > 0,^J allow_change_from_others => $allow_changes_from == ANYONE,^J allow_change_from_staff => $allow_changes_from == STAFF,^J allow_change_from_permitted_staff => $allow_changes_from == PERMITTED,^J owner => scalar $loggedinuser,^J }^J );^J $shelf->store;^J $shelfnumber = $shelf->shelfnumber;^J };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ( not $shelf ) {^J push @messages, { type => \'error\', code => \'error_on_insert\' };^J } else {^J push @messages, { type => \'message\', code => \'success_on_insert\' };^J $op = \'view\';^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_insert\' };^J $op = \'list\';^J }^J} elsif ( $op eq \'cud-edit\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J $op = $referer;^J my $sortfield = $query->param(\'sortfield\');^J $sortfield = \'title\' unless grep { $_ eq $sortfield } qw( title author copyrightdate itemcallnumber dateadded );^J if ( $sortfield eq \'copyrightdate\' and C4::Context->preference(\'marcflavour\') eq \'UNIMARC\' ) {^J $sortfield = \'publicationyear\';^J }^J if ( $shelf->can_be_managed($loggedinuser) ) {^J $shelf->shelfname( scalar $query->param(\'shelfname\') );^J $shelf->sortfield($sortfield);^J my $allow_changes_from = $query->param(\'allow_changes_from\');^J $shelf->allow_change_from_owner( $allow_changes_from > 0 );^J $shelf->allow_change_from_others( $allow_changes_from == ANYONE );^J $shelf->allow_change_from_staff( $allow_changes_from == STAFF );^J $shelf->allow_change_from_permitted_staff( $allow_changes_from == PERMITTED );^J $shelf->public($public);^J eval { $shelf->store };^J^J if ($@) {^J push @messages, { type => \'error\', code => \'error_on_update\' };^J $op = \'edit_form\';^J } else {^J push @messages, { type => \'message\', code => \'success_on_update\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_update\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'cud-delete\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( $shelf->can_be_deleted($loggedinuser) ) {^J eval { $shelf->delete; };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } else {^J push @messages, { type => \'message\', code => \'success_on_delete\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_delete\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J} elsif ( $op eq \'cud-remove_share\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J my $removed = eval { $shelf->remove_share($loggedinuser); };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($removed) {^J push @messages, { type => \'message\', code => \'success_on_remove_share\' };^J } else {^J push @messages, { type => \'error\', code => \'error_on_remove_share\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J^J} elsif ( $op eq \'cud-add_biblio\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( my $barcode = $query->param(\'barcode\') ) {^J my $item = Koha::Items->find( { barcode => $barcode } );^J if ($item) {^J if ( $shelf->can_biblios_be_added($loggedinuser) ) {^J my $added = eval { $shelf->add_biblio( $item->biblionumber, $loggedinuser ); };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($added) {^J push @messages, { type => \'message\', code => \'success_on_add_biblio\' };^J } else {^J push @messages, { type => \'message\', code => \'error_on_add_biblio\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_add_biblio\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'item_does_not_exist\' };^J }^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J} elsif ( $op eq \'cud-remove_biblios\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J my @biblionumber = $query->multi_param(\'biblionumber\');^J if ($shelf) {^J if ( $shelf->can_biblios_be_removed($loggedinuser) ) {^J my $number_of_biblios_removed = eval {^J $shelf->remove_biblios(^J {^J biblionumbers => \@biblionumber,^J borrowernumber => $loggedinuser,^J }^J );^J };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($number_of_biblios_removed) {^J push @messages, { type => \'message\', code => \'success_on_remove_biblios\' };^J } else {^J push @messages, { type => \'error\', code => \'no_biblio_removed\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_remove_biblios\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = \'view\';^J} elsif ( $op eq \'cud-transfer\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber) if $shelfnumber;^J my $new_owner = $query->param(\'new_owner\'); # borrowernumber or undef^J my $error_code =^J $shelf^J ? $shelf->cannot_be_transferred( { by => $loggedinuser, to => $new_owner, interface => \'opac\' } )^J : \'does_not_exist\';^J^J if ( !$new_owner && $error_code eq \'missing_to_parameter\' ) { # show transfer form^J my $patrons = [];^J my $shares = $shelf->get_shares->search( { borrowernumber => { \'!=\' => undef } } );^J while ( my $share = $shares->next ) {^J my $email = $share->sharee->notice_email_address;^J push @$patrons, { email => $email, borrowernumber => $share->get_column(\'borrowernumber\') } if $email;^J }^J if (@$patrons) {^J $template->param( shared_users => $patrons );^J $op = \'cud-transfer\';^J } else {^J push @messages, { type => \'error\', code => \'no_email_found\' };^J }^J } elsif ($error_code) {^J push @messages, { type => \'error\', code => $error_code };^J $op = \'list\';^J } else { # transfer; remove new_owner from virtualshelfshares, add loggedinuser^J $shelf->_result->result_source->schema->txn_do(^J sub {^J $shelf->get_shares->search( { borrowernumber => $new_owner } )->delete;^J Koha::Virtualshelfshare->new(^J { shelfnumber => $shelfnumber, borrowernumber => $loggedinuser, sharedate => dt_from_string } )^J ->store;^J $shelf->owner($new_owner)->store;^J }^J );^J $op = \'list\';^J }^J}^J^J# PART 2: After a possible action, view one list or show a number of lists^Jif ( $op eq \'view\' ) {^J $shelfnumber ||= $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( $shelf->can_be_viewed($loggedinuser) ) {^J $public = $shelf->public;^J^J # Sortfield param may still include sort order with :asc or :desc, but direction overrides it^J my ( $sortfield, $direction );^J if ( $query->param(\'sortfield\') ) {^J ( $sortfield, $direction ) = split /:/, $query->param(\'sortfield\');^J } else {^J $sortfield = $shelf->sortfield;^J $direction = \'asc\';^J }^J $direction = $query->param(\'direction\') if $query->param(\'direction\');^J $direction = \'asc\' if !$direction or ( $direction ne \'asc\' and $direction ne \'desc\' );^J $sortfield = \'title\'^J if !$sortfield^J or !grep { $_ eq $sortfield } qw( title author copyrightdate itemcallnumber dateadded );^J if ( $sortfield eq \'copyrightdate\' and C4::Context->preference(\'marcflavour\') eq \'UNIMARC\' ) {^J $sortfield = \'publicationyear\';^J }^J^J my $rows;^J if ( $query->param(\'print\') or $query->param(\'rss\') ) {^J $page = "";^J } else {^J $rows = C4::Context->preference(\'OPACnumSearchResults\') || 20;^J }^J my $order_by = $sortfield eq \'itemcallnumber\' ? \'items.cn_sort\' : $sortfield;^J my $contents = $shelf->get_contents->search(^J {},^J {^J distinct => \'biblionumber\',^J join => [ { \'biblionumber\' => { \'biblioitems\' => \'items\' } } ],^J page => $page,^J rows => $rows,^J order_by => { "-$direction" => $order_by },^J }^J );^J^J # get biblionumbers stored in the cart^J my @cart_list;^J if ( my $cart_list = $query->cookie(\'bib_list\') ) {^J @cart_list = split( /\//, $cart_list );^J }^J^J my $patron = Koha::Patrons->find($loggedinuser);^J^J my $categorycode; # needed for may_article_request^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $categorycode = $patron ? $patron->categorycode : undef;^J }^J^J my $record_processor = Koha::RecordProcessor->new( { filters => \'ViewPolicy\' } );^J^J my $art_req_itypes;^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $art_req_itypes = Koha::CirculationRules->guess_article_requestable_itemtypes(^J { $patron ? ( categorycode => $patron->categorycode ) : () } );^J }^J^J my @items_info;^J while ( my $content = $contents->next ) {^J my $biblionumber = $content->biblionumber;^J my $this_item = GetBiblioData($biblionumber);^J my $biblio = Koha::Biblios->find($biblionumber);^J my $record = $biblio->metadata->record;^J my $framework = GetFrameworkCode($biblionumber);^J $record_processor->options(^J {^J interface => \'opac\',^J frameworkcode => $framework^J }^J );^J $record_processor->process($record);^J^J my $marcflavour = C4::Context->preference("marcflavour");^J my $itemtype = Koha::Biblioitems->search( { biblionumber => $content->biblionumber } )->next->itemtype;^J $itemtype = Koha::ItemTypes->find($itemtype);^J if ($itemtype) {^J $this_item->{imageurl} = C4::Koha::getitemtypeimagelocation( \'opac\', $itemtype->imageurl );^J $this_item->{description} = $itemtype->description; #FIXME Should not it be translated_description?^J $this_item->{notforloan} = $itemtype->notforloan;^J }^J $this_item->{\'coins\'} = $biblio->get_coins;^J $this_item->{\'normalized_upc\'} = GetNormalizedUPC( $record, $marcflavour );^J $this_item->{\'normalized_ean\'} = GetNormalizedEAN( $record, $marcflavour );^J $this_item->{\'normalized_oclc\'} = GetNormalizedOCLCNumber( $record, $marcflavour );^J $this_item->{\'normalized_isbn\'} = GetNormalizedISBN( undef, $record, $marcflavour );^J^J # BZ17530: \'Intelligent\' guess if result can be article requested^J $this_item->{artreqpossible} =^J ( $art_req_itypes->{ $this_item->{itemtype} // q{} } || $art_req_itypes->{\'*\'} ) ? 1 : q{};^J^J unless ( defined $this_item->{size} ) {^J^J #TT has problems with size^J $this_item->{size} = q||;^J }^J^J if ( C4::Context->preference(\'TagsEnabled\') and C4::Context->preference(\'TagsShowOnList\') ) {^J $this_item->{TagLoop} = get_tags(^J {^J biblionumber => $biblionumber, approved => 1, \'sort\' => \'-weight\',^J limit => C4::Context->preference(\'TagsShowOnList\'),^J }^J );^J }^J^J my $items = $biblio->items->filter_by_visible_in_opac( { patron => $patron } );^J my $allow_onshelf_holds;^J while ( my $item = $items->next ) {^J^J # This method must take a Koha::Items rs^J $allow_onshelf_holds ||=^J Koha::CirculationRules->get_onshelfholds_policy( { item => $item, patron => $patron } );^J^J }^J^J $this_item->{allow_onshelf_holds} = $allow_onshelf_holds;^J $this_item->{\'ITEM_RESULTS\'} = $items;^J^J my $variables = { anonymous_session => ($loggedinuser) ? 0 : 1 };^J $this_item->{XSLTBloc} = XSLTParse4Display(^J {^J biblionumber => $biblionumber,^J record => $record,^J xsl_syspref => "OPACXSLTListsDisplay",^J fix_amps => 1,^J xslt_variables => $variables,^J items_rs => $items->reset,^J }^J );^J^J if ( grep { $_ eq $biblionumber } @cart_list ) {^J $this_item->{incart} = 1;^J }^J^J $this_item->{biblio_object} = $biblio;^J $this_item->{biblionumber} = $biblionumber;^J $this_item->{shelves} = Koha::Virtualshelves->get_shelves_containing_record(^J {^J biblionumber => $biblionumber,^J borrowernumber => $loggedinuser,^J }^J );^J push @items_info, $this_item;^J }^J^J $template->param(^J can_manage_shelf => $shelf->can_be_managed($loggedinuser),^J can_delete_shelf => $shelf->can_be_deleted($loggedinuser),^J can_remove_biblios => $shelf->can_biblios_be_removed($loggedinuser),^J can_add_biblios => $shelf->can_biblios_be_added($loggedinuser),^J itemsloop => \@items_info,^J sortfield => $sortfield,^J direction => $direction,^J csv_profiles => Koha::CsvProfiles->search(^J {^J type => \'marc\',^J used_for => \'export_records\',^J staff_only => 0^J }^J ),^J );^J if ($page) {^J my $pager = $contents->pager;^J $template->param(^J pagination_bar => pagination_bar(^J q||, $pager->last_page - $pager->first_page + 1,^J $page, "page",^J {^J op => \'view\', shelfnumber => $shelf->shelfnumber, sortfield => $sortfield,^J direction => $direction,^J }^J ),^J );^J }^J my $some_private_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $loggedinuser,^J add_allowed => 1,^J public => 0,^J }^J );^J my $some_public_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $loggedinuser,^J add_allowed => 1,^J public => 1,^J }^J );^J^J $template->param(^J add_to_some_private_shelves => $some_private_shelves,^J add_to_some_public_shelves => $some_public_shelves,^J );^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_view\' };^J undef $shelf;^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'list\' ) {^J my $direction = $query->param(\'direction\') || \'asc\';^J my $sortfield = $query->param(\'sortfield\') || \'shelfname\';^J my $sort_by = { sortfield => $sortfield, direction => $direction };^J^J my $shelves;^J my ($rows) = (20);^J if ( !$public ) {^J $shelves = Koha::Virtualshelves->get_private_shelves(^J { page => $page, rows => $rows, borrowernumber => $loggedinuser, sort_by => $sort_by, } );^J } else {^J $shelves = Koha::Virtualshelves->get_public_shelves( { page => $page, rows => $rows, sort_by => $sort_by, } );^J }^J^J my $pager = $shelves->pager;^J $template->param(^J shelves => $shelves,^J pagination_bar => pagination_bar(^J q||, $pager->last_page - $pager->first_page + 1,^J $page, "page",^J {^J op => \'list\', public => $public, sortfield => $sortfield,^J direction => $direction,^J }^J ),^J );^J}^J^Jmy ( $staffuser, $permitteduser );^J$staffuser = Koha::Patrons->find($loggedinuser)->can_patron_change_staff_only_lists if $loggedinuser;^J$permitteduser = Koha::Patrons->find($loggedinuser)->can_patron_change_permitted_staff_lists if $loggedinuser;^J^J$template->param(^J op => $op,^J referer => $referer,^J shelf => $shelf,^J messages => \@messages,^J public => $public,^J print => scalar $query->param(\'print\') || 0,^J listsview => 1,^J staffuser => $staffuser,^J permitteduser => $permitteduser^J);^J^Jmy $content_type = $query->param(\'rss\') ? \'rss\' : \'html\';^Joutput_with_http_headers $query, $cookie, $template->output, $content_type;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-shelves.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559d39a8b148)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559d39a8b148)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559d2df42fe0)', 'HASH(0x559d39a30020)', '/kohadevbox/koha/opac/opac-shelves.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559d2df42fe0)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559d39a071f0)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559d39a3c3d8)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559d39a3c420)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') 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(0x559d39a5a900)', 'Try::Tiny::Catch=REF(0x559d39afefe8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559d39a7ae88)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559d39a56748)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559d382e1a68)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559d39ab6208)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559d39a3f938)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559d39a300b0)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559d39a6ccf8)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559d39a30398)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559d2df3b978)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559d3822aa10)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559d382d8a60)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559d39a30020)') 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(0x559d38228608)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559d2d90d460)', 'HASH(0x559d39a30020)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559d2d90d460)', 'Net::Server::Proto::UNIX=GLOB(0x559d2d7555b0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559d2d90d460)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559d2d90d460)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'port', 'ARRAY(0x559d2dec7a38)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559d2d90d460)', 'CODE(0x559d2d90d310)', 'HASH(0x559d2d90d0b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559d2d90d328)', 'CODE(0x559d2d90d310)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559d2d653da0)', 'Plack::Handler::Starman=HASH(0x559d2d90d328)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559d2d5fafd8)') called at /bin/starman line 38 2026/08/12-06:44:56 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-06:44:56 Worker processes cleaned up 2026/08/12-06:44:56 Server closing! Process Backgrounded 2026/08/12-06:44:57 Starman::Server (type Net::Server::PreFork) starting! pid(3867030) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-06:53:13 Received QUIT. Running a graceful shutdown Sending children hup signal Child process 3867031 exited with status 0 - signal was 1 2026/08/12-06:53:13 Worker processes cleaned up 2026/08/12-06:53:13 Server closing! Process Backgrounded 2026/08/12-06:53:14 Starman::Server (type Net::Server::PreFork) starting! pid(3868174) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-06:56:07 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-06:56:07 Worker processes cleaned up 2026/08/12-06:56:07 Server closing! Process Backgrounded 2026/08/12-06:56:08 Starman::Server (type Net::Server::PreFork) starting! pid(3868879) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-07:01:02 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-07:01:02 Worker processes cleaned up 2026/08/12-07:01:02 Server closing! Process Backgrounded 2026/08/12-07:01:03 Starman::Server (type Net::Server::PreFork) starting! pid(3869767) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3869769: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x557249995790)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5572552933a8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5572552933a8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x557253a3c3a8)', 'HASH(0x557255281d90)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x557253a3c3a8)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5572552a8538)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5572552b1918)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5572552bb230)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') 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(0x557255299338)', 'Try::Tiny::Catch=REF(0x5572552e0c30)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x557255299308)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55725533cc08)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x557253b3fc80)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5572552dc1b8)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x557255279978)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55725531e4e8)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55725531a920)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5572552b1b10)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55724977b888)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x557253a7d210)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x557253b24d40)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x557255281d90)') 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(0x557253b24bc0)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5572490b85b0)', 'HASH(0x557255281d90)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5572490b85b0)', 'Net::Server::Proto::UNIX=GLOB(0x557253b2cd78)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5572490b85b0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5572490b85b0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5572490b85b0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5572490b85b0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5572490b85b0)', 'port', 'ARRAY(0x557249708448)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1, 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5572490b85b0)', 'CODE(0x5572490b8460)', 'HASH(0x5572490b8208)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5572490b8478)', 'CODE(0x5572490b8460)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x557248e93e80)', 'Plack::Handler::Starman=HASH(0x5572490b8478)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x557248e3b498)') called at /bin/starman line 38 2026/08/12-07:21:00 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-07:21:00 Worker processes cleaned up 2026/08/12-07:21:00 Server closing! Process Backgrounded 2026/08/12-07:21:02 Starman::Server (type Net::Server::PreFork) starting! pid(3872185) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-07:54:00 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-07:54:00 Worker processes cleaned up 2026/08/12-07:54:00 Server closing! Process Backgrounded 2026/08/12-07:54:02 Starman::Server (type Net::Server::PreFork) starting! pid(3875428) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-07:54:50 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-07:54:50 Worker processes cleaned up 2026/08/12-07:54:50 Server closing! Process Backgrounded 2026/08/12-07:54:52 Starman::Server (type Net::Server::PreFork) starting! pid(3876045) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3876048: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559296ced408)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5592a265c6f0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5592a265c6f0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559296adb4c8)', 'HASH(0x5592a24567e8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559296adb4c8)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5592a25aa138)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5592a267e728)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5592a25dffc0)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') 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(0x5592a26267d8)', 'Try::Tiny::Catch=REF(0x5592a2f91e78)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5592a262a708)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5592a25c03f8)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5592a0e912d8)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5592a2676b40)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5592a2626448)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5592a25bb6b0)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5592a262d8e0)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5592a262a0d8)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559296ad39c0)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5592a0dcc3f0)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5592a0e79838)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a24567e8)') 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(0x5592a0d8e860)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559296410350)', 'HASH(0x5592a24567e8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559296410350)', 'Net::Server::Proto::UNIX=GLOB(0x5592a0e823b0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559296410350)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559296410350)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559296410350)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559296410350)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559296410350)', 'port', 'ARRAY(0x559296a5fe78)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559296410350)', 'CODE(0x559296410200)', 'HASH(0x55929640ffa8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559296410218)', 'CODE(0x559296410200)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5592961ebbd0)', 'Plack::Handler::Starman=HASH(0x559296410218)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559296185250)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3876047: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559296cecff0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5592a2680430)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5592a2680430)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559296adaf00)', 'HASH(0x5592a258f590)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559296adaf00)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5592a25ab7b8)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5592a2617a90)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5592a2620410)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') 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(0x5592a2662640)', 'Try::Tiny::Catch=REF(0x5592a31685c8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5592a2678508)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5592a25b5ca0)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5592a0e89420)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5592a25f5450)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5592a25b2800)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5592a25ad568)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5592a25daa60)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5592a25f2db0)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559296ad39a8)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5592a0dcd820)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5592a0e6b450)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5592a258f590)') 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(0x5592a0e6b240)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559296410350)', 'HASH(0x5592a258f590)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559296410350)', 'Net::Server::Proto::UNIX=GLOB(0x5592a0e88ca0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559296410350)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559296410350)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559296410350)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559296410350)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559296410350)', 'port', 'ARRAY(0x559296a5fe78)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559296410350)', 'CODE(0x559296410200)', 'HASH(0x55929640ffa8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559296410218)', 'CODE(0x559296410200)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5592961ebbd0)', 'Plack::Handler::Starman=HASH(0x559296410218)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559296185250)') called at /bin/starman line 38 2026/08/12-08:21:16 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-08:21:16 Worker processes cleaned up 2026/08/12-08:21:16 Server closing! Process Backgrounded 2026/08/12-08:21:18 Starman::Server (type Net::Server::PreFork) starting! pid(3879159) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-08:26:44 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-08:26:44 Worker processes cleaned up 2026/08/12-08:26:44 Server closing! Process Backgrounded 2026/08/12-08:26:46 Starman::Server (type Net::Server::PreFork) starting! pid(3880099) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-08:51:57 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-08:51:57 Worker processes cleaned up 2026/08/12-08:51:57 Server closing! Process Backgrounded 2026/08/12-08:51:59 Starman::Server (type Net::Server::PreFork) starting! pid(3882722) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-09:08:30 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-09:08:31 Worker processes cleaned up 2026/08/12-09:08:31 Server closing! Process Backgrounded 2026/08/12-09:08:33 Starman::Server (type Net::Server::PreFork) starting! pid(3885221) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-09:15:18 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-09:15:18 Worker processes cleaned up 2026/08/12-09:15:18 Server closing! Process Backgrounded 2026/08/12-09:15:21 Starman::Server (type Net::Server::PreFork) starting! pid(3886234) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-09:15:51 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-09:15:51 Worker processes cleaned up 2026/08/12-09:15:51 Server closing! Process Backgrounded 2026/08/12-09:15:52 Starman::Server (type Net::Server::PreFork) starting! pid(3886728) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-09:17:46 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-09:17:46 Worker processes cleaned up 2026/08/12-09:17:46 Server closing! Process Backgrounded 2026/08/12-09:17:50 Starman::Server (type Net::Server::PreFork) starting! pid(3887595) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-09:28:24 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-09:28:24 Worker processes cleaned up 2026/08/12-09:28:24 Server closing! Process Backgrounded 2026/08/12-09:28:26 Starman::Server (type Net::Server::PreFork) starting! pid(3889110) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-09:51:20 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-09:51:21 Worker processes cleaned up 2026/08/12-09:51:21 Server closing! Process Backgrounded 2026/08/12-09:51:23 Starman::Server (type Net::Server::PreFork) starting! pid(3891636) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-09:54:18 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-09:54:18 Worker processes cleaned up 2026/08/12-09:54:18 Server closing! Process Backgrounded 2026/08/12-09:54:20 Starman::Server (type Net::Server::PreFork) starting! pid(3892366) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3892369: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x563819ab68b0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5638251e4d78)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5638251e4d78)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5638198a4388)', 'HASH(0x563823c3b608)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5638198a4388)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x56382539f528)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x56382540f340)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5638253a9748)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') 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(0x563825223a40)', 'Try::Tiny::Catch=REF(0x563825286bc8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5638251afef8)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x56382540c360)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x563823c52e30)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x56382534cc20)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x56382548e250)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x563825446648)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5638251da820)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x563825243d88)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x56381989cb18)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x563823b9cca8)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x563823c3b770)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c3b608)') 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(0x563823c3b5f0)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5638191d9f00)', 'HASH(0x563823c3b608)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5638191d9f00)', 'Net::Server::Proto::UNIX=GLOB(0x563823c524a0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5638191d9f00)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5638191d9f00)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5638191d9f00)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5638191d9f00)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5638191d9f00)', 'port', 'ARRAY(0x563819829698)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5638191d9f00)', 'CODE(0x5638191d9db0)', 'HASH(0x5638191d9b58)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5638191d9dc8)', 'CODE(0x5638191d9db0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x563818fb4f18)', 'Plack::Handler::Starman=HASH(0x5638191d9dc8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x563818f4eaa0)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3892370: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x563819ab6d78)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x563825224338)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x563825224338)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5638198a48d0)', 'HASH(0x563823c44668)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5638198a48d0)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x56382548b4f8)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5638251f3da8)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x56382540c9f0)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') 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(0x56382548bc90)', 'Try::Tiny::Catch=REF(0x563825418d00)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5638253567b8)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5638251d9b40)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x563823c5e1c0)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5638253fdc58)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x563825229e50)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5638253f25d8)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5638253752f0)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5638251e2808)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x56381989cb30)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x563823b9b0d0)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x563823c448c0)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x563823c44668)') 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(0x563823c34550)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5638191d9f00)', 'HASH(0x563823c44668)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5638191d9f00)', 'Net::Server::Proto::UNIX=GLOB(0x563823c4c7b8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5638191d9f00)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5638191d9f00)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5638191d9f00)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5638191d9f00)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5638191d9f00)', 'port', 'ARRAY(0x563819829698)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5638191d9f00)', 'CODE(0x5638191d9db0)', 'HASH(0x5638191d9b58)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5638191d9dc8)', 'CODE(0x5638191d9db0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x563818fb4f18)', 'Plack::Handler::Starman=HASH(0x5638191d9dc8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x563818f4eaa0)') called at /bin/starman line 38 2026/08/12-10:17:40 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-10:17:40 Worker processes cleaned up 2026/08/12-10:17:40 Server closing! Process Backgrounded 2026/08/12-10:17:42 Starman::Server (type Net::Server::PreFork) starting! pid(3895131) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-10:36:15 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-10:36:16 Worker processes cleaned up 2026/08/12-10:36:16 Server closing! Process Backgrounded 2026/08/12-10:36:17 Starman::Server (type Net::Server::PreFork) starting! pid(3897108) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-10:43:47 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-10:43:48 Worker processes cleaned up 2026/08/12-10:43:48 Server closing! Process Backgrounded 2026/08/12-10:43:50 Starman::Server (type Net::Server::PreFork) starting! pid(3898338) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3898340: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5610f31e3628)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5610feb08078)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5610feb08078)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5610f2fd1868)', 'HASH(0x5610fd35c318)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5610f2fd1868)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5610feae05d0)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5610feb60538)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5610feade668)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') 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(0x5610feb1f620)', 'Try::Tiny::Catch=REF(0x5610fea9a970)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5610feabc6f0)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5610feb1f290)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5610fd37a6b0)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5610feb172d8)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5610feb1f578)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5610feaffcd8)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5610feb1f158)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5610feb1f080)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5610f2fc9b30)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5610fd2bda58)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5610fd35c660)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5610fd35c318)') 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(0x5610fd35c4e0)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5610f2904b00)', 'HASH(0x5610fd35c318)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5610f2904b00)', 'Net::Server::Proto::UNIX=GLOB(0x5610fd379d50)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5610f2904b00)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5610f2904b00)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5610f2904b00)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5610f2904b00)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5610f2904b00)', 'port', 'ARRAY(0x5610f2f55ca8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1, 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5610f2904b00)', 'CODE(0x5610f29049b0)', 'HASH(0x5610f2904758)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5610f29049c8)', 'CODE(0x5610f29049b0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5610f26e0250)', 'Plack::Handler::Starman=HASH(0x5610f29049c8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5610f26796e0)') called at /bin/starman line 38 2026/08/12-10:56:30 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-10:56:31 Worker processes cleaned up 2026/08/12-10:56:31 Server closing! Process Backgrounded 2026/08/12-10:56:33 Starman::Server (type Net::Server::PreFork) starting! pid(3900351) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-11:12:57 Received QUIT. Running a graceful shutdown Sending children hup signal Child process 3900352 exited with status 0 - signal was 1 2026/08/12-11:12:57 Worker processes cleaned up 2026/08/12-11:12:57 Server closing! Process Backgrounded 2026/08/12-11:12:59 Starman::Server (type Net::Server::PreFork) starting! pid(3902479) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3902483: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x56180a41e608)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x561815d8f808)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x561815d8f808)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x56180a6d8798)', 'HASH(0x5618159c31c0)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x56180a6d8798)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x561815cdc028)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x561815d68c10)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x561815d60430)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') 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(0x561815cf9e98)', 'Try::Tiny::Catch=REF(0x561815d58398)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x561815d6c5a8)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x561815d5fed8)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5618145cee30)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x561815d0a058)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x561815d6c440)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x561815dc09d0)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x561815d969d8)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x561815d46088)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x56180a205010)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x56181450a270)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5618145b41a0)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5618159c31c0)') 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(0x5618145b3ff0)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x561809b41660)', 'HASH(0x5618159c31c0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x561809b41660)', 'Net::Server::Proto::UNIX=GLOB(0x5618145bfd58)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x561809b41660)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x561809b41660)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x561809b41660)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x561809b41660)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x561809b41660)', 'port', 'ARRAY(0x56180a191cf8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x561809b41660)', 'CODE(0x561809b41510)', 'HASH(0x561809b412b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x561809b41528)', 'CODE(0x561809b41510)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x56180991d0c8)', 'Plack::Handler::Starman=HASH(0x561809b41528)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5618098b6920)') called at /bin/starman line 38 2026/08/12-11:35:24 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-11:35:24 Worker processes cleaned up 2026/08/12-11:35:24 Server closing! Process Backgrounded 2026/08/12-11:35:26 Starman::Server (type Net::Server::PreFork) starting! pid(3904925) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-11:57:29 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-11:57:29 Worker processes cleaned up 2026/08/12-11:57:29 Server closing! Process Backgrounded 2026/08/12-11:57:31 Starman::Server (type Net::Server::PreFork) starting! pid(3907462) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-12:07:00 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-12:07:00 Worker processes cleaned up 2026/08/12-12:07:00 Server closing! Process Backgrounded 2026/08/12-12:07:03 Starman::Server (type Net::Server::PreFork) starting! pid(3908669) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3908672: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559a476bba10)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559a52c2b418)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559a52c2b418)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559a474aa670)', 'HASH(0x559a52eb8ce8)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559a474aa670)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559a52f121f0)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559a52f33aa8)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559a52c2b280)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') 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(0x559a52c01c78)', 'Try::Tiny::Catch=REF(0x559a51858ff8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559a52fb8b58)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559a52ca5c70)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559a51858da0)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559a5301c5a0)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559a52f15fc0)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559a530133f8)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559a52f36ea0)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559a52f36e58)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559a474a2b88)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559a5179c8e8)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559a5183ad60)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52eb8ce8)') 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(0x559a5183ac40)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559a46ddf4f0)', 'HASH(0x559a52eb8ce8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559a46ddf4f0)', 'Net::Server::Proto::UNIX=GLOB(0x559a518585c0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559a46ddf4f0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559a46ddf4f0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559a46ddf4f0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559a46ddf4f0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559a46ddf4f0)', 'port', 'ARRAY(0x559a4742f948)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559a46ddf4f0)', 'CODE(0x559a46ddf3a0)', 'HASH(0x559a46ddf148)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559a46ddf3b8)', 'CODE(0x559a46ddf3a0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559a46bbafb0)', 'Plack::Handler::Starman=HASH(0x559a46ddf3b8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559a46b62248)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3908673: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559a476bcba8)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559a53054c30)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559a53054c30)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559a474aae08)', 'HASH(0x559a52c89bb8)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559a474aae08)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559a53024360)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559a530279f0)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559a52f74e78)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') 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(0x559a52fb6e60)', 'Try::Tiny::Catch=REF(0x559a52f88bf8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559a530551e8)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559a530371f0)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559a51855778)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559a52fcec48)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559a52fa96f8)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559a53055380)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559a52f74a88)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559a52f8b590)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559a474a2ba0)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559a517a0a10)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559a5183e338)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559a52c89bb8)') 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(0x559a5183e0c8)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559a46ddf4f0)', 'HASH(0x559a52c89bb8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559a46ddf4f0)', 'Net::Server::Proto::UNIX=GLOB(0x559a51854f38)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559a46ddf4f0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559a46ddf4f0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559a46ddf4f0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559a46ddf4f0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559a46ddf4f0)', 'port', 'ARRAY(0x559a4742f948)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559a46ddf4f0)', 'CODE(0x559a46ddf3a0)', 'HASH(0x559a46ddf148)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559a46ddf3b8)', 'CODE(0x559a46ddf3a0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559a46bbafb0)', 'Plack::Handler::Starman=HASH(0x559a46ddf3b8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559a46b62248)') called at /bin/starman line 38 2026/08/12-12:41:52 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-12:41:52 Worker processes cleaned up 2026/08/12-12:41:52 Server closing! Process Backgrounded 2026/08/12-12:41:54 Starman::Server (type Net::Server::PreFork) starting! pid(3912038) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3912040: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x56284940fab0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x562854b1f600)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x562854b1f600)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5628491fdc38)', 'HASH(0x562854aa6c70)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5628491fdc38)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x562854b1bae8)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x562854c65568)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x562854ae2468)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') 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(0x5628549bf868)', 'Try::Tiny::Catch=REF(0x562854a83780)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x562854ae21b0)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x562854ae2000)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5628535b9860)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x562854b846f8)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x562854ae2258)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5628549b0af0)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x562854a12b48)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x562854b83bd0)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5628491f6188)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5628534f6220)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x56285359ead0)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562854aa6c70)') 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(0x56285359e8c0)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x562848b34650)', 'HASH(0x562854aa6c70)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x562848b34650)', 'Net::Server::Proto::UNIX=GLOB(0x5628535a6a18)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x562848b34650)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x562848b34650)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x562848b34650)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x562848b34650)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x562848b34650)', 'port', 'ARRAY(0x562849182a98)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x562848b34650)', 'CODE(0x562848b34500)', 'HASH(0x562848b342a8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x562848b34518)', 'CODE(0x562848b34500)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x562848910dd8)', 'Plack::Handler::Starman=HASH(0x562848b34518)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5628488a9c60)') called at /bin/starman line 38 2026/08/12-12:56:15 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-12:56:15 Worker processes cleaned up 2026/08/12-12:56:15 Server closing! Process Backgrounded 2026/08/12-12:56:18 Starman::Server (type Net::Server::PreFork) starting! pid(3913892) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3913893: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612b1941620)', 'package CGI::Compile::ROOT::kohadevbox_koha_acqui_acquisitions_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/acqui/acquisitions.pl^J#!/usr/bin/perl^J#^J# Copyright 2025 Open Fifth Ltd^J#^J# This file is not part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^Juse Modern::Perl;^J^Juse C4::Auth qw( get_template_and_user haspermission );^Juse C4::Context;^Juse C4::Output qw( output_html_with_http_headers );^J^Juse CGI qw ( -utf8 );^Juse List::MoreUtils qw( uniq );^J^Juse Koha::Patrons;^Juse Koha::Libraries;^J^Jmy $query = CGI->new;^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => \'acqui/acquisitions.tt\',^J query => $query,^J type => \'intranet\',^J is_plugin => 1,^J }^J);^J^Jmy $patron = Koha::Patrons->find( { borrowernumber => $borrowernumber } );^Jmy $userflags = haspermission( $patron->userid );^J^J# Get currency data^Jmy $currencies = Koha::Acquisition::Currencies->search()->unblessed;^Jmy $logged_in_branch = C4::Context::mybranch();^J^Jmy @permitted_patrons;^Jmy @patrons_with_flags = Koha::Patrons->search( { flags => { \'!=\' => undef } } )->as_list;^J^Jforeach my $patron (@patrons_with_flags) {^J my $userflags = haspermission( $patron->userid );^J if ( $userflags->{acquisition} || $userflags->{superlibrarian} ) {^J my $p = $patron->unblessed;^J $p->{permissions} = $userflags;^J push( @permitted_patrons, $p );^J }^J}^J$template->param( permitted_patrons => \@permitted_patrons );^J^J$template->param(^J userflags => $userflags,^J logged_in_branch => { branchcode => C4::Context::mybranch },^J currencies => $currencies^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/acqui/acquisitions.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bd0f4c20)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bd0f4c20)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd1e7470)', '/kohadevbox/koha/acqui/acquisitions.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bcf9c388)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcf4d600)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcf9c0e8)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') 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(0x5612bd067958)', 'Try::Tiny::Catch=REF(0x5612bd0efbe0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcf979d0)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bcf9bf08)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbadc930)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bcf86058)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bd13a0c0)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd06af40)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd06aeb0)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd006b28)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727ad8)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba18450)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbac1c20)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd1e7470)') 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(0x5612bbac1a40)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bd1e7470)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bbac9c58)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913894: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612b19418c8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bd0f3da8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bd0f3da8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bd18fc00)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bd041278)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcfcf170)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcfcf140)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') 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(0x5612bd043610)', 'Try::Tiny::Catch=REF(0x5612bd18fe28)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcfcf308)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bd02e190)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbad4688)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bd025068)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bcedb930)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd0297f8)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd02dd88)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd0dfe80)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727af0)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba17640)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbab6728)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd18fc00)') 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(0x5612bbab6548)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bd18fc00)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bbad3e48)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913893: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612bcf52098)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bd1e7728)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bd1e7728)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd168c88)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bcf9c388)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcf4d600)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcf9c0e8)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') 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(0x5612bcfa4cc0)', 'Try::Tiny::Catch=REF(0x5612bcee2e10)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcf979d0)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bcf9bf08)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbadc930)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bcf86058)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bd13a0c0)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd06af40)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd06aeb0)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd006b28)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727ad8)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba18450)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbac1c20)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd168c88)') 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(0x5612bbac1a40)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bd168c88)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bd169210)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913894: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612bd06f790)', 'package CGI::Compile::ROOT::kohadevbox_koha_acqui_acquisitions_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/acqui/acquisitions.pl^J#!/usr/bin/perl^J#^J# Copyright 2025 Open Fifth Ltd^J#^J# This file is not part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^Juse Modern::Perl;^J^Juse C4::Auth qw( get_template_and_user haspermission );^Juse C4::Context;^Juse C4::Output qw( output_html_with_http_headers );^J^Juse CGI qw ( -utf8 );^Juse List::MoreUtils qw( uniq );^J^Juse Koha::Patrons;^Juse Koha::Libraries;^J^Jmy $query = CGI->new;^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => \'acqui/acquisitions.tt\',^J query => $query,^J type => \'intranet\',^J is_plugin => 1,^J }^J);^J^Jmy $patron = Koha::Patrons->find( { borrowernumber => $borrowernumber } );^Jmy $userflags = haspermission( $patron->userid );^J^J# Get currency data^Jmy $currencies = Koha::Acquisition::Currencies->search()->unblessed;^Jmy $logged_in_branch = C4::Context::mybranch();^J^Jmy @permitted_patrons;^Jmy @patrons_with_flags = Koha::Patrons->search( { flags => { \'!=\' => undef } } )->as_list;^J^Jforeach my $patron (@patrons_with_flags) {^J my $userflags = haspermission( $patron->userid );^J if ( $userflags->{acquisition} || $userflags->{superlibrarian} ) {^J my $p = $patron->unblessed;^J $p->{permissions} = $userflags;^J push( @permitted_patrons, $p );^J }^J}^J$template->param( permitted_patrons => \@permitted_patrons );^J^J$template->param(^J userflags => $userflags,^J logged_in_branch => { branchcode => C4::Context::mybranch },^J currencies => $currencies^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/acqui/acquisitions.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bd1c4b70)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bd1c4b70)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bd15c530)', '/kohadevbox/koha/acqui/acquisitions.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bd041278)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcfcf170)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcfcf140)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') 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(0x5612bd126250)', 'Try::Tiny::Catch=REF(0x5612bcf45d58)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcfcf308)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bd02e190)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbad4688)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bd025068)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bcedb930)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd0297f8)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd02dd88)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd0dfe80)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727af0)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba17640)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbab6728)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd15c530)') 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(0x5612bbab6548)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bd15c530)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bd15c728)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913893: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612bd003798)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bcedf748)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bcedf748)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd003288)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bcf9c388)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcf4d600)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcf9c0e8)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') 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(0x5612bd003318)', 'Try::Tiny::Catch=REF(0x5612bcee6cf0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcf979d0)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bcf9bf08)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbadc930)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bcf86058)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bd13a0c0)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd06af40)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd06aeb0)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd006b28)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727ad8)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba18450)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbac1c20)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd003288)') 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(0x5612bbac1a40)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bd003288)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bd168c88)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913894: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612bcedc338)', 'package CGI::Compile::ROOT::kohadevbox_koha_acqui_acquisitions_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/acqui/acquisitions.pl^J#!/usr/bin/perl^J#^J# Copyright 2025 Open Fifth Ltd^J#^J# This file is not part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^Juse Modern::Perl;^J^Juse C4::Auth qw( get_template_and_user haspermission );^Juse C4::Context;^Juse C4::Output qw( output_html_with_http_headers );^J^Juse CGI qw ( -utf8 );^Juse List::MoreUtils qw( uniq );^J^Juse Koha::Patrons;^Juse Koha::Libraries;^J^Jmy $query = CGI->new;^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => \'acqui/acquisitions.tt\',^J query => $query,^J type => \'intranet\',^J is_plugin => 1,^J }^J);^J^Jmy $patron = Koha::Patrons->find( { borrowernumber => $borrowernumber } );^Jmy $userflags = haspermission( $patron->userid );^J^J# Get currency data^Jmy $currencies = Koha::Acquisition::Currencies->search()->unblessed;^Jmy $logged_in_branch = C4::Context::mybranch();^J^Jmy @permitted_patrons;^Jmy @patrons_with_flags = Koha::Patrons->search( { flags => { \'!=\' => undef } } )->as_list;^J^Jforeach my $patron (@patrons_with_flags) {^J my $userflags = haspermission( $patron->userid );^J if ( $userflags->{acquisition} || $userflags->{superlibrarian} ) {^J my $p = $patron->unblessed;^J $p->{permissions} = $userflags;^J push( @permitted_patrons, $p );^J }^J}^J$template->param( permitted_patrons => \@permitted_patrons );^J^J$template->param(^J userflags => $userflags,^J logged_in_branch => { branchcode => C4::Context::mybranch },^J currencies => $currencies^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/acqui/acquisitions.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bcf331a0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bcf331a0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bcede078)', '/kohadevbox/koha/acqui/acquisitions.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bd041278)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcfcf170)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcfcf140)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') 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(0x5612bd1c6770)', 'Try::Tiny::Catch=REF(0x5612bcf4a418)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcfcf308)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bd02e190)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbad4688)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bd025068)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bcedb930)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd0297f8)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd02dd88)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd0dfe80)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727af0)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba17640)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbab6728)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcede078)') 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(0x5612bbab6548)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bcede078)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bd15c530)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913893: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612bcfd26d0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bd14d9c8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bd14d9c8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bcedcfc8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bcf9c388)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcf4d600)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcf9c0e8)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') 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(0x5612bd03d688)', 'Try::Tiny::Catch=REF(0x5612bcfa0e58)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcf979d0)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bcf9bf08)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbadc930)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bcf86058)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bd13a0c0)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd06af40)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd06aeb0)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd006b28)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727ad8)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba18450)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbac1c20)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bcedcfc8)') 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(0x5612bbac1a40)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bcedcfc8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bd003288)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913894: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612bd15c098)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bcf88180)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bcf88180)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bd043a60)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bd041278)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcfcf170)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcfcf140)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') 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(0x5612bcf07970)', 'Try::Tiny::Catch=REF(0x5612bcf0cbb8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcfcf308)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bd02e190)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbad4688)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bd025068)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bcedb930)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd0297f8)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd02dd88)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd0dfe80)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727af0)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba17640)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbab6728)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd043a60)') 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(0x5612bbab6548)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bd043a60)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bcede078)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913893: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612bd02e410)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bd031598)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bd031598)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd0f53a0)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bcf9c388)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcf4d600)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcf9c0e8)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') 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(0x5612bd02e3b0)', 'Try::Tiny::Catch=REF(0x5612bd02dfd8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcf979d0)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bcf9bf08)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbadc930)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bcf86058)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bd13a0c0)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd06af40)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd06aeb0)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd006b28)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727ad8)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba18450)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbac1c20)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd0f53a0)') 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(0x5612bbac1a40)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bd0f53a0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bcedcfc8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913894: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612bcede660)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bcf46910)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bcf46910)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bd13d260)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bd041278)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcfcf170)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcfcf140)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') 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(0x5612bcedeb58)', 'Try::Tiny::Catch=REF(0x5612bd0476a8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcfcf308)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bd02e190)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbad4688)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bd025068)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bcedb930)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd0297f8)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd02dd88)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd0dfe80)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727af0)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba17640)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbab6728)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd13d260)') 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(0x5612bbab6548)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bd13d260)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bd043a60)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913893: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612bd15d5d0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bcf33c68)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bcf33c68)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd02dbd0)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bcf9c388)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcf4d600)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcf9c0e8)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') 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(0x5612bd129500)', 'Try::Tiny::Catch=REF(0x5612bd14d7b8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcf979d0)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bcf9bf08)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbadc930)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bcf86058)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bd13a0c0)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd06af40)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd06aeb0)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd006b28)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727ad8)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba18450)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbac1c20)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd02dbd0)') 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(0x5612bbac1a40)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bd02dbd0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bd0f53a0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913894: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612bcee7260)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bd159330)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bd159330)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bd142ad8)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bbaa56f8)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bd041278)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcfcf170)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcfcf140)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') 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(0x5612bd055b48)', 'Try::Tiny::Catch=REF(0x5612bd148bd0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcfcf308)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bd02e190)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbad4688)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bd025068)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bcedb930)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd0297f8)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd02dd88)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd0dfe80)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727af0)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba17640)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbab6728)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd142ad8)') 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(0x5612bbab6548)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bd142ad8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bd13d260)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3913893: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5612bd002d78)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5612bd15d198)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5612bd15d198)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd03d340)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5612bb9f7490)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5612bcf9c388)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5612bcf4d600)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5612bcf9c0e8)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') 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(0x5612bd128e10)', 'Try::Tiny::Catch=REF(0x5612bd02e3e0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5612bcf979d0)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5612bcf9bf08)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5612bbadc930)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5612bcf86058)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5612bd13a0c0)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5612bd06af40)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5612bd06aeb0)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5612bd006b28)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5612b1727ad8)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5612bba18450)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5612bbac1c20)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5612bd03d340)') 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(0x5612bbac1a40)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5612b1065e70)', 'HASH(0x5612bd03d340)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5612b1065e70)', 'Net::Server::Proto::UNIX=GLOB(0x5612bd02dbd0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5612b1065e70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5612b1065e70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'port', 'ARRAY(0x5612b16b3e28)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5612b1065e70)', 'CODE(0x5612b1065d20)', 'HASH(0x5612b1065ac8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5612b1065d38)', 'CODE(0x5612b1065d20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5612b0e41068)', 'Plack::Handler::Starman=HASH(0x5612b1065d38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5612b0dda190)') called at /bin/starman line 38 2026/08/12-13:47:53 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-13:47:53 Worker processes cleaned up 2026/08/12-13:47:53 Server closing! Process Backgrounded 2026/08/12-13:47:53 Starman::Server (type Net::Server::PreFork) starting! pid(3920056) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3920059: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55dc8f9a39b8)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55dc9b098dd0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55dc9b098dd0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55dc99b19d78)', 'HASH(0x55dc9b0f98a0)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55dc99b19d78)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55dc9aff8b88)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55dc9af9df80)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55dc9af8ab48)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') 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(0x55dc9b115e78)', 'Try::Tiny::Catch=REF(0x55dc9b1fcd50)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55dc9b046fe8)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55dc9b046ee0)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55dc99b485a8)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55dc9b170168)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55dc9b047480)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55dc9affc168)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55dc9b09df80)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55dc9b115bf0)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55dc8f78a250)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55dc99a8bf40)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55dc99b2a578)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f98a0)') 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(0x55dc99b2a428)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55dc8f15cb90)', 'HASH(0x55dc9b0f98a0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55dc8f15cb90)', 'Net::Server::Proto::UNIX=GLOB(0x55dc99b47e58)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55dc8f15cb90)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'port', 'ARRAY(0x55dc8f7167f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1, 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'CODE(0x55dc8f15ca40)', 'HASH(0x55dc8f15c7e8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55dc8f15ca58)', 'CODE(0x55dc8f15ca40)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55dc8eea2040)', 'Plack::Handler::Starman=HASH(0x55dc8f15ca58)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55dc8ee49478)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3920057: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55dc8f9a3610)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55dc9af77920)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55dc9af77920)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55dc99a6e9a8)', 'HASH(0x55dc9b252e18)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55dc99a6e9a8)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55dc9b0d0250)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55dc9b0cc3a0)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55dc9b0068c8)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') 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(0x55dc9b0d0028)', 'Try::Tiny::Catch=REF(0x55dc9aff37f0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55dc9b006f58)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55dc9b006e08)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55dc99b40b38)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55dc9afa5cb0)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55dc9b1e4558)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55dc9b12beb8)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55dc9b22edf0)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55dc9af605f8)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55dc8f78a238)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55dc99a8af40)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55dc99a4c368)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b252e18)') 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(0x55dc99a4c128)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55dc8f15cb90)', 'HASH(0x55dc9b252e18)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55dc8f15cb90)', 'Net::Server::Proto::UNIX=GLOB(0x55dc99b40568)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55dc8f15cb90)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'port', 'ARRAY(0x55dc8f7167f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1, 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'CODE(0x55dc8f15ca40)', 'HASH(0x55dc8f15c7e8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55dc8f15ca58)', 'CODE(0x55dc8f15ca40)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55dc8eea2040)', 'Plack::Handler::Starman=HASH(0x55dc8f15ca58)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55dc8ee49478)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3920059: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55dc9b13a5e8)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55dc9afc6658)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55dc9afc6658)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55dc99b19d78)', 'HASH(0x55dc9af5d028)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55dc99b19d78)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55dc9aff8b88)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55dc9af9df80)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55dc9af8ab48)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') 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(0x55dc9b14f740)', 'Try::Tiny::Catch=REF(0x55dc9b223ae0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55dc9b046fe8)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55dc9b046ee0)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55dc99b485a8)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55dc9b170168)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55dc9b047480)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55dc9affc168)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55dc9b09df80)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55dc9b115bf0)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55dc8f78a250)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55dc99a8bf40)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55dc99b2a578)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9af5d028)') 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(0x55dc99b2a428)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55dc8f15cb90)', 'HASH(0x55dc9af5d028)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55dc8f15cb90)', 'Net::Server::Proto::UNIX=GLOB(0x55dc9b156f40)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55dc8f15cb90)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'port', 'ARRAY(0x55dc8f7167f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1, 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'CODE(0x55dc8f15ca40)', 'HASH(0x55dc8f15c7e8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55dc8f15ca58)', 'CODE(0x55dc8f15ca40)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55dc8eea2040)', 'Plack::Handler::Starman=HASH(0x55dc8f15ca58)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55dc8ee49478)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3920057: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55dc9af77de8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55dc9b2382b8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55dc9b2382b8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55dc99a6e9a8)', 'HASH(0x55dc9b0f7130)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55dc99a6e9a8)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55dc9b0d0250)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55dc9b0cc3a0)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55dc9b0068c8)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') 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(0x55dc9b1dcb60)', 'Try::Tiny::Catch=REF(0x55dc9b157140)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55dc9b006f58)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55dc9b006e08)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55dc99b40b38)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55dc9afa5cb0)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55dc9b1e4558)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55dc9b12beb8)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55dc9b22edf0)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55dc9af605f8)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55dc8f78a238)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55dc99a8af40)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55dc99a4c368)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b0f7130)') 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(0x55dc99a4c128)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55dc8f15cb90)', 'HASH(0x55dc9b0f7130)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55dc8f15cb90)', 'Net::Server::Proto::UNIX=GLOB(0x55dc9aff0738)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55dc8f15cb90)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'port', 'ARRAY(0x55dc8f7167f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1, 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'CODE(0x55dc8f15ca40)', 'HASH(0x55dc8f15c7e8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55dc8f15ca58)', 'CODE(0x55dc8f15ca40)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55dc8eea2040)', 'Plack::Handler::Starman=HASH(0x55dc8f15ca58)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55dc8ee49478)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3920059: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55dc9af80f20)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55dc9b068220)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55dc9b068220)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55dc99b19d78)', 'HASH(0x55dc9b1a6bd8)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55dc99b19d78)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55dc9aff8b88)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55dc9af9df80)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55dc9af8ab48)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') 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(0x55dc9af80cf8)', 'Try::Tiny::Catch=REF(0x55dc9aff9230)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55dc9b046fe8)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55dc9b046ee0)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55dc99b485a8)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55dc9b170168)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55dc9b047480)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55dc9affc168)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55dc9b09df80)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55dc9b115bf0)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55dc8f78a250)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55dc99a8bf40)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55dc99b2a578)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc9b1a6bd8)') 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(0x55dc99b2a428)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55dc8f15cb90)', 'HASH(0x55dc9b1a6bd8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55dc8f15cb90)', 'Net::Server::Proto::UNIX=GLOB(0x55dc9af5d028)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55dc8f15cb90)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'port', 'ARRAY(0x55dc8f7167f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1, 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'CODE(0x55dc8f15ca40)', 'HASH(0x55dc8f15c7e8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55dc8f15ca58)', 'CODE(0x55dc8f15ca40)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55dc8eea2040)', 'Plack::Handler::Starman=HASH(0x55dc8f15ca58)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55dc8ee49478)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3920057: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55dc9afba010)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55dc9b0c02a0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55dc9b0c02a0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55dc99a6e9a8)', 'HASH(0x55dc8ef951c0)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55dc99a6e9a8)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55dc9b0d0250)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55dc9b0cc3a0)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55dc9b0068c8)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') 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(0x55dc9b007390)', 'Try::Tiny::Catch=REF(0x55dc9b1c4850)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55dc9b006f58)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55dc9b006e08)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55dc99b40b38)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55dc9afa5cb0)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55dc9b1e4558)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55dc9b12beb8)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55dc9b22edf0)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55dc9af605f8)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55dc8f78a238)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55dc99a8af40)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55dc99a4c368)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55dc8ef951c0)') 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(0x55dc99a4c128)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55dc8f15cb90)', 'HASH(0x55dc8ef951c0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55dc8f15cb90)', 'Net::Server::Proto::UNIX=GLOB(0x55dc9b0f7130)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55dc8f15cb90)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55dc8f15cb90)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'port', 'ARRAY(0x55dc8f7167f8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1, 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55dc8f15cb90)', 'CODE(0x55dc8f15ca40)', 'HASH(0x55dc8f15c7e8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55dc8f15ca58)', 'CODE(0x55dc8f15ca40)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55dc8eea2040)', 'Plack::Handler::Starman=HASH(0x55dc8f15ca58)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55dc8ee49478)') called at /bin/starman line 38 2026/08/12-14:02:26 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-14:02:26 Worker processes cleaned up 2026/08/12-14:02:26 Server closing! Process Backgrounded 2026/08/12-14:02:29 Starman::Server (type Net::Server::PreFork) starting! pid(3921769) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3921770: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55b386b90cf0)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55b3921eb588)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55b3921eb588)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55b3896161d8)', 'HASH(0x55b390d27548)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55b3896161d8)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55b3921e54a8)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55b39210da58)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55b39210d740)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') 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(0x55b392221f80)', 'Try::Tiny::Catch=REF(0x55b392162568)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55b3921e5040)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55b392432060)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55b390d27ef0)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55b3922cd0e8)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55b3922dff98)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55b392419c78)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55b392435710)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55b3921e4fe0)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55b386977168)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55b390c72818)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55b390d108c0)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27548)') 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(0x55b390d10800)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55b386349190)', 'HASH(0x55b390d27548)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55b386349190)', 'Net::Server::Proto::UNIX=GLOB(0x55b390d27860)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55b386349190)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55b386349190)', 'port', 'ARRAY(0x55b386903aa8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55b386349190)', 'CODE(0x55b386349040)', 'HASH(0x55b386348de8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55b386349058)', 'CODE(0x55b386349040)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55b38608efd0)', 'Plack::Handler::Starman=HASH(0x55b386349058)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55b386036ae8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3921771: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55b386b90e18)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55b39236c710)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55b39236c710)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55b390c55620)', 'HASH(0x55b390d27a08)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55b390c55620)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55b3922155f8)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55b3922e0d90)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55b392213068)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') 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(0x55b392355950)', 'Try::Tiny::Catch=REF(0x55b392117660)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55b3922c5388)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55b3922ff828)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55b390d3aca8)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55b3922bd790)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55b392215760)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55b3922ab4a0)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55b3923fd350)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55b3923cf920)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55b386977180)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55b390c761a8)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55b390d1f8b8)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d27a08)') 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(0x55b390d1f7c8)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55b386349190)', 'HASH(0x55b390d27a08)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55b386349190)', 'Net::Server::Proto::UNIX=GLOB(0x55b390d27ae0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55b386349190)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55b386349190)', 'port', 'ARRAY(0x55b386903aa8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55b386349190)', 'CODE(0x55b386349040)', 'HASH(0x55b386348de8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55b386349058)', 'CODE(0x55b386349040)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55b38608efd0)', 'Plack::Handler::Starman=HASH(0x55b386349058)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55b386036ae8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3921770: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55b3921ac650)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55b3921410c0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55b3921410c0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55b3896161d8)', 'HASH(0x55b390d20698)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55b3896161d8)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55b3921e54a8)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55b39210da58)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55b39210d740)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') 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(0x55b39225d558)', 'Try::Tiny::Catch=REF(0x55b392184ab8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55b3921e5040)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55b392432060)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55b390d27ef0)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55b3922cd0e8)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55b3922dff98)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55b392419c78)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55b392435710)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55b3921e4fe0)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55b386977168)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55b390c72818)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55b390d108c0)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b390d20698)') 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(0x55b390d10800)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55b386349190)', 'HASH(0x55b390d20698)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55b386349190)', 'Net::Server::Proto::UNIX=GLOB(0x55b390d10350)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55b386349190)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55b386349190)', 'port', 'ARRAY(0x55b386903aa8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55b386349190)', 'CODE(0x55b386349040)', 'HASH(0x55b386348de8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55b386349058)', 'CODE(0x55b386349040)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55b38608efd0)', 'Plack::Handler::Starman=HASH(0x55b386349058)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55b386036ae8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3921771: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55b3922f87d0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55b39223a6d0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55b39223a6d0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55b390c55620)', 'HASH(0x55b3923f5ae8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55b390c55620)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55b3922155f8)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55b3922e0d90)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55b392213068)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') 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(0x55b392293ba8)', 'Try::Tiny::Catch=REF(0x55b3924198b8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55b3922c5388)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55b3922ff828)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55b390d3aca8)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55b3922bd790)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55b392215760)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55b3922ab4a0)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55b3923fd350)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55b3923cf920)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55b386977180)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55b390c761a8)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55b390d1f8b8)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923f5ae8)') 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(0x55b390d1f7c8)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55b386349190)', 'HASH(0x55b3923f5ae8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55b386349190)', 'Net::Server::Proto::UNIX=GLOB(0x55b3922aac00)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55b386349190)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55b386349190)', 'port', 'ARRAY(0x55b386903aa8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55b386349190)', 'CODE(0x55b386349040)', 'HASH(0x55b386348de8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55b386349058)', 'CODE(0x55b386349040)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55b38608efd0)', 'Plack::Handler::Starman=HASH(0x55b386349058)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55b386036ae8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3921770: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55b39210ccf0)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55b392110510)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55b392110510)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55b3896161d8)', 'HASH(0x55b3921e4ed8)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55b3896161d8)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55b3921e54a8)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55b39210da58)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55b39210d740)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') 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(0x55b3922ba278)', 'Try::Tiny::Catch=REF(0x55b392369408)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55b3921e5040)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55b392432060)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55b390d27ef0)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55b3922cd0e8)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55b3922dff98)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55b392419c78)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55b392435710)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55b3921e4fe0)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55b386977168)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55b390c72818)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55b390d108c0)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3921e4ed8)') 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(0x55b390d10800)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55b386349190)', 'HASH(0x55b3921e4ed8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55b386349190)', 'Net::Server::Proto::UNIX=GLOB(0x55b390d20698)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55b386349190)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55b386349190)', 'port', 'ARRAY(0x55b386903aa8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55b386349190)', 'CODE(0x55b386349040)', 'HASH(0x55b386348de8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55b386349058)', 'CODE(0x55b386349040)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55b38608efd0)', 'Plack::Handler::Starman=HASH(0x55b386349058)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55b386036ae8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3921771: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55b392323910)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55b3921223c8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55b3921223c8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55b390c55620)', 'HASH(0x55b3923793b8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55b390c55620)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55b3922155f8)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55b3922e0d90)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55b392213068)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') 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(0x55b392297b10)', 'Try::Tiny::Catch=REF(0x55b392297018)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55b3922c5388)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55b3922ff828)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55b390d3aca8)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55b3922bd790)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55b392215760)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55b3922ab4a0)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55b3923fd350)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55b3923cf920)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55b386977180)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55b390c761a8)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55b390d1f8b8)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55b3923793b8)') 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(0x55b390d1f7c8)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55b386349190)', 'HASH(0x55b3923793b8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55b386349190)', 'Net::Server::Proto::UNIX=GLOB(0x55b3923f5ae8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55b386349190)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55b386349190)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55b386349190)', 'port', 'ARRAY(0x55b386903aa8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55b386349190)', 'CODE(0x55b386349040)', 'HASH(0x55b386348de8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55b386349058)', 'CODE(0x55b386349040)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55b38608efd0)', 'Plack::Handler::Starman=HASH(0x55b386349058)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55b386036ae8)') called at /bin/starman line 38 2026/08/12-14:42:39 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-14:42:39 Worker processes cleaned up 2026/08/12-14:42:39 Server closing! Process Backgrounded 2026/08/12-14:42:40 Starman::Server (type Net::Server::PreFork) starting! pid(3926075) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-14:49:50 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-14:49:50 Worker processes cleaned up 2026/08/12-14:49:50 Server closing! Process Backgrounded 2026/08/12-14:49:51 Starman::Server (type Net::Server::PreFork) starting! pid(3927366) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-14:58:46 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-14:58:47 Worker processes cleaned up 2026/08/12-14:58:47 Server closing! Process Backgrounded 2026/08/12-14:58:49 Starman::Server (type Net::Server::PreFork) starting! pid(3928557) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-15:15:34 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-15:15:34 Worker processes cleaned up 2026/08/12-15:15:34 Server closing! Process Backgrounded 2026/08/12-15:15:35 Starman::Server (type Net::Server::PreFork) starting! pid(3930485) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-15:34:56 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-15:34:57 Worker processes cleaned up 2026/08/12-15:34:57 Server closing! Process Backgrounded 2026/08/12-15:34:58 Starman::Server (type Net::Server::PreFork) starting! pid(3932389) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-15:36:04 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-15:36:05 Worker processes cleaned up 2026/08/12-15:36:05 Server closing! Process Backgrounded 2026/08/12-15:36:06 Starman::Server (type Net::Server::PreFork) starting! pid(3933040) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-16:09:46 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-16:09:47 Worker processes cleaned up 2026/08/12-16:09:47 Server closing! Process Backgrounded 2026/08/12-16:09:48 Starman::Server (type Net::Server::PreFork) starting! pid(3935750) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3935752: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x564c442a80a8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x564c4fb02418)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x564c4fb02418)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x564c44717490)', 'HASH(0x564c4fcd8d60)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x564c44717490)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x564c4fcd53d8)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x564c4fcd55b8)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x564c4fcd82f8)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') 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(0x564c4fcd8e08)', 'Try::Tiny::Catch=REF(0x564c4fc20b58)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x564c4fcd82c8)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x564c4fcd86b8)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x564c4e725ed8)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x564c4fafe678)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x564c4fcdd8f8)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x564c4fcd8988)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x564c4fcd8b80)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x564c4fcd8ce8)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x564c4408ed40)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x564c4e660648)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x564c4e70a088)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x564c4fcd8d60)') 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(0x564c4e709fc8)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x564c439cc0c0)', 'HASH(0x564c4fcd8d60)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x564c439cc0c0)', 'Net::Server::Proto::UNIX=GLOB(0x564c4e7121d0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x564c439cc0c0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x564c439cc0c0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x564c439cc0c0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x564c439cc0c0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x564c439cc0c0)', 'port', 'ARRAY(0x564c4401b848)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x564c439cc0c0)', 'CODE(0x564c439cbf70)', 'HASH(0x564c439cbd18)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x564c439cbf88)', 'CODE(0x564c439cbf70)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x564c437a8190)', 'Plack::Handler::Starman=HASH(0x564c439cbf88)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x564c4374fbc8)') called at /bin/starman line 38 2026/08/12-16:11:43 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-16:11:43 Worker processes cleaned up 2026/08/12-16:11:43 Server closing! Process Backgrounded 2026/08/12-16:11:45 Starman::Server (type Net::Server::PreFork) starting! pid(3936418) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-16:21:04 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-16:21:05 Worker processes cleaned up 2026/08/12-16:21:05 Server closing! Process Backgrounded 2026/08/12-16:21:07 Starman::Server (type Net::Server::PreFork) starting! pid(3938100) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-16:37:26 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-16:37:26 Worker processes cleaned up 2026/08/12-16:37:26 Server closing! Process Backgrounded 2026/08/12-16:37:28 Starman::Server (type Net::Server::PreFork) starting! pid(3940087) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3940088: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55d211227f00)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55d21c80ad08)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55d21c80ad08)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55d21af38f68)', 'HASH(0x55d21b023850)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55d21af38f68)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55d21c779a88)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55d21c779ad0)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55d21c806050)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') 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(0x55d21c73fed0)', 'Try::Tiny::Catch=REF(0x55d21b023a18)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55d21c806218)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55d21c744a90)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55d21b023880)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55d21c7a63b0)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55d21c7b9538)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55d21c7448b0)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55d21c744b98)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55d21c744958)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55d21100e858)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55d21af58c30)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55d21b006620)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b023850)') 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(0x55d21b006560)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55d21094c180)', 'HASH(0x55d21b023850)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55d21094c180)', 'Net::Server::Proto::UNIX=GLOB(0x55d21b013648)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55d21094c180)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55d21094c180)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55d21094c180)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55d21094c180)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55d21094c180)', 'port', 'ARRAY(0x55d210f9b2b8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55d21094c180)', 'CODE(0x55d21094c030)', 'HASH(0x55d21094bdd8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55d21094c048)', 'CODE(0x55d21094c030)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55d210726ff8)', 'Plack::Handler::Starman=HASH(0x55d21094c048)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55d2106c0cb0)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3940089: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55d211228568)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55d21c80dcf8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55d21c80dcf8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55d21af2cbb0)', 'HASH(0x55d21b0216f8)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55d21af2cbb0)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55d21c77f808)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55d21c77f910)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55d21c747f70)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') 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(0x55d21c748060)', 'Try::Tiny::Catch=REF(0x55d21b021a10)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55d21c747e38)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55d21c748648)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55d21b0216c8)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55d21c7a9230)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55d21c7bf638)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55d21c7481e0)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55d21c747b80)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55d21c747ca0)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55d21100e870)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55d21af5f150)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55d21b002608)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d21b0216f8)') 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(0x55d21b002260)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55d21094c180)', 'HASH(0x55d21b0216f8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55d21094c180)', 'Net::Server::Proto::UNIX=GLOB(0x55d21b020eb8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55d21094c180)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55d21094c180)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55d21094c180)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55d21094c180)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55d21094c180)', 'port', 'ARRAY(0x55d210f9b2b8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55d21094c180)', 'CODE(0x55d21094c030)', 'HASH(0x55d21094bdd8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55d21094c048)', 'CODE(0x55d21094c030)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55d210726ff8)', 'Plack::Handler::Starman=HASH(0x55d21094c048)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55d2106c0cb0)') called at /bin/starman line 38 2026/08/12-17:18:25 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-17:18:25 Worker processes cleaned up 2026/08/12-17:18:25 Server closing! Process Backgrounded 2026/08/12-17:18:26 Starman::Server (type Net::Server::PreFork) starting! pid(3943863) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3943864: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5608efaf8ce0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5608fb06f5f8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5608fb06f5f8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5608ef8e6cf0)', 'HASH(0x5608f98e59f8)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5608ef8e6cf0)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5608fb052660)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5608fb0f3208)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5608fb0fd8b8)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') 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(0x5608fb0458c0)', 'Try::Tiny::Catch=REF(0x5608fb01c708)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5608fb0f3598)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5608fb0607f8)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5608f98f6f68)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5608fb054f88)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5608fb0f35c8)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5608fb045dd0)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5608fb045a58)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5608fb045c38)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5608ef8df558)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5608f982b658)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5608f98dc388)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e59f8)') 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(0x5608f9829f10)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5608ef21c580)', 'HASH(0x5608f98e59f8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5608ef21c580)', 'Net::Server::Proto::UNIX=GLOB(0x5608f98e5bc0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5608ef21c580)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'port', 'ARRAY(0x5608ef86ba98)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'CODE(0x5608ef21c430)', 'HASH(0x5608ef21c1d8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5608ef21c448)', 'CODE(0x5608ef21c430)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5608eeff6f00)', 'Plack::Handler::Starman=HASH(0x5608ef21c448)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5608eef90c70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3943866: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5608efaf9768)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5608fb074768)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5608fb074768)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5608ef8e6dc8)', 'HASH(0x5608f98e3340)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5608ef8e6dc8)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5608fb057460)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5608fb0f8fe0)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5608fb0f91c0)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') 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(0x5608fb04d138)', 'Try::Tiny::Catch=REF(0x5608fb0883e8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5608fb0f94d8)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5608fb065840)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5608f98f4560)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5608fb05fae8)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5608fb0f93a0)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5608fb04cd00)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5608fb048fd8)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5608fb04cac0)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5608ef8df570)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5608f98b6730)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5608f98d8660)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3340)') 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(0x5608f98d84e0)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5608ef21c580)', 'HASH(0x5608f98e3340)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5608ef21c580)', 'Net::Server::Proto::UNIX=GLOB(0x5608f98e3208)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5608ef21c580)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'port', 'ARRAY(0x5608ef86ba98)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'CODE(0x5608ef21c430)', 'HASH(0x5608ef21c1d8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5608ef21c448)', 'CODE(0x5608ef21c430)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5608eeff6f00)', 'Plack::Handler::Starman=HASH(0x5608ef21c448)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5608eef90c70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3943864: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5608fb06f460)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5608fb111d98)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5608fb111d98)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5608ef8e6cf0)', 'HASH(0x5608fb0df230)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5608ef8e6cf0)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5608fb052660)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5608fb0f3208)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5608fb0fd8b8)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') 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(0x5608fb082dd8)', 'Try::Tiny::Catch=REF(0x5608f98e5f98)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5608fb0f3598)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5608fb0607f8)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5608f98f6f68)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5608fb054f88)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5608fb0f35c8)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5608fb045dd0)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5608fb045a58)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5608fb045c38)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5608ef8df558)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5608f982b658)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5608f98dc388)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb0df230)') 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(0x5608f9829f10)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5608ef21c580)', 'HASH(0x5608fb0df230)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5608ef21c580)', 'Net::Server::Proto::UNIX=GLOB(0x5608fb0f0ae8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5608ef21c580)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'port', 'ARRAY(0x5608ef86ba98)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'CODE(0x5608ef21c430)', 'HASH(0x5608ef21c1d8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5608ef21c448)', 'CODE(0x5608ef21c430)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5608eeff6f00)', 'Plack::Handler::Starman=HASH(0x5608ef21c448)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5608eef90c70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3943866: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5608fb072a70)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5608fb10f600)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5608fb10f600)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5608ef8e6dc8)', 'HASH(0x5608fb062fe0)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5608ef8e6dc8)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5608fb057460)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5608fb0f8fe0)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5608fb0f91c0)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') 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(0x5608fb074798)', 'Try::Tiny::Catch=REF(0x5608fb062e60)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5608fb0f94d8)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5608fb065840)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5608f98f4560)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5608fb05fae8)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5608fb0f93a0)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5608fb04cd00)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5608fb048fd8)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5608fb04cac0)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5608ef8df570)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5608f98b6730)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5608f98d8660)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608fb062fe0)') 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(0x5608f98d84e0)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5608ef21c580)', 'HASH(0x5608fb062fe0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5608ef21c580)', 'Net::Server::Proto::UNIX=GLOB(0x5608fb0f4c50)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5608ef21c580)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'port', 'ARRAY(0x5608ef86ba98)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'CODE(0x5608ef21c430)', 'HASH(0x5608ef21c1d8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5608ef21c448)', 'CODE(0x5608ef21c430)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5608eeff6f00)', 'Plack::Handler::Starman=HASH(0x5608ef21c448)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5608eef90c70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3943864: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5608fb111d20)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5608fb0e8580)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5608fb0e8580)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5608efb3d230)', 'HASH(0x5608f98291d8)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5608efb3d230)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5608fb0606a8)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5608fb063438)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5608fb060528)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') 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(0x5608fb049dd8)', 'Try::Tiny::Catch=REF(0x5608fb1098d8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5608fb063528)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5608fb049d48)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5608f98f6f68)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5608fb054f88)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5608fb0f35c8)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5608fb045dd0)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5608fb045a58)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5608fb045c38)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5608ef8df558)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5608f982b658)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5608f98dc388)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98291d8)') 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(0x5608f9829f10)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5608ef21c580)', 'HASH(0x5608f98291d8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5608ef21c580)', 'Net::Server::Proto::UNIX=GLOB(0x5608fb0df230)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5608ef21c580)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'port', 'ARRAY(0x5608ef86ba98)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'CODE(0x5608ef21c430)', 'HASH(0x5608ef21c1d8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5608ef21c448)', 'CODE(0x5608ef21c430)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5608eeff6f00)', 'Plack::Handler::Starman=HASH(0x5608ef21c448)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5608eef90c70)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3943866: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5608fb11d198)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5608fb0f10b0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5608fb0f10b0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5608ef8df768)', 'HASH(0x5608f98e3160)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5608ef8df768)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5608fb0656d8)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5608fb0638c8)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5608fb065960)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') 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(0x5608fb04c9a0)', 'Try::Tiny::Catch=REF(0x5608fb115570)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5608fb065918)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5608fb04d0a8)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5608f98f4560)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5608fb05fae8)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5608fb0f93a0)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5608fb04cd00)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5608fb048fd8)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5608fb04cac0)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5608ef8df570)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5608f98b6730)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5608f98d8660)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5608f98e3160)') 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(0x5608f98d84e0)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5608ef21c580)', 'HASH(0x5608f98e3160)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5608ef21c580)', 'Net::Server::Proto::UNIX=GLOB(0x5608fb062fe0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5608ef21c580)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5608ef21c580)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'port', 'ARRAY(0x5608ef86ba98)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5608ef21c580)', 'CODE(0x5608ef21c430)', 'HASH(0x5608ef21c1d8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5608ef21c448)', 'CODE(0x5608ef21c430)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5608eeff6f00)', 'Plack::Handler::Starman=HASH(0x5608ef21c448)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5608eef90c70)') called at /bin/starman line 38 2026/08/12-18:05:04 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-18:05:04 Worker processes cleaned up 2026/08/12-18:05:04 Server closing! Process Backgrounded 2026/08/12-18:05:06 Starman::Server (type Net::Server::PreFork) starting! pid(3948600) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-18:13:06 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-18:13:06 Worker processes cleaned up 2026/08/12-18:13:06 Server closing! Process Backgrounded 2026/08/12-18:13:07 Starman::Server (type Net::Server::PreFork) starting! pid(3949653) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-18:25:19 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-18:25:19 Worker processes cleaned up 2026/08/12-18:25:19 Server closing! Process Backgrounded 2026/08/12-18:25:21 Starman::Server (type Net::Server::PreFork) starting! pid(3951137) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3951140: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x562aeed4f510)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x562afa33a378)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x562afa33a378)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x562aeeb3cb98)', 'HASH(0x562afa34f7b0)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x562aeeb3cb98)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x562afa28b7e0)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x562afa285148)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x562afa2845a8)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') 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(0x562afa2909c8)', 'Try::Tiny::Catch=REF(0x562afab42648)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x562afa284560)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x562afa2852b0)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x562af8b4c9d0)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x562afa2f2a48)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x562afa284890)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x562afa288760)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x562afa2906f8)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x562afa290908)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x562aeeb35788)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x562af8a827e0)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x562af8b2f5f0)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') 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(0x562af8a7f0d8)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x562aee4721d0)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x562aee4721d0)', 'Net::Server::Proto::UNIX=GLOB(0x562af8b3b878)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x562aee4721d0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x562aee4721d0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x562aee4721d0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x562aee4721d0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x562aee4721d0)', 'port', 'ARRAY(0x562aeeac1c98)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x562aee4721d0)', 'CODE(0x562aee472080)', 'HASH(0x562aee471e28)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x562aee472098)', 'CODE(0x562aee472080)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x562aee24d118)', 'Plack::Handler::Starman=HASH(0x562aee472098)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x562aee1e5ea0)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3951141: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x562aeed4f7a8)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2duser_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-user.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J# parts copyright 2010 BibLibre^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse URI;^J^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha qw(^J getitemtypeimagelocation^J GetNormalizedISBN^J GetNormalizedUPC^J GetNormalizedOCLCNumber^J);^Juse C4::Circulation qw( CanBookBeRenewed GetRenewCount GetIssuingCharges );^Juse C4::External::BakerTaylor qw( image_url link_url );^Juse C4::Reserves qw( GetReserveStatus );^Juse C4::Members;^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Account::Lines;^Juse Koha::Biblios;^Juse Koha::Libraries;^Juse Koha::DateUtils qw( output_pref );^Juse Koha::Holds;^Juse Koha::Database;^Juse Koha::ItemTypes;^Juse Koha::Patron::Attribute::Types;^Juse Koha::Patrons;^Juse Koha::Patron::Messages;^Juse Koha::Patron::Discharge;^Juse Koha::Patrons;^Juse Koha::Ratings;^Juse Koha::Recalls;^J^Juse constant ATTRIBUTE_SHOW_BARCODE => \'SHOW_BCODE\';^J^Juse Scalar::Util qw( looks_like_number );^Juse Date::Calc qw( Date_to_Days Today );^J^Jmy $query = CGI->new;^J^Jmy $op = $query->param(\'op\') || q{};^J^J# CAS single logout handling^J# Will print header and exit^Jif ( C4::Context->preference(\'casAuthentication\') ) {^J require C4::Auth_with_cas;^J C4::Auth_with_cas::logout_if_required($query);^J}^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-user.tt",^J query => $query,^J type => "opac",^J }^J);^J^Jmy %renewed = map { $_ => 1 } split( \':\', $query->param(\'renewed\') || \'\' );^J^Jmy $show_priority;^Jfor ( C4::Context->preference("OPACShowHoldQueueDetails") ) {^J m/priority/ and $show_priority = 1;^J}^J^Jmy $patronupdate = $query->param(\'patronupdate\');^Jmy $canrenew = 1;^J^J$template->param( shibbolethAuthentication => C4::Context->config(\'useshibboleth\') );^J^J# get borrower information ....^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ( $op eq \'cud-update_arc\' && C4::Context->preference("AllowPatronToControlAutorenewal") ) {^J my $autorenew_checkouts = $query->param(\'borrower_autorenew_checkouts\');^J $patron->autorenew_checkouts($autorenew_checkouts)->store() if defined $autorenew_checkouts;^J}^J^Jmy $borr = $patron->unblessed;^J^Jmy ( $today_year, $today_month, $today_day ) = Today();^Jmy ( $warning_year, $warning_month, $warning_day ) = split /-/, $borr->{\'dateexpiry\'};^J^Jmy $debar = Koha::Patrons->find($borrowernumber)->is_debarred;^Jmy $userdebarred;^J^Jif ($debar) {^J $userdebarred = 1;^J $template->param( \'userdebarred\' => $userdebarred );^J if ( $debar ne "9999-12-31" ) {^J $borr->{\'userdebarreddate\'} = $debar;^J }^J^J # FIXME looks like $available is not needed^J # If a user is discharged they have a validated discharge available^J my $available = Koha::Patron::Discharge::count(^J {^J borrowernumber => $borrowernumber,^J validated => 1,^J }^J );^J $template->param( \'discharge_available\' => $available^J && Koha::Patron::Discharge::is_discharged( { borrowernumber => $borrowernumber } ) );^J}^J^Jif ( $userdebarred || $borr->{\'gonenoaddress\'} || $borr->{\'lost\'} ) {^J $borr->{\'flagged\'} = 1;^J $canrenew = 0;^J}^J^Jmy $amountoutstanding = $patron->account->balance;^Jmy $no_renewal_amt = C4::Context->preference(\'OPACFineNoRenewals\');^J$no_renewal_amt = undef unless looks_like_number($no_renewal_amt);^Jmy $amountoutstandingfornewal =^J C4::Context->preference("OPACFineNoRenewalsIncludeCredits")^J ? $amountoutstanding^J : $patron->account->outstanding_debits->total_outstanding;^J^Jif ( C4::Context->preference(\'OpacRenewalAllowed\')^J && defined($no_renewal_amt)^J && $amountoutstandingfornewal > $no_renewal_amt )^J{^J $borr->{\'flagged\'} = 1;^J $canrenew = 0;^J $template->param(^J renewal_blocked_fines => $no_renewal_amt,^J renewal_blocked_fines_amountoutstanding => $amountoutstandingfornewal,^J );^J}^J^Jmy $maxoutstanding = C4::Context->preference(\'maxoutstanding\');^Jif ( $amountoutstanding && ( $amountoutstanding > $maxoutstanding ) ) {^J $borr->{blockedonfines} = 1;^J}^J^J# Warningdate is the date that the warning starts appearing^Jif ( $borr->{\'dateexpiry\'} && C4::Context->preference(\'NotifyBorrowerDeparture\') ) {^J my $days_to_expiry = Date_to_Days( $warning_year, $warning_month, $warning_day ) -^J Date_to_Days( $today_year, $today_month, $today_day );^J if ( $days_to_expiry < 0 ) {^J^J #borrower card has expired, warn the borrower^J $borr->{\'warnexpired\'} = $borr->{\'dateexpiry\'};^J } elsif ( $days_to_expiry < C4::Context->preference(\'NotifyBorrowerDeparture\') ) {^J^J # borrower card soon to expire, warn the borrower^J $borr->{\'warndeparture\'} = $borr->{dateexpiry};^J if ( C4::Context->preference(\'ReturnBeforeExpiry\') ) {^J $borr->{\'returnbeforeexpiry\'} = 1;^J }^J }^J}^J^Jmy $saving_display = C4::Context->preference(\'OPACShowSavings\');^Jif ( $saving_display =~ /user/ ) {^J $template->param( savings => $patron->get_savings );^J}^J^J# pass on any renew errors to the template for displaying^Jmy $renew_error = $query->param(\'renew_error\');^J^J$template->param(^J amountoutstanding => $amountoutstanding,^J borrowernumber => $borrowernumber,^J patron_flagged => $borr->{flagged},^J surname => $borr->{surname},^J RENEW_ERROR => $renew_error,^J borrower => $borr,^J);^J^J#get issued items ....^J^Jmy $count = 0;^Jmy $overdues_count = 0;^Jmy @overdues;^Jmy @issuedat;^Jmy $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };^Jmy $pending_checkouts = $patron->pending_checkouts->search(^J {},^J {^J order_by => [ { -desc => \'date_due\' }, { -asc => \'issue_id\' } ],^J prefetch => \'item\'^J }^J);^Jmy $are_renewable_items = 0;^Jif ( $pending_checkouts->count ) { # Useless test^J while ( my $c = $pending_checkouts->next ) {^J my $issue = $c->unblessed_all_relateds;^J^J # check for reserves^J my $restype = GetReserveStatus( $issue->{\'itemnumber\'} );^J if ($restype) {^J $issue->{\'reserved\'} = 1;^J }^J^J # Must be moved in a module if reused^J my $charges = Koha::Account::Lines->search(^J {^J borrowernumber => $patron->borrowernumber,^J amountoutstanding => { \'>\' => 0 },^J debit_type_code => [ \'OVERDUE\', \'LOST\' ],^J itemnumber => $issue->{itemnumber}^J },^J );^J $issue->{charges} = $charges->total_outstanding;^J^J my $rental_fines = Koha::Account::Lines->search(^J {^J borrowernumber => $patron->borrowernumber,^J amountoutstanding => { \'>\' => 0 },^J debit_type_code => { \'LIKE\' => \'RENT_%\' },^J itemnumber => $issue->{itemnumber}^J }^J );^J $issue->{rentalfines} = $rental_fines->total_outstanding;^J^J # check if item is renewable^J my ( $status, $renewerror, $info ) = CanBookBeRenewed( $patron, $c );^J (^J $issue->{\'renewcount\'},^J $issue->{\'renewsallowed\'},^J $issue->{\'renewsleft\'},^J $issue->{\'unseencount\'},^J $issue->{\'unseenallowed\'},^J $issue->{\'unseenleft\'}^J ) = GetRenewCount( $patron, $c->item );^J ( $issue->{\'renewalfee\'}, $issue->{\'renewalitemtype\'} ) =^J GetIssuingCharges( $issue->{\'itemnumber\'}, $borrowernumber );^J $issue->{itemtype_object} = Koha::ItemTypes->find( $c->item->effective_itemtype );^J if ( $status && C4::Context->preference("OpacRenewalAllowed") ) {^J $are_renewable_items = 1;^J $issue->{\'status\'} = $status;^J }^J^J $issue->{\'renewed\'} = $renewed{ $issue->{\'itemnumber\'} };^J^J if ($renewerror) {^J $issue->{\'too_many\'} = 1 if $renewerror eq \'too_many\';^J $issue->{\'too_unseen\'} = 1 if $renewerror eq \'too_unseen\';^J $issue->{\'on_reserve\'} = 1 if $renewerror eq \'on_reserve\';^J $issue->{\'norenew_overdue\'} = 1 if $renewerror eq \'overdue\';^J $issue->{\'auto_renew\'} = 1 if $renewerror eq \'auto_renew\';^J $issue->{\'auto_too_soon\'} = 1 if $renewerror eq \'auto_too_soon\';^J $issue->{\'auto_too_late\'} = 1 if $renewerror eq \'auto_too_late\';^J $issue->{\'auto_too_much_oweing\'} = 1 if $renewerror eq \'auto_too_much_oweing\';^J $issue->{\'item_denied_renewal\'} = 1 if $renewerror eq \'item_denied_renewal\';^J $issue->{\'item_issued_to_other_patron\'} = 1 if $renewerror eq \'item_issued_to_other_patron\';^J^J if ( $renewerror eq \'too_soon\' ) {^J $issue->{\'too_soon\'} = 1;^J $issue->{\'soonestrenewdate\'} = $info->{soonest_renew_date};^J }^J }^J^J if ( $c->is_overdue ) {^J push @overdues, $issue;^J $overdues_count++;^J $issue->{\'overdue\'} = 1;^J } else {^J $issue->{\'issued\'} = 1;^J }^J^J # imageurl:^J my $itemtype = $issue->{\'itemtype\'};^J if ($itemtype) {^J $issue->{\'imageurl\'} = getitemtypeimagelocation( \'opac\', $itemtypes->{$itemtype}->{\'imageurl\'} );^J $issue->{\'description\'} = $itemtypes->{$itemtype}->{\'description\'};^J }^J^J if ( C4::Context->preference(\'OpacStarRatings\') eq \'all\' ) {^J my $ratings = Koha::Ratings->search( { biblionumber => $issue->{biblionumber} } );^J $issue->{ratings} = $ratings;^J $issue->{my_rating} =^J $borrowernumber ? $ratings->search( { borrowernumber => $borrowernumber } )->next : undef;^J }^J^J my $biblio_object = Koha::Biblios->find( $issue->{biblionumber} );^J $issue->{biblio_object} = $biblio_object;^J push @issuedat, $issue;^J $count++;^J^J my $isbn = GetNormalizedISBN( $issue->{\'isbn\'} );^J $issue->{normalized_isbn} = $isbn;^J^J if ( C4::Context->preference(\'BakerTaylorEnabled\')^J || C4::Context->preference(\'SyndeticsEnabled\')^J || C4::Context->preference(\'SyndeticsCoverImages\') )^J {^J my $marcrecord = $biblio_object->metadata_record(^J {^J embed_items => 1,^J interface => \'opac\',^J patron => $patron^J }^J );^J $issue->{normalized_upc} = GetNormalizedUPC( $marcrecord, C4::Context->preference(\'marcflavour\') );^J $issue->{normalized_oclc} = GetNormalizedOCLCNumber( $marcrecord, C4::Context->preference(\'marcflavour\') );^J }^J^J if ( C4::Context->preference(\'UseRecalls\') ) {^J my $maybe_recalls = Koha::Recalls->search(^J { biblio_id => $issue->{biblionumber}, item_id => [ undef, $issue->{itemnumber} ], completed => 0 } );^J while ( my $recall = $maybe_recalls->next ) {^J if ( $recall->checkout and $recall->checkout->issue_id == $issue->{issue_id} ) {^J $issue->{recall} = 1;^J last;^J }^J }^J }^J }^J}^Jmy $overduesblockrenewing = C4::Context->preference(\'OverduesBlockRenewing\');^J$canrenew = 0 if ( $overduesblockrenewing ne \'allow\' and $overdues_count == $count ) || !$are_renewable_items;^J^J$template->param( ISSUES => \@issuedat );^J$template->param( issues_count => $count );^J$template->param( canrenew => $canrenew );^J$template->param( OVERDUES => \@overdues );^J$template->param( overdues_count => $overdues_count );^J^Jmy $show_barcode = Koha::Patron::Attribute::Types->search( # FIXME we should not need this search^J { code => ATTRIBUTE_SHOW_BARCODE }^J)->count;^Jif ($show_barcode) {^J my $patron_show_barcode = $patron->get_extended_attribute(ATTRIBUTE_SHOW_BARCODE);^J undef $show_barcode if $patron_show_barcode and not $patron_show_barcode->attribute;^J}^J$template->param( show_barcode => 1 ) if $show_barcode;^J^J# now the reserved items....^Jmy $reserves = $patron->holds->filter_out_has_cancellation_requests;^J^J$template->param(^J RESERVES => $reserves,^J reserves_count => $reserves->count_holds,^J showpriority => $show_priority,^J);^J^Jif ( C4::Context->preference(\'UseRecalls\') ) {^J my $recalls = Koha::Recalls->search( { patron_id => $borrowernumber, completed => 0 } );^J $template->param( RECALLS => $recalls );^J}^J^Jif ( C4::Context->preference(\'BakerTaylorEnabled\') ) {^J $template->param(^J BakerTaylorEnabled => 1,^J BakerTaylorImageURL => &image_url(),^J BakerTaylorLinkURL => &link_url(),^J BakerTaylorBookstoreURL => C4::Context->preference(\'BakerTaylorBookstoreURL\'),^J );^J}^J^Jif ( C4::Context->preference("OPACAmazonCoverImages")^J or C4::Context->preference("GoogleJackets")^J or C4::Context->preference("BakerTaylorEnabled")^J or C4::Context->preference("SyndeticsCoverImages")^J or ( C4::Context->preference(\'OPACCustomCoverImages\') and C4::Context->preference(\'CustomCoverImagesURL\') ) )^J{^J $template->param( JacketImages => 1 );^J}^J^J$template->param(^J overdrive_error => scalar $query->param(\'overdrive_error\') || undef,^J overdrive_tab => scalar $query->param(\'overdrive_tab\') || 0,^J);^J^Jmy $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J);^J^Jif ( C4::Context->preference(\'AllowPatronToSetCheckoutsVisibilityForGuarantor\')^J || C4::Context->preference(\'AllowStaffToSetCheckoutsVisibilityForGuarantor\') )^J{^J my @relatives;^J^J # Filter out guarantees that don\'t want guarantor to see checkouts^J foreach my $gr ( $patron->guarantee_relationships->as_list ) {^J my $g = $gr->guarantee;^J push( @relatives, $g ) if $g->privacy_guarantor_checkouts;^J }^J $template->param( relatives => \@relatives );^J}^J^Jif ( C4::Context->preference(\'AllowPatronToSetFinesVisibilityForGuarantor\')^J || C4::Context->preference(\'AllowStaffToSetFinesVisibilityForGuarantor\') )^J{^J my @relatives_with_fines;^J^J # Filter out guarantees that don\'t want guarantor to see checkouts^J foreach my $gr ( $patron->guarantee_relationships->as_list ) {^J my $g = $gr->guarantee;^J push( @relatives_with_fines, $g ) if $g->privacy_guarantor_fines;^J }^J $template->param( relatives_with_fines => \@relatives_with_fines );^J}^J^Jif ( C4::Context->preference("ArticleRequests") ) {^J $template->param(^J current_article_requests => [ $patron->article_requests->filter_by_current->as_list ],^J );^J}^J^J$template->param(^J patron_messages => $patron_messages,^J opacnote => $borr->{opacnote},^J patronupdate => $patronupdate,^J OpacRenewalAllowed => C4::Context->preference("OpacRenewalAllowed"),^J userview => 1,^J tab => scalar $query->param(\'tab\') || 0,^J SuspendHoldsOpac => C4::Context->preference(\'SuspendHoldsOpac\'),^J AutoResumeSuspendedHolds => C4::Context->preference(\'AutoResumeSuspendedHolds\'),^J OpacHoldNotes => C4::Context->preference(\'OpacHoldNotes\'),^J failed_holds => scalar $query->param(\'failed_holds\'),^J opac_user_holds => scalar $query->param(\'opac-user-holds\') || 0,^J opac_user_overdues => scalar $query->param(\'opac-user-overdues\') || 0,^J opac_user_article_requests => scalar $query->param(\'opac-user-article-requests\') || 0,^J);^J^J# if not an empty string this indicates to return^J# back to the opac-results page^Jmy $search_query = $query->param(\'has-search-query\');^J^Jif ($search_query) {^J^J print $query->redirect(^J -uri => "/cgi-bin/koha/opac-search.pl?$search_query",^J -cookie => $cookie,^J );^J}^J^J# if not an empty string this indicates to return^J# back to the page we triggered the login from^Jmy $return = $query->param(\'return\');^Jif ($return) {^J my $uri_syspref = C4::Context->preference(\'OPACBaseURL\');^J if ($uri_syspref) {^J my $uri = URI->new($uri_syspref);^J if ( $uri->isa(\'URI::http\') && $uri->host() ) {^J my $return_uri = URI->new($return);^J $return_uri->scheme( $uri->scheme() );^J $return_uri->authority( $uri->authority() );^J print $query->redirect(^J -uri => "$return_uri",^J -cookie => $cookie,^J );^J }^J }^J}^J^Joutput_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-user.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x562afa347428)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x562afa347428)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x562aeeb3d898)', 'HASH(0x562afa354790)', '/kohadevbox/koha/opac/opac-user.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x562aeeb3d898)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x562afa289588)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x562afa286a68)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x562afa286600)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') 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(0x562afa2b02b0)', 'Try::Tiny::Catch=REF(0x562afa2f83e0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x562afa28d350)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x562afa28a248)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x562af8b51598)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x562afa2c8b28)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x562afa2899a8)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x562afa28d908)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x562afa295850)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x562afa295808)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x562aeeb357a0)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x562af8a869d8)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x562af8b350c8)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa354790)') 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(0x562af8b35008)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x562aee4721d0)', 'HASH(0x562afa354790)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x562aee4721d0)', 'Net::Server::Proto::UNIX=GLOB(0x562af8b3e090)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x562aee4721d0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x562aee4721d0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x562aee4721d0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x562aee4721d0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x562aee4721d0)', 'port', 'ARRAY(0x562aeeac1c98)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x562aee4721d0)', 'CODE(0x562aee472080)', 'HASH(0x562aee471e28)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x562aee472098)', 'CODE(0x562aee472080)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x562aee24d118)', 'Plack::Handler::Starman=HASH(0x562aee472098)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x562aee1e5ea0)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3951140: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x562afa33acf0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x562afa2a3018)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x562afa2a3018)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x562aeeb3d240)', 'HASH(0x562afa34f7b0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x562aeeb3d240)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x562afa284470)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x562afa280ac8)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x562afa288538)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') 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(0x562afa2907a0)', 'Try::Tiny::Catch=REF(0x562afa33a390)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x562afa2881f0)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x562afa285130)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x562af8b4c9d0)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x562afa2f2a48)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x562afa284890)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x562afa288760)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x562afa2906f8)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x562afa290908)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x562aeeb35788)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x562af8a827e0)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x562af8b2f5f0)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x562afa34f7b0)') 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(0x562af8a7f0d8)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x562aee4721d0)', 'HASH(0x562afa34f7b0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x562aee4721d0)', 'Net::Server::Proto::UNIX=GLOB(0x562af8b3b8a8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x562aee4721d0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x562aee4721d0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x562aee4721d0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x562aee4721d0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x562aee4721d0)', 'port', 'ARRAY(0x562aeeac1c98)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x562aee4721d0)', 'CODE(0x562aee472080)', 'HASH(0x562aee471e28)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x562aee472098)', 'CODE(0x562aee472080)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x562aee24d118)', 'Plack::Handler::Starman=HASH(0x562aee472098)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x562aee1e5ea0)') called at /bin/starman line 38 2026/08/12-19:17:34 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-19:17:35 Worker processes cleaned up 2026/08/12-19:17:35 Server closing! Process Backgrounded 2026/08/12-19:17:36 Starman::Server (type Net::Server::PreFork) starting! pid(3956813) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-19:22:27 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-19:22:27 Worker processes cleaned up 2026/08/12-19:22:27 Server closing! Process Backgrounded 2026/08/12-19:22:30 Starman::Server (type Net::Server::PreFork) starting! pid(3957663) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-19:33:27 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-19:33:27 Worker processes cleaned up 2026/08/12-19:33:27 Server closing! Process Backgrounded 2026/08/12-19:33:29 Starman::Server (type Net::Server::PreFork) starting! pid(3958973) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-19:38:16 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-19:38:16 Worker processes cleaned up 2026/08/12-19:38:16 Server closing! Process Backgrounded 2026/08/12-19:38:19 Starman::Server (type Net::Server::PreFork) starting! pid(3959869) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-20:16:31 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-20:16:32 Worker processes cleaned up 2026/08/12-20:16:32 Server closing! Process Backgrounded 2026/08/12-20:16:33 Starman::Server (type Net::Server::PreFork) starting! pid(3963625) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3963626: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5618fccad370)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5619081dc520)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5619081dc520)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5618fca9ae40)', 'HASH(0x5619082c6d98)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5618fca9ae40)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5619082b3ec0)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5619082b3e30)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5619082b34a0)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') 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(0x56190829f768)', 'Try::Tiny::Catch=REF(0x56190824dd78)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x561908255788)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x561908220a78)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x561906ab0fa0)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x561908242958)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x561908251478)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5619081d2550)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5619081d24f0)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5619081d2658)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5618fca93778)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x561906a6a7c0)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x561906a935a0)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5619082c6d98)') 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(0x561906a933f0)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5618fc464a80)', 'HASH(0x5619082c6d98)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5618fc464a80)', 'Net::Server::Proto::UNIX=GLOB(0x561906a9f8e8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5618fc464a80)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5618fc464a80)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5618fc464a80)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5618fc464a80)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5618fc464a80)', 'port', 'ARRAY(0x5618fca20218)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5618fc464a80)', 'CODE(0x5618fc464930)', 'HASH(0x5618fc4646d8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5618fc464948)', 'CODE(0x5618fc464930)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5618fc1abaa8)', 'Plack::Handler::Starman=HASH(0x5618fc464948)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5618fc1448e0)') called at /bin/starman line 38 2026/08/12-21:03:03 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-21:03:03 Worker processes cleaned up 2026/08/12-21:03:03 Server closing! Process Backgrounded 2026/08/12-21:03:05 Starman::Server (type Net::Server::PreFork) starting! pid(3968180) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-21:17:27 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-21:17:27 Worker processes cleaned up 2026/08/12-21:17:27 Server closing! Process Backgrounded 2026/08/12-21:17:30 Starman::Server (type Net::Server::PreFork) starting! pid(3969796) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-22:04:34 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-22:04:34 Worker processes cleaned up 2026/08/12-22:04:34 Server closing! Process Backgrounded 2026/08/12-22:04:37 Starman::Server (type Net::Server::PreFork) starting! pid(3974521) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-22:09:14 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-22:09:15 Worker processes cleaned up 2026/08/12-22:09:15 Server closing! Process Backgrounded 2026/08/12-22:09:17 Starman::Server (type Net::Server::PreFork) starting! pid(3975548) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/12-22:14:01 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-22:14:02 Worker processes cleaned up 2026/08/12-22:14:02 Server closing! Process Backgrounded 2026/08/12-22:14:05 Starman::Server (type Net::Server::PreFork) starting! pid(3976920) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3976923: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55a4904e7ee0)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55a49be0b508)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55a49be0b508)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55a49a5a2d50)', 'HASH(0x55a49cce7710)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55a49a5a2d50)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55a49bd8e6f0)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55a49bdcf0b0)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55a49bdc7a08)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') 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(0x55a49bdffae8)', 'Try::Tiny::Catch=REF(0x55a49bdfd228)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55a49bda9328)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55a49bd91e80)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55a49a6785c8)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55a49be6aa50)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55a49be13250)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55a49bdc7a98)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55a49be42078)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55a49bdf06b0)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55a4902cdc08)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55a49a5bb8d0)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55a49a65a738)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49cce7710)') 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(0x55a49a65a5b8)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55a48fc0ada0)', 'HASH(0x55a49cce7710)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55a48fc0ada0)', 'Net::Server::Proto::UNIX=GLOB(0x55a49a677c38)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55a48fc0ada0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55a48fc0ada0)', 'port', 'ARRAY(0x55a49025a688)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55a48fc0ada0)', 'CODE(0x55a48fc0ac50)', 'HASH(0x55a48fc0a9f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55a48fc0ac68)', 'CODE(0x55a48fc0ac50)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55a48f9e6740)', 'Plack::Handler::Starman=HASH(0x55a48fc0ac68)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55a48f98dd88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3976924: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55a490370ff8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55a49ba1e070)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55a49ba1e070)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55a4902cdcf8)', 'HASH(0x55a49c74e258)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55a4902cdcf8)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55a49bdd49b0)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55a49bdf2328)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55a49bdebce8)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') 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(0x55a49be81d18)', 'Try::Tiny::Catch=REF(0x55a49be602c8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55a49be72208)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55a49be413d8)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55a49a67e2b0)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55a49bdbe410)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55a49be21c68)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55a49bdab368)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55a49bdbafc0)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55a49bdd4a88)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55a4902cdc20)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55a49a5bb7e0)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55a49a6649f0)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49c74e258)') 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(0x55a49a6647b0)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55a48fc0ada0)', 'HASH(0x55a49c74e258)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55a48fc0ada0)', 'Net::Server::Proto::UNIX=GLOB(0x55a49a66ca48)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55a48fc0ada0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55a48fc0ada0)', 'port', 'ARRAY(0x55a49025a688)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55a48fc0ada0)', 'CODE(0x55a48fc0ac50)', 'HASH(0x55a48fc0a9f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55a48fc0ac68)', 'CODE(0x55a48fc0ac50)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55a48f9e6740)', 'Plack::Handler::Starman=HASH(0x55a48fc0ac68)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55a48f98dd88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3976923: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55a49bd91f40)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55a49be72960)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55a49be72960)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55a49a5a2d50)', 'HASH(0x55a49bde8d38)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55a49a5a2d50)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55a49bd8e6f0)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55a49bdcf0b0)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55a49bdc7a08)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') 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(0x55a49be3a080)', 'Try::Tiny::Catch=REF(0x55a49bd9a4b8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55a49bda9328)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55a49bd91e80)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55a49a6785c8)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55a49be6aa50)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55a49be13250)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55a49bdc7a98)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55a49be42078)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55a49bdf06b0)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55a4902cdc08)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55a49a5bb8d0)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55a49a65a738)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bde8d38)') 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(0x55a49a65a5b8)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55a48fc0ada0)', 'HASH(0x55a49bde8d38)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55a48fc0ada0)', 'Net::Server::Proto::UNIX=GLOB(0x55a49a678190)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55a48fc0ada0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55a48fc0ada0)', 'port', 'ARRAY(0x55a49025a688)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55a48fc0ada0)', 'CODE(0x55a48fc0ac50)', 'HASH(0x55a48fc0a9f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55a48fc0ac68)', 'CODE(0x55a48fc0ac50)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55a48f9e6740)', 'Plack::Handler::Starman=HASH(0x55a48fc0ac68)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55a48f98dd88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3976924: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55a49bb62c10)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55a49be0e700)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55a49be0e700)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55a4902cdcf8)', 'HASH(0x55a49a67e3e8)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55a4902cdcf8)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55a49bdd49b0)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55a49bdf2328)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55a49bdebce8)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') 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(0x55a49be57988)', 'Try::Tiny::Catch=REF(0x55a49bde0d58)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55a49be72208)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55a49be413d8)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55a49a67e2b0)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55a49bdbe410)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55a49be21c68)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55a49bdab368)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55a49bdbafc0)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55a49bdd4a88)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55a4902cdc20)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55a49a5bb7e0)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55a49a6649f0)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49a67e3e8)') 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(0x55a49a6647b0)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55a48fc0ada0)', 'HASH(0x55a49a67e3e8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55a48fc0ada0)', 'Net::Server::Proto::UNIX=GLOB(0x55a49bdb7228)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55a48fc0ada0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55a48fc0ada0)', 'port', 'ARRAY(0x55a49025a688)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55a48fc0ada0)', 'CODE(0x55a48fc0ac50)', 'HASH(0x55a48fc0a9f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55a48fc0ac68)', 'CODE(0x55a48fc0ac50)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55a48f9e6740)', 'Plack::Handler::Starman=HASH(0x55a48fc0ac68)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55a48f98dd88)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3976923: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55a49bb34390)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55a49be856e0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55a49be856e0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55a49a5a2d50)', 'HASH(0x55a49bdffc98)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55a49a5a2d50)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55a49bd8e6f0)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55a49bdcf0b0)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55a49bdc7a08)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') 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(0x55a49bdf39c8)', 'Try::Tiny::Catch=REF(0x55a49be3d6f0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55a49bda9328)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55a49bd91e80)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55a49a6785c8)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55a49be6aa50)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55a49be13250)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55a49bdc7a98)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55a49be42078)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55a49bdf06b0)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55a4902cdc08)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55a49a5bb8d0)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55a49a65a738)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55a49bdffc98)') 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(0x55a49a65a5b8)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55a48fc0ada0)', 'HASH(0x55a49bdffc98)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55a48fc0ada0)', 'Net::Server::Proto::UNIX=GLOB(0x55a49bde8d38)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55a48fc0ada0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55a48fc0ada0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55a48fc0ada0)', 'port', 'ARRAY(0x55a49025a688)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55a48fc0ada0)', 'CODE(0x55a48fc0ac50)', 'HASH(0x55a48fc0a9f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55a48fc0ac68)', 'CODE(0x55a48fc0ac50)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55a48f9e6740)', 'Plack::Handler::Starman=HASH(0x55a48fc0ac68)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55a48f98dd88)') called at /bin/starman line 38 2026/08/12-22:29:49 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-22:29:49 Worker processes cleaned up 2026/08/12-22:29:49 Server closing! Process Backgrounded 2026/08/12-22:29:50 Starman::Server (type Net::Server::PreFork) starting! pid(3978811) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3978812: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x556974a81270)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5569801e9f48)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5569801e9f48)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55697eb46020)', 'HASH(0x5569802fc110)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55697eb46020)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55698024f4a0)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5569801499a0)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5569802f6878)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') 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(0x5569800a1920)', 'Try::Tiny::Catch=REF(0x556980014b48)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55698024ad50)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5569801226e8)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55697ec2bec8)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5569802279d0)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x556980169c80)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5569800a1cc8)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55698025ed80)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x556980252ad8)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x556974868278)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55697eb66be8)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55697ec10398)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5569802fc110)') 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(0x55697ec10158)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5569741a4db0)', 'HASH(0x5569802fc110)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5569741a4db0)', 'Net::Server::Proto::UNIX=GLOB(0x55697ec1cd20)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5569741a4db0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5569741a4db0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5569741a4db0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5569741a4db0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5569741a4db0)', 'port', 'ARRAY(0x5569747f4788)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5569741a4db0)', 'CODE(0x5569741a4c60)', 'HASH(0x5569741a4a08)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5569741a4c78)', 'CODE(0x5569741a4c60)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x556973f7ff28)', 'Plack::Handler::Starman=HASH(0x5569741a4c78)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x556973f27748)') called at /bin/starman line 38 2026/08/12-23:52:50 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/12-23:52:50 Worker processes cleaned up 2026/08/12-23:52:50 Server closing! Process Backgrounded 2026/08/12-23:52:51 Starman::Server (type Net::Server::PreFork) starting! pid(3986635) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-00:02:12 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-00:02:12 Worker processes cleaned up 2026/08/13-00:02:12 Server closing! Process Backgrounded 2026/08/13-00:02:14 Starman::Server (type Net::Server::PreFork) starting! pid(3987912) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3987916: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5590b63a0ce8)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5590c1df4b30)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5590c1df4b30)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5590b618f590)', 'HASH(0x5590c1df0e80)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5590b618f590)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5590c1c53ee0)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5590c1ac6480)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5590c1b99348)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') 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(0x5590c1b28030)', 'Try::Tiny::Catch=REF(0x5590c1e39888)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5590c1aedd30)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5590c1b20c48)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5590c053c398)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5590c1e4d580)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5590c1aed898)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5590c1a65e60)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5590c1b2af38)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5590c1cf4c68)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5590b61874e0)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5590c0486790)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5590c0524e78)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5590c1df0e80)') 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(0x5590c0524d88)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x5590b5ac3500)', 'HASH(0x5590c1df0e80)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x5590b5ac3500)', 'Net::Server::Proto::UNIX=GLOB(0x5590c053b9d8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x5590b5ac3500)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x5590b5ac3500)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x5590b5ac3500)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x5590b5ac3500)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x5590b5ac3500)', 'port', 'ARRAY(0x5590b6113e08)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x5590b5ac3500)', 'CODE(0x5590b5ac33b0)', 'HASH(0x5590b5ac3158)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x5590b5ac33c8)', 'CODE(0x5590b5ac33b0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x5590b589edc0)', 'Plack::Handler::Starman=HASH(0x5590b5ac33c8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x5590b5838320)') called at /bin/starman line 38 2026/08/13-00:20:04 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-00:20:05 Worker processes cleaned up 2026/08/13-00:20:05 Server closing! Process Backgrounded 2026/08/13-00:20:07 Starman::Server (type Net::Server::PreFork) starting! pid(3989832) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-00:49:24 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-00:49:24 Worker processes cleaned up 2026/08/13-00:49:24 Server closing! Process Backgrounded 2026/08/13-00:49:26 Starman::Server (type Net::Server::PreFork) starting! pid(3992859) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-00:53:24 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-00:53:24 Worker processes cleaned up 2026/08/13-00:53:24 Server closing! Process Backgrounded 2026/08/13-00:53:26 Starman::Server (type Net::Server::PreFork) starting! pid(3993667) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_3993669: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55ae66341cb0)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55ae71bcb800)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55ae71bcb800)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55ae704055d0)', 'HASH(0x55ae704d5880)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55ae704055d0)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55ae719e2ac8)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55ae7197cea0)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55ae71b058d0)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') 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(0x55ae71b11758)', 'Try::Tiny::Catch=REF(0x55ae71b76328)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55ae718e80a0)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55ae71b0de58)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55ae704e88f0)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55ae719b83f8)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55ae71bd43e0)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55ae719782e0)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55ae7197cf00)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55ae71b01d88)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55ae66128828)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55ae70426010)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55ae704cdbd0)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d5880)') 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(0x55ae704cdab0)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55ae65a65be0)', 'HASH(0x55ae704d5880)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55ae65a65be0)', 'Net::Server::Proto::UNIX=GLOB(0x55ae704d5d18)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55ae65a65be0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55ae65a65be0)', 'port', 'ARRAY(0x55ae660b5418)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55ae65a65be0)', 'CODE(0x55ae65a65a90)', 'HASH(0x55ae65a65838)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55ae65a65aa8)', 'CODE(0x55ae65a65a90)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55ae6583ff00)', 'Plack::Handler::Starman=HASH(0x55ae65a65aa8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55ae657d8940)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3993670: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55ae66341f38)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55ae7199f778)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55ae7199f778)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55ae70401e08)', 'HASH(0x55ae704d2118)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55ae70401e08)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55ae71b39910)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55ae71b2d2a0)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55ae71932ed0)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') 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(0x55ae71a116e8)', 'Try::Tiny::Catch=REF(0x55ae718ccbd0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55ae71b83fb8)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55ae71ab0620)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55ae704e58c8)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55ae719a8750)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55ae718dce80)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55ae71a54c28)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55ae71bc6148)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55ae71a11a60)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55ae66128840)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55ae70422cd8)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55ae704ca408)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae704d2118)') 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(0x55ae704ca2b8)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55ae65a65be0)', 'HASH(0x55ae704d2118)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55ae65a65be0)', 'Net::Server::Proto::UNIX=GLOB(0x55ae704d24c0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55ae65a65be0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55ae65a65be0)', 'port', 'ARRAY(0x55ae660b5418)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55ae65a65be0)', 'CODE(0x55ae65a65a90)', 'HASH(0x55ae65a65838)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55ae65a65aa8)', 'CODE(0x55ae65a65a90)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55ae6583ff00)', 'Plack::Handler::Starman=HASH(0x55ae65a65aa8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55ae657d8940)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3993669: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55ae71b995d8)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55ae718f23b0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55ae718f23b0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55ae704055d0)', 'HASH(0x55ae71b995c0)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55ae704055d0)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55ae719e2ac8)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55ae7197cea0)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55ae71b058d0)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') 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(0x55ae718bba90)', 'Try::Tiny::Catch=REF(0x55ae71ab1690)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55ae718e80a0)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55ae71b0de58)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55ae704e88f0)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55ae719b83f8)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55ae71bd43e0)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55ae719782e0)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55ae7197cf00)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55ae71b01d88)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55ae66128828)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55ae70426010)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55ae704cdbd0)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae71b995c0)') 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(0x55ae704cdab0)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55ae65a65be0)', 'HASH(0x55ae71b995c0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55ae65a65be0)', 'Net::Server::Proto::UNIX=GLOB(0x55ae71b09250)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55ae65a65be0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55ae65a65be0)', 'port', 'ARRAY(0x55ae660b5418)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55ae65a65be0)', 'CODE(0x55ae65a65a90)', 'HASH(0x55ae65a65838)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55ae65a65aa8)', 'CODE(0x55ae65a65a90)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55ae6583ff00)', 'Plack::Handler::Starman=HASH(0x55ae65a65aa8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55ae657d8940)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_3993670: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55ae71b06488)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2duser_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-user.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J# parts copyright 2010 BibLibre^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse URI;^J^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha qw(^J getitemtypeimagelocation^J GetNormalizedISBN^J GetNormalizedUPC^J GetNormalizedOCLCNumber^J);^Juse C4::Circulation qw( CanBookBeRenewed GetRenewCount GetIssuingCharges );^Juse C4::External::BakerTaylor qw( image_url link_url );^Juse C4::Reserves qw( GetReserveStatus );^Juse C4::Members;^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Account::Lines;^Juse Koha::Biblios;^Juse Koha::Libraries;^Juse Koha::DateUtils qw( output_pref );^Juse Koha::Holds;^Juse Koha::Database;^Juse Koha::ItemTypes;^Juse Koha::Patron::Attribute::Types;^Juse Koha::Patrons;^Juse Koha::Patron::Messages;^Juse Koha::Patron::Discharge;^Juse Koha::Patrons;^Juse Koha::Ratings;^Juse Koha::Recalls;^J^Juse constant ATTRIBUTE_SHOW_BARCODE => \'SHOW_BCODE\';^J^Juse Scalar::Util qw( looks_like_number );^Juse Date::Calc qw( Date_to_Days Today );^J^Jmy $query = CGI->new;^J^Jmy $op = $query->param(\'op\') || q{};^J^J# CAS single logout handling^J# Will print header and exit^Jif ( C4::Context->preference(\'casAuthentication\') ) {^J require C4::Auth_with_cas;^J C4::Auth_with_cas::logout_if_required($query);^J}^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-user.tt",^J query => $query,^J type => "opac",^J }^J);^J^Jmy %renewed = map { $_ => 1 } split( \':\', $query->param(\'renewed\') || \'\' );^J^Jmy $show_priority;^Jfor ( C4::Context->preference("OPACShowHoldQueueDetails") ) {^J m/priority/ and $show_priority = 1;^J}^J^Jmy $patronupdate = $query->param(\'patronupdate\');^Jmy $canrenew = 1;^J^J$template->param( shibbolethAuthentication => C4::Context->config(\'useshibboleth\') );^J^J# get borrower information ....^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ( $op eq \'cud-update_arc\' && C4::Context->preference("AllowPatronToControlAutorenewal") ) {^J my $autorenew_checkouts = $query->param(\'borrower_autorenew_checkouts\');^J $patron->autorenew_checkouts($autorenew_checkouts)->store() if defined $autorenew_checkouts;^J}^J^Jmy $borr = $patron->unblessed;^J^Jmy ( $today_year, $today_month, $today_day ) = Today();^Jmy ( $warning_year, $warning_month, $warning_day ) = split /-/, $borr->{\'dateexpiry\'};^J^Jmy $debar = Koha::Patrons->find($borrowernumber)->is_debarred;^Jmy $userdebarred;^J^Jif ($debar) {^J $userdebarred = 1;^J $template->param( \'userdebarred\' => $userdebarred );^J if ( $debar ne "9999-12-31" ) {^J $borr->{\'userdebarreddate\'} = $debar;^J }^J^J # FIXME looks like $available is not needed^J # If a user is discharged they have a validated discharge available^J my $available = Koha::Patron::Discharge::count(^J {^J borrowernumber => $borrowernumber,^J validated => 1,^J }^J );^J $template->param( \'discharge_available\' => $available^J && Koha::Patron::Discharge::is_discharged( { borrowernumber => $borrowernumber } ) );^J}^J^Jif ( $userdebarred || $borr->{\'gonenoaddress\'} || $borr->{\'lost\'} ) {^J $borr->{\'flagged\'} = 1;^J $canrenew = 0;^J}^J^Jmy $amountoutstanding = $patron->account->balance;^Jmy $no_renewal_amt = C4::Context->preference(\'OPACFineNoRenewals\');^J$no_renewal_amt = undef unless looks_like_number($no_renewal_amt);^Jmy $amountoutstandingfornewal =^J C4::Context->preference("OPACFineNoRenewalsIncludeCredits")^J ? $amountoutstanding^J : $patron->account->outstanding_debits->total_outstanding;^J^Jif ( C4::Context->preference(\'OpacRenewalAllowed\')^J && defined($no_renewal_amt)^J && $amountoutstandingfornewal > $no_renewal_amt )^J{^J $borr->{\'flagged\'} = 1;^J $canrenew = 0;^J $template->param(^J renewal_blocked_fines => $no_renewal_amt,^J renewal_blocked_fines_amountoutstanding => $amountoutstandingfornewal,^J );^J}^J^Jmy $maxoutstanding = C4::Context->preference(\'maxoutstanding\');^Jif ( $amountoutstanding && ( $amountoutstanding > $maxoutstanding ) ) {^J $borr->{blockedonfines} = 1;^J}^J^J# Warningdate is the date that the warning starts appearing^Jif ( $borr->{\'dateexpiry\'} && C4::Context->preference(\'NotifyBorrowerDeparture\') ) {^J my $days_to_expiry = Date_to_Days( $warning_year, $warning_month, $warning_day ) -^J Date_to_Days( $today_year, $today_month, $today_day );^J if ( $days_to_expiry < 0 ) {^J^J #borrower card has expired, warn the borrower^J $borr->{\'warnexpired\'} = $borr->{\'dateexpiry\'};^J } elsif ( $days_to_expiry < C4::Context->preference(\'NotifyBorrowerDeparture\') ) {^J^J # borrower card soon to expire, warn the borrower^J $borr->{\'warndeparture\'} = $borr->{dateexpiry};^J if ( C4::Context->preference(\'ReturnBeforeExpiry\') ) {^J $borr->{\'returnbeforeexpiry\'} = 1;^J }^J }^J}^J^Jmy $saving_display = C4::Context->preference(\'OPACShowSavings\');^Jif ( $saving_display =~ /user/ ) {^J $template->param( savings => $patron->get_savings );^J}^J^J# pass on any renew errors to the template for displaying^Jmy $renew_error = $query->param(\'renew_error\');^J^J$template->param(^J amountoutstanding => $amountoutstanding,^J borrowernumber => $borrowernumber,^J patron_flagged => $borr->{flagged},^J surname => $borr->{surname},^J RENEW_ERROR => $renew_error,^J borrower => $borr,^J);^J^J#get issued items ....^J^Jmy $count = 0;^Jmy $overdues_count = 0;^Jmy @overdues;^Jmy @issuedat;^Jmy $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };^Jmy $pending_checkouts = $patron->pending_checkouts->search(^J {},^J {^J order_by => [ { -desc => \'date_due\' }, { -asc => \'issue_id\' } ],^J prefetch => \'item\'^J }^J);^Jmy $are_renewable_items = 0;^Jif ( $pending_checkouts->count ) { # Useless test^J while ( my $c = $pending_checkouts->next ) {^J my $issue = $c->unblessed_all_relateds;^J^J # check for reserves^J my $restype = GetReserveStatus( $issue->{\'itemnumber\'} );^J if ($restype) {^J $issue->{\'reserved\'} = 1;^J }^J^J # Must be moved in a module if reused^J my $charges = Koha::Account::Lines->search(^J {^J borrowernumber => $patron->borrowernumber,^J amountoutstanding => { \'>\' => 0 },^J debit_type_code => [ \'OVERDUE\', \'LOST\' ],^J itemnumber => $issue->{itemnumber}^J },^J );^J $issue->{charges} = $charges->total_outstanding;^J^J my $rental_fines = Koha::Account::Lines->search(^J {^J borrowernumber => $patron->borrowernumber,^J amountoutstanding => { \'>\' => 0 },^J debit_type_code => { \'LIKE\' => \'RENT_%\' },^J itemnumber => $issue->{itemnumber}^J }^J );^J $issue->{rentalfines} = $rental_fines->total_outstanding;^J^J # check if item is renewable^J my ( $status, $renewerror, $info ) = CanBookBeRenewed( $patron, $c );^J (^J $issue->{\'renewcount\'},^J $issue->{\'renewsallowed\'},^J $issue->{\'renewsleft\'},^J $issue->{\'unseencount\'},^J $issue->{\'unseenallowed\'},^J $issue->{\'unseenleft\'}^J ) = GetRenewCount( $patron, $c->item );^J ( $issue->{\'renewalfee\'}, $issue->{\'renewalitemtype\'} ) =^J GetIssuingCharges( $issue->{\'itemnumber\'}, $borrowernumber );^J $issue->{itemtype_object} = Koha::ItemTypes->find( $c->item->effective_itemtype );^J if ( $status && C4::Context->preference("OpacRenewalAllowed") ) {^J $are_renewable_items = 1;^J $issue->{\'status\'} = $status;^J }^J^J $issue->{\'renewed\'} = $renewed{ $issue->{\'itemnumber\'} };^J^J if ($renewerror) {^J $issue->{\'too_many\'} = 1 if $renewerror eq \'too_many\';^J $issue->{\'too_unseen\'} = 1 if $renewerror eq \'too_unseen\';^J $issue->{\'on_reserve\'} = 1 if $renewerror eq \'on_reserve\';^J $issue->{\'norenew_overdue\'} = 1 if $renewerror eq \'overdue\';^J $issue->{\'auto_renew\'} = 1 if $renewerror eq \'auto_renew\';^J $issue->{\'auto_too_soon\'} = 1 if $renewerror eq \'auto_too_soon\';^J $issue->{\'auto_too_late\'} = 1 if $renewerror eq \'auto_too_late\';^J $issue->{\'auto_too_much_oweing\'} = 1 if $renewerror eq \'auto_too_much_oweing\';^J $issue->{\'item_denied_renewal\'} = 1 if $renewerror eq \'item_denied_renewal\';^J $issue->{\'item_issued_to_other_patron\'} = 1 if $renewerror eq \'item_issued_to_other_patron\';^J^J if ( $renewerror eq \'too_soon\' ) {^J $issue->{\'too_soon\'} = 1;^J $issue->{\'soonestrenewdate\'} = $info->{soonest_renew_date};^J }^J }^J^J if ( $c->is_overdue ) {^J push @overdues, $issue;^J $overdues_count++;^J $issue->{\'overdue\'} = 1;^J } else {^J $issue->{\'issued\'} = 1;^J }^J^J # imageurl:^J my $itemtype = $issue->{\'itemtype\'};^J if ($itemtype) {^J $issue->{\'imageurl\'} = getitemtypeimagelocation( \'opac\', $itemtypes->{$itemtype}->{\'imageurl\'} );^J $issue->{\'description\'} = $itemtypes->{$itemtype}->{\'description\'};^J }^J^J if ( C4::Context->preference(\'OpacStarRatings\') eq \'all\' ) {^J my $ratings = Koha::Ratings->search( { biblionumber => $issue->{biblionumber} } );^J $issue->{ratings} = $ratings;^J $issue->{my_rating} =^J $borrowernumber ? $ratings->search( { borrowernumber => $borrowernumber } )->next : undef;^J }^J^J my $biblio_object = Koha::Biblios->find( $issue->{biblionumber} );^J $issue->{biblio_object} = $biblio_object;^J push @issuedat, $issue;^J $count++;^J^J my $isbn = GetNormalizedISBN( $issue->{\'isbn\'} );^J $issue->{normalized_isbn} = $isbn;^J^J if ( C4::Context->preference(\'BakerTaylorEnabled\')^J || C4::Context->preference(\'SyndeticsEnabled\')^J || C4::Context->preference(\'SyndeticsCoverImages\') )^J {^J my $marcrecord = $biblio_object->metadata_record(^J {^J embed_items => 1,^J interface => \'opac\',^J patron => $patron^J }^J );^J $issue->{normalized_upc} = GetNormalizedUPC( $marcrecord, C4::Context->preference(\'marcflavour\') );^J $issue->{normalized_oclc} = GetNormalizedOCLCNumber( $marcrecord, C4::Context->preference(\'marcflavour\') );^J }^J^J if ( C4::Context->preference(\'UseRecalls\') ) {^J my $maybe_recalls = Koha::Recalls->search(^J { biblio_id => $issue->{biblionumber}, item_id => [ undef, $issue->{itemnumber} ], completed => 0 } );^J while ( my $recall = $maybe_recalls->next ) {^J if ( $recall->checkout and $recall->checkout->issue_id == $issue->{issue_id} ) {^J $issue->{recall} = 1;^J last;^J }^J }^J }^J }^J}^Jmy $overduesblockrenewing = C4::Context->preference(\'OverduesBlockRenewing\');^J$canrenew = 0 if ( $overduesblockrenewing ne \'allow\' and $overdues_count == $count ) || !$are_renewable_items;^J^J$template->param( ISSUES => \@issuedat );^J$template->param( issues_count => $count );^J$template->param( canrenew => $canrenew );^J$template->param( OVERDUES => \@overdues );^J$template->param( overdues_count => $overdues_count );^J^Jmy $show_barcode = Koha::Patron::Attribute::Types->search( # FIXME we should not need this search^J { code => ATTRIBUTE_SHOW_BARCODE }^J)->count;^Jif ($show_barcode) {^J my $patron_show_barcode = $patron->get_extended_attribute(ATTRIBUTE_SHOW_BARCODE);^J undef $show_barcode if $patron_show_barcode and not $patron_show_barcode->attribute;^J}^J$template->param( show_barcode => 1 ) if $show_barcode;^J^J# now the reserved items....^Jmy $reserves = $patron->holds->filter_out_has_cancellation_requests;^J^J$template->param(^J RESERVES => $reserves,^J reserves_count => $reserves->count_holds,^J showpriority => $show_priority,^J);^J^Jif ( C4::Context->preference(\'UseRecalls\') ) {^J my $recalls = Koha::Recalls->search( { patron_id => $borrowernumber, completed => 0 } );^J $template->param( RECALLS => $recalls );^J}^J^Jif ( C4::Context->preference(\'BakerTaylorEnabled\') ) {^J $template->param(^J BakerTaylorEnabled => 1,^J BakerTaylorImageURL => &image_url(),^J BakerTaylorLinkURL => &link_url(),^J BakerTaylorBookstoreURL => C4::Context->preference(\'BakerTaylorBookstoreURL\'),^J );^J}^J^Jif ( C4::Context->preference("OPACAmazonCoverImages")^J or C4::Context->preference("GoogleJackets")^J or C4::Context->preference("BakerTaylorEnabled")^J or C4::Context->preference("SyndeticsCoverImages")^J or ( C4::Context->preference(\'OPACCustomCoverImages\') and C4::Context->preference(\'CustomCoverImagesURL\') ) )^J{^J $template->param( JacketImages => 1 );^J}^J^J$template->param(^J overdrive_error => scalar $query->param(\'overdrive_error\') || undef,^J overdrive_tab => scalar $query->param(\'overdrive_tab\') || 0,^J);^J^Jmy $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J);^J^Jif ( C4::Context->preference(\'AllowPatronToSetCheckoutsVisibilityForGuarantor\')^J || C4::Context->preference(\'AllowStaffToSetCheckoutsVisibilityForGuarantor\') )^J{^J my @relatives;^J^J # Filter out guarantees that don\'t want guarantor to see checkouts^J foreach my $gr ( $patron->guarantee_relationships->as_list ) {^J my $g = $gr->guarantee;^J push( @relatives, $g ) if $g->privacy_guarantor_checkouts;^J }^J $template->param( relatives => \@relatives );^J}^J^Jif ( C4::Context->preference(\'AllowPatronToSetFinesVisibilityForGuarantor\')^J || C4::Context->preference(\'AllowStaffToSetFinesVisibilityForGuarantor\') )^J{^J my @relatives_with_fines;^J^J # Filter out guarantees that don\'t want guarantor to see checkouts^J foreach my $gr ( $patron->guarantee_relationships->as_list ) {^J my $g = $gr->guarantee;^J push( @relatives_with_fines, $g ) if $g->privacy_guarantor_fines;^J }^J $template->param( relatives_with_fines => \@relatives_with_fines );^J}^J^Jif ( C4::Context->preference("ArticleRequests") ) {^J $template->param(^J current_article_requests => [ $patron->article_requests->filter_by_current->as_list ],^J );^J}^J^J$template->param(^J patron_messages => $patron_messages,^J opacnote => $borr->{opacnote},^J patronupdate => $patronupdate,^J OpacRenewalAllowed => C4::Context->preference("OpacRenewalAllowed"),^J userview => 1,^J tab => scalar $query->param(\'tab\') || 0,^J SuspendHoldsOpac => C4::Context->preference(\'SuspendHoldsOpac\'),^J AutoResumeSuspendedHolds => C4::Context->preference(\'AutoResumeSuspendedHolds\'),^J OpacHoldNotes => C4::Context->preference(\'OpacHoldNotes\'),^J failed_holds => scalar $query->param(\'failed_holds\'),^J opac_user_holds => scalar $query->param(\'opac-user-holds\') || 0,^J opac_user_overdues => scalar $query->param(\'opac-user-overdues\') || 0,^J opac_user_article_requests => scalar $query->param(\'opac-user-article-requests\') || 0,^J);^J^J# if not an empty string this indicates to return^J# back to the opac-results page^Jmy $search_query = $query->param(\'has-search-query\');^J^Jif ($search_query) {^J^J print $query->redirect(^J -uri => "/cgi-bin/koha/opac-search.pl?$search_query",^J -cookie => $cookie,^J );^J}^J^J# if not an empty string this indicates to return^J# back to the page we triggered the login from^Jmy $return = $query->param(\'return\');^Jif ($return) {^J my $uri_syspref = C4::Context->preference(\'OPACBaseURL\');^J if ($uri_syspref) {^J my $uri = URI->new($uri_syspref);^J if ( $uri->isa(\'URI::http\') && $uri->host() ) {^J my $return_uri = URI->new($return);^J $return_uri->scheme( $uri->scheme() );^J $return_uri->authority( $uri->authority() );^J print $query->redirect(^J -uri => "$return_uri",^J -cookie => $cookie,^J );^J }^J }^J}^J^Joutput_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-user.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55ae71bd9b08)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55ae71bd9b08)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55ae66128918)', 'HASH(0x55ae718ca798)', '/kohadevbox/koha/opac/opac-user.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55ae66128918)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55ae71bd9550)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55ae71bd9658)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55ae71bd59a0)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') 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(0x55ae718d9968)', 'Try::Tiny::Catch=REF(0x55ae704d1ea8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55ae718dd2b8)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55ae71bc7f90)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55ae704e58c8)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55ae719a8750)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55ae718dce80)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55ae71a54c28)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55ae71bc6148)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55ae71a11a60)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55ae66128840)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55ae70422cd8)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55ae704ca408)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55ae718ca798)') 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(0x55ae704ca2b8)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55ae65a65be0)', 'HASH(0x55ae718ca798)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55ae65a65be0)', 'Net::Server::Proto::UNIX=GLOB(0x55ae71a57d20)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55ae65a65be0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55ae65a65be0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55ae65a65be0)', 'port', 'ARRAY(0x55ae660b5418)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55ae65a65be0)', 'CODE(0x55ae65a65a90)', 'HASH(0x55ae65a65838)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55ae65a65aa8)', 'CODE(0x55ae65a65a90)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55ae6583ff00)', 'Plack::Handler::Starman=HASH(0x55ae65a65aa8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55ae657d8940)') called at /bin/starman line 38 2026/08/13-01:42:08 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-01:42:08 Worker processes cleaned up 2026/08/13-01:42:08 Server closing! Process Backgrounded 2026/08/13-01:42:10 Starman::Server (type Net::Server::PreFork) starting! pid(3998418) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-02:01:45 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-02:01:45 Worker processes cleaned up 2026/08/13-02:01:45 Server closing! Process Backgrounded 2026/08/13-02:01:48 Starman::Server (type Net::Server::PreFork) starting! pid(4000795) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_4000801: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x556dd24b80e0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x556dddc4c9a0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x556dddc4c9a0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x556dd22a5c60)', 'HASH(0x556dddc16830)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x556dd22a5c60)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x556ddda62280)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x556dddc58f98)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x556dddb46120)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') 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(0x556dddb83638)', 'Try::Tiny::Catch=REF(0x556dddaa7c90)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x556dddc948d8)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x556dddb83950)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x556ddc66fbb8)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x556dddbf4f58)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x556dddbe1408)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x556dddb7b9d8)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x556dddb7bb88)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x556dddb7baf8)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x556dd229e518)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x556ddc5aacb8)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x556ddc654178)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddc16830)') 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(0x556ddc653f38)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x556dd1c6fd60)', 'HASH(0x556dddc16830)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x556dd1c6fd60)', 'Net::Server::Proto::UNIX=GLOB(0x556ddc660a60)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x556dd1c6fd60)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x556dd1c6fd60)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x556dd1c6fd60)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x556dd1c6fd60)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x556dd1c6fd60)', 'port', 'ARRAY(0x556dd222b448)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x556dd1c6fd60)', 'CODE(0x556dd1c6fc10)', 'HASH(0x556dd1c6f9b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x556dd1c6fc28)', 'CODE(0x556dd1c6fc10)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x556dd19b7268)', 'Plack::Handler::Starman=HASH(0x556dd1c6fc28)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x556dd1950c00)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4000802: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x556dd24b8318)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x556dddc47960)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x556dddc47960)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x556dd22a5cc8)', 'HASH(0x556dddb62070)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x556dd22a5cc8)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x556dddaff7e8)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x556dddb2b5b8)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x556dddad20e0)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') 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(0x556dddc663a8)', 'Try::Tiny::Catch=REF(0x556dde7619b0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x556dddc91670)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x556dddafd320)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x556ddc65ba30)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x556dddc438b0)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x556dddaffd70)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x556ddda6e298)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x556dddb891b0)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x556dddb88fb8)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x556dd229e530)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x556ddc5a3638)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x556ddc6527f8)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556dddb62070)') 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(0x556ddc5647b8)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x556dd1c6fd60)', 'HASH(0x556dddb62070)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x556dd1c6fd60)', 'Net::Server::Proto::UNIX=GLOB(0x556ddc65b3a0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x556dd1c6fd60)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x556dd1c6fd60)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x556dd1c6fd60)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x556dd1c6fd60)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x556dd1c6fd60)', 'port', 'ARRAY(0x556dd222b448)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x556dd1c6fd60)', 'CODE(0x556dd1c6fc10)', 'HASH(0x556dd1c6f9b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x556dd1c6fc28)', 'CODE(0x556dd1c6fc10)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x556dd19b7268)', 'Plack::Handler::Starman=HASH(0x556dd1c6fc28)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x556dd1950c00)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4000801: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x556dddc4c778)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x556dddbe91f8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x556dddbe91f8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x556ddc58a158)', 'HASH(0x556ddc66fd38)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x556ddc58a158)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x556dddc1f520)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x556dddb83bd8)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x556dddbbe298)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') 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(0x556dddc22fc8)', 'Try::Tiny::Catch=REF(0x556dddd0f550)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x556dddc880c8)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x556dddb2c970)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x556ddc66fbb8)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x556dddbf4f58)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x556dddbe1408)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x556dddb7b9d8)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x556dddb7bb88)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x556dddb7baf8)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x556dd229e518)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x556ddc5aacb8)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x556ddc654178)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ddc66fd38)') 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(0x556ddc653f38)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x556dd1c6fd60)', 'HASH(0x556ddc66fd38)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x556dd1c6fd60)', 'Net::Server::Proto::UNIX=GLOB(0x556ddba0e1f8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x556dd1c6fd60)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x556dd1c6fd60)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x556dd1c6fd60)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x556dd1c6fd60)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x556dd1c6fd60)', 'port', 'ARRAY(0x556dd222b448)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x556dd1c6fd60)', 'CODE(0x556dd1c6fc10)', 'HASH(0x556dd1c6f9b8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x556dd1c6fc28)', 'CODE(0x556dd1c6fc10)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x556dd19b7268)', 'Plack::Handler::Starman=HASH(0x556dd1c6fc28)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x556dd1950c00)') called at /bin/starman line 38 2026/08/13-02:40:39 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-02:40:39 Worker processes cleaned up 2026/08/13-02:40:39 Server closing! Process Backgrounded 2026/08/13-02:40:41 Starman::Server (type Net::Server::PreFork) starting! pid(4005134) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-02:46:37 Received QUIT. Running a graceful shutdown Sending children hup signal Child process 4005136 exited with status 0 - signal was 1 2026/08/13-02:46:38 Worker processes cleaned up 2026/08/13-02:46:38 Server closing! Process Backgrounded 2026/08/13-02:46:38 Starman::Server (type Net::Server::PreFork) starting! pid(4006334) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_4006335: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55c2ae90fbb0)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55c2ba200bb8)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55c2ba200bb8)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55c2b89d0b70)', 'HASH(0x55c2ba1ece50)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55c2b89d0b70)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55c2ba2591c8)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55c2ba28e3e8)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55c2ba2ad7a8)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') 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(0x55c2ba1e6fd8)', 'Try::Tiny::Catch=REF(0x55c2ba208a80)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55c2ba2590d8)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55c2ba1d6d48)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55c2b8aa4008)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55c2ba071b08)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55c2ba241000)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55c2ba1ba058)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55c2ba28ac70)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55c2ba28b3f0)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55c2ae6f5c28)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55c2b89ed570)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55c2b89ad378)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1ece50)') 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(0x55c2b89ad198)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55c2ae032a50)', 'HASH(0x55c2ba1ece50)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55c2ae032a50)', 'Net::Server::Proto::UNIX=GLOB(0x55c2b8aa3b28)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55c2ae032a50)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55c2ae032a50)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55c2ae032a50)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55c2ae032a50)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55c2ae032a50)', 'port', 'ARRAY(0x55c2ae682298)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55c2ae032a50)', 'CODE(0x55c2ae032900)', 'HASH(0x55c2ae0326a8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55c2ae032918)', 'CODE(0x55c2ae032900)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55c2ade0e8e8)', 'Plack::Handler::Starman=HASH(0x55c2ae032918)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55c2adda7bd0)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4006336: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55c2ae90ff78)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55c2ba0e8350)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55c2ba0e8350)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55c2b89aefe0)', 'HASH(0x55c2ba1a4818)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55c2b89aefe0)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55c2ba02b178)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55c2b9efee90)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55c2ba02d388)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') 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(0x55c2b9f1c1d0)', 'Try::Tiny::Catch=REF(0x55c2ba0076f8)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55c2ba04cc38)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55c2ba02b238)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55c2b8aae738)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55c2ba0048b0)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55c2ba0e7f90)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55c2ba02dc40)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55c2ba0e8998)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55c2ba0e8b90)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55c2ae6f5c40)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55c2b89e7e08)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55c2b8a96dc8)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55c2ba1a4818)') 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(0x55c2b89a9d80)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55c2ae032a50)', 'HASH(0x55c2ba1a4818)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55c2ae032a50)', 'Net::Server::Proto::UNIX=GLOB(0x55c2b8a9fce0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55c2ae032a50)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55c2ae032a50)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55c2ae032a50)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55c2ae032a50)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55c2ae032a50)', 'port', 'ARRAY(0x55c2ae682298)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55c2ae032a50)', 'CODE(0x55c2ae032900)', 'HASH(0x55c2ae0326a8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55c2ae032918)', 'CODE(0x55c2ae032900)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55c2ade0e8e8)', 'Plack::Handler::Starman=HASH(0x55c2ae032918)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55c2adda7bd0)') called at /bin/starman line 38 2026/08/13-03:38:23 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-03:38:23 Worker processes cleaned up 2026/08/13-03:38:23 Server closing! Process Backgrounded 2026/08/13-03:38:25 Starman::Server (type Net::Server::PreFork) starting! pid(4011596) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-04:03:23 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-04:03:23 Worker processes cleaned up 2026/08/13-04:03:23 Server closing! Process Backgrounded 2026/08/13-04:03:25 Starman::Server (type Net::Server::PreFork) starting! pid(4014417) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Connection to the memcached servers 'memcached:11211' failed. Are the unix socket permissions set properly? Is the host reachable? If you ignore this warning, you will face performance issues Connection to the memcached servers 'memcached:11211' failed. Are the unix socket permissions set properly? Is the host reachable? If you ignore this warning, you will face performance issues 2026/08/13-04:37:29 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-04:37:29 Worker processes cleaned up 2026/08/13-04:37:29 Server closing! Process Backgrounded 2026/08/13-04:37:30 Starman::Server (type Net::Server::PreFork) starting! pid(4017879) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-05:13:37 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-05:13:37 Worker processes cleaned up 2026/08/13-05:13:37 Server closing! Process Backgrounded 2026/08/13-05:13:38 Starman::Server (type Net::Server::PreFork) starting! pid(4021234) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-05:22:56 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-05:22:57 Worker processes cleaned up 2026/08/13-05:22:57 Server closing! Process Backgrounded 2026/08/13-05:22:59 Starman::Server (type Net::Server::PreFork) starting! pid(4022539) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-05:31:13 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-05:31:13 Worker processes cleaned up 2026/08/13-05:31:13 Server closing! Process Backgrounded 2026/08/13-05:31:16 Starman::Server (type Net::Server::PreFork) starting! pid(4023695) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_4023699: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x56152ebb82a8)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2duser_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-user.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J# parts copyright 2010 BibLibre^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse URI;^J^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha qw(^J getitemtypeimagelocation^J GetNormalizedISBN^J GetNormalizedUPC^J GetNormalizedOCLCNumber^J);^Juse C4::Circulation qw( CanBookBeRenewed GetRenewCount GetIssuingCharges );^Juse C4::External::BakerTaylor qw( image_url link_url );^Juse C4::Reserves qw( GetReserveStatus );^Juse C4::Members;^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Account::Lines;^Juse Koha::Biblios;^Juse Koha::Libraries;^Juse Koha::DateUtils qw( output_pref );^Juse Koha::Holds;^Juse Koha::Database;^Juse Koha::ItemTypes;^Juse Koha::Patron::Attribute::Types;^Juse Koha::Patrons;^Juse Koha::Patron::Messages;^Juse Koha::Patron::Discharge;^Juse Koha::Patrons;^Juse Koha::Ratings;^Juse Koha::Recalls;^J^Juse constant ATTRIBUTE_SHOW_BARCODE => \'SHOW_BCODE\';^J^Juse Scalar::Util qw( looks_like_number );^Juse Date::Calc qw( Date_to_Days Today );^J^Jmy $query = CGI->new;^J^Jmy $op = $query->param(\'op\') || q{};^J^J# CAS single logout handling^J# Will print header and exit^Jif ( C4::Context->preference(\'casAuthentication\') ) {^J require C4::Auth_with_cas;^J C4::Auth_with_cas::logout_if_required($query);^J}^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-user.tt",^J query => $query,^J type => "opac",^J }^J);^J^Jmy %renewed = map { $_ => 1 } split( \':\', $query->param(\'renewed\') || \'\' );^J^Jmy $show_priority;^Jfor ( C4::Context->preference("OPACShowHoldQueueDetails") ) {^J m/priority/ and $show_priority = 1;^J}^J^Jmy $patronupdate = $query->param(\'patronupdate\');^Jmy $canrenew = 1;^J^J$template->param( shibbolethAuthentication => C4::Context->config(\'useshibboleth\') );^J^J# get borrower information ....^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ( $op eq \'cud-update_arc\' && C4::Context->preference("AllowPatronToControlAutorenewal") ) {^J my $autorenew_checkouts = $query->param(\'borrower_autorenew_checkouts\');^J $patron->autorenew_checkouts($autorenew_checkouts)->store() if defined $autorenew_checkouts;^J}^J^Jmy $borr = $patron->unblessed;^J^Jmy ( $today_year, $today_month, $today_day ) = Today();^Jmy ( $warning_year, $warning_month, $warning_day ) = split /-/, $borr->{\'dateexpiry\'};^J^Jmy $debar = Koha::Patrons->find($borrowernumber)->is_debarred;^Jmy $userdebarred;^J^Jif ($debar) {^J $userdebarred = 1;^J $template->param( \'userdebarred\' => $userdebarred );^J if ( $debar ne "9999-12-31" ) {^J $borr->{\'userdebarreddate\'} = $debar;^J }^J^J # FIXME looks like $available is not needed^J # If a user is discharged they have a validated discharge available^J my $available = Koha::Patron::Discharge::count(^J {^J borrowernumber => $borrowernumber,^J validated => 1,^J }^J );^J $template->param( \'discharge_available\' => $available^J && Koha::Patron::Discharge::is_discharged( { borrowernumber => $borrowernumber } ) );^J}^J^Jif ( $userdebarred || $borr->{\'gonenoaddress\'} || $borr->{\'lost\'} ) {^J $borr->{\'flagged\'} = 1;^J $canrenew = 0;^J}^J^Jmy $amountoutstanding = $patron->account->balance;^Jmy $no_renewal_amt = C4::Context->preference(\'OPACFineNoRenewals\');^J$no_renewal_amt = undef unless looks_like_number($no_renewal_amt);^Jmy $amountoutstandingfornewal =^J C4::Context->preference("OPACFineNoRenewalsIncludeCredits")^J ? $amountoutstanding^J : $patron->account->outstanding_debits->total_outstanding;^J^Jif ( C4::Context->preference(\'OpacRenewalAllowed\')^J && defined($no_renewal_amt)^J && $amountoutstandingfornewal > $no_renewal_amt )^J{^J $borr->{\'flagged\'} = 1;^J $canrenew = 0;^J $template->param(^J renewal_blocked_fines => $no_renewal_amt,^J renewal_blocked_fines_amountoutstanding => $amountoutstandingfornewal,^J );^J}^J^Jmy $maxoutstanding = C4::Context->preference(\'maxoutstanding\');^Jif ( $amountoutstanding && ( $amountoutstanding > $maxoutstanding ) ) {^J $borr->{blockedonfines} = 1;^J}^J^J# Warningdate is the date that the warning starts appearing^Jif ( $borr->{\'dateexpiry\'} && C4::Context->preference(\'NotifyBorrowerDeparture\') ) {^J my $days_to_expiry = Date_to_Days( $warning_year, $warning_month, $warning_day ) -^J Date_to_Days( $today_year, $today_month, $today_day );^J if ( $days_to_expiry < 0 ) {^J^J #borrower card has expired, warn the borrower^J $borr->{\'warnexpired\'} = $borr->{\'dateexpiry\'};^J } elsif ( $days_to_expiry < C4::Context->preference(\'NotifyBorrowerDeparture\') ) {^J^J # borrower card soon to expire, warn the borrower^J $borr->{\'warndeparture\'} = $borr->{dateexpiry};^J if ( C4::Context->preference(\'ReturnBeforeExpiry\') ) {^J $borr->{\'returnbeforeexpiry\'} = 1;^J }^J }^J}^J^Jmy $saving_display = C4::Context->preference(\'OPACShowSavings\');^Jif ( $saving_display =~ /user/ ) {^J $template->param( savings => $patron->get_savings );^J}^J^J# pass on any renew errors to the template for displaying^Jmy $renew_error = $query->param(\'renew_error\');^J^J$template->param(^J amountoutstanding => $amountoutstanding,^J borrowernumber => $borrowernumber,^J patron_flagged => $borr->{flagged},^J surname => $borr->{surname},^J RENEW_ERROR => $renew_error,^J borrower => $borr,^J);^J^J#get issued items ....^J^Jmy $count = 0;^Jmy $overdues_count = 0;^Jmy @overdues;^Jmy @issuedat;^Jmy $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };^Jmy $pending_checkouts = $patron->pending_checkouts->search(^J {},^J {^J order_by => [ { -desc => \'date_due\' }, { -asc => \'issue_id\' } ],^J prefetch => \'item\'^J }^J);^Jmy $are_renewable_items = 0;^Jif ( $pending_checkouts->count ) { # Useless test^J while ( my $c = $pending_checkouts->next ) {^J my $issue = $c->unblessed_all_relateds;^J^J # check for reserves^J my $restype = GetReserveStatus( $issue->{\'itemnumber\'} );^J if ($restype) {^J $issue->{\'reserved\'} = 1;^J }^J^J # Must be moved in a module if reused^J my $charges = Koha::Account::Lines->search(^J {^J borrowernumber => $patron->borrowernumber,^J amountoutstanding => { \'>\' => 0 },^J debit_type_code => [ \'OVERDUE\', \'LOST\' ],^J itemnumber => $issue->{itemnumber}^J },^J );^J $issue->{charges} = $charges->total_outstanding;^J^J my $rental_fines = Koha::Account::Lines->search(^J {^J borrowernumber => $patron->borrowernumber,^J amountoutstanding => { \'>\' => 0 },^J debit_type_code => { \'LIKE\' => \'RENT_%\' },^J itemnumber => $issue->{itemnumber}^J }^J );^J $issue->{rentalfines} = $rental_fines->total_outstanding;^J^J # check if item is renewable^J my ( $status, $renewerror, $info ) = CanBookBeRenewed( $patron, $c );^J (^J $issue->{\'renewcount\'},^J $issue->{\'renewsallowed\'},^J $issue->{\'renewsleft\'},^J $issue->{\'unseencount\'},^J $issue->{\'unseenallowed\'},^J $issue->{\'unseenleft\'}^J ) = GetRenewCount( $patron, $c->item );^J ( $issue->{\'renewalfee\'}, $issue->{\'renewalitemtype\'} ) =^J GetIssuingCharges( $issue->{\'itemnumber\'}, $borrowernumber );^J $issue->{itemtype_object} = Koha::ItemTypes->find( $c->item->effective_itemtype );^J if ( $status && C4::Context->preference("OpacRenewalAllowed") ) {^J $are_renewable_items = 1;^J $issue->{\'status\'} = $status;^J }^J^J $issue->{\'renewed\'} = $renewed{ $issue->{\'itemnumber\'} };^J^J if ($renewerror) {^J $issue->{\'too_many\'} = 1 if $renewerror eq \'too_many\';^J $issue->{\'too_unseen\'} = 1 if $renewerror eq \'too_unseen\';^J $issue->{\'on_reserve\'} = 1 if $renewerror eq \'on_reserve\';^J $issue->{\'norenew_overdue\'} = 1 if $renewerror eq \'overdue\';^J $issue->{\'auto_renew\'} = 1 if $renewerror eq \'auto_renew\';^J $issue->{\'auto_too_soon\'} = 1 if $renewerror eq \'auto_too_soon\';^J $issue->{\'auto_too_late\'} = 1 if $renewerror eq \'auto_too_late\';^J $issue->{\'auto_too_much_oweing\'} = 1 if $renewerror eq \'auto_too_much_oweing\';^J $issue->{\'item_denied_renewal\'} = 1 if $renewerror eq \'item_denied_renewal\';^J $issue->{\'item_issued_to_other_patron\'} = 1 if $renewerror eq \'item_issued_to_other_patron\';^J^J if ( $renewerror eq \'too_soon\' ) {^J $issue->{\'too_soon\'} = 1;^J $issue->{\'soonestrenewdate\'} = $info->{soonest_renew_date};^J }^J }^J^J if ( $c->is_overdue ) {^J push @overdues, $issue;^J $overdues_count++;^J $issue->{\'overdue\'} = 1;^J } else {^J $issue->{\'issued\'} = 1;^J }^J^J # imageurl:^J my $itemtype = $issue->{\'itemtype\'};^J if ($itemtype) {^J $issue->{\'imageurl\'} = getitemtypeimagelocation( \'opac\', $itemtypes->{$itemtype}->{\'imageurl\'} );^J $issue->{\'description\'} = $itemtypes->{$itemtype}->{\'description\'};^J }^J^J if ( C4::Context->preference(\'OpacStarRatings\') eq \'all\' ) {^J my $ratings = Koha::Ratings->search( { biblionumber => $issue->{biblionumber} } );^J $issue->{ratings} = $ratings;^J $issue->{my_rating} =^J $borrowernumber ? $ratings->search( { borrowernumber => $borrowernumber } )->next : undef;^J }^J^J my $biblio_object = Koha::Biblios->find( $issue->{biblionumber} );^J $issue->{biblio_object} = $biblio_object;^J push @issuedat, $issue;^J $count++;^J^J my $isbn = GetNormalizedISBN( $issue->{\'isbn\'} );^J $issue->{normalized_isbn} = $isbn;^J^J if ( C4::Context->preference(\'BakerTaylorEnabled\')^J || C4::Context->preference(\'SyndeticsEnabled\')^J || C4::Context->preference(\'SyndeticsCoverImages\') )^J {^J my $marcrecord = $biblio_object->metadata_record(^J {^J embed_items => 1,^J interface => \'opac\',^J patron => $patron^J }^J );^J $issue->{normalized_upc} = GetNormalizedUPC( $marcrecord, C4::Context->preference(\'marcflavour\') );^J $issue->{normalized_oclc} = GetNormalizedOCLCNumber( $marcrecord, C4::Context->preference(\'marcflavour\') );^J }^J^J if ( C4::Context->preference(\'UseRecalls\') ) {^J my $maybe_recalls = Koha::Recalls->search(^J { biblio_id => $issue->{biblionumber}, item_id => [ undef, $issue->{itemnumber} ], completed => 0 } );^J while ( my $recall = $maybe_recalls->next ) {^J if ( $recall->checkout and $recall->checkout->issue_id == $issue->{issue_id} ) {^J $issue->{recall} = 1;^J last;^J }^J }^J }^J }^J}^Jmy $overduesblockrenewing = C4::Context->preference(\'OverduesBlockRenewing\');^J$canrenew = 0 if ( $overduesblockrenewing ne \'allow\' and $overdues_count == $count ) || !$are_renewable_items;^J^J$template->param( ISSUES => \@issuedat );^J$template->param( issues_count => $count );^J$template->param( canrenew => $canrenew );^J$template->param( OVERDUES => \@overdues );^J$template->param( overdues_count => $overdues_count );^J^Jmy $show_barcode = Koha::Patron::Attribute::Types->search( # FIXME we should not need this search^J { code => ATTRIBUTE_SHOW_BARCODE }^J)->count;^Jif ($show_barcode) {^J my $patron_show_barcode = $patron->get_extended_attribute(ATTRIBUTE_SHOW_BARCODE);^J undef $show_barcode if $patron_show_barcode and not $patron_show_barcode->attribute;^J}^J$template->param( show_barcode => 1 ) if $show_barcode;^J^J# now the reserved items....^Jmy $reserves = $patron->holds->filter_out_has_cancellation_requests;^J^J$template->param(^J RESERVES => $reserves,^J reserves_count => $reserves->count_holds,^J showpriority => $show_priority,^J);^J^Jif ( C4::Context->preference(\'UseRecalls\') ) {^J my $recalls = Koha::Recalls->search( { patron_id => $borrowernumber, completed => 0 } );^J $template->param( RECALLS => $recalls );^J}^J^Jif ( C4::Context->preference(\'BakerTaylorEnabled\') ) {^J $template->param(^J BakerTaylorEnabled => 1,^J BakerTaylorImageURL => &image_url(),^J BakerTaylorLinkURL => &link_url(),^J BakerTaylorBookstoreURL => C4::Context->preference(\'BakerTaylorBookstoreURL\'),^J );^J}^J^Jif ( C4::Context->preference("OPACAmazonCoverImages")^J or C4::Context->preference("GoogleJackets")^J or C4::Context->preference("BakerTaylorEnabled")^J or C4::Context->preference("SyndeticsCoverImages")^J or ( C4::Context->preference(\'OPACCustomCoverImages\') and C4::Context->preference(\'CustomCoverImagesURL\') ) )^J{^J $template->param( JacketImages => 1 );^J}^J^J$template->param(^J overdrive_error => scalar $query->param(\'overdrive_error\') || undef,^J overdrive_tab => scalar $query->param(\'overdrive_tab\') || 0,^J);^J^Jmy $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J);^J^Jif ( C4::Context->preference(\'AllowPatronToSetCheckoutsVisibilityForGuarantor\')^J || C4::Context->preference(\'AllowStaffToSetCheckoutsVisibilityForGuarantor\') )^J{^J my @relatives;^J^J # Filter out guarantees that don\'t want guarantor to see checkouts^J foreach my $gr ( $patron->guarantee_relationships->as_list ) {^J my $g = $gr->guarantee;^J push( @relatives, $g ) if $g->privacy_guarantor_checkouts;^J }^J $template->param( relatives => \@relatives );^J}^J^Jif ( C4::Context->preference(\'AllowPatronToSetFinesVisibilityForGuarantor\')^J || C4::Context->preference(\'AllowStaffToSetFinesVisibilityForGuarantor\') )^J{^J my @relatives_with_fines;^J^J # Filter out guarantees that don\'t want guarantor to see checkouts^J foreach my $gr ( $patron->guarantee_relationships->as_list ) {^J my $g = $gr->guarantee;^J push( @relatives_with_fines, $g ) if $g->privacy_guarantor_fines;^J }^J $template->param( relatives_with_fines => \@relatives_with_fines );^J}^J^Jif ( C4::Context->preference("ArticleRequests") ) {^J $template->param(^J current_article_requests => [ $patron->article_requests->filter_by_current->as_list ],^J );^J}^J^J$template->param(^J patron_messages => $patron_messages,^J opacnote => $borr->{opacnote},^J patronupdate => $patronupdate,^J OpacRenewalAllowed => C4::Context->preference("OpacRenewalAllowed"),^J userview => 1,^J tab => scalar $query->param(\'tab\') || 0,^J SuspendHoldsOpac => C4::Context->preference(\'SuspendHoldsOpac\'),^J AutoResumeSuspendedHolds => C4::Context->preference(\'AutoResumeSuspendedHolds\'),^J OpacHoldNotes => C4::Context->preference(\'OpacHoldNotes\'),^J failed_holds => scalar $query->param(\'failed_holds\'),^J opac_user_holds => scalar $query->param(\'opac-user-holds\') || 0,^J opac_user_overdues => scalar $query->param(\'opac-user-overdues\') || 0,^J opac_user_article_requests => scalar $query->param(\'opac-user-article-requests\') || 0,^J);^J^J# if not an empty string this indicates to return^J# back to the opac-results page^Jmy $search_query = $query->param(\'has-search-query\');^J^Jif ($search_query) {^J^J print $query->redirect(^J -uri => "/cgi-bin/koha/opac-search.pl?$search_query",^J -cookie => $cookie,^J );^J}^J^J# if not an empty string this indicates to return^J# back to the page we triggered the login from^Jmy $return = $query->param(\'return\');^Jif ($return) {^J my $uri_syspref = C4::Context->preference(\'OPACBaseURL\');^J if ($uri_syspref) {^J my $uri = URI->new($uri_syspref);^J if ( $uri->isa(\'URI::http\') && $uri->host() ) {^J my $return_uri = URI->new($return);^J $return_uri->scheme( $uri->scheme() );^J $return_uri->authority( $uri->authority() );^J print $query->redirect(^J -uri => "$return_uri",^J -cookie => $cookie,^J );^J }^J }^J}^J^Joutput_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-user.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x56153a52d138)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x56153a52d138)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x56152e9a62b0)', 'HASH(0x561538d49918)', '/kohadevbox/koha/opac/opac-user.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x56152e9a62b0)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x56153a48cd28)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x56153a493450)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x56153a497150)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') 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(0x56153a4d3940)', 'Try::Tiny::Catch=REF(0x56153a49f0e0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x56153a4969a0)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x56153a535ad0)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x561538d64738)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x56153a4c47d0)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x56153a53eac0)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x56153a4f9a40)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x56153a4d69c0)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x56153a53efa0)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x56152e99e750)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x561538ca1ad8)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x561538d49858)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d49918)') 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(0x561538d49708)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x56152e2dd610)', 'HASH(0x561538d49918)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x56152e2dd610)', 'Net::Server::Proto::UNIX=GLOB(0x561538d51a20)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x56152e2dd610)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x56152e2dd610)', 'port', 'ARRAY(0x56152e92b198)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x56152e2dd610)', 'CODE(0x56152e2dd4c0)', 'HASH(0x56152e2dd268)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x56152e2dd4d8)', 'CODE(0x56152e2dd4c0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x56152e0b7da0)', 'Plack::Handler::Starman=HASH(0x56152e2dd4d8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x56152e0515a0)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4023698: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x56152ebb7b80)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x56153a511570)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x56153a511570)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x561538c791e0)', 'HASH(0x561538d42870)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x561538c791e0)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x56153a54cce0)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x56153a52e8a0)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x56153a4b9ff8)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') 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(0x56153a4f2e88)', 'Try::Tiny::Catch=REF(0x56153a4a3120)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x56153a48fc00)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x56153a49ff70)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x561538d5d950)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x56153a471a80)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x56153a4b7910)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x56153a4a3090)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x56153a4ebb48)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x56153a4a04b0)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x56152e99e738)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x561538c9b2a8)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x561538d42750)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x561538d42870)') 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(0x561538d42660)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x56152e2dd610)', 'HASH(0x561538d42870)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x56152e2dd610)', 'Net::Server::Proto::UNIX=GLOB(0x561538d4a6f8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x56152e2dd610)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x56152e2dd610)', 'port', 'ARRAY(0x56152e92b198)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x56152e2dd610)', 'CODE(0x56152e2dd4c0)', 'HASH(0x56152e2dd268)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x56152e2dd4d8)', 'CODE(0x56152e2dd4c0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x56152e0b7da0)', 'Plack::Handler::Starman=HASH(0x56152e2dd4d8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x56152e0515a0)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4023699: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x56153a50ed20)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dlibrary_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-library.pl^J#!/usr/bin/perl^J^J# Copyright 2020 Athens County Public Libraries^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Context;^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Libraries;^J^Jmy $query = CGI->new();^J^Jmy $branchcode = $query->param(\'branchcode\');^J^J# if OPACShowLibraries is disabled, leave immediately^Jif ( !C4::Context->preference(\'OPACShowLibraries\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-library.tt",^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $library;^Jmy $libraries = Koha::Libraries->search( { public => 1 }, { order_by => [\'branchname\'] } );^J$template->param( public_count => $libraries->count );^Jif ( $template->{VARS}->{singleBranchMode} || $libraries->count == 1 ) {^J $library = $libraries->next;^J} elsif ($branchcode) {^J $library = $libraries->search( { branchcode => $branchcode } )->next;^J}^J^Jif ($library) {^J $template->param( library => $library );^J} else {^J $template->param(^J libraries => $libraries,^J branchcode => C4::Context->userenv ? C4::Context->userenv->{branch} : q{},^J );^J}^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x56153a55ce88)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x56153a55ce88)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x56152e9a62b0)', 'HASH(0x56153a4d7368)', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x56152e9a62b0)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x56153a48cd28)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x56153a493450)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x56153a497150)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') 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(0x56153a4b9280)', 'Try::Tiny::Catch=REF(0x56153a49af80)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x56153a4969a0)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x56153a535ad0)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x561538d64738)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x56153a4c47d0)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x56153a53eac0)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x56153a4f9a40)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x56153a4d69c0)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x56153a53efa0)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x56152e99e750)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x561538ca1ad8)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x561538d49858)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4d7368)') 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(0x561538d49708)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x56152e2dd610)', 'HASH(0x56153a4d7368)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x56152e2dd610)', 'Net::Server::Proto::UNIX=GLOB(0x561538d64b58)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x56152e2dd610)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x56152e2dd610)', 'port', 'ARRAY(0x56152e92b198)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x56152e2dd610)', 'CODE(0x56152e2dd4c0)', 'HASH(0x56152e2dd268)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x56152e2dd4d8)', 'CODE(0x56152e2dd4c0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x56152e0b7da0)', 'Plack::Handler::Starman=HASH(0x56152e2dd4d8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x56152e0515a0)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4023698: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x56153a4ec3d0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dlibrary_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-library.pl^J#!/usr/bin/perl^J^J# Copyright 2020 Athens County Public Libraries^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Context;^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Libraries;^J^Jmy $query = CGI->new();^J^Jmy $branchcode = $query->param(\'branchcode\');^J^J# if OPACShowLibraries is disabled, leave immediately^Jif ( !C4::Context->preference(\'OPACShowLibraries\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-library.tt",^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $library;^Jmy $libraries = Koha::Libraries->search( { public => 1 }, { order_by => [\'branchname\'] } );^J$template->param( public_count => $libraries->count );^Jif ( $template->{VARS}->{singleBranchMode} || $libraries->count == 1 ) {^J $library = $libraries->next;^J} elsif ($branchcode) {^J $library = $libraries->search( { branchcode => $branchcode } )->next;^J}^J^Jif ($library) {^J $template->param( library => $library );^J} else {^J $template->param(^J libraries => $libraries,^J branchcode => C4::Context->userenv ? C4::Context->userenv->{branch} : q{},^J );^J}^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x56153a56a198)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x56153a56a198)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x56152e9a5bf8)', 'HASH(0x56153a4dcd18)', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x56152e9a5bf8)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x56153a498748)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x56153a5292d0)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x56153a535a38)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') 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(0x56153a4ac110)', 'Try::Tiny::Catch=REF(0x56153a4dca48)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x56153a54cfe0)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x56153a4cceb8)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x561538d5d950)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x56153a471a80)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x56153a4b7910)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x56153a4a3090)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x56153a4ebb48)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x56153a4a04b0)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x56152e99e738)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x561538c9b2a8)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x561538d42750)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x56153a4dcd18)') 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(0x561538d42660)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x56152e2dd610)', 'HASH(0x56153a4dcd18)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x56152e2dd610)', 'Net::Server::Proto::UNIX=GLOB(0x561538d5d980)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x56152e2dd610)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x56152e2dd610)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x56152e2dd610)', 'port', 'ARRAY(0x56152e92b198)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x56152e2dd610)', 'CODE(0x56152e2dd4c0)', 'HASH(0x56152e2dd268)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x56152e2dd4d8)', 'CODE(0x56152e2dd4c0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x56152e0b7da0)', 'Plack::Handler::Starman=HASH(0x56152e2dd4d8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x56152e0515a0)') called at /bin/starman line 38 2026/08/13-07:33:09 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-07:33:09 Worker processes cleaned up 2026/08/13-07:33:09 Server closing! Process Backgrounded 2026/08/13-07:33:10 Starman::Server (type Net::Server::PreFork) starting! pid(4035176) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_4035179: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x555ff982b710)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dlibrary_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-library.pl^J#!/usr/bin/perl^J^J# Copyright 2020 Athens County Public Libraries^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Context;^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Libraries;^J^Jmy $query = CGI->new();^J^Jmy $branchcode = $query->param(\'branchcode\');^J^J# if OPACShowLibraries is disabled, leave immediately^Jif ( !C4::Context->preference(\'OPACShowLibraries\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-library.tt",^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $library;^Jmy $libraries = Koha::Libraries->search( { public => 1 }, { order_by => [\'branchname\'] } );^J$template->param( public_count => $libraries->count );^Jif ( $template->{VARS}->{singleBranchMode} || $libraries->count == 1 ) {^J $library = $libraries->next;^J} elsif ($branchcode) {^J $library = $libraries->search( { branchcode => $branchcode } )->next;^J}^J^Jif ($library) {^J $template->param( library => $library );^J} else {^J $template->param(^J libraries => $libraries,^J branchcode => C4::Context->userenv ? C4::Context->userenv->{branch} : q{},^J );^J}^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5560050562f0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5560050562f0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x555ff9619cc8)', 'HASH(0x5560039a9dd8)', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x555ff9619cc8)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x5560050869c8)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x556005011b10)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x556004fb5cc0)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') 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(0x556005050048)', 'Try::Tiny::Catch=REF(0x5560039c8548)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x556004e669c0)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x556004dc7630)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5560039c8080)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x556004fd26c0)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55600504fbc8)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x556004fcb460)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x556004fb9158)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x556004e84f80)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x555ff9612278)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55600390b978)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5560039a9f40)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560039a9dd8)') 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(0x5560039a9dc0)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x555ff8f4e9a0)', 'HASH(0x5560039a9dd8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x555ff8f4e9a0)', 'Net::Server::Proto::UNIX=GLOB(0x5560039c76c0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x555ff8f4e9a0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x555ff8f4e9a0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x555ff8f4e9a0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x555ff8f4e9a0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x555ff8f4e9a0)', 'port', 'ARRAY(0x555ff959ea68)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x555ff8f4e9a0)', 'CODE(0x555ff8f4e850)', 'HASH(0x555ff8f4e5f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x555ff8f4e868)', 'CODE(0x555ff8f4e850)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x555ff8d2b1d8)', 'Plack::Handler::Starman=HASH(0x555ff8f4e868)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x555ff8cc4890)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4035180: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x555ff982c078)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x556004ea5a00)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x556004ea5a00)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x555ffa346b48)', 'HASH(0x5560038ce898)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x555ffa346b48)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x556004dd7898)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5560050338b8)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5560050309d8)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') 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(0x556005034068)', 'Try::Tiny::Catch=REF(0x556004fd5c28)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x556004f7a530)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x556005084628)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x5560039c38c0)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x556004f3c6c0)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x556005082270)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5560050849b8)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x556005084718)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5560050846d0)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x555ff9612290)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55600390d5b8)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5560038cea60)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5560038ce898)') 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(0x5560038ce880)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x555ff8f4e9a0)', 'HASH(0x5560038ce898)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x555ff8f4e9a0)', 'Net::Server::Proto::UNIX=GLOB(0x5560039c30e0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x555ff8f4e9a0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x555ff8f4e9a0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x555ff8f4e9a0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x555ff8f4e9a0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x555ff8f4e9a0)', 'port', 'ARRAY(0x555ff959ea68)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x555ff8f4e9a0)', 'CODE(0x555ff8f4e850)', 'HASH(0x555ff8f4e5f8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x555ff8f4e868)', 'CODE(0x555ff8f4e850)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x555ff8d2b1d8)', 'Plack::Handler::Starman=HASH(0x555ff8f4e868)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x555ff8cc4890)') called at /bin/starman line 38 2026/08/13-08:12:20 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-08:12:20 Worker processes cleaned up 2026/08/13-08:12:20 Server closing! Process Backgrounded 2026/08/13-08:12:22 Starman::Server (type Net::Server::PreFork) starting! pid(4039351) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_4039353: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x556e96381908)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dlibrary_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-library.pl^J#!/usr/bin/perl^J^J# Copyright 2020 Athens County Public Libraries^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Context;^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Libraries;^J^Jmy $query = CGI->new();^J^Jmy $branchcode = $query->param(\'branchcode\');^J^J# if OPACShowLibraries is disabled, leave immediately^Jif ( !C4::Context->preference(\'OPACShowLibraries\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-library.tt",^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $library;^Jmy $libraries = Koha::Libraries->search( { public => 1 }, { order_by => [\'branchname\'] } );^J$template->param( public_count => $libraries->count );^Jif ( $template->{VARS}->{singleBranchMode} || $libraries->count == 1 ) {^J $library = $libraries->next;^J} elsif ($branchcode) {^J $library = $libraries->search( { branchcode => $branchcode } )->next;^J}^J^Jif ($library) {^J $template->param( library => $library );^J} else {^J $template->param(^J libraries => $libraries,^J branchcode => C4::Context->userenv ? C4::Context->userenv->{branch} : q{},^J );^J}^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x556ea1b30f90)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x556ea1b30f90)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x556e9616f168)', 'HASH(0x556ea1d2acc8)', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x556e9616f168)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x556ea1a52fc0)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x556ea1925c18)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x556ea1c10740)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') 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(0x556ea1ba2508)', 'Try::Tiny::Catch=REF(0x556ea0520a60)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x556ea1924fa0)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x556ea1b8b7e0)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x556ea0520430)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x556ea1adb790)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x556ea1921160)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x556ea1939c40)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x556ea1a506f8)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x556ea1aadb20)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x556e96167c20)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x556ea04e7e48)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x556ea0505f10)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x556ea1d2acc8)') 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(0x556ea0505e20)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x556e95aa3b70)', 'HASH(0x556ea1d2acc8)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x556e95aa3b70)', 'Net::Server::Proto::UNIX=GLOB(0x556ea051fce0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x556e95aa3b70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x556e95aa3b70)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x556e95aa3b70)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x556e95aa3b70)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x556e95aa3b70)', 'port', 'ARRAY(0x556e960f4ad8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'background', 1, 'log_file', '/var/log/koha/acqref/plack-error.log') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x556e95aa3b70)', 'CODE(0x556e95aa3a20)', 'HASH(0x556e95aa37c8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x556e95aa3a38)', 'CODE(0x556e95aa3a20)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x556e9587fe20)', 'Plack::Handler::Starman=HASH(0x556e95aa3a38)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x556e95827558)') called at /bin/starman line 38 2026/08/13-08:28:06 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-08:28:06 Worker processes cleaned up 2026/08/13-08:28:06 Server closing! Process Backgrounded 2026/08/13-08:28:09 Starman::Server (type Net::Server::PreFork) starting! pid(4041090) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-08:34:51 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-08:34:51 Worker processes cleaned up 2026/08/13-08:34:51 Server closing! Process Backgrounded 2026/08/13-08:34:54 Starman::Server (type Net::Server::PreFork) starting! pid(4042461) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Connection to the memcached servers 'memcached:11211' failed. Are the unix socket permissions set properly? Is the host reachable? If you ignore this warning, you will face performance issues Connection to the memcached servers 'memcached:11211' failed. Are the unix socket permissions set properly? Is the host reachable? If you ignore this warning, you will face performance issues Could not mkdir /tmp/cgi_compile_4042463: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x56050e0058f8)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5605198ce368)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5605198ce368)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x56050ddf3638)', 'HASH(0x560519911050)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x56050ddf3638)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x56051991d6f8)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x56051993a490)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x560519948c68)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') 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(0x5605198cdd08)', 'Try::Tiny::Catch=REF(0x5605198f8c98)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x56051990a510)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x560519987230)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x560518197918)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5605197a4450)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x5605198e3178)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x5605197ee888)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x56051998bf30)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x56051999aaf8)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x56050ddeba70)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5605180df6e0)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5605180a1908)', 'HASH(0x560519911050)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560519911050)') 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(0x5605180a1788)', 'HASH(0x560519911050)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x56050d729820)', 'HASH(0x560519911050)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x56050d729820)', 'Net::Server::Proto::UNIX=GLOB(0x560518197108)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x56050d729820)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x56050d729820)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x56050d729820)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x56050d729820)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x56050d729820)', 'port', 'ARRAY(0x56050dd78a98)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x56050d729820)', 'CODE(0x56050d7296d0)', 'HASH(0x56050d729478)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x56050d7296e8)', 'CODE(0x56050d7296d0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x56050d506118)', 'Plack::Handler::Starman=HASH(0x56050d7296e8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x56050d49f0f0)') called at /bin/starman line 38 2026/08/13-08:59:02 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-08:59:03 Worker processes cleaned up 2026/08/13-08:59:03 Server closing! Process Backgrounded 2026/08/13-08:59:04 Starman::Server (type Net::Server::PreFork) starting! pid(4044935) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-09:15:43 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-09:15:43 Worker processes cleaned up 2026/08/13-09:15:43 Server closing! Process Backgrounded 2026/08/13-09:15:46 Starman::Server (type Net::Server::PreFork) starting! pid(4046718) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-09:21:02 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-09:21:02 Worker processes cleaned up 2026/08/13-09:21:02 Server closing! Process Backgrounded 2026/08/13-09:21:06 Starman::Server (type Net::Server::PreFork) starting! pid(4047789) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_4047795: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x560bb0392a30)', 'package CGI::Compile::ROOT::kohadevbox_koha_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => \'errors/errorpage.tt\',^J query => $query,^J type => \'intranet\',^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x560bbba6f520)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x560bbba6f520)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x560bba454448)', 'HASH(0x560bba527e80)', '/kohadevbox/koha/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x560bba454448)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x560bbbabd2e8)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x560bbbd46a78)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x560bbbd3ec68)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') 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(0x560bbb98a678)', 'Try::Tiny::Catch=REF(0x560bba537318)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x560bbbd46250)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x560bbbad2ae8)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x560bba536e80)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x560bbba989b0)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x560bbbd42398)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x560bbba43b60)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x560bbba14db0)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x560bbb8d1018)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x560bb0178fd8)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x560bba46ffc0)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x560bba51f710)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba527e80)') 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(0x560bba4323d8)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x560bafab4650)', 'HASH(0x560bba527e80)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x560bafab4650)', 'Net::Server::Proto::UNIX=GLOB(0x560bba5280d8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x560bafab4650)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x560bafab4650)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x560bafab4650)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x560bafab4650)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x560bafab4650)', 'port', 'ARRAY(0x560bb0105858)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x560bafab4650)', 'CODE(0x560bafab4500)', 'HASH(0x560bafab42a8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x560bafab4518)', 'CODE(0x560bafab4500)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x560baf88f648)', 'Plack::Handler::Starman=HASH(0x560bafab4518)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x560baf829450)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4047796: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x560bb03924c8)', 'package CGI::Compile::ROOT::kohadevbox_koha_mainpage_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/mainpage.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Copyright Paul Poulain 2002^J# Parts Copyright Liblime 2007^J# Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Output qw( output_html_with_http_headers );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Koha;^Juse C4::Tags qw( get_count_by_tag_status );^Juse Koha::AdditionalContents;^Juse Koha::Patron::Modifications;^Juse Koha::Patron::Discharge;^Juse Koha::Reviews;^Juse Koha::ArticleRequests;^Juse Koha::BiblioFrameworks;^Juse Koha::ProblemReports;^Juse Koha::Quotes;^Juse Koha::Suggestions;^Juse Koha::BackgroundJobs;^Juse Koha::CurbsidePickups;^Juse Koha::Tickets;^J^Jmy $query = CGI->new;^J^Jmy ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(^J {^J template_name => "intranet-main.tt",^J query => $query,^J type => "intranet",^J flagsrequired => { catalogue => 1, },^J }^J);^J^Jmy $logged_in_user = Koha::Patrons->find($loggedinuser);^J^J# Checking if there is a Fast Cataloging Framework^J$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find(\'FA\');^J^Jmy $homebranch;^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jmy $koha_news = Koha::AdditionalContents->search_for_display(^J {^J category => \'news\',^J location => [ \'staff_only\', \'staff_and_opac\' ],^J lang => $template->lang,^J library_id => $homebranch^J }^J);^J^J$template->param(^J koha_news => $koha_news,^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Jmy $branch =^J ( C4::Context->preference("IndependentBranchesPatronModifications")^J || C4::Context->preference("IndependentBranches") )^J && !$flags->{\'superlibrarian\'}^J ? C4::Context->userenv()->{\'branch\'}^J : undef;^J^Jmy $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;^Jmy $pendingtags = get_count_by_tag_status(0);^J^J# Get current branch count and total viewable count, if they don\'t match then pass^J# both to template^J^Jif ( C4::Context->only_my_library ) {^J my $local_pendingsuggestions_count = Koha::Suggestions->search(^J { status => "ASKED", branchcode => C4::Context->userenv()->{\'branch\'}, archived => 0 } )->count();^J $template->param( pendingsuggestions => $local_pendingsuggestions_count );^J} else {^J my $pendingsuggestions = Koha::Suggestions->search( { status => "ASKED", archived => 0 } );^J my $local_pendingsuggestions_count =^J $pendingsuggestions->search( { \'me.branchcode\' => C4::Context->userenv()->{\'branch\'} } )->count();^J my $pendingsuggestions_count = $pendingsuggestions->count();^J $template->param(^J all_pendingsuggestions => $pendingsuggestions_count != $local_pendingsuggestions_count^J ? $pendingsuggestions_count^J : 0,^J pendingsuggestions => $local_pendingsuggestions_count^J );^J}^J^Jmy $pending_borrower_modifications = Koha::Patron::Modifications->pending_count($branch);^Jmy $pending_discharge_requests = Koha::Patron::Discharge::count( { pending => 1 } );^Jmy $pending_article_requests = Koha::ArticleRequests->search_limited(^J {^J status => Koha::ArticleRequest::Status::Requested,^J $branch ? ( \'me.branchcode\' => $branch ) : (),^J }^J)->count;^Jmy $pending_problem_reports = Koha::ProblemReports->search( { status => \'New\' } );^J^Jif ( C4::Context->preference(\'OpacCatalogConcerns\') || C4::Context->preference(\'CatalogConcerns\') ) {^J my $pending_biblio_tickets = Koha::Tickets->search(^J {^J resolved_date => undef,^J biblio_id => { \'!=\' => undef }^J }^J );^J $template->param( pending_biblio_tickets => $pending_biblio_tickets->count );^J}^J^Junless ( $logged_in_user->has_permission( { parameters => \'manage_background_jobs\' } ) ) {^J my $already_ran_jobs =^J Koha::BackgroundJobs->search( { borrowernumber => $logged_in_user->borrowernumber } )->count ? 1 : 0;^J $template->param( already_ran_jobs => $already_ran_jobs );^J}^J^J$template->param(^J holds_with_cancellation_requests => Koha::Holds->waiting->filter_by_has_cancellation_requests->count );^J^Jif ( C4::Context->preference(\'CurbsidePickup\') ) {^J $template->param(^J new_curbside_pickups => Koha::CurbsidePickups->search(^J {^J branchcode => $homebranch,^J }^J )->filter_by_to_be_staged->filter_by_scheduled_today,^J );^J}^J^Jif ( C4::Context->preference(\'PatronSelfRegistrationAlert\') ) {^J my $categorycode = C4::Context->preference(\'PatronSelfRegistrationDefaultCategory\');^J my $branchcode = C4::Context::mybranch();^J^J my $rs = Koha::Patrons->search( { categorycode => $categorycode } );^J^J $template->param(^J self_registered_count => $rs->count,^J self_registered_mybranch_count => $rs->search( { branchcode => $branchcode } )->count,^J );^J}^J^J$template->param(^J pendingcomments => $pendingcomments,^J pendingtags => $pendingtags,^J pending_borrower_modifications => $pending_borrower_modifications,^J pending_discharge_requests => $pending_discharge_requests,^J pending_article_requests => $pending_article_requests,^J pending_problem_reports => $pending_problem_reports,^J);^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x560bbbac1238)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x560bbbac1238)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x560bb0ead2c0)', 'HASH(0x560bba52a770)', '/kohadevbox/koha/mainpage.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x560bb0ead2c0)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x560bbbc5c060)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x560bbbc97500)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x560bbbc668e0)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') 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(0x560bbbc976f8)', 'Try::Tiny::Catch=REF(0x560bba53a268)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x560bbbc65e60)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x560bbbc6eac8)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x560bba539cb0)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x560bbbd170c0)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x560bbbc5f220)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x560bbbc65dd0)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x560bbbc6a5c0)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x560bbbd0b3f0)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x560bb0178ff0)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x560bba474560)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x560bba51e060)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x560bba52a770)') 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(0x560bba51de80)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x560bafab4650)', 'HASH(0x560bba52a770)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x560bafab4650)', 'Net::Server::Proto::UNIX=GLOB(0x560bba52aa58)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x560bafab4650)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x560bafab4650)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x560bafab4650)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x560bafab4650)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x560bafab4650)', 'port', 'ARRAY(0x560bb0105858)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x560bafab4650)', 'CODE(0x560bafab4500)', 'HASH(0x560bafab42a8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x560bafab4518)', 'CODE(0x560bafab4500)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x560baf88f648)', 'Plack::Handler::Starman=HASH(0x560bafab4518)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x560baf829450)') called at /bin/starman line 38 2026/08/13-10:05:39 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-10:05:40 Worker processes cleaned up 2026/08/13-10:05:40 Server closing! Process Backgrounded 2026/08/13-10:05:43 Starman::Server (type Net::Server::PreFork) starting! pid(4052294) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_4052295: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x559e0326a1a0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dlibrary_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-library.pl^J#!/usr/bin/perl^J^J# Copyright 2020 Athens County Public Libraries^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Context;^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Libraries;^J^Jmy $query = CGI->new();^J^Jmy $branchcode = $query->param(\'branchcode\');^J^J# if OPACShowLibraries is disabled, leave immediately^Jif ( !C4::Context->preference(\'OPACShowLibraries\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-library.tt",^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $library;^Jmy $libraries = Koha::Libraries->search( { public => 1 }, { order_by => [\'branchname\'] } );^J$template->param( public_count => $libraries->count );^Jif ( $template->{VARS}->{singleBranchMode} || $libraries->count == 1 ) {^J $library = $libraries->next;^J} elsif ($branchcode) {^J $library = $libraries->search( { branchcode => $branchcode } )->next;^J}^J^Jif ($library) {^J $template->param( library => $library );^J} else {^J $template->param(^J libraries => $libraries,^J branchcode => C4::Context->userenv ? C4::Context->userenv->{branch} : q{},^J );^J}^J^Joutput_html_with_http_headers $query, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x559e0ea2bca0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x559e0ea2bca0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x559e03058258)', 'HASH(0x559e0e815058)', '/kohadevbox/koha/opac/opac-library.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x559e03058258)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x559e0e96f5d8)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x559e0e8a7c38)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x559e0e90d930)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') 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(0x559e0e8a2e58)', 'Try::Tiny::Catch=REF(0x559e0d401590)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x559e0e8182a0)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x559e0ea43d10)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x559e0d4010e0)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x559e0ea6dee0)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x559e0e818348)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x559e0e9ad2b8)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x559e0ea29940)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x559e0e9acb38)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x559e03050a78)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x559e0d33cde0)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x559e0d3e6270)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x559e0e815058)') 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(0x559e0d3e6120)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x559e0298b730)', 'HASH(0x559e0e815058)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x559e0298b730)', 'Net::Server::Proto::UNIX=GLOB(0x559e0d3ee118)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x559e0298b730)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x559e0298b730)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x559e0298b730)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x559e0298b730)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x559e0298b730)', 'port', 'ARRAY(0x559e02fdccc8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x559e0298b730)', 'CODE(0x559e0298b5e0)', 'HASH(0x559e0298b388)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x559e0298b5f8)', 'CODE(0x559e0298b5e0)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x559e02767ee0)', 'Plack::Handler::Starman=HASH(0x559e0298b5f8)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x559e0270f0b8)') called at /bin/starman line 38 2026/08/13-10:13:12 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-10:13:12 Worker processes cleaned up 2026/08/13-10:13:12 Server closing! Process Backgrounded 2026/08/13-10:13:14 Starman::Server (type Net::Server::PreFork) starting! pid(4053286) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_4053287: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5586377c7f50)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x558643134600)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x558643134600)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5586375b5c88)', 'HASH(0x55864308bf68)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5586375b5c88)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55864308cd18)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55864308cca0)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55864308c2b0)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') 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(0x5586430a6cd0)', 'Try::Tiny::Catch=REF(0x5586430fe910)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5586430a9ef8)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5586430b21d8)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x558641970700)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5586430aa9a8)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x558643174b50)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x558643105060)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5586430ebe78)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5586430c46c0)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5586375ae528)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5586418addc0)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x558641955900)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864308bf68)') 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(0x5586419556f0)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x558636eed3a0)', 'HASH(0x55864308bf68)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x558636eed3a0)', 'Net::Server::Proto::UNIX=GLOB(0x55864195dc48)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x558636eed3a0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x558636eed3a0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x558636eed3a0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x558636eed3a0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x558636eed3a0)', 'port', 'ARRAY(0x55863753b028)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x558636eed3a0)', 'CODE(0x558636eed250)', 'HASH(0x558636eecff8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x558636eed268)', 'CODE(0x558636eed250)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x558636cc8a40)', 'Plack::Handler::Starman=HASH(0x558636eed268)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x558636c6f7f8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4053288: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5586377c8038)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x558643129e58)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x558643129e58)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5586375b5cf0)', 'HASH(0x55864315bc28)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5586375b5cf0)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x558643085eb8)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x5586430c9ed0)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x5586430f3e60)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') 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(0x558643126180)', 'Try::Tiny::Catch=REF(0x5586430dce28)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x558643085ee8)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5586430af1f0)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x558641966288)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x558642fe9ba0)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x558643099040)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x558642e8ccf8)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5586430efee0)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55864310e9b8)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5586375ae540)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5586418a9980)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x5586419481b8)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55864315bc28)') 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(0x558641947fa8)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x558636eed3a0)', 'HASH(0x55864315bc28)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x558636eed3a0)', 'Net::Server::Proto::UNIX=GLOB(0x558641965b68)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x558636eed3a0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x558636eed3a0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x558636eed3a0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x558636eed3a0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x558636eed3a0)', 'port', 'ARRAY(0x55863753b028)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x558636eed3a0)', 'CODE(0x558636eed250)', 'HASH(0x558636eecff8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x558636eed268)', 'CODE(0x558636eed250)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x558636cc8a40)', 'Plack::Handler::Starman=HASH(0x558636eed268)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x558636c6f7f8)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4053287: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x5586431387d0)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x5586431625c0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x5586431625c0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x5586375b5c88)', 'HASH(0x5586418ad8e0)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x5586375b5c88)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55864308cd18)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55864308cca0)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55864308c2b0)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') 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(0x558643134600)', 'Try::Tiny::Catch=REF(0x5586430add20)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x5586430a9ef8)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x5586430b21d8)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x558641970700)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x5586430aa9a8)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x558643174b50)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x558643105060)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x5586430ebe78)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x5586430c46c0)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x5586375ae528)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x5586418addc0)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x558641955900)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x5586418ad8e0)') 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(0x5586419556f0)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x558636eed3a0)', 'HASH(0x5586418ad8e0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x558636eed3a0)', 'Net::Server::Proto::UNIX=GLOB(0x55864313abe8)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x558636eed3a0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x558636eed3a0)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x558636eed3a0)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x558636eed3a0)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x558636eed3a0)', 'port', 'ARRAY(0x55863753b028)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'pid_file', '/var/run/koha/acqref/plack.pid', 'setsid', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1) called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x558636eed3a0)', 'CODE(0x558636eed250)', 'HASH(0x558636eecff8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x558636eed268)', 'CODE(0x558636eed250)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x558636cc8a40)', 'Plack::Handler::Starman=HASH(0x558636eed268)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x558636c6f7f8)') called at /bin/starman line 38 2026/08/13-10:27:52 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-10:27:53 Worker processes cleaned up 2026/08/13-10:27:53 Server closing! Process Backgrounded 2026/08/13-10:27:55 Starman::Server (type Net::Server::PreFork) starting! pid(4054996) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ Could not mkdir /tmp/cgi_compile_4054997: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55d6c03fa320)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dshelves_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-shelves.pl^J#!/usr/bin/perl^J^J# Copyright 2015 Koha Team^J#^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^J^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Biblio qw( GetBiblioData GetFrameworkCode );^Juse C4::External::BakerTaylor qw( image_url link_url );^Juse C4::Koha qw(^J GetNormalizedEAN^J GetNormalizedISBN^J GetNormalizedOCLCNumber^J GetNormalizedUPC^J);^Juse C4::Members;^Juse C4::Output qw( pagination_bar output_with_http_headers );^Juse C4::Tags qw( get_tags );^Juse C4::XSLT qw( XSLTParse4Display );^J^Juse Koha::Biblios;^Juse Koha::Biblioitems;^Juse Koha::CirculationRules;^Juse Koha::CsvProfiles;^Juse Koha::DateUtils qw/dt_from_string/;^Juse Koha::Items;^Juse Koha::ItemTypes;^Juse Koha::Patrons;^Juse Koha::Virtualshelfshares;^Juse Koha::Virtualshelves;^Juse Koha::RecordProcessor;^J^Juse constant ANYONE => 2;^Juse constant STAFF => 3;^Juse constant PERMITTED => 4;^J^Jmy $query = CGI->new;^J^Jmy $template_name = $query->param(\'rss\') ? "opac-shelves-rss.tt" : "opac-shelves.tt";^J^J# if virtualshelves is disabled, leave immediately^Jif ( !C4::Context->preference(\'virtualshelves\') ) {^J print $query->redirect("/cgi-bin/koha/errors/404.pl");^J exit;^J}^J^Jmy $op = $query->param(\'op\') || \'list\';^Jmy ( $template, $loggedinuser, $cookie );^J^Jif ( $op eq \'view\' || $op eq \'list\' ) {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => $template_name,^J query => $query,^J type => "opac",^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J );^J} else {^J ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => $template_name,^J query => $query,^J type => "opac",^J authnotrequired => 0,^J }^J );^J}^J^Jif ( C4::Context->preference("BakerTaylorEnabled") ) {^J $template->param(^J BakerTaylorImageURL => &image_url(),^J BakerTaylorLinkURL => &link_url(),^J );^J}^J^Jmy $referer = $query->param(\'referer\') || $op;^Jmy $page = int( $query->param(\'page\') || 1 );^Jmy $public = 0;^J$public = 1 if $query->param(\'public\') && $query->param(\'public\') == 1;^J^Jmy ( $shelf, $shelfnumber, @messages );^J^J# PART 1: Perform a few actions^Jif ( $op eq \'add_form\' ) {^J^J # Only pass default^J $shelf = { allow_change_from_owner => 1 };^J} elsif ( $op eq \'edit_form\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J^J if ($shelf) {^J $public = $shelf->public;^J my $patron = Koha::Patrons->find( $shelf->owner );^J $template->param( owner => $patron, );^J unless ( $shelf->can_be_managed($loggedinuser) ) {^J push @messages, { type => \'error\', code => \'unauthorized_on_update\' };^J $op = \'list\';^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'cud-add\' ) {^J if ($loggedinuser) {^J my $allow_changes_from = $query->param(\'allow_changes_from\');^J eval {^J $shelf = Koha::Virtualshelf->new(^J {^J shelfname => scalar $query->param(\'shelfname\'),^J sortfield => scalar $query->param(\'sortfield\'),^J public => $public,^J allow_change_from_owner => $allow_changes_from > 0,^J allow_change_from_others => $allow_changes_from == ANYONE,^J allow_change_from_staff => $allow_changes_from == STAFF,^J allow_change_from_permitted_staff => $allow_changes_from == PERMITTED,^J owner => scalar $loggedinuser,^J }^J );^J $shelf->store;^J $shelfnumber = $shelf->shelfnumber;^J };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ( not $shelf ) {^J push @messages, { type => \'error\', code => \'error_on_insert\' };^J } else {^J push @messages, { type => \'message\', code => \'success_on_insert\' };^J $op = \'view\';^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_insert\' };^J $op = \'list\';^J }^J} elsif ( $op eq \'cud-edit\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J $op = $referer;^J my $sortfield = $query->param(\'sortfield\');^J $sortfield = \'title\' unless grep { $_ eq $sortfield } qw( title author copyrightdate itemcallnumber dateadded );^J if ( $sortfield eq \'copyrightdate\' and C4::Context->preference(\'marcflavour\') eq \'UNIMARC\' ) {^J $sortfield = \'publicationyear\';^J }^J if ( $shelf->can_be_managed($loggedinuser) ) {^J $shelf->shelfname( scalar $query->param(\'shelfname\') );^J $shelf->sortfield($sortfield);^J my $allow_changes_from = $query->param(\'allow_changes_from\');^J $shelf->allow_change_from_owner( $allow_changes_from > 0 );^J $shelf->allow_change_from_others( $allow_changes_from == ANYONE );^J $shelf->allow_change_from_staff( $allow_changes_from == STAFF );^J $shelf->allow_change_from_permitted_staff( $allow_changes_from == PERMITTED );^J $shelf->public($public);^J eval { $shelf->store };^J^J if ($@) {^J push @messages, { type => \'error\', code => \'error_on_update\' };^J $op = \'edit_form\';^J } else {^J push @messages, { type => \'message\', code => \'success_on_update\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_update\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'cud-delete\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( $shelf->can_be_deleted($loggedinuser) ) {^J eval { $shelf->delete; };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } else {^J push @messages, { type => \'message\', code => \'success_on_delete\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_delete\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J} elsif ( $op eq \'cud-remove_share\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J my $removed = eval { $shelf->remove_share($loggedinuser); };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($removed) {^J push @messages, { type => \'message\', code => \'success_on_remove_share\' };^J } else {^J push @messages, { type => \'error\', code => \'error_on_remove_share\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J^J} elsif ( $op eq \'cud-add_biblio\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( my $barcode = $query->param(\'barcode\') ) {^J my $item = Koha::Items->find( { barcode => $barcode } );^J if ($item) {^J if ( $shelf->can_biblios_be_added($loggedinuser) ) {^J my $added = eval { $shelf->add_biblio( $item->biblionumber, $loggedinuser ); };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($added) {^J push @messages, { type => \'message\', code => \'success_on_add_biblio\' };^J } else {^J push @messages, { type => \'message\', code => \'error_on_add_biblio\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_add_biblio\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'item_does_not_exist\' };^J }^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = $referer;^J} elsif ( $op eq \'cud-remove_biblios\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J my @biblionumber = $query->multi_param(\'biblionumber\');^J if ($shelf) {^J if ( $shelf->can_biblios_be_removed($loggedinuser) ) {^J my $number_of_biblios_removed = eval {^J $shelf->remove_biblios(^J {^J biblionumbers => \@biblionumber,^J borrowernumber => $loggedinuser,^J }^J );^J };^J if ($@) {^J push @messages, { type => \'error\', code => ref($@), msg => $@ };^J } elsif ($number_of_biblios_removed) {^J push @messages, { type => \'message\', code => \'success_on_remove_biblios\' };^J } else {^J push @messages, { type => \'error\', code => \'no_biblio_removed\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_remove_biblios\' };^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J $op = \'view\';^J} elsif ( $op eq \'cud-transfer\' ) {^J $shelfnumber = $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber) if $shelfnumber;^J my $new_owner = $query->param(\'new_owner\'); # borrowernumber or undef^J my $error_code =^J $shelf^J ? $shelf->cannot_be_transferred( { by => $loggedinuser, to => $new_owner, interface => \'opac\' } )^J : \'does_not_exist\';^J^J if ( !$new_owner && $error_code eq \'missing_to_parameter\' ) { # show transfer form^J my $patrons = [];^J my $shares = $shelf->get_shares->search( { borrowernumber => { \'!=\' => undef } } );^J while ( my $share = $shares->next ) {^J my $email = $share->sharee->notice_email_address;^J push @$patrons, { email => $email, borrowernumber => $share->get_column(\'borrowernumber\') } if $email;^J }^J if (@$patrons) {^J $template->param( shared_users => $patrons );^J $op = \'cud-transfer\';^J } else {^J push @messages, { type => \'error\', code => \'no_email_found\' };^J }^J } elsif ($error_code) {^J push @messages, { type => \'error\', code => $error_code };^J $op = \'list\';^J } else { # transfer; remove new_owner from virtualshelfshares, add loggedinuser^J $shelf->_result->result_source->schema->txn_do(^J sub {^J $shelf->get_shares->search( { borrowernumber => $new_owner } )->delete;^J Koha::Virtualshelfshare->new(^J { shelfnumber => $shelfnumber, borrowernumber => $loggedinuser, sharedate => dt_from_string } )^J ->store;^J $shelf->owner($new_owner)->store;^J }^J );^J $op = \'list\';^J }^J}^J^J# PART 2: After a possible action, view one list or show a number of lists^Jif ( $op eq \'view\' ) {^J $shelfnumber ||= $query->param(\'shelfnumber\');^J $shelf = Koha::Virtualshelves->find($shelfnumber);^J if ($shelf) {^J if ( $shelf->can_be_viewed($loggedinuser) ) {^J $public = $shelf->public;^J^J # Sortfield param may still include sort order with :asc or :desc, but direction overrides it^J my ( $sortfield, $direction );^J if ( $query->param(\'sortfield\') ) {^J ( $sortfield, $direction ) = split /:/, $query->param(\'sortfield\');^J } else {^J $sortfield = $shelf->sortfield;^J $direction = \'asc\';^J }^J $direction = $query->param(\'direction\') if $query->param(\'direction\');^J $direction = \'asc\' if !$direction or ( $direction ne \'asc\' and $direction ne \'desc\' );^J $sortfield = \'title\'^J if !$sortfield^J or !grep { $_ eq $sortfield } qw( title author copyrightdate itemcallnumber dateadded );^J if ( $sortfield eq \'copyrightdate\' and C4::Context->preference(\'marcflavour\') eq \'UNIMARC\' ) {^J $sortfield = \'publicationyear\';^J }^J^J my $rows;^J if ( $query->param(\'print\') or $query->param(\'rss\') ) {^J $page = "";^J } else {^J $rows = C4::Context->preference(\'OPACnumSearchResults\') || 20;^J }^J my $order_by = $sortfield eq \'itemcallnumber\' ? \'items.cn_sort\' : $sortfield;^J my $contents = $shelf->get_contents->search(^J {},^J {^J distinct => \'biblionumber\',^J join => [ { \'biblionumber\' => { \'biblioitems\' => \'items\' } } ],^J page => $page,^J rows => $rows,^J order_by => { "-$direction" => $order_by },^J }^J );^J^J # get biblionumbers stored in the cart^J my @cart_list;^J if ( my $cart_list = $query->cookie(\'bib_list\') ) {^J @cart_list = split( /\//, $cart_list );^J }^J^J my $patron = Koha::Patrons->find($loggedinuser);^J^J my $categorycode; # needed for may_article_request^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $categorycode = $patron ? $patron->categorycode : undef;^J }^J^J my $record_processor = Koha::RecordProcessor->new( { filters => \'ViewPolicy\' } );^J^J my $art_req_itypes;^J if ( C4::Context->preference(\'ArticleRequests\') ) {^J $art_req_itypes = Koha::CirculationRules->guess_article_requestable_itemtypes(^J { $patron ? ( categorycode => $patron->categorycode ) : () } );^J }^J^J my @items_info;^J while ( my $content = $contents->next ) {^J my $biblionumber = $content->biblionumber;^J my $this_item = GetBiblioData($biblionumber);^J my $biblio = Koha::Biblios->find($biblionumber);^J my $record = $biblio->metadata->record;^J my $framework = GetFrameworkCode($biblionumber);^J $record_processor->options(^J {^J interface => \'opac\',^J frameworkcode => $framework^J }^J );^J $record_processor->process($record);^J^J my $marcflavour = C4::Context->preference("marcflavour");^J my $itemtype = Koha::Biblioitems->search( { biblionumber => $content->biblionumber } )->next->itemtype;^J $itemtype = Koha::ItemTypes->find($itemtype);^J if ($itemtype) {^J $this_item->{imageurl} = C4::Koha::getitemtypeimagelocation( \'opac\', $itemtype->imageurl );^J $this_item->{description} = $itemtype->description; #FIXME Should not it be translated_description?^J $this_item->{notforloan} = $itemtype->notforloan;^J }^J $this_item->{\'coins\'} = $biblio->get_coins;^J $this_item->{\'normalized_upc\'} = GetNormalizedUPC( $record, $marcflavour );^J $this_item->{\'normalized_ean\'} = GetNormalizedEAN( $record, $marcflavour );^J $this_item->{\'normalized_oclc\'} = GetNormalizedOCLCNumber( $record, $marcflavour );^J $this_item->{\'normalized_isbn\'} = GetNormalizedISBN( undef, $record, $marcflavour );^J^J # BZ17530: \'Intelligent\' guess if result can be article requested^J $this_item->{artreqpossible} =^J ( $art_req_itypes->{ $this_item->{itemtype} // q{} } || $art_req_itypes->{\'*\'} ) ? 1 : q{};^J^J unless ( defined $this_item->{size} ) {^J^J #TT has problems with size^J $this_item->{size} = q||;^J }^J^J if ( C4::Context->preference(\'TagsEnabled\') and C4::Context->preference(\'TagsShowOnList\') ) {^J $this_item->{TagLoop} = get_tags(^J {^J biblionumber => $biblionumber, approved => 1, \'sort\' => \'-weight\',^J limit => C4::Context->preference(\'TagsShowOnList\'),^J }^J );^J }^J^J my $items = $biblio->items->filter_by_visible_in_opac( { patron => $patron } );^J my $allow_onshelf_holds;^J while ( my $item = $items->next ) {^J^J # This method must take a Koha::Items rs^J $allow_onshelf_holds ||=^J Koha::CirculationRules->get_onshelfholds_policy( { item => $item, patron => $patron } );^J^J }^J^J $this_item->{allow_onshelf_holds} = $allow_onshelf_holds;^J $this_item->{\'ITEM_RESULTS\'} = $items;^J^J my $variables = { anonymous_session => ($loggedinuser) ? 0 : 1 };^J $this_item->{XSLTBloc} = XSLTParse4Display(^J {^J biblionumber => $biblionumber,^J record => $record,^J xsl_syspref => "OPACXSLTListsDisplay",^J fix_amps => 1,^J xslt_variables => $variables,^J items_rs => $items->reset,^J }^J );^J^J if ( grep { $_ eq $biblionumber } @cart_list ) {^J $this_item->{incart} = 1;^J }^J^J $this_item->{biblio_object} = $biblio;^J $this_item->{biblionumber} = $biblionumber;^J $this_item->{shelves} = Koha::Virtualshelves->get_shelves_containing_record(^J {^J biblionumber => $biblionumber,^J borrowernumber => $loggedinuser,^J }^J );^J push @items_info, $this_item;^J }^J^J $template->param(^J can_manage_shelf => $shelf->can_be_managed($loggedinuser),^J can_delete_shelf => $shelf->can_be_deleted($loggedinuser),^J can_remove_biblios => $shelf->can_biblios_be_removed($loggedinuser),^J can_add_biblios => $shelf->can_biblios_be_added($loggedinuser),^J itemsloop => \@items_info,^J sortfield => $sortfield,^J direction => $direction,^J csv_profiles => Koha::CsvProfiles->search(^J {^J type => \'marc\',^J used_for => \'export_records\',^J staff_only => 0^J }^J ),^J );^J if ($page) {^J my $pager = $contents->pager;^J $template->param(^J pagination_bar => pagination_bar(^J q||, $pager->last_page - $pager->first_page + 1,^J $page, "page",^J {^J op => \'view\', shelfnumber => $shelf->shelfnumber, sortfield => $sortfield,^J direction => $direction,^J }^J ),^J );^J }^J my $some_private_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $loggedinuser,^J add_allowed => 1,^J public => 0,^J }^J );^J my $some_public_shelves = Koha::Virtualshelves->get_some_shelves(^J {^J borrowernumber => $loggedinuser,^J add_allowed => 1,^J public => 1,^J }^J );^J^J $template->param(^J add_to_some_private_shelves => $some_private_shelves,^J add_to_some_public_shelves => $some_public_shelves,^J );^J } else {^J push @messages, { type => \'error\', code => \'unauthorized_on_view\' };^J undef $shelf;^J }^J } else {^J push @messages, { type => \'error\', code => \'does_not_exist\' };^J }^J} elsif ( $op eq \'list\' ) {^J my $direction = $query->param(\'direction\') || \'asc\';^J my $sortfield = $query->param(\'sortfield\') || \'shelfname\';^J my $sort_by = { sortfield => $sortfield, direction => $direction };^J^J my $shelves;^J my ($rows) = (20);^J if ( !$public ) {^J $shelves = Koha::Virtualshelves->get_private_shelves(^J { page => $page, rows => $rows, borrowernumber => $loggedinuser, sort_by => $sort_by, } );^J } else {^J $shelves = Koha::Virtualshelves->get_public_shelves( { page => $page, rows => $rows, sort_by => $sort_by, } );^J }^J^J my $pager = $shelves->pager;^J $template->param(^J shelves => $shelves,^J pagination_bar => pagination_bar(^J q||, $pager->last_page - $pager->first_page + 1,^J $page, "page",^J {^J op => \'list\', public => $public, sortfield => $sortfield,^J direction => $direction,^J }^J ),^J );^J}^J^Jmy ( $staffuser, $permitteduser );^J$staffuser = Koha::Patrons->find($loggedinuser)->can_patron_change_staff_only_lists if $loggedinuser;^J$permitteduser = Koha::Patrons->find($loggedinuser)->can_patron_change_permitted_staff_lists if $loggedinuser;^J^J$template->param(^J op => $op,^J referer => $referer,^J shelf => $shelf,^J messages => \@messages,^J public => $public,^J print => scalar $query->param(\'print\') || 0,^J listsview => 1,^J staffuser => $staffuser,^J permitteduser => $permitteduser^J);^J^Jmy $content_type = $query->param(\'rss\') ? \'rss\' : \'html\';^Joutput_with_http_headers $query, $cookie, $template->output, $content_type;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-shelves.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55d6cbd0edd0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55d6cbd0edd0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55d6c01e72f8)', 'HASH(0x55d6cbcad8e0)', '/kohadevbox/koha/opac/opac-shelves.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55d6c01e72f8)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55d6cbd74868)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55d6cbca9180)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55d6cbce4f60)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') 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(0x55d6cbcee8f8)', 'Try::Tiny::Catch=REF(0x55d6ca592db0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55d6cbcdd4a8)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55d6cbd8cb48)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55d6ca5928a0)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55d6cbd76938)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55d6cbd6f0a8)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55d6cbca55d8)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55d6cbcf7470)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55d6cbce56b0)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55d6c01dfa88)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55d6ca4d50a0)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55d6ca574700)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbcad8e0)') 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(0x55d6ca5745e0)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55d6bfb1c780)', 'HASH(0x55d6cbcad8e0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55d6bfb1c780)', 'Net::Server::Proto::UNIX=GLOB(0x55d6ca592150)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55d6bfb1c780)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55d6bfb1c780)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55d6bfb1c780)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55d6bfb1c780)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55d6bfb1c780)', 'port', 'ARRAY(0x55d6c016c9e8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55d6bfb1c780)', 'CODE(0x55d6bfb1c630)', 'HASH(0x55d6bfb1c3d8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55d6bfb1c648)', 'CODE(0x55d6bfb1c630)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55d6bf8f7c88)', 'Plack::Handler::Starman=HASH(0x55d6bfb1c648)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55d6bf891400)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4054998: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55d6c03fa3e8)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_errors_404_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/errors/404.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_with_http_headers );^Juse C4::Context;^Juse List::MoreUtils qw( any );^J^Jmy $query = CGI->new;^Jmy ( $template, $loggedinuser, $cookie ) = get_template_and_user(^J {^J template_name => "errors/errorpage.tt",^J query => $query,^J type => "opac",^J authnotrequired => 1,^J }^J);^J$template->param(^J errno => 404,^J);^Jmy $status = \'404 Not Found\';^Jif ( C4::Context->is_internal_PSGI_request() ) {^J $status = \'200 OK\';^J}^J^J#NOTE: We\'re not setting/updating the cookie here^J$cookie = \'\';^Joutput_with_http_headers $query, $cookie, $template->output, \'html\', $status;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55d6cbca6920)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55d6cbca6920)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55d6c01e7840)', 'HASH(0x55d6cbd071a0)', '/kohadevbox/koha/opac/errors/404.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55d6c01e7840)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55d6cbd1cac8)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55d6cbd1c8b8)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55d6cbd4c128)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') 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(0x55d6cbcd3d90)', 'Try::Tiny::Catch=REF(0x55d6ca59f740)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55d6cbcef5a0)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55d6cbd2d858)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55d6ca59f0e0)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55d6cbd99660)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55d6cbd6cc60)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55d6cbcfb118)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55d6cbd21190)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55d6cbd25ee0)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55d6c01dfaa0)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55d6ca4d9f80)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55d6ca583610)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd071a0)') 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(0x55d6ca4d69a0)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55d6bfb1c780)', 'HASH(0x55d6cbd071a0)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55d6bfb1c780)', 'Net::Server::Proto::UNIX=GLOB(0x55d6ca590028)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55d6bfb1c780)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55d6bfb1c780)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55d6bfb1c780)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55d6bfb1c780)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55d6bfb1c780)', 'port', 'ARRAY(0x55d6c016c9e8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55d6bfb1c780)', 'CODE(0x55d6bfb1c630)', 'HASH(0x55d6bfb1c3d8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55d6bfb1c648)', 'CODE(0x55d6bfb1c630)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55d6bf8f7c88)', 'Plack::Handler::Starman=HASH(0x55d6bfb1c648)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55d6bf891400)') called at /bin/starman line 38 Could not mkdir /tmp/cgi_compile_4054997: No space left on device at /usr/share/perl5/CGI/Compile.pm line 195 CGI::Compile::_eval('CGI::Compile=HASH(0x55d6cbcb7d78)', 'package CGI::Compile::ROOT::kohadevbox_koha_opac_opac_2dmain_2epl;sub {local $CGI::Compile::USE_REAL_EXIT = 0;^JCGI::initialize_globals() if defined &CGI::initialize_globals;local ($0, $CGI::Compile::_dir, *DATA);{ my ($data, $path, $dir) = @_[1..3];$0 = $path;$CGI::Compile::_dir = File::pushd::pushd $dir;open DATA, \'<\', \$data;}local @SIG{keys %SIG} = do { no warnings \'uninitialized\'; @{[]} = values %SIG };local $^W = 0;my $rv = eval {local @ARGV = @{ $_[4] };local @_ = @{ $_[4] };^J#line 1 /kohadevbox/koha/opac/opac-main.pl^J#!/usr/bin/perl^J^J# This file is part of Koha.^J#^J# Parts Copyright (C) 2013 Mark Tompsett^J#^J# Koha is free software; you can redistribute it and/or modify it^J# under the terms of the GNU General Public License as published by^J# the Free Software Foundation; either version 3 of the License, or^J# (at your option) any later version.^J#^J# Koha is distributed in the hope that it will be useful, but^J# WITHOUT ANY WARRANTY; without even the implied warranty of^J# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the^J# GNU General Public License for more details.^J#^J# You should have received a copy of the GNU General Public License^J# along with Koha; if not, see .^J^Juse Modern::Perl;^Juse CGI qw ( -utf8 );^Juse C4::Auth qw( get_template_and_user );^Juse C4::Output qw( output_html_with_http_headers );^Juse Koha::Quotes;^Juse C4::Members;^Juse C4::Overdues qw( checkoverdues );^Juse Koha::Checkouts;^Juse Koha::Holds;^Juse Koha::Patron::Messages;^J^Jmy $input = CGI->new;^Jmy $dbh = C4::Context->dbh;^J^Jmy ( $template, $borrowernumber, $cookie ) = get_template_and_user(^J {^J template_name => "opac-main.tt",^J type => "opac",^J query => $input,^J authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),^J }^J);^J^Jmy $casAuthentication = C4::Context->preference(\'casAuthentication\');^J$template->param(^J casAuthentication => $casAuthentication,^J);^J^Jmy $homebranch = $ENV{OPAC_BRANCH_DEFAULT};^Jif ( C4::Context->userenv ) {^J $homebranch = C4::Context->userenv->{\'branch\'};^J}^Jif ( defined $input->param(\'branch\') and length $input->param(\'branch\') ) {^J $homebranch = $input->param(\'branch\');^J} elsif ( C4::Context->userenv and defined $input->param(\'branch\') and length $input->param(\'branch\') == 0 ) {^J $homebranch = "";^J}^J^Jmy $news_id = $input->param(\'news_id\');^J$template->param( news_id => $news_id );^J^J# For dashboard^Jmy $patron = Koha::Patrons->find($borrowernumber);^J^Jif ($patron) {^J my $checkouts = Koha::Checkouts->search( { borrowernumber => $borrowernumber } )->count;^J my ( $overdues_count, $overdues ) = checkoverdues($borrowernumber);^J my $holds_pending = Koha::Holds->search( { borrowernumber => $borrowernumber, found => undef } )->count;^J my $holds_waiting = Koha::Holds->search( { borrowernumber => $borrowernumber } )->waiting->count;^J my $patron_messages = Koha::Patron::Messages->search(^J {^J borrowernumber => $borrowernumber,^J message_type => \'B\',^J }^J );^J my $patron_note = $patron->opacnote;^J my $total = $patron->account->balance;^J my $saving_display = C4::Context->preference(\'OPACShowSavings\');^J my $savings = 0;^J if ( $saving_display =~ /summary/ ) {^J $savings = $patron->get_savings;^J }^J if ( $checkouts > 0^J || $overdues_count > 0^J || $holds_pending > 0^J || $holds_waiting > 0^J || $total > 0^J || $patron_note^J || $patron_messages->count^J || $savings > 0 )^J {^J $template->param(^J dashboard_info => 1,^J checkouts => $checkouts,^J overdues => $overdues_count,^J holds_pending => $holds_pending,^J holds_waiting => $holds_waiting,^J total_owing => $total,^J patron_messages => $patron_messages,^J opacnote => $patron_note,^J savings => $savings,^J );^J }^J}^J^J$template->param( branchcode => $homebranch ) if $homebranch;^J$template->param(^J daily_quote => Koha::Quotes->get_daily_quote(),^J);^J^Joutput_html_with_http_headers $input, $cookie, $template->output;^J^J};^J {^J no warnings qw(uninitialized numeric pack);^J my $self = shift;^J my $exit_val = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $rv)));^J if ($@) {^J die $@ unless (^J ref($@) eq \'ARRAY\' and^J $@->[0] eq "EXIT\n"^J );^J my $exit_param = unpack(\'C\', pack(\'C\', sprintf(\'%.0f\', $@->[1])));^J^J if ($exit_param != 0 && !$CGI::Compile::RETURN_EXIT_VAL && !$self->{return_exit_val}) {^J die "exited nonzero: $exit_param";^J }^J^J $exit_val = $exit_param;^J }^J^J return $exit_val;^J }^J };') called at /usr/share/perl5/CGI/Compile.pm line 141 CGI::Compile::compile('CGI::Compile', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/WrapCGI.pm line 86 Plack::App::WrapCGI::prepare_app('Plack::App::WrapCGI=HASH(0x55d6cbccbff0)') called at /usr/share/perl5/Plack/Component.pm line 49 Plack::Component::to_app('Plack::App::WrapCGI=HASH(0x55d6cbccbff0)') called at /usr/share/perl5/Plack/App/CGIBin.pm line 47 Plack::App::CGIBin::serve_path('Plack::App::CGIBin=HASH(0x55d6c01e72f8)', 'HASH(0x55d6cbd26068)', '/kohadevbox/koha/opac/opac-main.pl') called at /usr/share/perl5/Plack/App/File.pm line 34 Plack::App::File::call('Plack::App::CGIBin=HASH(0x55d6c01e72f8)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /kohadevbox/koha/Koha/Middleware/CSRF.pm line 103 Koha::Middleware::CSRF::call('Koha::Middleware::CSRF=HASH(0x55d6cbd74868)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22 Plack::Middleware::LogWarn::call('Plack::Middleware::LogWarn=HASH(0x55d6cbca9180)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30 Plack::Middleware::Log4perl::call('Plack::Middleware::Log4perl=HASH(0x55d6cbce4f60)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') 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(0x55d6cbd7ee08)', 'Try::Tiny::Catch=REF(0x55d6cbd909e0)') called at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23 Plack::Middleware::HTTPExceptions::call('Plack::Middleware::HTTPExceptions=HASH(0x55d6cbcdd4a8)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15 Plack::Middleware::ErrorDocument::call('Plack::Middleware::ErrorDocument=HASH(0x55d6cbd8cb48)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/App/URLMap.pm line 71 Plack::App::URLMap::call('Plack::App::URLMap=HASH(0x55d6ca5928a0)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64 Koha::Middleware::RealIP::call('Koha::Middleware::RealIP=HASH(0x55d6cbd76938)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 113 Koha::Middleware::SetEnv::call('Koha::Middleware::SetEnv=HASH(0x55d6cbd6f0a8)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /kohadevbox/koha/Koha/Middleware/UserEnv.pm line 27 Koha::Middleware::UserEnv::call('Koha::Middleware::UserEnv=HASH(0x55d6cbca55d8)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Middleware/Static.pm line 18 Plack::Middleware::Static::call('Plack::Middleware::Static=HASH(0x55d6cbcf7470)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68 Plack::Middleware::ReverseProxy::call('Plack::Middleware::ReverseProxy=HASH(0x55d6cbce56b0)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Middleware/Lint.pm line 24 Plack::Middleware::Lint::call('Plack::Middleware::Lint=HASH(0x55d6c01dfa88)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Try/Tiny.pm line 100 eval {...} at /usr/share/perl5/Try/Tiny.pm line 93 Plack::Middleware::StackTrace::call('Plack::Middleware::StackTrace=HASH(0x55d6ca4d50a0)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27 Plack::Middleware::AccessLog::call('Plack::Middleware::AccessLog=HASH(0x55d6ca574700)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Plack/Component.pm line 50 Plack::Component::__ANON__('HASH(0x55d6cbd26068)') 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(0x55d6ca5745e0)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Starman/Server.pm line 195 Starman::Server::dispatch_request('Starman::Server=HASH(0x55d6bfb1c780)', 'HASH(0x55d6cbd26068)') called at /usr/share/perl5/Starman/Server.pm line 299 Starman::Server::process_request('Starman::Server=HASH(0x55d6bfb1c780)', 'Net::Server::Proto::UNIX=GLOB(0x55d6cc81f2d0)') called at /usr/share/perl5/Net/Server.pm line 72 Net::Server::run_client_connection('Starman::Server=HASH(0x55d6bfb1c780)') called at /usr/share/perl5/Net/Server/PreFork.pm line 226 eval {...} at /usr/share/perl5/Net/Server/PreFork.pm line 226 Net::Server::PreFork::run_child('Starman::Server=HASH(0x55d6bfb1c780)') called at /usr/share/perl5/Net/Server/PreFork.pm line 184 Net::Server::PreFork::run_n_children('Starman::Server=HASH(0x55d6bfb1c780)', 2) called at /usr/share/perl5/Net/Server/PreFork.pm line 107 Net::Server::PreFork::loop('Starman::Server=HASH(0x55d6bfb1c780)') called at /usr/share/perl5/Net/Server.pm line 58 Net::Server::run('Starman::Server=HASH(0x55d6bfb1c780)', 'port', 'ARRAY(0x55d6c016c9e8)', 'host', '*', 'proto', 'tcp', 'serialize', 'none', 'min_servers', 2, 'min_spare_servers', 1, 'max_spare_servers', 1, 'max_servers', 2, 'max_requests', 50, 'user', 'acqref-koha', 'group', 'acqref-koha', 'listen', 1024, 'check_for_waiting', 1, 'no_client_stdout', 1, 'log_file', '/var/log/koha/acqref/plack-error.log', 'background', 1, 'setsid', 1, 'pid_file', '/var/run/koha/acqref/plack.pid') called at /usr/share/perl5/Starman/Server.pm line 106 Starman::Server::run('Starman::Server=HASH(0x55d6bfb1c780)', 'CODE(0x55d6bfb1c630)', 'HASH(0x55d6bfb1c3d8)') called at /usr/share/perl5/Plack/Handler/Starman.pm line 25 Plack::Handler::Starman::run('Plack::Handler::Starman=HASH(0x55d6bfb1c648)', 'CODE(0x55d6bfb1c630)') called at /usr/share/perl5/Plack/Loader/Delayed.pm line 20 Plack::Loader::Delayed::run('Plack::Loader::Delayed=HASH(0x55d6bf8f7c88)', 'Plack::Handler::Starman=HASH(0x55d6bfb1c648)') called at /usr/share/perl5/Plack/Runner.pm line 279 Plack::Runner::run('Plack::Runner=HASH(0x55d6bf891400)') called at /bin/starman line 38 2026/08/13-13:12:13 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-13:12:13 Worker processes cleaned up 2026/08/13-13:12:13 Server closing! Process Backgrounded 2026/08/13-13:12:15 Starman::Server (type Net::Server::PreFork) starting! pid(4066083) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-13:53:05 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-13:53:05 Worker processes cleaned up 2026/08/13-13:53:05 Server closing! Process Backgrounded 2026/08/13-13:53:06 Starman::Server (type Net::Server::PreFork) starting! pid(4069191) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-14:34:50 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-14:34:50 Worker processes cleaned up 2026/08/13-14:34:50 Server closing! Process Backgrounded 2026/08/13-14:34:51 Starman::Server (type Net::Server::PreFork) starting! pid(4071931) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-15:50:11 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-15:50:11 Worker processes cleaned up 2026/08/13-15:50:11 Server closing! Process Backgrounded 2026/08/13-15:50:12 Starman::Server (type Net::Server::PreFork) starting! pid(4076855) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/ 2026/08/13-17:30:47 Received QUIT. Running a graceful shutdown Sending children hup signal 2026/08/13-17:30:47 Worker processes cleaned up 2026/08/13-17:30:47 Server closing! Process Backgrounded 2026/08/13-17:30:48 Starman::Server (type Net::Server::PreFork) starting! pid(4082999) Binding to UNIX socket file "/var/run/koha/acqref/plack.sock" Setting gid to "1000 1000" Setting uid to "1000" Starman: Accepting connections at unix://localhost:/var/run/koha/acqref/plack.sock/