Tadashi Okoshi
slash****@users*****
2005年 10月 25日 (火) 04:20:42 JST
Index: affelio_farm/admin/skelton/affelio/apps/Mixi/AF_app.cfg
diff -u affelio_farm/admin/skelton/affelio/apps/Mixi/AF_app.cfg:1.1.1.1 affelio_farm/admin/skelton/affelio/apps/Mixi/AF_app.cfg:removed
--- affelio_farm/admin/skelton/affelio/apps/Mixi/AF_app.cfg:1.1.1.1 Tue Oct 25 04:14:40 2005
+++ affelio_farm/admin/skelton/affelio/apps/Mixi/AF_app.cfg Tue Oct 25 04:20:42 2005
@@ -1,13 +0,0 @@
-[this_installation]
-title=ç§ã®Mixiå‹é”
-
-[application]
-app_name=Mixi
-app_version=0.4
-app_desc=Affelio Mixiゲートウェイ
-app_author=Affelio project
-guest_index=index.cgi
-owner_index=admin.cgi
-action_types=setting
-action_types_desc=Mixi接続è¨å®š
-
Index: affelio_farm/admin/skelton/affelio/apps/Mixi/README
diff -u affelio_farm/admin/skelton/affelio/apps/Mixi/README:1.1.1.1 affelio_farm/admin/skelton/affelio/apps/Mixi/README:removed
--- affelio_farm/admin/skelton/affelio/apps/Mixi/README:1.1.1.1 Tue Oct 25 04:14:40 2005
+++ affelio_farm/admin/skelton/affelio/apps/Mixi/README Tue Oct 25 04:20:42 2005
@@ -1,15 +0,0 @@
-Affelio-Mixi Gateway
-
-Install
- 1. Put this "Mixi" directory under "apps" directory in your Affelio.
-
-
-Configuration
- 1. Go to "Mixi" application tab.
- 2. Go to "Owner" tab.
- 3. Input your Mixi registration.
-
- That's it! :)
-
-
-
Index: affelio_farm/admin/skelton/affelio/apps/Mixi/admin.cgi
diff -u affelio_farm/admin/skelton/affelio/apps/Mixi/admin.cgi:1.1.1.1 affelio_farm/admin/skelton/affelio/apps/Mixi/admin.cgi:removed
--- affelio_farm/admin/skelton/affelio/apps/Mixi/admin.cgi:1.1.1.1 Tue Oct 25 04:14:40 2005
+++ affelio_farm/admin/skelton/affelio/apps/Mixi/admin.cgi Tue Oct 25 04:20:42 2005
@@ -1,82 +0,0 @@
-#!/usr/bin/perl
-
-use lib("../../extlib"); #general
-use HTML::Template;
-use CGI;
-use Cwd;
-use Jcode;
-#
-use lib("../../lib"); #Affelio
-use AffelioApp;
-use Affelio::misc::CGIError;
-#
-use lib("./extlib/"); #WWW:Mixi
-use WWW::Mixi;
-use HTTP::Cookies;
-use HTTP::Request::Common;
-#
-use lib("./lib/");
-use AffelioApp::SNSGateway;
-
-use strict;
-
-###########################################################################
-#init
-###########################################################################
-my $cgi = new CGI();
-
-#AffelioAppã‚’åˆæœŸåŒ–
-my $afap = new AffelioApp(ConfigDir => Cwd::getcwd(),
- cgi => $cgi);
-$afap->set_owner_mode();
-my $in_username = $cgi->param("username");
-my $in_password = $cgi->param("password");
-
-###########################################################################
-#Output
-###########################################################################
-#Content-typeを出力
-print "Content-type: text/html; charset=UTF-8\n";
-print "Pragma: no-cache", "\n\n";
-
-#HTML Header Partを出力
-print $afap->get_HTML_header("Affelio Mixi Gateway");
-
-# èªã¿è¾¼ã¿ã‚¢ã‚¯ã‚»ã‚¹æ¨©é™ã‚’ãƒã‚§ãƒƒã‚¯ã—ã€å†…容表示
-unless ($afap->check_access("setting")
- &&
- $afap->check_access("DF_read")){
- print "ã‚ãªãŸã«ã¯ã“ã®ãƒšãƒ¼ã‚¸ã®ç®¡ç†æ¨©é™ãŒã‚ã‚Šã¾ã›ã‚“";
-
- #HTML Footer Partを出力
- print $afap->get_HTML_footer();
-
- exit(1);
-}
-
-###########################################################################
-#Save input data into config_file
-###########################################################################
-if(($in_username ne "") && ($in_password ne "")){
- write_config($afap, $in_username, $in_password);
-}
-
-###########################################################################
-#Read configuration file
-###########################################################################
-my $userinfo = read_config($afap);
-
-my $tmpl = HTML::Template->new(filename => "./templates/admin.tmpl",
- die_on_bad_params => 0);
-
-$tmpl->param(install_title => $afap->get_app_info("install_title"));
-$tmpl->param(username => $userinfo->{username});
-$tmpl->param(password => $userinfo->{password});
-$tmpl->param(accesscontrol_url => $afap->get_URL("access_control"));
-
-print $tmpl->output;
-
-#HTML Footer Partを出力
-print $afap->get_HTML_footer();
-
-exit(1);
Index: affelio_farm/admin/skelton/affelio/apps/Mixi/index.cgi
diff -u affelio_farm/admin/skelton/affelio/apps/Mixi/index.cgi:1.1.1.1 affelio_farm/admin/skelton/affelio/apps/Mixi/index.cgi:removed
--- affelio_farm/admin/skelton/affelio/apps/Mixi/index.cgi:1.1.1.1 Tue Oct 25 04:14:40 2005
+++ affelio_farm/admin/skelton/affelio/apps/Mixi/index.cgi Tue Oct 25 04:20:42 2005
@@ -1,176 +0,0 @@
-#!/usr/bin/perl
-
-use lib("./extlib/"); #WWW:Mixi
-use WWW::Mixi;
-
-use lib("../../extlib"); #general
-use HTML::Template;
-use CGI;
-use Cwd;
-use Jcode;
-#
-use lib("../../lib"); #Affelio
-use AffelioApp;
-use Affelio::misc::CGIError;
-#
-use lib("./extlib/"); #WWW:Mixi
-use WWW::Mixi;
-use HTTP::Cookies;
-use HTTP::Request::Common;
-#
-use lib("./lib/");
-use AffelioApp::SNSGateway;
-
-###########################################################################
-#init
-###########################################################################
-my $cgi = new CGI();
-
-#AffelioAppã‚’åˆæœŸåŒ–
-my $afap = new AffelioApp(ConfigDir => Cwd::getcwd(),
- cgi => $cgi);
-
-my $page = $cgi->url_param("page");
-
-###########################################################################
-#Output
-###########################################################################
-#Content-typeを出力
-print "Content-type: text/html; charset=UTF-8\n";
-print "Pragma: no-cache", "\n\n";
-
-#HTML Header Partを出力
-print $afap->get_HTML_header("Affelio Mixi Gateway");
-
-# èªã¿è¾¼ã¿ã‚¢ã‚¯ã‚»ã‚¹æ¨©é™ã‚’ãƒã‚§ãƒƒã‚¯ã—ã€å†…容表示
-unless ($afap->check_access("DF_access")) {
- print "ã‚ãªãŸã«ã¯ã“ã®ãƒšãƒ¼ã‚¸ã®èªã¿è¾¼ã¿æ¨©é™ãŒã‚ã‚Šã¾ã›ã‚“";
-
- #HTML Footer Partを出力
- print $afap->get_HTML_footer();
-
- exit(1);
-}
-
-###########################################################################
-#Read configuration file
-###########################################################################
-my $userinfo = read_config($afap);
-
-my $visitor_type = $afap->get_visitor_info("type");
-
-
-###########################################################################
-#Retrieve Mixi HTML
-###########################################################################
-my $err_mesg="";
-
-if(($userinfo->{username} eq "") || ($userinfo->{password} eq "")){
- err_exit("Mixiãƒ¦ãƒ¼ã‚¶æƒ…å ±ãŒç™»éŒ²ã•ã‚Œã¦ã„ã¾ã›ã‚“。");
-}
-
-my $mixi = WWW::Mixi->new($userinfo->{username}, $userinfo->{password});
-if($@){
- err_exit($@);
-}
-
-#Login
-my $response = $mixi->login;
-if(!($response->is_success)){
- err_exit("Could not login to Mixi!");
-}
-
-#Get HTML
-my $url = 'list_friend.pl';
-if($page){
- $url .= '?page=' . $page;
-}
-
-$response = $mixi->get($url);
-if(!($response->is_success)){
- err_exit("Could not get list_friend.pl");
-}
-#print "<PRE>" . $response->content . "</PRE>";
-
-#Parse
-my @friends = $mixi->parse_list_friend( $response );
-
-my $myid = $mixi->parse_self_id( $mixi->get("list_review.pl") );
-my $my_home_url = "http://mixi.jp/show_friend.pl?id=" . $myid;
-if($myid == 0){
- $my_home_url = "http://mixi.jp/";
-}
-
-###########################################################################
-#Processing
-###########################################################################
-$num_friends = @friends;
-
-for(my $i=0; $i < $num_friends; $i++){
- $friends[$i]->{subject} =
- Jcode->new( $friends[$i]->{subject} )->utf8;
-
- if($visitor_type eq "self"){
- $friends[$i]->{visitor_type} = "self";
- }else{
- $friends[$i]->{visitor_type} = "";
- }
-}
-
-
-
-
-my $next_message="";
-my $next_link="";
-my $next = $mixi->parse_list_friend_next( $response );
-if($next){
- $next_message = Jcode->new( $next->{subject} )->utf8;
- $next->{link} =~ /(.*)page=([0-9]+)/;
- $next_link = "./index.cgi?page=$2";
-}
-
-my $prev_message="";
-my $prev_link="";
-my $prev = $mixi->parse_list_friend_previous( $response );
-if($prev){
- $prev_message = Jcode->new( $prev->{subject} )->utf8;
- $prev->{link} =~ /(.*)page=([0-9]+)/;
- $prev_link = "./index.cgi?page=$2";
-}
-
-
-my $tmpl = HTML::Template->new(filename => "./templates/index.tmpl",
- die_on_bad_params => 0);
-
-$tmpl->param(install_title => $afap->get_app_info("install_title"));
-$tmpl->param(my_home_url => $my_home_url);
-$tmpl->param(my_nickname => $afap->get_owner_info("nickname"));
-$tmpl->param(friends => \@friends);
-$tmpl->param(next_link => $next_link);
-$tmpl->param(next_message => $next_message);
-$tmpl->param(prev_link => $prev_link);
-$tmpl->param(prev_message => $prev_message);
-
-print $tmpl->output;
-
-#HTML Footer Partを出力
-print $afap->get_HTML_footer();
-
-exit(1);
-
-
-sub err_exit{
- my $err_mesg = shift;
-
- my $tmpl = HTML::Template->new(filename => "./templates/error.tmpl",
- die_on_bad_params => 0);
- $tmpl->param(install_title => $afap->get_app_info("install_title"));
- $tmpl->param(my_home_url => $my_home_url);
- $tmpl->param(err_mesg => $err_mesg);
-
- print $tmpl->output;
-
- #HTML Footer Partを出力
- print $afap->get_HTML_footer();
- exit(1);
-}
Index: affelio_farm/admin/skelton/affelio/apps/Mixi/style.css
diff -u affelio_farm/admin/skelton/affelio/apps/Mixi/style.css:1.1.1.1 affelio_farm/admin/skelton/affelio/apps/Mixi/style.css:removed
--- affelio_farm/admin/skelton/affelio/apps/Mixi/style.css:1.1.1.1 Tue Oct 25 04:14:40 2005
+++ affelio_farm/admin/skelton/affelio/apps/Mixi/style.css Tue Oct 25 04:20:42 2005
@@ -1,23 +0,0 @@
-.mixi_friend_field{
- width: 95px;
- height: 120px;
- vertical-align: top;
- text-align: center;
- float: left;
-}
-.mixi_friend_name{
- width: 100px;
- overflow: hidden;
- font-family: Arial;
- font-size: x-small;
- font-weight: bold;
-}
-.mixi_config{
- padding: 30px 10px 30px 20px;
- font-size: small;
-}
-
-.mixi_footer{
- font-size: x-small;
- text-align: left;
-}