[Rt-commit] r13213 - in rt/branches/3.8-TESTING: bin

[sartak at bestpractical.com]

Author: sartak
Date: Thu Jun 12 13:11:08 2008
New Revision: 13213

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/bin/rt.in

Log:
 r62273 at onn:  sartak | 2008-06-12 13:09:38 -0400
 Update bin/rt to allow new-style CF.{Foo}=1


Modified: rt/branches/3.8-TESTING/bin/rt.in
==============================================================================
--- rt/branches/3.8-TESTING/bin/rt.in	(original)
+++ rt/branches/3.8-TESTING/bin/rt.in	Thu Jun 12 13:11:08 2008
@@ -93,11 +93,12 @@
 # These regexes are used by command handlers to parse arguments.
 # (XXX: Ask Autrijus how i18n changes these definitions.)
 
-my $name   = '[\w.-]+';
-my $field  = '(?i:[a-z][a-z0-9_-]*|C(?:ustom)?F(?:ield)?-(?:[a-z0-9_ :()/-]|\s)+)';
-my $label  = '[a-zA-Z0-9 at _.+-]+';
-my $labels = "(?:$label,)*$label";
-my $idlist = '(?:(?:\d+-)?\d+,)*(?:\d+-)?\d+';
+my $name    = '[\w.-]+';
+my $CF_name = '[\sa-z0-9_ :()/-]+';
+my $field   = '(?i:[a-z][a-z0-9_-]*|C(?:ustom)?F(?:ield)?-'.$CF_name.'|CF\.\{'.$CF_name.'\})';
+my $label   = '[a-zA-Z0-9 at _.+-]+';
+my $labels  = "(?:$label,)*$label";
+my $idlist  = '(?:(?:\d+-)?\d+,)*(?:\d+-)?\d+';
 
 # Our command line looks like this:
 #