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::Open3;
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 $logFile = "/tmp/webkit-websocketserver.txt";
50 my $testDirectory = File::Spec->rel2abs($layoutTestsName);
51 my $webSocketServerPID = 0;
52
53
54 print "Starting Web Socket server...\n";
55 openWebSocketServer();
56 print "Started.\n";
57 print "Logging to: $logFile\n";
58 print "Hit [ENTER] to stop it.";
59 <STDIN>;
60 print "Stopping Web Socket server...\n";
61 closeWebSocketServer();
62 print "Stopped.\n";
63 exit 0;
64
65
66 sub openWebSocketServer()
67 {
68     my $webSocketServerPath = "/usr/bin/python";
69     my $webSocketPythonPath = "$srcDir/WebKitTools/pywebsocket";
70     my $webSocketHandlerDir = "$testDirectory";
71     my $webSocketHandlerScanDir = "$testDirectory/websocket/tests";
72
73     my @args = (
74         "$srcDir/WebKitTools/pywebsocket/mod_pywebsocket/standalone.py",
75         "-p", "$webSocketPort",
76         "-d", "$webSocketHandlerDir",
77         "-s", "$webSocketHandlerScanDir",
78         "-l", "$logFile",
79     );
80
81     $ENV{"PYTHONPATH"} = $webSocketPythonPath;
82     $webSocketServerPID = open3(\*WEBSOCKETSERVER_IN, \*WEBSOCKETSERVER_OUT, \*WEBSOCKETSERVER_ERR, $webSocketServerPath, @args);
83
84     my $listen = "http://127.0.0.1:$webSocketPort";
85     my $retryCount = 10;
86     while (system("/usr/bin/curl -k -q --silent --stderr - --output /dev/null $listen") && $retryCount) {
87         sleep 1;
88         --$retryCount;
89     }
90     die "Timed out waiting for WebSocketServer to start" unless $retryCount;
91 }
92
93 sub closeWebSocketServer()
94 {
95     close WEBSOCKETSERVER_IN;
96     close WEBSOCKETSERVER_OUT;
97     close WEBSOCKETSERVER_ERR;
98     kill 15, $webSocketServerPID;
99 }
100