[dw-free] another LJ::get_friend_group rabbit hole

[afuna]

[commit: http://hg.dwscoalition.org/dw-free/rev/5d8cc0226685]

http://bugs.dwscoalition.org/show_bug.cgi?id=1291

Rename list_friendgroups sub to list_trustgroups; make it work.

Patch by kareila.

Files modified:

• cgi-bin/ljprotocol.pl

--------------------------------------------------------------------------------
diff -r 17ca5b4d2b8b -r 5d8cc0226685 cgi-bin/ljprotocol.pl
--- a/cgi-bin/ljprotocol.pl	Tue Jun 09 16:25:55 2009 +0000
+++ b/cgi-bin/ljprotocol.pl	Wed Jun 10 13:10:54 2009 +0000
@@ -550,9 +550,9 @@ sub login
     ## report what shared journals this user may post in
     $res->{'usejournals'} = list_usejournals($u);
 
-    ## return their friend groups
-    $res->{'friendgroups'} = list_friendgroups($u);
-    return fail($err, 502, "Error loading friend groups") unless $res->{'friendgroups'};
+    ## return their trust groups
+    $res->{'friendgroups'} = list_trustgroups($u);
+    return fail($err, 502, "Error loading trust groups") unless $res->{'friendgroups'};
     if ($ver >= 1) {
         foreach (@{$res->{'friendgroups'}}) {
             LJ::text_out(\$_->{'name'});
@@ -655,8 +655,8 @@ sub getfriendgroups
     return undef unless authenticate($req, $err, $flags);
     my $u = $flags->{'u'};
     my $res = {};
-    $res->{'friendgroups'} = list_friendgroups($u);
-    return fail($err, 502, "Error loading friend groups") unless $res->{'friendgroups'};
+    $res->{'friendgroups'} = list_trustgroups($u);
+    return fail($err, 502, "Error loading trust groups") unless $res->{'friendgroups'};
     if ($req->{'ver'} >= 1) {
         foreach (@{$res->{'friendgroups'} || []}) {
             LJ::text_out(\$_->{'name'});
@@ -687,8 +687,8 @@ sub getfriends
     my $u = $flags->{'u'};
     my $res = {};
     if ($req->{'includegroups'}) {
-        $res->{'friendgroups'} = list_friendgroups($u);
-        return fail($err, 502, "Error loading friend groups") unless $res->{'friendgroups'};
+        $res->{'friendgroups'} = list_trustgroups($u);
+        return fail($err, 502, "Error loading trust groups") unless $res->{'friendgroups'};
         if ($req->{'ver'} >= 1) {
             foreach (@{$res->{'friendgroups'} || []}) {
                 LJ::text_out(\$_->{'name'});
@@ -2509,19 +2509,12 @@ sub login_message
     return $msg->("hello_test")        if grep { $u->{user} eq $_ } @LJ::TESTACCTS;
 }
 
-sub list_friendgroups
+sub list_trustgroups
 {
     my $u = shift;
 
-    warn "ljprotocol.pl: list_friendgroups called.\n";
-    return [];
-
-# TODO(mark): this needs updating to determine if we should send trust groups?
-#             answer is yes, but we also need to move this to list_trustgroups
-#             so clients don't think those are friend groups.
-
     # get the groups for this user, return undef if error
-    my $groups = LJ::get_friend_group($u);
+    my $groups = $u->trust_groups;
     return undef unless $groups;
 
     # we got all of the groups, so put them into an arrayref sorted by the
--------------------------------------------------------------------------------