smtp: use the upload buffer size for scratch buffer malloc

[platform/upstream/curl.git] / tests / ftp.pm

diff --git a/tests/ftp.pm b/tests/ftp.pm
index b387451..f4a4ace 100644 (file)
--- a/tests/ftp.pm
+++ b/tests/ftp.pm
@@ -9,7 +9,7 @@
 #
 # This software is licensed as described in the file COPYING, which
 # you should have received as part of this distribution. The terms
-# are also available at http://curl.haxx.se/docs/copyright.html.
+# are also available at https://curl.haxx.se/docs/copyright.html.
 #
 # You may opt to use, copy, modify, merge, publish, distribute and/or sell
 # copies of the Software, and permit persons to whom the Software is
@@ -48,6 +48,78 @@ sub pidfromfile {
 }
 
 #######################################################################
+# pidexists checks if a process with a given pid exists and is alive.
+# This will return the positive pid if the process exists and is alive.
+# This will return the negative pid if the process exists differently.
+# This will return 0 if the process could not be found.
+#
+sub pidexists {
+    my $pid = $_[0];
+
+    if($pid > 0) {
+        # verify if currently existing and alive
+        if(kill(0, $pid)) {
+            return $pid;
+        }
+
+        # verify if currently existing Windows process
+        if($^O eq "msys") {
+            my $filter = "PID eq $pid";
+            my $result = `tasklist -fi \"$filter\" 2>nul`;
+            if(index($result, "$pid") != -1) {
+                return -$pid;
+            }
+        }
+    }
+
+    return 0;
+}
+
+#######################################################################
+# pidterm asks the process with a given pid to terminate gracefully.
+#
+sub pidterm {
+    my $pid = $_[0];
+
+    if($pid > 0) {
+        # signal the process to terminate
+        kill("TERM", $pid);
+
+        # request the process to quit
+        if($^O eq "msys") {
+            my $filter = "PID eq $pid";
+            my $result = `tasklist -fi \"$filter\" 2>nul`;
+            if(index($result, "$pid") != -1) {
+                system("taskkill -fi \"$filter\" >nul 2>&1");
+            }
+        }
+    }
+}
+
+#######################################################################
+# pidkill kills the process with a given pid mercilessly andforcefully.
+#
+sub pidkill {
+    my $pid = $_[0];
+
+    if($pid > 0) {
+        # signal the process to terminate
+        kill("KILL", $pid);
+
+        # request the process to quit
+        if($^O eq "msys") {
+            my $filter = "PID eq $pid";
+            my $result = `tasklist -fi \"$filter\" 2>nul`;
+            if(index($result, "$pid") != -1) {
+                system("taskkill -f -fi \"$filter\" >nul 2>&1");
+                # Windows XP Home compatibility
+                system("tskill $pid >nul 2>&1");
+            }
+        }
+    }
+}
+
+#######################################################################
 # processexists checks if a process with the pid stored in the given
 # pidfile exists and is alive. This will return 0 on any file related
 # error or if a pid can not be extracted from the given file. When a
@@ -63,16 +135,8 @@ sub processexists {
     my $pid = pidfromfile($pidfile);
 
     if($pid > 0) {
-        # verify if currently existing Windows process
-        if($^O eq "msys") {
-            my $filter = "-fi \"PID eq $pid\"";
-            my $result = `tasklist $filter 2>nul`;
-            if(index($result, "$pid") != -1) {
-                return $pid;
-            }
-        }
         # verify if currently alive
-        if(kill(0, $pid)) {
+        if(pidexists($pid)) {
             return $pid;
         }
         else {
@@ -119,21 +183,10 @@ sub killpid {
         if($tmp =~ /^(\d+)$/) {
             my $pid = $1;
             if($pid > 0) {
-                if($^O eq "msys") {
-                    my $filter = "-fi \"PID eq $pid\"";
-                    my $result = `tasklist $filter 2>nul`;
-                    if(index($result, "$pid") != -1) {
-                        print("RUN: Process with pid $pid requested to quit\n")
-                            if($verbose);
-                        system("taskkill $filter >nul 2>&1");
-                        push @signalled, $pid;
-                        next; # it is a Windows PID
-                    }
-                }
-                if(kill(0, $pid)) {
+                if(pidexists($pid)) {
                     print("RUN: Process with pid $pid signalled to die\n")
                         if($verbose);
-                    kill("TERM", $pid);
+                    pidterm($pid);
                     push @signalled, $pid;
                 }
                 else {
@@ -153,14 +206,7 @@ sub killpid {
         while($twentieths--) {
             for(my $i = scalar(@signalled) - 1; $i >= 0; $i--) {
                 my $pid = $signalled[$i];
-                if($^O eq "msys") {
-                    my $filter = "-fi \"PID eq $pid\"";
-                    my $result = `tasklist $filter 2>nul`;
-                    if(index($result, "$pid") != -1) {
-                        next; # the Windows PID still exists
-                    }
-                }
-                if(!kill(0, $pid)) {
+                if(!pidexists($pid)) {
                     print("RUN: Process with pid $pid gracefully died\n")
                         if($verbose);
                     splice @signalled, $i, 1;
@@ -180,16 +226,7 @@ sub killpid {
             if($pid > 0) {
                 print("RUN: Process with pid $pid forced to die with SIGKILL\n")
                     if($verbose);
-                kill("KILL", $pid);
-                if($^O eq "msys") {
-                    my $filter = "-fi \"PID eq $pid\"";
-                    my $result = `tasklist $filter 2>nul`;
-                    if(index($result, "$pid") != -1) {
-                        print("RUN: Process with pid $pid forced to quit\n")
-                            if($verbose);
-                        system("taskkill -f $filter >nul 2>&1");
-                    }
-                }
+                pidkill($pid);
                 # if possible reap its dead children
                 waitpid($pid, &WNOHANG);
                 push @reapchild, $pid;
@@ -229,14 +266,7 @@ sub killsockfilters {
         if($pid > 0) {
             printf("* kill pid for %s-%s => %d\n", $server,
                 ($proto eq 'ftp')?'ctrl':'filt', $pid) if($verbose);
-            kill("KILL", $pid);
-            if($^O eq "msys") {
-                my $filter = "-fi \"PID eq $pid\"";
-                my $result = `tasklist $filter 2>nul`;
-                if(index($result, "$pid") != -1) {
-                    system("taskkill -f $filter >nul 2>&1");
-                }
-            }
+            pidkill($pid);
             waitpid($pid, 0);
         }
         unlink($pidfile) if(-f $pidfile);
@@ -250,14 +280,7 @@ sub killsockfilters {
         if($pid > 0) {
             printf("* kill pid for %s-data => %d\n", $server,
                 $pid) if($verbose);
-            kill("KILL", $pid);
-            if($^O eq "msys") {
-                my $filter = "-fi \"PID eq $pid\"";
-                my $result = `tasklist $filter 2>nul`;
-                if(index($result, "$pid") != -1) {
-                    system("taskkill -f $filter >nul 2>&1");
-                }
-            }
+            pidkill($pid);
             waitpid($pid, 0);
         }
         unlink($pidfile) if(-f $pidfile);