| 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 |