Capital letters are allowed in tokens in syslog.aug

jgaret · Sep 13, 2012 · ad004d0 · ad004d0
1 parent fce1446
commit ad004d0
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/lenses/syslog.aug b/lenses/syslog.aug
@@ -104,7 +104,7 @@ module Syslog =
 	(* Variable: token
 	  alphanum or "*"
 	  *)
-        let token      = /([a-z0-9]+|\*)/
+        let token      = /([A-Za-z0-9]+|\*)/
 
 	(* Variable: file_r
 	 a file begins with a / and get almost anything else after

diff --git a/lenses/tests/test_syslog.aug b/lenses/tests/test_syslog.aug
@@ -299,3 +299,17 @@ daemon.info                                     /var/log/cvsupd.log
 	  set "/hostname/reverse" "" ;
 	  set "/hostname/hostname" "foo.foo.away"
 	  = "-foo.foo.away\n"
+
+        (* tokens can contain capital letters *)
+        test Syslog.lns get "LOCAL5.*    -/var/log/foo.log\n" = ?
+          { "entry"
+            { "selector"
+              { "facility" = "LOCAL5" }
+              { "level" = "*" }
+            }
+            { "action"
+              { "no_sync" }
+              { "file" = "/var/log/foo.log" }
+            }
+          }
+