06f907978b6de4b502de061a15f7169643bcbd19
[WebKit-https.git] / WebKitTools / Scripts / run-webkit-websocketserver
1 #!/usr/bin/perl
2 # Copyright (C) 2009 Google Inc. All rights reserved.
3 #
4 # Redistribution and use in source and binary forms, with or without
5 # modification, are permitted provided that the following conditions are
6 # met:
7 #
8 #     * Redistributions of source code must retain the above copyright
9 # notice, this list of conditions and the following disclaimer.
10 #     * Redistributions in binary form must reproduce the above
11 # copyright notice, this list of conditions and the following disclaimer
12 # in the documentation and/or other materials provided with the
13 # distribution.
14 #     * Neither the name of Google Inc. nor the names of its
15 # contributors may be used to endorse or promote products derived from
16 # this software without specific prior written permission.
17 #
18 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
19 # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
20 # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
21 # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
22 # OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
23 # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
24 # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
28 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29
30 # Script to run Web Socket server.
31
32 use strict;
33 use warnings;
34
35 use File::Spec;
36 use FindBin;
37 use IPC::Open2;
38
39 use lib $FindBin::Bin;
40 use webkitdirs;
41
42 sub closeWebSocketServer();
43 sub openWebSocketServer();
44
45 my $webSocketPort = 8880;
46
47 my $srcDir = sourceDir();
48 my $layoutTestsName = "$srcDir/LayoutTests";
49 my $testDirectory = File::Spec->rel2abs($layoutTestsName);
50 my $webSocketServerPID = 0;
51
52
53 print "Starting Web Socket server...\n";
54 openWebSocketServer();
55 print "Started.\n";
56 print "Hit [ENTER] to stop it.";
57 <STDIN>;
58 print "Stopping Web Socket server...\n";
59 closeWebSocketServer();
60 print "Stopped.\n";
61 exit 0;
62
63
64 sub openWebSocketServer()
65 {
66     my $webSocketServerPath = "/usr/bin/python";
67     my $webSocketPythonPath = "$srcDir/WebKitTools/Scripts/webkitpy/thirdparty/pywebsocket";
68     my $webSocketHandlerDir = "$testDirectory";
69     my $webSocketHandlerScanDir = "$testDirectory/websocket/tests";
70     my $webSocketHandlerMapFile = "$webSocketHandlerScanDir/handler_map.txt";
71
72     my @args = (
73         "$srcDir/WebKitTools/Scripts/webkitpy/thirdparty/pywebsocket/mod_pywebsocket/standalone.py",
74         "--server-host", "127.0.0.1",
75         "--port", "$webSocketPort",
76         "--document-root", "$webSocketHandlerDir",
77         "--scan-dir", "$webSocketHandlerScanDir",
78         "--websock-handlers-map-file", "$webSocketHandlerMapFile",
79         "--cgi-paths", "/websocket/tests",
80     );
81
82     $ENV{"PYTHONPATH"} = $webSocketPythonPath;
83     $webSocketServerPID = open2(\*WEBSOCKETSERVER_IN, \*WEBSOCKETSERVER_OUT, $webSocketServerPath, @args);
84
85     my $listen = "http://127.0.0.1:$webSocketPort";
86     my $retryCount = 10;
87     while (system("/usr/bin/curl -k -q --silent --stderr - --output /dev/null $listen") && $retryCount) {
88         sleep 1;
89         --$retryCount;
90     }
91     die "Timed out waiting for WebSocketServer to start" unless $retryCount;
92 }
93
94 sub closeWebSocketServer()
95 {
96     close WEBSOCKETSERVER_IN;
97     close WEBSOCKETSERVER_OUT;
98     kill 15, $webSocketServerPID;
99 }
100