my %seen_nicknames = ();
my %seen_sessions = ();
foreach my $session (@sessions) {
- if ($session !~ /^\d+$/) {
- die("Session name ($session) must be numeric!\n");
- }
- my $nickname = config_get_key3('sessions', $session, 'nickname');
- if (defined($seen_nicknames{$nickname}) and $seen_nicknames{$nickname} == 1) {
- die("Please use different nicknames for each session!\n");
- }
- if ($nickname !~ /^[a-zA-Z0-9_\-]+/) {
- die("Please use a different nickname: $nickname\n");
- }
- $seen_nicknames{$nickname} = 1;
- $seen_sessions{$session} = 1;
+ if ($session !~ /^\d+$/) {
+ die("Session name ($session) must be numeric!\n");
+ }
+ my $nickname = config_get_key3('sessions', $session, 'nickname');
+ if (defined($seen_nicknames{$nickname}) and $seen_nicknames{$nickname} == 1) {
+ die("Please use different nicknames for each session!\n");
+ }
+ if ($nickname !~ /^[a-zA-Z0-9_\-]+/) {
+ die("Please use a different nickname: $nickname\n");
+ }
+ $seen_nicknames{$nickname} = 1;
+ $seen_sessions{$session} = 1;
}
# FIXME: check nick for each session