2009-12-07 Yuzo Fujishima <yuzo@google.com>
[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/pywebsocket";
68     my $webSocketHandlerDir = "$testDirectory";
69     my $webSocketHandlerScanDir = "$testDirectory/websocket/tests";
70
71     my @args = (
72         "$srcDir/WebKitTools/pywebsocket/mod_pywebsocket/standalone.py",
73         "-p", "$webSocketPort",
74         "-d", "$webSocketHandlerDir",
75         "-s", "$webSocketHandlerScanDir",
76     );
77
78     $ENV{"PYTHONPATH"} = $webSocketPythonPath;
79     $webSocketServerPID = open2(\*WEBSOCKETSERVER_IN, \*WEBSOCKETSERVER_OUT, $webSocketServerPath, @args);
80
81     my $listen = "http://127.0.0.1:$webSocketPort";
82     my $retryCount = 10;
83     while (system("/usr/bin/curl -k -q --silent --stderr - --output /dev/null $listen") && $retryCount) {
84         sleep 1;
85         --$retryCount;
86     }
87     die "Timed out waiting for WebSocketServer to start" unless $retryCount;
88 }
89
90 sub closeWebSocketServer()
91 {
92     close WEBSOCKETSERVER_IN;
93     close WEBSOCKETSERVER_OUT;
94     kill 15, $webSocketServerPID;
95 }
96