Tadashi Okoshi
slash****@users*****
2005年 10月 27日 (木) 21:06:34 JST
Index: affelio/index.cgi
diff -u affelio/index.cgi:1.16 affelio/index.cgi:1.17
--- affelio/index.cgi:1.16 Thu Oct 27 20:30:08 2005
+++ affelio/index.cgi Thu Oct 27 21:06:34 2005
@@ -16,7 +16,7 @@
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
-# $Id: index.cgi,v 1.16 2005/10/27 11:30:08 slash5234 Exp $
+# $Id: index.cgi,v 1.17 2005/10/27 12:06:34 slash5234 Exp $
use strict;
@@ -27,6 +27,7 @@
use CGI::Session qw(-ip_match);
use HTML::Template;
use Error qw(:try);
+use Fcntl;
use lib("./lib");
use Affelio;
@@ -92,25 +93,33 @@
############################################################################
my %output_data = ();
my $TMPL_FILE ="";
+my $INJ_FILE ="";
$af->load_ApplicationManager();
######################################################
#Template file
######################################################
-my $mode = $wi->PTN_mode($q->url_param("mode"));
-debug_print("================$mode");
+if($af->{userpref__toppage_app_installname} eq "Affelio"){
-if(($mode eq "") || !defined($mode)){
- #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};
+ #top page is Affelio module.
+ my $mode = $wi->PTN_mode($q->url_param("mode"));
+ debug_print("index.cgi CGI mode = [$mode]");
+ if($mode eq "") {
+ $mode="index";
+ }
+ $TMPL_FILE = "$af->{site__fs_root}/templates_dyn/" . $mode . ".tmpl";
+ $INJ_FILE = "$af->{site__fs_root}/templates_dyn/" . $mode . ".inj";
+
+}else{
+
+ #top page is NOT Affelio module but one of applications.
+ 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)
@@ -131,7 +140,6 @@
error($q, "Affelio init error.\n" . $e);
};
-
#################
#Client info
#################
@@ -164,6 +172,10 @@
######################################################
#Data prep from Models
######################################################
+sysopen(INJ, $INJ_FILE, O_RDONLY);
+my $injection_flg = <INJ>;
+close INJ;
+
#Inject Profile Data
use Affelio::App::ShowProfile;
try{
@@ -176,43 +188,54 @@
error($q, "Affelio: model execution error.\n" . $e);
};
+##############################
#Friendlist
use Affelio::App::FriendRoutines;
-my @friendlist_5;
-try{
- @friendlist_5 = get_friends_list($af, $visitor_afid, $visitor_type, 5);
-}catch Error with{
- my $e = shift;
- error($q, "Affelio: model execution error.\n" . $e);
-};
-$output_data{"friendlist_5"} = \@friendlist_5;
-
+##############################
my @friendlist_5_IF;
-try{
- @friendlist_5_IF = get_friends_list_IF($af,$visitor_afid, $visitor_type,5);
-}catch Error with{
- my $e = shift;
- error($q, "Affelio: model execution error.\n" . $e);
-};
-$output_data{"friendlist_5_IF"} = \@friendlist_5_IF;
-
+if($injection_flg =~ /block\_friendlist\_5\_IF\,/){
+ try{
+ @friendlist_5_IF = get_friends_list_IF($af,$visitor_afid, $visitor_type,5);
+ }catch Error with{
+ my $e = shift;
+ error($q, "Affelio: model execution error.\n" . $e);
+ };
+ $output_data{"friendlist_5_IF"} = \@friendlist_5_IF;
+}
+##############################
+my @friendlist_5;
+if($injection_flg =~ /block\_friendlist\_5\,/){
+ try{
+ @friendlist_5 = get_friends_list($af, $visitor_afid, $visitor_type, 5);
+ }catch Error with{
+ my $e = shift;
+ error($q, "Affelio: model execution error.\n" . $e);
+ };
+ $output_data{"friendlist_5"} = \@friendlist_5;
+}
+##############################
my @friendlist_all;
-try{
- @friendlist_all = get_friends_list($af, $visitor_afid, $visitor_type, -1);
-}catch Error with{
- my $e = shift;
- error($q, "Affelio: model execution error.\n" . $e);
-};
-$output_data{"friendlist_all"} = \@friendlist_all;
-
+if($injection_flg =~ /block\_friendlist\_all\,/){
+ try{
+ @friendlist_all = get_friends_list($af, $visitor_afid, $visitor_type, -1);
+ }catch Error with{
+ my $e = shift;
+ error($q, "Affelio: model execution error.\n" . $e);
+ };
+ $output_data{"friendlist_all"} = \@friendlist_all;
+}
+##############################
my @friendlist_all_IF;
-try{
- @friendlist_all_IF=get_friends_list_IF($af,$visitor_afid,$visitor_type,-1);
-}catch Error with{
- my $e = shift;
- error($q, "Affelio: model execution error.\n" . $e);
-};
-$output_data{"friendlist_all_IF"} = \@friendlist_all_IF;
+if($injection_flg =~ /block\_friendlist\_all_IF\,/){
+ try{
+ @friendlist_all_IF=get_friends_list_IF($af,$visitor_afid,$visitor_type,-1);
+ }catch Error with{
+ my $e = shift;
+ error($q, "Affelio: model execution error.\n" . $e);
+ };
+ $output_data{"friendlist_all_IF"} = \@friendlist_all_IF;
+}
+##############################
try{
$output_data{"friend__F1count"} = $af->getFM->get_F1_count();
@@ -239,6 +262,7 @@
$tmpl->param($data_key => $output_data{$data_key});
}
+
###########################################################################
#AccessLog
###########################################################################