From 73011fc8ecf0d72b792104bffed299ce26d6bbf5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ermal=20Lu=C3=A7i?= <eri@pfsense.org>
Date: Wed, 26 Nov 2008 21:12:36 +0000
Subject: [PATCH] Handle the case where WAN might be disabled or renamed.

---
 etc/inc/filter.inc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/etc/inc/filter.inc b/etc/inc/filter.inc
index f4dbc08f70..53f2c2750e 100644
--- a/etc/inc/filter.inc
+++ b/etc/inc/filter.inc
@@ -2022,12 +2022,12 @@ EOD;
 			$pptpdtarget = get_interface_ip();
 		else
 			$pptpdtarget = $pptpdcfg['redir'];
-		if($pptpdtarget) {
+		if(is_ipaddr($pptpdtarget) and is_array($FilterIflist['wan'])) {
 			$ipfrules .= <<<EOD
 # PPTPd rules
 anchor "pptp"
-pass in on \$WAN proto gre from any to $pptpdtarget keep state label "allow gre pptpd"
-pass in on \$WAN proto tcp from any to $pptpdtarget port = 1723 modulate state label "allow pptpd {$pptpdtarget}"
+pass in on \${$FilterIflist['wan']['descr']} proto gre from any to $pptpdtarget keep state label "allow gre pptpd"
+pass in on \${$FilterIflist['wan']['descr']} proto tcp from any to $pptpdtarget port = 1723 modulate state label "allow pptpd {$pptpdtarget}"
 
 EOD;