diff options
Diffstat (limited to 'Bugzilla')
| -rw-r--r-- | Bugzilla/Constants.pm | 2 | ||||
| -rw-r--r-- | Bugzilla/Install/Util.pm | 6 |
2 files changed, 8 insertions, 0 deletions
diff --git a/Bugzilla/Constants.pm b/Bugzilla/Constants.pm index 72f4d4512..06bdaade0 100644 --- a/Bugzilla/Constants.pm +++ b/Bugzilla/Constants.pm @@ -149,6 +149,7 @@ use Memoize; ERROR_MODE_TEST COLOR_ERROR + COLOR_SUCCESS INSTALLATION_MODE_INTERACTIVE INSTALLATION_MODE_NON_INTERACTIVE @@ -470,6 +471,7 @@ use constant ERROR_MODE_TEST => 4; # 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; diff --git a/Bugzilla/Install/Util.pm b/Bugzilla/Install/Util.pm index 41f608abf..d65d2f592 100644 --- a/Bugzilla/Install/Util.pm +++ b/Bugzilla/Install/Util.pm @@ -47,6 +47,7 @@ our @EXPORT_OK = qw( indicate_progress install_string include_languages + success template_include_path vers_cmp init_console @@ -627,6 +628,11 @@ sub _console_die { die colored("$message", COLOR_ERROR) . "\n"; } +sub success { + my ($message) = @_; + print colored($message, COLOR_SUCCESS), "\n"; +} + sub prevent_windows_dialog_boxes { # This code comes from http://bugs.activestate.com/show_bug.cgi?id=82183 # and prevents Perl modules from popping up dialog boxes, particularly |