| # This Source Code Form is subject to the terms of the Mozilla Public |
| # License, v. 2.0. If a copy of the MPL was not distributed with this |
| # file, You can obtain one at http://mozilla.org/MPL/2.0/. |
| # |
| # This Source Code Form is "Incompatible With Secondary Licenses", as |
| # defined by the Mozilla Public License, v. 2.0. |
| |
| package Bugzilla::Constants; |
| |
| use 5.10.1; |
| use strict; |
| use warnings; |
| |
| use parent qw(Exporter); |
| |
| # For bz_locations |
| use File::Basename; |
| use Memoize; |
| |
| @Bugzilla::Constants::EXPORT = qw( |
| BUGZILLA_VERSION |
| REST_DOC |
| |
| REMOTE_FILE |
| LOCAL_FILE |
| |
| bz_locations |
| |
| CONCATENATE_ASSETS |
| |
| IS_NULL |
| NOT_NULL |
| |
| CONTROLMAPNA |
| CONTROLMAPSHOWN |
| CONTROLMAPDEFAULT |
| CONTROLMAPMANDATORY |
| |
| AUTH_OK |
| AUTH_NODATA |
| AUTH_ERROR |
| AUTH_LOGINFAILED |
| AUTH_DISABLED |
| AUTH_NO_SUCH_USER |
| AUTH_LOCKOUT |
| |
| USER_PASSWORD_MIN_LENGTH |
| |
| LOGIN_OPTIONAL |
| LOGIN_NORMAL |
| LOGIN_REQUIRED |
| |
| LOGOUT_ALL |
| LOGOUT_CURRENT |
| LOGOUT_KEEP_CURRENT |
| |
| GRANT_DIRECT |
| GRANT_REGEXP |
| |
| GROUP_MEMBERSHIP |
| GROUP_BLESS |
| GROUP_VISIBLE |
| |
| MAILTO_USER |
| MAILTO_GROUP |
| |
| DEFAULT_COLUMN_LIST |
| DEFAULT_QUERY_NAME |
| DEFAULT_MILESTONE |
| |
| SAVE_NUM_SEARCHES |
| |
| COMMENT_COLS |
| COMMENT_COLS_WRAP |
| MAX_COMMENT_LENGTH |
| |
| MIN_COMMENT_TAG_LENGTH |
| MAX_COMMENT_TAG_LENGTH |
| |
| CMT_NORMAL |
| CMT_DUPE_OF |
| CMT_HAS_DUPE |
| CMT_ATTACHMENT_CREATED |
| CMT_ATTACHMENT_UPDATED |
| |
| THROW_ERROR |
| |
| RELATIONSHIPS |
| REL_ASSIGNEE REL_QA REL_REPORTER REL_CC REL_GLOBAL_WATCHER |
| REL_ANY |
| |
| POS_EVENTS |
| EVT_OTHER EVT_ADDED_REMOVED EVT_COMMENT EVT_ATTACHMENT EVT_ATTACHMENT_DATA |
| EVT_PROJ_MANAGEMENT EVT_OPENED_CLOSED EVT_KEYWORD EVT_CC EVT_DEPEND_BLOCK |
| EVT_BUG_CREATED EVT_COMPONENT |
| |
| NEG_EVENTS |
| EVT_UNCONFIRMED EVT_CHANGED_BY_ME |
| |
| GLOBAL_EVENTS |
| EVT_FLAG_REQUESTED EVT_REQUESTED_FLAG |
| |
| ADMIN_GROUP_NAME |
| PER_PRODUCT_PRIVILEGES |
| |
| SENDMAIL_EXE |
| SENDMAIL_PATH |
| |
| FIELD_TYPE_UNKNOWN |
| FIELD_TYPE_FREETEXT |
| FIELD_TYPE_SINGLE_SELECT |
| FIELD_TYPE_MULTI_SELECT |
| FIELD_TYPE_TEXTAREA |
| FIELD_TYPE_DATETIME |
| FIELD_TYPE_DATE |
| FIELD_TYPE_BUG_ID |
| FIELD_TYPE_BUG_URLS |
| FIELD_TYPE_KEYWORDS |
| FIELD_TYPE_INTEGER |
| FIELD_TYPE_HIGHEST_PLUS_ONE |
| |
| EMPTY_DATETIME_REGEX |
| |
| ABNORMAL_SELECTS |
| |
| TIMETRACKING_FIELDS |
| |
| USAGE_MODE_BROWSER |
| USAGE_MODE_CMDLINE |
| USAGE_MODE_XMLRPC |
| USAGE_MODE_EMAIL |
| USAGE_MODE_JSON |
| USAGE_MODE_TEST |
| USAGE_MODE_REST |
| |
| ERROR_MODE_WEBPAGE |
| ERROR_MODE_DIE |
| ERROR_MODE_DIE_SOAP_FAULT |
| ERROR_MODE_JSON_RPC |
| ERROR_MODE_TEST |
| ERROR_MODE_REST |
| |
| COLOR_ERROR |
| COLOR_SUCCESS |
| |
| INSTALLATION_MODE_INTERACTIVE |
| INSTALLATION_MODE_NON_INTERACTIVE |
| |
| DB_MODULE |
| ROOT_USER |
| ON_WINDOWS |
| ON_ACTIVESTATE |
| |
| MAX_TOKEN_AGE |
| MAX_LOGINCOOKIE_AGE |
| MAX_SUDO_TOKEN_AGE |
| MAX_LOGIN_ATTEMPTS |
| LOGIN_LOCKOUT_INTERVAL |
| ACCOUNT_CHANGE_INTERVAL |
| MAX_STS_AGE |
| |
| SAFE_PROTOCOLS |
| LEGAL_CONTENT_TYPES |
| |
| MIN_SMALLINT |
| MAX_SMALLINT |
| MAX_INT_32 |
| |
| MAX_LEN_QUERY_NAME |
| MAX_CLASSIFICATION_SIZE |
| MAX_PRODUCT_SIZE |
| MAX_MILESTONE_SIZE |
| MAX_COMPONENT_SIZE |
| MAX_FIELD_VALUE_SIZE |
| MAX_FIELD_LONG_DESC_LENGTH |
| MAX_FREETEXT_LENGTH |
| MAX_BUG_URL_LENGTH |
| MAX_POSSIBLE_DUPLICATES |
| MAX_ATTACH_FILENAME_LENGTH |
| MAX_QUIP_LENGTH |
| MAX_WEBDOT_BUGS |
| |
| PASSWORD_DIGEST_ALGORITHM |
| PASSWORD_SALT_LENGTH |
| |
| CGI_URI_LIMIT |
| |
| PRIVILEGES_REQUIRED_NONE |
| PRIVILEGES_REQUIRED_REPORTER |
| PRIVILEGES_REQUIRED_ASSIGNEE |
| PRIVILEGES_REQUIRED_EMPOWERED |
| |
| AUDIT_CREATE |
| AUDIT_REMOVE |
| |
| MOST_FREQUENT_THRESHOLD |
| ); |
| |
| @Bugzilla::Constants::EXPORT_OK = qw(contenttypes); |
| |
| # CONSTANTS |
| # |
| # Bugzilla version |
| use constant BUGZILLA_VERSION => "5.0.4"; |
| |
| # A base link to the current REST Documentation. We place it here |
| # as it will need to be updated to whatever the current release is. |
| use constant REST_DOC => 'https://bugzilla.readthedocs.org/en/5.0/api/'; |
| |
| # Location of the remote and local XML files to track new releases. |
| use constant REMOTE_FILE => 'http://updates.bugzilla.org/bugzilla-update.xml'; |
| use constant LOCAL_FILE => 'bugzilla-update.xml'; # Relative to datadir. |
| |
| # When true CSS and JavaScript assets will be concatanted and minified at |
| # run-time, to reduce the number of requests required to render a page. |
| # Setting this to a false value can help debugging. |
| use constant CONCATENATE_ASSETS => 1; |
| |
| # These are unique values that are unlikely to match a string or a number, |
| # to be used in criteria for match() functions and other things. They start |
| # and end with spaces because most Bugzilla stuff has trim() called on it, |
| # so this is unlikely to match anything we get out of the DB. |
| # |
| # We can't use a reference, because Template Toolkit doesn't work with |
| # them properly (constants.IS_NULL => {} just returns an empty string instead |
| # of the reference). |
| use constant IS_NULL => ' __IS_NULL__ '; |
| use constant NOT_NULL => ' __NOT_NULL__ '; |
| |
| # |
| # ControlMap constants for group_control_map. |
| # membercontol:othercontrol => meaning |
| # Na:Na => Bugs in this product may not be restricted to this |
| # group. |
| # Shown:Na => Members of the group may restrict bugs |
| # in this product to this group. |
| # Shown:Shown => Members of the group may restrict bugs |
| # in this product to this group. |
| # Anyone who can enter bugs in this product may initially |
| # restrict bugs in this product to this group. |
| # Shown:Mandatory => Members of the group may restrict bugs |
| # in this product to this group. |
| # Non-members who can enter bug in this product |
| # will be forced to restrict it. |
| # Default:Na => Members of the group may restrict bugs in this |
| # product to this group and do so by default. |
| # Default:Default => Members of the group may restrict bugs in this |
| # product to this group and do so by default and |
| # nonmembers have this option on entry. |
| # Default:Mandatory => Members of the group may restrict bugs in this |
| # product to this group and do so by default. |
| # Non-members who can enter bug in this product |
| # will be forced to restrict it. |
| # Mandatory:Mandatory => Bug will be forced into this group regardless. |
| # All other combinations are illegal. |
| |
| use constant CONTROLMAPNA => 0; |
| use constant CONTROLMAPSHOWN => 1; |
| use constant CONTROLMAPDEFAULT => 2; |
| use constant CONTROLMAPMANDATORY => 3; |
| |
| # See Bugzilla::Auth for docs on AUTH_*, LOGIN_* and LOGOUT_* |
| |
| use constant AUTH_OK => 0; |
| use constant AUTH_NODATA => 1; |
| use constant AUTH_ERROR => 2; |
| use constant AUTH_LOGINFAILED => 3; |
| use constant AUTH_DISABLED => 4; |
| use constant AUTH_NO_SUCH_USER => 5; |
| use constant AUTH_LOCKOUT => 6; |
| |
| # The minimum length a password must have. |
| use constant USER_PASSWORD_MIN_LENGTH => 6; |
| |
| use constant LOGIN_OPTIONAL => 0; |
| use constant LOGIN_NORMAL => 1; |
| use constant LOGIN_REQUIRED => 2; |
| |
| use constant LOGOUT_ALL => 0; |
| use constant LOGOUT_CURRENT => 1; |
| use constant LOGOUT_KEEP_CURRENT => 2; |
| |
| use constant GRANT_DIRECT => 0; |
| use constant GRANT_REGEXP => 2; |
| |
| use constant GROUP_MEMBERSHIP => 0; |
| use constant GROUP_BLESS => 1; |
| use constant GROUP_VISIBLE => 2; |
| |
| use constant MAILTO_USER => 0; |
| use constant MAILTO_GROUP => 1; |
| |
| # The default list of columns for buglist.cgi |
| use constant DEFAULT_COLUMN_LIST => ( |
| "product", "component", "assigned_to", |
| "bug_status", "resolution", "short_desc", "changeddate" |
| ); |
| |
| # Used by query.cgi and buglist.cgi as the named-query name |
| # for the default settings. |
| use constant DEFAULT_QUERY_NAME => '(Default query)'; |
| |
| # The default "defaultmilestone" created for products. |
| use constant DEFAULT_MILESTONE => '---'; |
| |
| # How many of the user's most recent searches to save. |
| use constant SAVE_NUM_SEARCHES => 10; |
| |
| # The column width for comment textareas and comments in bugmails. |
| use constant COMMENT_COLS => 80; |
| #if WEBKIT_CHANGES |
| # The column width at which to wrap comments prior to display -- using |
| # Perl's Text::Wrap::wrap(). Only Bugzilla/Util.pm's wrap_comment() method |
| # uses this constant. |
| # |
| # Empirical testing showed that $Text::Wrap::columns must be a value |
| # between 2 and 32766, inclusive. We choose a large value to prevent |
| # wrap() from inserting any hard line breaks at all. This lets us use |
| # "white-space: pre-wrap" in the CSS to do line-wrapping instead. We |
| # arbitrarily choose 8000, which is enough for a 100-line paragraph. |
| use constant COMMENT_COLS_WRAP => 8000; |
| #endif // WEBKIT_CHANGES |
| # Used in _check_comment(). Gives the max length allowed for a comment. |
| use constant MAX_COMMENT_LENGTH => 65535; |
| |
| # The minimum and maximum length of comment tags. |
| use constant MIN_COMMENT_TAG_LENGTH => 3; |
| use constant MAX_COMMENT_TAG_LENGTH => 24; |
| |
| # The type of bug comments. |
| use constant CMT_NORMAL => 0; |
| use constant CMT_DUPE_OF => 1; |
| use constant CMT_HAS_DUPE => 2; |
| # Type 3 was CMT_POPULAR_VOTES, which moved to the Voting extension. |
| # Type 4 was CMT_MOVED_TO, which moved to the OldBugMove extension. |
| use constant CMT_ATTACHMENT_CREATED => 5; |
| use constant CMT_ATTACHMENT_UPDATED => 6; |
| |
| # Determine whether a validation routine should return 0 or throw |
| # an error when the validation fails. |
| use constant THROW_ERROR => 1; |
| |
| use constant REL_ASSIGNEE => 0; |
| use constant REL_QA => 1; |
| use constant REL_REPORTER => 2; |
| use constant REL_CC => 3; |
| # REL 4 was REL_VOTER, before it was moved ino an extension. |
| use constant REL_GLOBAL_WATCHER => 5; |
| |
| # We need these strings for the X-Bugzilla-Reasons header |
| # Note: this hash uses "," rather than "=>" to avoid auto-quoting of the LHS. |
| # This should be accessed through Bugzilla::BugMail::relationships() instead |
| # of being accessed directly. |
| use constant RELATIONSHIPS => { |
| REL_ASSIGNEE , "AssignedTo", |
| REL_REPORTER , "Reporter", |
| REL_QA , "QAcontact", |
| REL_CC , "CC", |
| REL_GLOBAL_WATCHER, "GlobalWatcher" |
| }; |
| |
| # Used for global events like EVT_FLAG_REQUESTED |
| use constant REL_ANY => 100; |
| |
| # There are two sorts of event - positive and negative. Positive events are |
| # those for which the user says "I want mail if this happens." Negative events |
| # are those for which the user says "I don't want mail if this happens." |
| # |
| # Exactly when each event fires is defined in wants_bug_mail() in User.pm; I'm |
| # not commenting them here in case the comments and the code get out of sync. |
| use constant EVT_OTHER => 0; |
| use constant EVT_ADDED_REMOVED => 1; |
| use constant EVT_COMMENT => 2; |
| use constant EVT_ATTACHMENT => 3; |
| use constant EVT_ATTACHMENT_DATA => 4; |
| use constant EVT_PROJ_MANAGEMENT => 5; |
| use constant EVT_OPENED_CLOSED => 6; |
| use constant EVT_KEYWORD => 7; |
| use constant EVT_CC => 8; |
| use constant EVT_DEPEND_BLOCK => 9; |
| use constant EVT_BUG_CREATED => 10; |
| use constant EVT_COMPONENT => 11; |
| |
| use constant POS_EVENTS => EVT_OTHER, EVT_ADDED_REMOVED, EVT_COMMENT, |
| EVT_ATTACHMENT, EVT_ATTACHMENT_DATA, |
| EVT_PROJ_MANAGEMENT, EVT_OPENED_CLOSED, EVT_KEYWORD, |
| EVT_CC, EVT_DEPEND_BLOCK, EVT_BUG_CREATED, |
| EVT_COMPONENT; |
| |
| use constant EVT_UNCONFIRMED => 50; |
| use constant EVT_CHANGED_BY_ME => 51; |
| |
| use constant NEG_EVENTS => EVT_UNCONFIRMED, EVT_CHANGED_BY_ME; |
| |
| # These are the "global" flags, which aren't tied to a particular relationship. |
| # and so use REL_ANY. |
| use constant EVT_FLAG_REQUESTED => 100; # Flag has been requested of me |
| use constant EVT_REQUESTED_FLAG => 101; # I have requested a flag |
| |
| use constant GLOBAL_EVENTS => EVT_FLAG_REQUESTED, EVT_REQUESTED_FLAG; |
| |
| # Default administration group name. |
| use constant ADMIN_GROUP_NAME => 'admin'; |
| |
| # Privileges which can be per-product. |
| use constant PER_PRODUCT_PRIVILEGES => ('editcomponents', 'editbugs', 'canconfirm'); |
| |
| # Path to sendmail.exe (Windows only) |
| use constant SENDMAIL_EXE => '/usr/lib/sendmail.exe'; |
| # Paths to search for the sendmail binary (non-Windows) |
| use constant SENDMAIL_PATH => '/usr/lib:/usr/sbin:/usr/ucblib'; |
| |
| # Field types. Match values in fielddefs.type column. These are purposely |
| # not named after database column types, since Bugzilla fields comprise not |
| # only storage but also logic. For example, we might add a "user" field type |
| # whose values are stored in an integer column in the database but for which |
| # we do more than we would do for a standard integer type (f.e. we might |
| # display a user picker). |
| |
| use constant FIELD_TYPE_UNKNOWN => 0; |
| use constant FIELD_TYPE_FREETEXT => 1; |
| use constant FIELD_TYPE_SINGLE_SELECT => 2; |
| use constant FIELD_TYPE_MULTI_SELECT => 3; |
| use constant FIELD_TYPE_TEXTAREA => 4; |
| use constant FIELD_TYPE_DATETIME => 5; |
| use constant FIELD_TYPE_BUG_ID => 6; |
| use constant FIELD_TYPE_BUG_URLS => 7; |
| use constant FIELD_TYPE_KEYWORDS => 8; |
| use constant FIELD_TYPE_DATE => 9; |
| use constant FIELD_TYPE_INTEGER => 10; |
| # Add new field types above this line, and change the below value in the |
| # obvious fashion |
| use constant FIELD_TYPE_HIGHEST_PLUS_ONE => 11; |
| |
| use constant EMPTY_DATETIME_REGEX => qr/^[0\-:\sA-Za-z]+$/; |
| |
| # See the POD for Bugzilla::Field/is_abnormal to see why these are listed |
| # here. |
| use constant ABNORMAL_SELECTS => { |
| classification => 1, |
| component => 1, |
| product => 1, |
| }; |
| |
| # The fields from fielddefs that are blocked from non-timetracking users. |
| # work_time is sometimes called actual_time. |
| use constant TIMETRACKING_FIELDS => |
| qw(estimated_time remaining_time work_time actual_time percentage_complete); |
| |
| # The maximum number of days a token will remain valid. |
| use constant MAX_TOKEN_AGE => 3; |
| # How many days a logincookie will remain valid if not used. |
| use constant MAX_LOGINCOOKIE_AGE => 30; |
| # How many seconds (default is 6 hours) a sudo cookie remains valid. |
| use constant MAX_SUDO_TOKEN_AGE => 21600; |
| |
| # Maximum failed logins to lock account for this IP |
| use constant MAX_LOGIN_ATTEMPTS => 5; |
| # If the maximum login attempts occur during this many minutes, the |
| # account is locked. |
| use constant LOGIN_LOCKOUT_INTERVAL => 30; |
| |
| # The time in minutes a user must wait before they can request another email to |
| # create a new account or change their password. |
| use constant ACCOUNT_CHANGE_INTERVAL => 10; |
| |
| # The maximum number of seconds the Strict-Transport-Security header |
| # will remain valid. Default is one week. |
| use constant MAX_STS_AGE => 604800; |
| |
| # Protocols which are considered as safe. |
| use constant SAFE_PROTOCOLS => ('afs', 'cid', 'ftp', 'gopher', 'http', 'https', |
| 'irc', 'ircs', 'mid', 'news', 'nntp', 'prospero', |
| 'telnet', 'view-source', 'wais'); |
| |
| # Valid MIME types for attachments. |
| use constant LEGAL_CONTENT_TYPES => ('application', 'audio', 'image', 'message', |
| 'model', 'multipart', 'text', 'video'); |
| |
| use constant contenttypes => |
| { |
| "html" => "text/html" , |
| "rdf" => "application/rdf+xml" , |
| "atom" => "application/atom+xml" , |
| "xml" => "application/xml" , |
| "dtd" => "application/xml-dtd" , |
| "js" => "application/x-javascript" , |
| "json" => "application/json" , |
| "csv" => "text/csv" , |
| "png" => "image/png" , |
| "ics" => "text/calendar" , |
| }; |
| |
| # Usage modes. Default USAGE_MODE_BROWSER. Use with Bugzilla->usage_mode. |
| use constant USAGE_MODE_BROWSER => 0; |
| use constant USAGE_MODE_CMDLINE => 1; |
| use constant USAGE_MODE_XMLRPC => 2; |
| use constant USAGE_MODE_EMAIL => 3; |
| use constant USAGE_MODE_JSON => 4; |
| use constant USAGE_MODE_TEST => 5; |
| use constant USAGE_MODE_REST => 6; |
| |
| # Error modes. Default set by Bugzilla->usage_mode (so ERROR_MODE_WEBPAGE |
| # usually). Use with Bugzilla->error_mode. |
| use constant ERROR_MODE_WEBPAGE => 0; |
| use constant ERROR_MODE_DIE => 1; |
| use constant ERROR_MODE_DIE_SOAP_FAULT => 2; |
| use constant ERROR_MODE_JSON_RPC => 3; |
| use constant ERROR_MODE_TEST => 4; |
| use constant ERROR_MODE_REST => 5; |
| |
| # The ANSI colors of messages that command-line scripts use |
| use constant COLOR_ERROR => 'red'; |
| use constant COLOR_SUCCESS => 'green'; |
| |
| # The various modes that checksetup.pl can run in. |
| use constant INSTALLATION_MODE_INTERACTIVE => 0; |
| use constant INSTALLATION_MODE_NON_INTERACTIVE => 1; |
| |
| # Data about what we require for different databases. |
| use constant DB_MODULE => { |
| # MySQL 5.0.15 was the first production 5.0.x release. |
| 'mysql' => {db => 'Bugzilla::DB::Mysql', db_version => '5.0.15', |
| dbd => { |
| package => 'DBD-mysql', |
| module => 'DBD::mysql', |
| # Disallow development versions |
| blacklist => ['_'], |
| # For UTF-8 support. 4.001 makes sure that blobs aren't |
| # marked as UTF-8. |
| version => '4.001', |
| }, |
| name => 'MySQL'}, |
| # Also see Bugzilla::DB::Pg::bz_check_server_version, which has special |
| # code to require DBD::Pg 2.17.2 for PostgreSQL 9 and above. |
| 'pg' => {db => 'Bugzilla::DB::Pg', db_version => '8.03.0000', |
| dbd => { |
| package => 'DBD-Pg', |
| module => 'DBD::Pg', |
| # 2.7.0 fixes a problem with quoting strings |
| # containing backslashes in them. |
| version => '2.7.0', |
| }, |
| name => 'PostgreSQL'}, |
| 'oracle'=> {db => 'Bugzilla::DB::Oracle', db_version => '10.02.0', |
| dbd => { |
| package => 'DBD-Oracle', |
| module => 'DBD::Oracle', |
| version => '1.19', |
| }, |
| name => 'Oracle'}, |
| # SQLite 3.6.22 fixes a WHERE clause problem that may affect us. |
| sqlite => {db => 'Bugzilla::DB::Sqlite', db_version => '3.6.22', |
| dbd => { |
| package => 'DBD-SQLite', |
| module => 'DBD::SQLite', |
| # 1.29 is the version that contains 3.6.22. |
| version => '1.29', |
| }, |
| name => 'SQLite'}, |
| }; |
| |
| # True if we're on Win32. |
| use constant ON_WINDOWS => ($^O =~ /MSWin32/i) ? 1 : 0; |
| # True if we're using ActiveState Perl (as opposed to Strawberry) on Windows. |
| use constant ON_ACTIVESTATE => eval { &Win32::BuildNumber }; |
| |
| # The user who should be considered "root" when we're giving |
| # instructions to Bugzilla administrators. |
| use constant ROOT_USER => ON_WINDOWS ? 'Administrator' : 'root'; |
| |
| use constant MIN_SMALLINT => -32768; |
| use constant MAX_SMALLINT => 32767; |
| use constant MAX_INT_32 => 2147483647; |
| |
| # The longest that a saved search name can be. |
| use constant MAX_LEN_QUERY_NAME => 64; |
| |
| # The longest classification name allowed. |
| use constant MAX_CLASSIFICATION_SIZE => 64; |
| |
| # The longest product name allowed. |
| use constant MAX_PRODUCT_SIZE => 64; |
| |
| # The longest milestone name allowed. |
| use constant MAX_MILESTONE_SIZE => 64; |
| |
| # The longest component name allowed. |
| use constant MAX_COMPONENT_SIZE => 64; |
| |
| # The maximum length for values of <select> fields. |
| use constant MAX_FIELD_VALUE_SIZE => 64; |
| |
| # The maximum length for the long description of fields. |
| use constant MAX_FIELD_LONG_DESC_LENGTH => 255; |
| |
| # Maximum length allowed for free text fields. |
| use constant MAX_FREETEXT_LENGTH => 255; |
| |
| # The longest a bug URL in a BUG_URLS field can be. |
| use constant MAX_BUG_URL_LENGTH => 255; |
| |
| # The largest number of possible duplicates that Bug::possible_duplicates |
| # will return. |
| use constant MAX_POSSIBLE_DUPLICATES => 25; |
| |
| # Maximum length of filename stored in attachments table (longer ones will |
| # be truncated to this value). Do not increase above 255 without making the |
| # necessary schema changes to store longer names. |
| use constant MAX_ATTACH_FILENAME_LENGTH => 255; |
| |
| # Maximum length of a quip. |
| use constant MAX_QUIP_LENGTH => 512; |
| |
| # Maximum number of bugs to display in a dependency graph |
| use constant MAX_WEBDOT_BUGS => 2000; |
| |
| # This is the name of the algorithm used to hash passwords before storing |
| # them in the database. This can be any string that is valid to pass to |
| # Perl's "Digest" module. Note that if you change this, it won't take |
| # effect until a user logs in or changes their password. |
| use constant PASSWORD_DIGEST_ALGORITHM => 'SHA-256'; |
| # How long of a salt should we use? Note that if you change this, it |
| # won't take effect until a user logs in or changes their password. |
| use constant PASSWORD_SALT_LENGTH => 8; |
| |
| # Certain scripts redirect to GET even if the form was submitted originally |
| # via POST such as buglist.cgi. This value determines whether the redirect |
| # can be safely done or not based on the web server's URI length setting. |
| # See http://support.microsoft.com/kb/208427 for why MSIE is different |
| use constant CGI_URI_LIMIT => ($ENV{'HTTP_USER_AGENT'} || '') =~ /MSIE/ ? 2083 : 8000; |
| |
| # If the user isn't allowed to change a field, we must tell them who can. |
| # We store the required permission set into the $PrivilegesRequired |
| # variable which gets passed to the error template. |
| |
| use constant PRIVILEGES_REQUIRED_NONE => 0; |
| use constant PRIVILEGES_REQUIRED_REPORTER => 1; |
| use constant PRIVILEGES_REQUIRED_ASSIGNEE => 2; |
| use constant PRIVILEGES_REQUIRED_EMPOWERED => 3; |
| |
| # Special field values used in the audit_log table to mean either |
| # "we just created this object" or "we just deleted this object". |
| use constant AUDIT_CREATE => '__create__'; |
| use constant AUDIT_REMOVE => '__remove__'; |
| |
| # The minimum number of duplicates a bug needs to show up |
| # on the "Most frequently reported bugs" page. |
| use constant MOST_FREQUENT_THRESHOLD => 2; |
| |
| sub bz_locations { |
| # Force memoize() to re-compute data per project, to avoid |
| # sharing the same data across different installations. |
| return _bz_locations($ENV{'PROJECT'}); |
| } |
| |
| sub _bz_locations { |
| my $project = shift; |
| # We know that Bugzilla/Constants.pm must be in %INC at this point. |
| # So the only question is, what's the name of the directory |
| # above it? This is the most reliable way to get our current working |
| # directory under both mod_cgi and mod_perl. We call dirname twice |
| # to get the name of the directory above the "Bugzilla/" directory. |
| # |
| # Calling dirname twice like that won't work on VMS or AmigaOS |
| # but I doubt anybody runs Bugzilla on those. |
| # |
| # On mod_cgi this will be a relative path. On mod_perl it will be an |
| # absolute path. |
| my $libpath = dirname(dirname($INC{'Bugzilla/Constants.pm'})); |
| # We have to detaint $libpath, but we can't use Bugzilla::Util here. |
| $libpath =~ /(.*)/; |
| $libpath = $1; |
| |
| my ($localconfig, $datadir); |
| if ($project && $project =~ /^(\w+)$/) { |
| $project = $1; |
| $localconfig = "localconfig.$project"; |
| $datadir = "data/$project"; |
| } else { |
| $project = undef; |
| $localconfig = "localconfig"; |
| $datadir = "data"; |
| } |
| |
| $datadir = "$libpath/$datadir"; |
| # We have to return absolute paths for mod_perl. |
| # That means that if you modify these paths, they must be absolute paths. |
| return { |
| 'libpath' => $libpath, |
| 'ext_libpath' => "$libpath/lib", |
| # If you put the libraries in a different location than the CGIs, |
| # make sure this still points to the CGIs. |
| 'cgi_path' => $libpath, |
| 'templatedir' => "$libpath/template", |
| 'template_cache' => "$datadir/template", |
| 'project' => $project, |
| 'localconfig' => "$libpath/$localconfig", |
| 'datadir' => $datadir, |
| 'attachdir' => "$datadir/attachments", |
| 'skinsdir' => "$libpath/skins", |
| 'graphsdir' => "$libpath/graphs", |
| # $webdotdir must be in the web server's tree somewhere. Even if you use a |
| # local dot, we output images to there. Also, if $webdotdir is |
| # not relative to the bugzilla root directory, you'll need to |
| # change showdependencygraph.cgi to set image_url to the correct |
| # location. |
| # The script should really generate these graphs directly... |
| 'webdotdir' => "$datadir/webdot", |
| 'extensionsdir' => "$libpath/extensions", |
| 'assetsdir' => "$datadir/assets", |
| }; |
| } |
| |
| # This makes us not re-compute all the bz_locations data every time it's |
| # called. |
| BEGIN { memoize('_bz_locations') }; |
| |
| 1; |
| |
| =head1 B<Methods in need of POD> |
| |
| =over |
| |
| =item DB_MODULE |
| |
| =item contenttypes |
| |
| =item bz_locations |
| |
| =back |
