Tadashi Okoshi
slash****@users*****
2005年 6月 29日 (水) 22:34:10 JST
Index: affelio/lib/Affelio/Managing/AccessLogManager.pm diff -u affelio/lib/Affelio/Managing/AccessLogManager.pm:1.3 affelio/lib/Affelio/Managing/AccessLogManager.pm:1.4 --- affelio/lib/Affelio/Managing/AccessLogManager.pm:1.3 Wed Jun 29 20:06:56 2005 +++ affelio/lib/Affelio/Managing/AccessLogManager.pm Wed Jun 29 22:34:10 2005 @@ -4,7 +4,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: AccessLogManager.pm,v 1.3 2005/06/29 11:06:56 slash5234 Exp $ +# $Id: AccessLogManager.pm,v 1.4 2005/06/29 13:34:10 slash5234 Exp $ package Affelio::Managing::AccessLogManager; { @@ -47,7 +47,7 @@ my $type=shift; #AFuser_CORE_accesslog - # timestamp INT, nickname TEXT, afid TEXT, type TEXT + # id id2 timestamp INT, nickname TEXT, afid TEXT, type TEXT my $af=$self->{af}; my $cur_time = get_timestamp(); @@ -56,7 +56,7 @@ ################################ #Check the table ################################ - my $create_tbl_cmd = "CREATE TABLE AFuser_CORE_accesslog(id INTEGER PRIMARY KEY, timestamp INTEGER, nickname TEXT, afid TEXT, type TEXT)"; + my $create_tbl_cmd = "CREATE TABLE AFuser_CORE_accesslog(id INTEGER PRIMARY KEY, id2 INTEGER, timestamp INTEGER, nickname TEXT, afid TEXT, type TEXT)"; eval{ $af->{db}->do($create_tbl_cmd); }; @@ -81,7 +81,7 @@ } if(@row1 == () ){ - my $newid=0; + my $newid=0; my $maxid=0; ############################## #Get existing max ID @@ -89,7 +89,7 @@ my $sth2 = $af->{db}->prepare($query2) or die $af->{db}->errstr; $sth2->execute or die $af->{db}->errstr; my @row2 = $sth2->fetchrow_array; - my $maxid = $row2[0]; + $maxid = $row2[0]; if(defined($row2[0])){ $maxid = $row2[0]; }else{ @@ -97,11 +97,28 @@ } $newid = $maxid+1; + ############################## + #Get existing max ID2 + my $newid2=0; my $maxid2=0; + if($afid =~ /http/){ + $query2 = 'SELECT max(id2) FROM AFuser_CORE_accesslog'; + $sth2 = $af->{db}->prepare($query2) or die $af->{db}->errstr; + $sth2->execute or die $af->{db}->errstr; + @row2 = $sth2->fetchrow_array; + $maxid2 = $row2[0]; + if(defined($row2[0])){ + $maxid2 = $row2[0]; + }else{ + $maxid2 = 0; + } + $newid2 = $maxid2+1; + } + ################################ #Add this access ################################ my $query3; my $sth3; - $query3 = "insert into AFuser_CORE_accesslog(id, timestamp, nickname, afid, type) values ($newid, $cur_time, '$nickname', '$afid', '$type')"; + $query3 = "insert into AFuser_CORE_accesslog(id, id2, timestamp, nickname, afid, type) values ($newid, $newid2, $cur_time, '$nickname', '$afid', '$type')"; eval{ $sth3 = $af->{db}->prepare($query3); $sth3->execute(); @@ -126,7 +143,7 @@ ################################ #Check the table ################################ - my $create_tbl_cmd = "CREATE TABLE AFuser_CORE_accesslog(id INTEGER PRIMARY KEY, timestamp INTEGER, nickname TEXT, afid TEXT, type TEXT)"; + my $create_tbl_cmd = "CREATE TABLE AFuser_CORE_accesslog(id INTEGER PRIMARY KEY, id2 INTEGER, timestamp INTEGER, nickname TEXT, afid TEXT, type TEXT)"; eval{ $af->{db}->do($create_tbl_cmd); };
