2001-04-24 23:09:53 +02:00
|
|
|
sub checkstunnel {
|
|
|
|
|
my @paths=("/usr/sbin", "/usr/local/sbin", "/sbin", "/usr/bin",
|
2003-02-03 23:15:33 +01:00
|
|
|
"/usr/local/bin", split(":", $ENV{'PATH'}));
|
2001-04-24 23:09:53 +02:00
|
|
|
for(@paths) {
|
|
|
|
|
if( -x "$_/stunnel") {
|
|
|
|
|
return "$_/stunnel";
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
1;
|
