name : 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();