From d91a718d771d1a176625e2dc5226c4875d2bb2d3 Mon Sep 17 00:00:00 2001
From: Rob van Son <r.j.j.h.vanson@gmail.com>
Date: Thu, 25 Apr 2013 13:46:09 +0200
Subject: [PATCH] Small correction in creating new user account

---
 CGIscriptor.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/CGIscriptor.pl b/CGIscriptor.pl
index bfcd249..027cf2f 100755
--- a/CGIscriptor.pl
+++ b/CGIscriptor.pl
@@ -3600,6 +3600,7 @@ sub create_newuser	# ($loginfile, $sessionfile, $authorizationfile, $password, $
 	my $allowedpaths = ${"CGIexecute::ALLOWEDPATHS"};
 	if($allowedpaths && $allowedpaths !~ /^\s*\#/)
 	{
+		$allowedpaths =~ s!\#.*$!!isg;
 		$allowedpaths =~ s![^\^\w\./\;\+\*\?\[\]\$]!!isg;
 		my @pathlist = split(/\;/, $allowedpaths);
 		foreach my $entry (@pathlist)
@@ -3613,6 +3614,7 @@ sub create_newuser	# ($loginfile, $sessionfile, $authorizationfile, $password, $
 	my $ipaddress = ${"CGIexecute::IPADDRESS"};
 	if($ipaddress && $ipaddress !~ /^\s*\#/)
 	{
+		$ipaddress =~ s!\#.*$!!isg;
 		$ipaddress =~ s![^\d\.\;]!!isg;
 		my @iplist = split(/\;/, $ipaddress);
 		foreach my $entry (@iplist)
-- 
2.11.4.GIT