From 70d2f4a0ec4f8cdfe63536b266c70a3d7ef37a6e Mon Sep 17 00:00:00 2001
From: Max Kanat-Alexander <mkanat@bugzilla.org>
Date: Fri, 3 Sep 2010 18:19:35 -0700
Subject: Bug 559549: Make checksetup.pl print out a "checksetup.pl complete"
 message when it finishes. r=mkanat, a=mkanat (module owner)

---
 Bugzilla/Constants.pm    | 2 ++
 Bugzilla/Install/Util.pm | 6 ++++++
 2 files changed, 8 insertions(+)

(limited to 'Bugzilla')

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
-- 
cgit v1.2.3-24-g4f1b