Tools/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 $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