Tadashi Okoshi
slash****@users*****
2005年 6月 27日 (月) 16:14:18 JST
Index: affelio/admin.cgi diff -u affelio/admin.cgi:1.9 affelio/admin.cgi:1.10 --- affelio/admin.cgi:1.9 Mon Jun 27 01:39:37 2005 +++ affelio/admin.cgi Mon Jun 27 16:14:18 2005 @@ -6,7 +6,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: admin.cgi,v 1.9 2005/06/26 16:39:37 slash5234 Exp $ +# $Id: admin.cgi,v 1.10 2005/06/27 07:14:18 slash5234 Exp $ use strict; @@ -103,7 +103,25 @@ #################### my $admin_mode = $wi->PTN_mode($q->url_param("mode")); -if($admin_mode eq "uploadimage"){ +if($admin_mode eq "config_affelio"){ + + debug_print("admin.cgi: mode=[config_affelio]"); + ####################### + #Affelio Configuration + ####################### + use Affelio::App::Admin::Configuration; + + my $sub_mode = $wi->PTN_mode($q->url_param("action")); + if($sub_mode eq "submit" ){ + Affelio::App::Admin::Configuration::configure($af, $q); + } + + $TMPL_FILE = "$af->{site__fs_root}/templates/" . + "$af->{site__template}/owner_side/admin_affelio_config.tmpl"; + Affelio::App::Admin::Configuration::show($af,\%output_data); + + +}elsif($admin_mode eq "uploadimage"){ debug_print("admin.cgi: mode=[uploadimage]"); ####################### Index: affelio/index.cgi diff -u affelio/index.cgi:1.3 affelio/index.cgi:1.4 --- affelio/index.cgi:1.3 Tue Jun 21 18:13:05 2005 +++ affelio/index.cgi Mon Jun 27 16:14:18 2005 @@ -6,7 +6,7 @@ # http://affelio.jp/ (Japan) # http://affelio.jp/ (USA and other area) # -# $Id: index.cgi,v 1.3 2005/06/21 09:13:05 slash5234 Exp $ +# $Id: index.cgi,v 1.4 2005/06/27 07:14:18 slash5234 Exp $ use strict; @@ -75,14 +75,20 @@ ###################################################### #Template file ###################################################### -debug_print("================" . $q->url_param("mode")); my $mode = $wi->PTN_mode($q->url_param("mode")); debug_print("================$mode"); + if(($mode eq "") || !defined($mode)){ - $mode = "index"; + #If "mode" is not set, we will look at $self->{userpref__toppage_app_path} + #value. + my $abs_next_URL = $af->{site__web_root} . "/" . $af->{userpref__toppage_app_path}; + + print "Location: $abs_next_URL", "\n\n"; + exit(1); } $TMPL_FILE = "$af->{site__fs_root}/templates_dyn/" . $mode . ".tmpl"; + ###################################################### #Data prep (1) ######################################################
