Tadashi Okoshi
slash****@users*****
2005年 6月 29日 (水) 19:40:16 JST
Index: affelio/admin.cgi diff -u affelio/admin.cgi:1.15 affelio/admin.cgi:1.16 --- affelio/admin.cgi:1.15 Tue Jun 28 20:51:33 2005 +++ affelio/admin.cgi Wed Jun 29 19:40:16 2005 @@ -6,7 +6,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: admin.cgi,v 1.15 2005/06/28 11:51:33 slash5234 Exp $ +# $Id: admin.cgi,v 1.16 2005/06/29 10:40:16 slash5234 Exp $ use strict; @@ -124,6 +124,18 @@ "$af->{site__template}/owner_side/admin_affelio_config.tmpl"; Affelio::App::Admin::Configuration::show($af,\%output_data); +}elsif($admin_mode eq "accesslog"){ + + debug_print("admin.cgi: mode=[accesslog]"); + ####################### + #AccessLog + ####################### + use Affelio::App::Admin::AccessLog; + + $TMPL_FILE = "$af->{site__fs_root}/templates/" . + "$af->{site__template}/owner_side/admin_access_log.tmpl"; + Affelio::App::Admin::AccessLog::show($af,$q,\%output_data); + }elsif($admin_mode eq "uploadimage"){ Index: affelio/index.cgi diff -u affelio/index.cgi:1.4 affelio/index.cgi:1.5 --- affelio/index.cgi:1.4 Mon Jun 27 16:14:18 2005 +++ affelio/index.cgi Wed Jun 29 19:40:16 2005 @@ -6,7 +6,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: index.cgi,v 1.4 2005/06/27 07:14:18 slash5234 Exp $ +# $Id: index.cgi,v 1.5 2005/06/29 10:40:16 slash5234 Exp $ use strict; @@ -172,6 +172,20 @@ $tmpl->param($data_key => $output_data{$data_key}); } +########################################################################### +#AccessLog +########################################################################### +if($visitor_type ne "self"){ + my $afid; + if($visitor_afid eq ""){ + $afid = $q->remote_host; + }else{ + $afid = $visitor_afid; + } + + $af->{alm}->save_log($afid, $visitor_nickname, $visitor_type); +} + ########################################################################### #Output
