Validate modifiers

Any modifiers that isn't "all" or an integer will be treated as 0. Allows things like "#chan,stop". Signed-off-by: knilch <[email protected]>
stargo · Mar 18, 2018 · f755ee0 · f755ee0
1 parent b761789
commit f755ee0
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/telegram.pl b/telegram.pl
@@ -74,7 +74,11 @@ ($;$)
 
 		if ($chan =~ m/^(#.+),(.+)$/) {
 			$chan = $1;
-			$chanmod{$chan} = $2;
+			my $mod = $2;
+			if (($mod ne 'all') && ($mod =~ /\D/)) {
+				$mod = 0;
+			}
+			$chanmod{$chan} = $mod;
 		}
 		my $query = ($chan !~ m/^#/);