Fix vmail "taint" issue

git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@1051 65c4cc65-6c06-0410-ace0-fbb531ad65f3

contrib/scripts/vmail.cgi

@@ -601,6 +601,12 @@ sub message_rename()
 	my $oldfile, $newfile;
 	return if ($old eq $new) && ($oldfolder eq $newfolder);
 
+        if ($context =~ /^(\w+)$/) {
+                $context = $1;
+        } else {
+                die("Invalid Context<BR>\n");
+        }
+	
 	if ($mbox =~ /^(\w+)$/) {
 		$mbox = $1;
 	} else {

vmail.cgi

@@ -601,6 +601,12 @@ sub message_rename()
 	my $oldfile, $newfile;
 	return if ($old eq $new) && ($oldfolder eq $newfolder);
 
+        if ($context =~ /^(\w+)$/) {
+                $context = $1;
+        } else {
+                die("Invalid Context<BR>\n");
+        }
+	
 	if ($mbox =~ /^(\w+)$/) {
 		$mbox = $1;
 	} else {