Tadashi Okoshi
slash****@users*****
2005年 6月 26日 (日) 21:10:43 JST
Index: affelio/lib/Affelio/SNS/FriendManager.pm diff -u affelio/lib/Affelio/SNS/FriendManager.pm:1.3 affelio/lib/Affelio/SNS/FriendManager.pm:1.4 --- affelio/lib/Affelio/SNS/FriendManager.pm:1.3 Sun Jun 26 20:46:06 2005 +++ affelio/lib/Affelio/SNS/FriendManager.pm Sun Jun 26 21:10:42 2005 @@ -4,7 +4,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: FriendManager.pm,v 1.3 2005/06/26 11:46:06 slash5234 Exp $ +# $Id: FriendManager.pm,v 1.4 2005/06/26 12:10:42 slash5234 Exp $ package Affelio::SNS::FriendManager; { @@ -239,12 +239,17 @@ $sth = $af->{db}->prepare($query) or die $af->{db}->errstr; $sth->execute() or die $af->{db}->errstr; @row_in_f1table = $sth->fetchrow_array; + undef($sth); + undef($query); if(@row_in_f1table && @row_in_f1table !=()){ ############################################### #This $f2_af_id has been FOUND in our Friend DB. ############################################### Affelio::misc::Debug::debug_print("FM::save_F2List: \tF2 person is found in our F1 table"); + my $query2=""; + my $sth2=""; + $f2_uid = $row_in_f1table[0]; $f2_f1list = $row_in_f1table[8]; Affelio::misc::Debug::debug_print("FM::save_F2list: F2's F1list = [$f2_f1list]"); @@ -253,39 +258,44 @@ #Add $f2_uid into $f1_af_id's F2list $new_f1_f2list = $f1_f2list . $f2_uid . ","; Affelio::misc::Debug::debug_print("FM::save_F2List: \tnew_f1_f2list=[$new_f1_f2list]"); - $query = "update AFuser_CORE_friends set f2list = '$new_f1_f2list' where uid = $f1_uid"; - $sth = $af->{db}->prepare($query) or die $af->{db}->errstr; - $sth->execute() or die $af->{db}->errstr; + $query2 = "update AFuser_CORE_friends set f2list = '$new_f1_f2list' where uid = '$f1_uid'"; + $sth2 = $af->{db}->prepare($query2) or die $af->{db}->errstr; + $sth2->execute() or die $af->{db}->errstr; Affelio::misc::Debug::debug_print("FM::save_F2list: New F1($f1_uid)'s F2list = [$new_f1_f2list]"); #Modify "Friend" table #Add $f1_af_id into $f2_uid's F1list $new_f2_f1list = $f2_f1list . $f1_uid . ","; Affelio::misc::Debug::debug_print("FM::save_F2List: \tnew_f2_f1list=[$new_f2_f1list]"); - $query = "update AFuser_CORE_friends set f2list = '$new_f2_f1list' where uid = $f2_uid"; - $sth = $af->{db}->prepare($query) or die $af->{db}->errstr; - $sth->execute() or die $af->{db}->errstr; + $query2 = "update AFuser_CORE_friends set f2list = '$new_f2_f1list' where uid = $f2_uid"; + $sth2 = $af->{db}->prepare($query2) or die $af->{db}->errstr; + $sth2->execute() or die $af->{db}->errstr; Affelio::misc::Debug::debug_print("FM::save_F2list: New F2($f2_uid)'s F1list = [$new_f2_f1list]"); }else{ + my $query2=""; + my $sth2=""; + #The guy with F2_AF_ID is in the FriendsFriends table? - $query = "SELECT * FROM AFuser_CORE_friendsfriends WHERE af_id = '$f2_af_id'"; - $sth = $af->{db}->prepare($query) or die $af->{db}->errstr; - $sth->execute() or die $af->{db}->errstr; - @row_in_f2table = $sth->fetchrow_array; + $query2 = "SELECT * FROM AFuser_CORE_friendsfriends WHERE af_id = '$f2_af_id'"; + $sth2 = $af->{db}->prepare($query2) or die $af->{db}->errstr; + $sth2->execute() or die $af->{db}->errstr; + @row_in_f2table = $sth2->fetchrow_array; if(!@row_in_f2table || @row_in_f2table==()){ ############################################### #This $f2_af_id has NOT been FOUND anywhere ############################################### Affelio::misc::Debug::debug_print("FM::save_F2List:\t F2 person is NOT Found anywhere. Brand new!"); + my $query3=""; + my $sth3=""; ############################## #Get existing min ID - $query = 'SELECT min(uid) FROM AFuser_CORE_friendsfriends'; - $sth = $af->{db}->prepare($query) or die $af->{db}->errstr; - $sth->execute() or die $af->{db}->errstr; - @row = $sth->fetchrow_array; + $query3 = 'SELECT min(uid) FROM AFuser_CORE_friendsfriends'; + $sth3 = $af->{db}->prepare($query3) or die $af->{db}->errstr; + $sth3->execute() or die $af->{db}->errstr; + @row = $sth3->fetchrow_array; my $minid = $row[0]; if(defined($row[0])){ $minid = $row[0]; @@ -296,10 +306,9 @@ ############################## #Insert a new record my $tmpnewid = $minid-1; - $query = "insert into AFuser_CORE_friendsfriends (uid, af_id, nickname, timestamp, f1list) values ('$tmpnewid', '$f2_af_id', '$nickname', $timestamp, ',')"; - $sth = $af->{db}->prepare($query) or die $af->{db}->errstr; -# $sth->execute($minid-1, $f2_af_id, $nickname, $timestamp, ",") or die $af->{db}->errstr; - $sth->execute() or die $af->{db}->errstr; + $query3 = "insert into AFuser_CORE_friendsfriends (uid, af_id, nickname, timestamp, f1list) values ('$tmpnewid', '$f2_af_id', '$nickname', $timestamp, ',')"; + $sth3 = $af->{db}->prepare($query3) or die $af->{db}->errstr; + $sth3->execute() or die $af->{db}->errstr; $f2_uid = $minid - 1; #F2 UID is negative! $f2_f1list = ","; Affelio::misc::Debug::debug_print("FM::save_F2List:\tCreated F2 entry id=$f2_uid"); @@ -318,17 +327,17 @@ #Add $f2_uid into $f1_af_id's F2list $new_f1_f2list = $f1_f2list . $f2_uid . ","; Affelio::misc::Debug::debug_print("FM::save_F2List:\tnew_f1_f2list=[$new_f1_f2list]"); - $query = "update AFuser_CORE_friends set f2list = '$new_f1_f2list' where uid = $f1_uid"; - $sth = $af->{db}->prepare($query) or die $af->{db}->errstr; - $sth->execute() or die $af->{db}->errstr; + $query2 = "update AFuser_CORE_friends set f2list = '$new_f1_f2list' where uid = $f1_uid"; + $sth2 = $af->{db}->prepare($query2) or die $af->{db}->errstr; + $sth2->execute() or die $af->{db}->errstr; #Modify "FriendsFriends" table #Add $f1_af_id into $f2_uid's F1list $new_f2_f1list = $f2_f1list . $f1_uid . ","; Affelio::misc::Debug::debug_print("FM::save_F2List:\tnew_f2_f1list=[$new_f2_f1list]"); - $query = "update AFuser_CORE_friendsfriends set f1list = '$new_f2_f1list' where uid = $f2_uid"; - $sth = $af->{db}->prepare($query) or die $af->{db}->errstr; - $sth->execute() or die $af->{db}->errstr; + $query2 = "update AFuser_CORE_friendsfriends set f1list = '$new_f2_f1list' where uid = $f2_uid"; + $sth2 = $af->{db}->prepare($query2) or die $af->{db}->errstr; + $sth2->execute() or die $af->{db}->errstr; }#if Affelio::misc::Debug::debug_print("FM::save_F2List: [$method] DONE.");
