mirror of
https://github.com/dani/patrix.git
synced 2024-06-18 04:39:14 +02:00
Call modify_rom just after create
So we support exactly the same features on create and on modify
This commit is contained in:
parent
ee456446b8
commit
30d0afa005
|
@ -43,7 +43,6 @@ GetOptions(
|
||||||
"alias=s" => \$opt->{alias},
|
"alias=s" => \$opt->{alias},
|
||||||
"topic=s" => \$opt->{topic},
|
"topic=s" => \$opt->{topic},
|
||||||
"join_rules=s" => \$opt->{join_rules},
|
"join_rules=s" => \$opt->{join_rules},
|
||||||
"federation!" => \$opt->{federation},
|
|
||||||
"perm=s@" => \$opt->{perm},
|
"perm=s@" => \$opt->{perm},
|
||||||
"perm_user=s@" => \$opt->{perm_user},
|
"perm_user=s@" => \$opt->{perm_user},
|
||||||
"perm_event=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}");
|
debug("Creating a new room on $opt->{server}");
|
||||||
my $uri = $opt->{server} . '/_matrix/client/r0/createRoom?access_token=' . $opt->{access_token};
|
my $uri = $opt->{server} . '/_matrix/client/r0/createRoom?access_token=' . $opt->{access_token};
|
||||||
my $json = {};
|
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({
|
my $resp = send_request({
|
||||||
uri => $uri,
|
uri => $uri,
|
||||||
content => to_json($json)
|
content => to_json($json)
|
||||||
});
|
});
|
||||||
die "Error creating room on $opt->{server}\n" unless ($resp->is_success);
|
die "Error creating room on $opt->{server}\n" unless ($resp->is_success);
|
||||||
my $room_id = from_json($resp->decoded_content)->{room_id};
|
$opt->{room} = from_json($resp->decoded_content)->{room_id};
|
||||||
print "$room_id\n";
|
# Now configure the room
|
||||||
|
modify_room();
|
||||||
|
print "$opt->{room}\n";
|
||||||
}
|
}
|
||||||
|
|
||||||
# Modify an existing room
|
# Modify an existing room
|
||||||
|
|
Loading…
Reference in New Issue
Block a user