Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

API was changed.

  • Loading branch information...
commit e8ca0de957c9c46768fce5f1225460f6fe8629d9 1 parent 0e6d19b
@hiratara authored
Showing with 4 additions and 4 deletions.
  1. +4 −4 backdoor.pl
View
8 backdoor.pl
@@ -96,18 +96,18 @@ sub crowl_url {
});
my @members;
- for my $member ( $status->all_members ){
+ for my $member ( @{ $status->{members} } ){
my $range;
if( $obj_room ){
my $obj_nick = $schema->resultset('Nick')->find_or_new(
- name => $member->name,
+ name => $member->{name},
)->insert();
my $obj_range = _calc_range $obj_room, $obj_nick ;
$range = [$obj_range->epoch1, $obj_range->epoch2];
}
push @members, {
- name => $member->name,
+ name => $member->{name},
range => $range,
# Do we need neither $_->status nor $_->is_owner ??
};
@@ -116,7 +116,7 @@ sub crowl_url {
push @rooms, {
name => $room->{name},
url => $room->{link},
- ad => $status->advertising,
+ ad => $status->{advertising},
members => \@members,
};
Please sign in to comment.
Something went wrong with that request. Please try again.