- my ($id,$name,$format,$translate_underscore,$format2,$urlasname}=split (":")
- $self->{$id}={-id=>$id,-name=>$name,$format=>[$format,($format2?$format2:())],
- -translate_underscore=>$translate_underscore,-url_as_name=>$urlasname};
+ my ($id,$name,$format,$translate_underscore,$format2,$urlasname)=split(":");
+ next SITE unless $id=~/\w+/;
+ $self->{$id}={-id=>$id,
+ -name=>$name,
+ -format=>[$format,($format2?$format2:())],
+ -translate_underscore=>$translate_underscore,
+ -url_as_name=>$urlasname};