shlist

commit a2af8a87833e1d56a6bb5e45d5d4948cdc1c633d
parent 3480da4016e70febe244d80e744b774828e573ac
Author: kyle <kyle@getaddrinfo.net>
Date:   Sun,  9 Aug 2015 18:46:37 -0400

server: fix mutual friend lookup for get lists message

Diffstat:
M
sl
 | 
10
+++++++---

1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/sl b/sl
@@ -97,6 +97,9 @@ my $friends_map_select_sth = $dbh->prepare($sql);
 $sql = qq{delete from friends_map where device_id = ?};
 my $friends_map_delete_sth = $dbh->prepare($sql);
 
+$sql = qq{select mutual_friend from mutual_friends where device_id = ?};
+my $mutual_friend_select_sth = $dbh->prepare($sql);
+
 $sql = qq{delete from mutual_friends where device_id = ? or mutual_friend = ?};
 my $mutual_friends_delete_sth = $dbh->prepare($sql);
 
@@ -346,9 +349,9 @@ sub msg_list_request
 
 	my @indirect_lists;
 	# now calculate which lists this device id should see
-	$friends_map_select_sth->execute($msg);
-	while (my ($friend) = $friends_map_select_sth->fetchrow_array()) {
-		print "info: $addr: found friend $friend";
+	$mutual_friend_select_sth->execute($msg);
+	while (my ($friend) = $mutual_friend_select_sth->fetchrow_array()) {
+		print "info: $addr: found mutual friend $friend\n";
 
 		# get all of my friends lists
 		$get_lists_sth->execute($friend);
@@ -358,6 +361,7 @@ sub msg_list_request
 
 		while (my ($list_id, $list_name) =
 			$get_lists_sth->fetchrow_array()) {
+			print "info: $addr: found mutual friends list '$list_name'\n";
 
 			push @indirect_lists, "$list_name:$list_id:$friend_ph_num"
 		}