[Rt-commit] rt branch, psgi, updated. rt-3.9.4-191-g54258ea

[Chia-liang Kao]

The branch, psgi has been updated
       via  54258ea29cb185fd21abe3330befd17d93b24607 (commit)
      from  da9ee565e2729200685787427b06f67fd01f34ac (commit)

Summary of changes:
 sbin/rt-server.in |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)

- Log -----------------------------------------------------------------
commit 54258ea29cb185fd21abe3330befd17d93b24607
Author: Chia-liang Kao <clkao at bestpractical.com>
Date:   Tue Oct 19 21:46:55 2010 +0900

    bring standalone server banners back for non-dev environment

diff --git a/sbin/rt-server.in b/sbin/rt-server.in
index 899ef12..9dce831 100755
--- a/sbin/rt-server.in
+++ b/sbin/rt-server.in
@@ -140,6 +140,16 @@ my @args = @ARGV;
 push @args, '--port', $port unless grep { m/port/ } @args;
 
 $r->parse_options(@args);
+
+unless ($r->{env} eq 'development') {
+    push @{$r->{options}}, server_ready => sub {
+        my($args) = @_;
+        my $name  = $args->{server_software} || ref($args); # $args is $server
+        my $host  = $args->{host} || 0;
+        my $proto = $args->{proto} || 'http';
+        print STDERR "$name: Accepting connections at $proto://$host:$args->{port}/\n";
+    };
+}
 eval { $r->run(RT::Interface::Web::Handler->PSGIApp) };
 if (my $err = $@) {
     handle_startup_error($err);

-----------------------------------------------------------------------