CMakeLua/Utilities/cmcurl-7.19.0/tests/ftp.pm

   1 #***************************************************************************
   2 #                                  _   _ ____  _
   3 #  Project                     ___| | | |  _ \| |
   4 #                             / __| | | | |_) | |
   5 #                            | (__| |_| |  _ <| |___
   6 #                             \___|\___/|_| \_\_____|
   7 #
   8 # Copyright (C) 1998 - 2008, Daniel Stenberg, <daniel@haxx.se>, et al.
   9 #
  10 # This software is licensed as described in the file COPYING, which
  11 # you should have received as part of this distribution. The terms
  12 # are also available at http://curl.haxx.se/docs/copyright.html.
  13 #
  14 # You may opt to use, copy, modify, merge, publish, distribute and/or sell
  15 # copies of the Software, and permit persons to whom the Software is
  16 # furnished to do so, under the terms of the COPYING file.
  17 #
  18 # This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
  19 # KIND, either express or implied.
  20 #
  21 # $Id: ftp.pm,v 1.1.1.1 2008-09-23 16:32:06 hoffman Exp $
  22 ###########################################################################
  23
  24 #######################################################################
  25 # Return the pid of the server as found in the given pid file
  26 #
  27 sub serverpid {
  28     my $PIDFILE = $_[0];
  29     open(PFILE, "<$PIDFILE");
  30     my $PID=0+<PFILE>;
  31     close(PFILE);
  32     return $PID;
  33 }
  34
  35 #######################################################################
  36 # Check the given test server if it is still alive.
  37 #
  38 sub checkserver {
  39     my ($pidfile)=@_;
  40     my $pid=0;
  41
  42     # check for pidfile
  43     if ( -f $pidfile ) {
  44         $pid=serverpid($pidfile);
  45         if ($pid ne "" && kill(0, $pid)) {
  46             return $pid;
  47         }
  48         else {
  49             return -$pid; # negative means dead process
  50         }
  51     }
  52     return 0;
  53 }
  54
  55 #############################################################################
  56 # Kill a specific slave
  57 #
  58 sub ftpkillslave {
  59     my ($id, $ext, $verbose)=@_;
  60     my $base;
  61     for $base (('filt', 'data')) {
  62         my $f = ".sock$base$id$ext.pid";
  63         my $pid = checkserver($f);
  64         if($pid > 0) {
  65             printf ("* kill pid for %s => %d\n", "ftp-$base$id$ext", $pid) if($verbose);
  66             kill (9, $pid); # die!
  67             waitpid($pid, 0);
  68         }
  69         unlink($f);
  70     }
  71 }
  72
  73
  74 #############################################################################
  75 # Make sure no FTP leftovers are still running. Kill all slave processes.
  76 # This uses pidfiles since it might be used by other processes.
  77 #
  78 sub ftpkillslaves {
  79     my ($versbose) = @_;
  80     for $ext (("", "ipv6")) {
  81         for $id (("", "2")) {
  82             ftpkillslave ($id, $ext, $verbose);
  83         }
  84     }
  85 }
  86
  87
  88 sub set_advisor_read_lock {
  89     my ($filename) = @_;
  90
  91     if(open(FILEH, ">$filename")) {
  92         close(FILEH);
  93         return;
  94     }
  95     printf "Error creating lock file $filename error: $!";
  96 }
  97
  98
  99 sub clear_advisor_read_lock {
 100     my ($filename) = @_;
 101
 102     if(-f $filename) {
 103         unlink($filename);
 104     }
 105 }
 106
 107
 108 1;