From a732e8474826bfce9ce93f693ee81e7d54b75cd9 Mon Sep 17 00:00:00 2001
From: Jan Kneschke <jan@kneschke.de>
Date: Thu, 1 Sep 2005 12:10:59 +0000
Subject: use netstat to check if a process is listening on port 1026

git-svn-id: svn://svn.lighttpd.net/lighttpd/branches/lighttpd-merge-1.4.x@673 152afb58-edef-0310-8abb-c4023f1b3aa9
---
 tests/LightyTest.pm | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

(limited to 'tests/LightyTest.pm')

diff --git a/tests/LightyTest.pm b/tests/LightyTest.pm
index 120db313..97e138e5 100755
--- a/tests/LightyTest.pm
+++ b/tests/LightyTest.pm
@@ -38,20 +38,17 @@ sub new {
 	return $self;
 }
 
-sub pidof {
+sub listening_on {
 	my $self = shift;
 	my $prog = shift;
 
-	open F, "ps ax  | grep $prog | grep -v grep | awk '{ print \$1 }'|" or
-	open F, "ps -ef | grep $prog | grep -v grep | awk '{ print \$2 }'|" or
-	  return -1;
+	open F, "netstat -an | grep :1026|" or return 0;
 
-	my $pid = <F>;
-	close F;
+	my $foo = <F>;
 
-	if (defined $pid) { return $pid; }
+	close F;
 
-	return -1;
+	return (defined $foo ? 1 : 0);
 }
 
 sub stop_proc {
-- 
cgit v1.2.1