Call modify_rom just after create

So we support exactly the same features on create and on modify

scripts/patrix

@@ -43,7 +43,6 @@ GetOptions(
   "alias=s"           => \$opt->{alias},
   "topic=s"           => \$opt->{topic},
   "join_rules=s"      => \$opt->{join_rules},
-  "federation!"       => \$opt->{federation},
   "perm=s@"           => \$opt->{perm},
   "perm_user=s@"      => \$opt->{perm_user},
   "perm_event=s@"     => \$opt->{perm_user},
@@ -327,18 +326,15 @@ sub create_room {
   debug("Creating a new room on $opt->{server}");
   my $uri = $opt->{server} . '/_matrix/client/r0/createRoom?access_token=' . $opt->{access_token};
   my $json = {};
-  $json->{room_alias_name} = $opt->{alias}      if $opt->{alias};
-  $json->{topic}           = $opt->{topic}      if $opt->{topic};
-  $json->{name}            = $opt->{name}       if $opt->{name};
-  $json->{invite}          = $opt->{invite}     if $opt->{invite};
-  $json->{creation_content}->{'m.federate'} = $opt->{federation};
   my $resp = send_request({
     uri => $uri,
     content => to_json($json)
   });
   die "Error creating room on $opt->{server}\n" unless ($resp->is_success);
-  my $room_id = from_json($resp->decoded_content)->{room_id};
-  print "$room_id\n";
+  $opt->{room} = from_json($resp->decoded_content)->{room_id};
+  # Now configure the room
+  modify_room();
+  print "$opt->{room}\n";
 }
 
 # Modify an existing room