[Rt-commit] r12804 - in rt/branches/3.8-TESTING: lib/RT/Interface/Web/Standalone

[sartak at bestpractical.com]

Author: sartak
Date: Mon Jun  2 13:31:13 2008
New Revision: 12804

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/lib/RT/Interface/Web/Standalone/PreFork.pm

Log:
 r61404 at onn:  sartak | 2008-06-02 13:28:08 -0400
 Print a banner in rt-server telling which port(s) are open for business


Modified: rt/branches/3.8-TESTING/lib/RT/Interface/Web/Standalone/PreFork.pm
==============================================================================
--- rt/branches/3.8-TESTING/lib/RT/Interface/Web/Standalone/PreFork.pm	(original)
+++ rt/branches/3.8-TESTING/lib/RT/Interface/Web/Standalone/PreFork.pm	Mon Jun  2 13:31:13 2008
@@ -74,4 +74,16 @@
     };
 }
 
+sub post_bind_hook {
+    my $self = shift;
+    my @ports = @{ $self->{server}->{port} };
+
+    print $0
+        . ": You can connect to your server at "
+        . (join ' , ', map { "http://localhost:$_/" } @ports)
+        . "\n";
+
+    $self->SUPER::post_bind_hook(@_);
+}
+
 1;