Add a few more reserved words

11 years ago · 11691f244f
parent ac2bffca01
commit 11691f244f
1 changed files with 2 additions and 1 deletions
--- a/public/vroom.pl
+++ b/public/vroom.pl
@ -344,7 +344,8 @@ helper valid_room_name => sub {
  my ($name) = @_;
  my $ret = undef;
  # A few names are reserved
-  my @reserved = qw(about help feedback feedback_thanks goodbye admin create localize action missing dies password kicked invitation);
+  my @reserved = qw(about help feedback feedback_thanks goodbye admin create localize action
                    missing dies password kicked invitation js css img fonts snd);
  if ($name =~ m/^[\w\-]{1,49}$/ && !grep { $name eq $_ }  @reserved){
    $ret = 1;
  }