From 049ce2ed3720ef9dd9529619d960e028e0a729ff Mon Sep 17 00:00:00 2001 From: doxulting Date: Fri, 30 Jul 2004 14:13:31 +0000 Subject: [PATCH] for error managing in .htaccess --- koha-tmpl/errors/400.pl | 20 ++++++++++++++++++++ koha-tmpl/errors/401.pl | 20 ++++++++++++++++++++ koha-tmpl/errors/402.pl | 20 ++++++++++++++++++++ koha-tmpl/errors/403.pl | 20 ++++++++++++++++++++ koha-tmpl/errors/404.pl | 20 ++++++++++++++++++++ koha-tmpl/errors/500.pl | 20 ++++++++++++++++++++ 6 files changed, 120 insertions(+) create mode 100755 koha-tmpl/errors/400.pl create mode 100755 koha-tmpl/errors/401.pl create mode 100755 koha-tmpl/errors/402.pl create mode 100755 koha-tmpl/errors/403.pl create mode 100755 koha-tmpl/errors/404.pl create mode 100755 koha-tmpl/errors/500.pl diff --git a/koha-tmpl/errors/400.pl b/koha-tmpl/errors/400.pl new file mode 100755 index 0000000000..2cb78d9a8f --- /dev/null +++ b/koha-tmpl/errors/400.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use strict; +use CGI; +use C4::Auth; +use C4::Output; +use C4::Interface::CGI::Output; +use C4::Context; +use HTML::Template; + +my $query = new CGI; +my ($template, $loggedinuser, $cookie) += get_template_and_user({template_name => "errors/400.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); +output_html_with_http_headers $query, $cookie, $template->output; diff --git a/koha-tmpl/errors/401.pl b/koha-tmpl/errors/401.pl new file mode 100755 index 0000000000..9e0763d31f --- /dev/null +++ b/koha-tmpl/errors/401.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use strict; +use CGI; +use C4::Auth; +use C4::Output; +use C4::Interface::CGI::Output; +use C4::Context; +use HTML::Template; + +my $query = new CGI; +my ($template, $loggedinuser, $cookie) += get_template_and_user({template_name => "errors/401.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); +output_html_with_http_headers $query, $cookie, $template->output; diff --git a/koha-tmpl/errors/402.pl b/koha-tmpl/errors/402.pl new file mode 100755 index 0000000000..229dc1b94a --- /dev/null +++ b/koha-tmpl/errors/402.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use strict; +use CGI; +use C4::Auth; +use C4::Output; +use C4::Interface::CGI::Output; +use C4::Context; +use HTML::Template; + +my $query = new CGI; +my ($template, $loggedinuser, $cookie) += get_template_and_user({template_name => "errors/402.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); +output_html_with_http_headers $query, $cookie, $template->output; diff --git a/koha-tmpl/errors/403.pl b/koha-tmpl/errors/403.pl new file mode 100755 index 0000000000..587cb721d9 --- /dev/null +++ b/koha-tmpl/errors/403.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use strict; +use CGI; +use C4::Auth; +use C4::Output; +use C4::Interface::CGI::Output; +use C4::Context; +use HTML::Template; + +my $query = new CGI; +my ($template, $loggedinuser, $cookie) += get_template_and_user({template_name => "errors/403.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); +output_html_with_http_headers $query, $cookie, $template->output; diff --git a/koha-tmpl/errors/404.pl b/koha-tmpl/errors/404.pl new file mode 100755 index 0000000000..1b16bf891a --- /dev/null +++ b/koha-tmpl/errors/404.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use strict; +use CGI; +use C4::Auth; +use C4::Output; +use C4::Interface::CGI::Output; +use C4::Context; +use HTML::Template; + +my $query = new CGI; +my ($template, $loggedinuser, $cookie) += get_template_and_user({template_name => "errors/404.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); +output_html_with_http_headers $query, $cookie, $template->output; diff --git a/koha-tmpl/errors/500.pl b/koha-tmpl/errors/500.pl new file mode 100755 index 0000000000..bdf0cc3807 --- /dev/null +++ b/koha-tmpl/errors/500.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl + +use strict; +use CGI; +use C4::Auth; +use C4::Output; +use C4::Interface::CGI::Output; +use C4::Context; +use HTML::Template; + +my $query = new CGI; +my ($template, $loggedinuser, $cookie) += get_template_and_user({template_name => "errors/500.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); +output_html_with_http_headers $query, $cookie, $template->output; -- 2.39.5