Add visibility and preset options for create-room

tags/patrix-0.1.4-1 0.1.1_1_el6
Daniel Berteaud 7 years ago
parent fe719366ec
commit a7c82d2cc2
  1. 12
      scripts/patrix

@ -30,6 +30,8 @@ GetOptions(
"name=s" => \$opt->{name},
"alias=s" => \$opt->{alias},
"topic=s" => \$opt->{topic},
"preset=s" => \$opt->{preset},
"visibility=s" => \$opt->{visibility}
);
if (-e File::HomeDir->my_home . "/.patrixrc" && !$opt->{conf}){
@ -280,10 +282,12 @@ sub create_room {
my $uri = $opt->{server} . '/_matrix/client/r0/createRoom?access_token=' . $opt->{access_token};
my $req = HTTP::Request->new( 'POST', $uri );
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->{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->{preset} = $opt->{preset} if $opt->{preset};
$json->{visibility} = $opt->{visibility} if $opt->{visbility};
$req->header( 'Content-Type' => 'application/json' );
$req->content( to_json($json) );
my $resp = $lwp->request( $req );

Loading…
Cancel
Save