| Current Path : /etc/apache2/bin/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //etc/apache2/bin/generate-errordoc-conf |
#!/usr/bin/perl
# cpanel - generate_errordoc-conf Copyright 2020 cPanel, L.L.C.
# All rights reserved.
# copyright@cpanel.net http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited
# NOTE: This performs similar but more general functionality as:
# Cpanel::AdvConfig::apache::includes::init()
use strict;
use warnings;
package generate_errordoc_conf;
# NOTE: this used to depend on HTTP::Status, which on CentOS is in the package
# perl-libwww-perl. For reasons we cannot understand that package is not
# available on OBS, so to work around that, I extracted this hash from other
# sources.
my %code_to_text = (
100 => 'Continue',
101 => 'Switching Protocols',
102 => 'Processing',
103 => 'Early Hints',
200 => 'OK',
201 => 'Created',
202 => 'Accepted',
203 => 'Non-Authoritative Information',
204 => 'No Content',
205 => 'Reset Content',
206 => 'Partial Content',
207 => 'Multi-Status',
208 => 'Already Reported',
226 => 'IM Used',
300 => 'Multiple Choices',
301 => 'Moved Permanently',
302 => 'Found',
303 => 'See Other',
304 => 'Not Modified',
305 => 'Use Proxy',
307 => 'Temporary Redirect',
308 => 'Permanent Redirect',
400 => 'Bad Request',
401 => 'Unauthorized',
402 => 'Payment Required',
403 => 'Forbidden',
404 => 'Not Found',
405 => 'Method Not Allowed',
406 => 'Not Acceptable',
407 => 'Proxy Authentication Required',
408 => 'Request Timeout',
409 => 'Conflict',
410 => 'Gone',
411 => 'Length Required',
412 => 'Precondition Failed',
413 => 'Payload Too Large',
414 => 'URI Too Long',
415 => 'Unsupported Media Type',
416 => 'Range Not Satisfiable',
417 => 'Expectation Failed',
421 => 'Misdirected Request',
422 => 'Unprocessable Entity',
423 => 'Locked',
424 => 'Failed Dependency',
425 => 'Too Early',
426 => 'Upgrade Required',
428 => 'Precondition Required',
429 => 'Too Many Requests',
431 => 'Request Header Fields Too Large',
449 => 'Retry with',
451 => 'Unavailable For Legal Reasons',
500 => 'Internal Server Error',
501 => 'Not Implemented',
502 => 'Bad Gateway',
503 => 'Service Unavailable',
504 => 'Gateway Timeout',
505 => 'HTTP Version Not Supported',
506 => 'Variant Also Negotiates',
507 => 'Insufficient Storage',
508 => 'Loop Detected',
509 => 'Bandwidth Limit Exceeded',
510 => 'Not Extended',
511 => 'Network Authentication Required',
);
our @DefaultErrorCodes = ( 400 .. 417, 422 .. 424, 500 .. 507, 510 );
sub generate_errordoc {
for my $code_num (@DefaultErrorCodes) {
my $code_type = $code_to_text{$code_num};
$code_type ||= "Unknown Status";
printf( "# %d - %s\n", $code_num, $code_type || '<Unknown HTTP Error Code>' );
printf( "ErrorDocument %d /%d.shtml\n\n", $code_num, $code_num );
}
}
package main;
generate_errordoc_conf::generate_errordoc() unless caller();