diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-28 16:07:47 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-28 16:07:47 +0000 |
| commit | aaa89c813fe249b6d64d4717d432c26f688b14ae (patch) | |
| tree | 951e6ac79d1f09661d1c1a74440fabd8bd8a6ca5 /lib/sbin | |
| parent | df1d68a8194692606a513f592538bab3b33bc05e (diff) | |
Removed some spaces at beginning and add of group name
Gab.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@362 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
| -rw-r--r-- | lib/sbin/schedule_parser.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/lib/sbin/schedule_parser.pl b/lib/sbin/schedule_parser.pl index 7027324c..1dffc552 100644 --- a/lib/sbin/schedule_parser.pl +++ b/lib/sbin/schedule_parser.pl @@ -299,6 +299,10 @@ sub parse_schedule_ccl @list = split(",",$1); foreach $group (@list) { + # Strip of any spaces + $group =~ /^\s*(.*)\s*$/; + $group = $1; + $this_imp = $implementation; $this_group = $group; if ($group =~ /(.*)::(.*)/) @@ -319,6 +323,10 @@ sub parse_schedule_ccl @list = split(",",$1); foreach $group (@list) { + # Strip of any spaces + $group =~ /^\s*(.*)\s*$/; + $group = $1; + $this_imp = $implementation; $this_group = $group; if ($group =~ /(.*)::(.*)/) @@ -496,6 +504,11 @@ sub parse_schedule_at_RFR { @list = split(",",$1); foreach $group (@list) { + + # Strip of any spaces + $group =~ /^\s*(.*)\s*$/; + $group = $1; + # Take of implementation if it is there $this_imp = $implementation; $this_group = $group; @@ -523,6 +536,11 @@ sub parse_schedule_at_RFR { @list = split(",",$1); foreach $group (@list) { + + # Strip of any spaces + $group =~ /^\s*(.*)\s*$/; + $group = $1; + $this_imp = $implementation; $this_group = $group; if ($group =~ /(.*)::(.*)/) |