OLD | NEW |
| (Empty) |
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 $webSocketServerPidFile = "$testDirectory/websocket.pid"; | |
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 sub openWebSocketServer() | |
64 { | |
65 my $webSocketHandlerDir = "$testDirectory"; | |
66 | |
67 my @args = ( | |
68 "$srcDir/Tools/Scripts/new-run-webkit-websocketserver", | |
69 "--server", "start", | |
70 "--port", "$webSocketPort", | |
71 "--root", "$webSocketHandlerDir", | |
72 "--pidfile", "$webSocketServerPidFile" | |
73 ); | |
74 system "/usr/bin/python", @args; | |
75 } | |
76 | |
77 sub closeWebSocketServer() | |
78 { | |
79 my @args = ( | |
80 "$srcDir/Tools/Scripts/new-run-webkit-websocketserver", | |
81 "--server", "stop", | |
82 "--pidfile", "$webSocketServerPidFile" | |
83 ); | |
84 system "/usr/bin/python", @args; | |
85 unlink "$webSocketServerPidFile"; | |
86 } | |
87 | |
88 | |
OLD | NEW |