From 30d0afa005c50d8e0effdd0d77afc4679ece8139 Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Wed, 13 Sep 2017 19:06:24 +0200
Subject: [PATCH] Call modify_rom just after create So we support exactly the
 same features on create and on modify

---
 scripts/patrix | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/scripts/patrix b/scripts/patrix
index c85e5cf..4ba5574 100644
--- a/scripts/patrix
+++ b/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