laforge
/
gen_ladder
1
0
Fork 0
Code Pull Requests Releases Activity

allow the use of underscores in entity names

This commit is contained in:
Harald Welte 2010-07-18 20:54:00 +02:00
parent 1574f6203e
commit 548f1a5a40
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gen_ladder.pl
View File

@ -45,12 +45,12 @@ sub parse_cfg_line($)
return; return;
} }
if ($cfg_parse_section eq 'entities') { if ($cfg_parse_section eq 'entities') {
my ($entity) = $line =~ /^(\w+)/; my ($entity) = $line =~ /^(\S+)/;
$cfg_entities{$entity} = $cfg_nr_entities++; $cfg_entities{$entity} = $cfg_nr_entities++;
push(@cfg_entity_arr, $entity); push(@cfg_entity_arr, $entity);
} elsif ($cfg_parse_section eq 'messages') { } elsif ($cfg_parse_section eq 'messages') {
my ($src, $dst, $label, $flags) = my ($src, $dst, $label, $flags) =
$line =~ /(\w+)\s+(\w+)\s+"(.*)"(.*)/; $line =~ /(\S+)\s+(\S+)\s+"(.*)"(.*)/;
my %msg; my %msg;
$msg{'src'} = $src; $msg{'src'} = $src;
$msg{'dst'} = $dst; $msg{'dst'} = $dst;