Tadashi Okoshi
slash****@users*****
2006年 8月 10日 (木) 06:50:48 JST
Index: affelio/upgrade-0954-10RC1.cgi
diff -u affelio/upgrade-0954-10RC1.cgi:1.1 affelio/upgrade-0954-10RC1.cgi:removed
--- affelio/upgrade-0954-10RC1.cgi:1.1 Mon Jul 4 10:47:30 2005
+++ affelio/upgrade-0954-10RC1.cgi Thu Aug 10 06:50:48 2006
@@ -1,74 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-
-use CGI qw(-unique_headers);
-use Cwd;
-use DBI;
-use lib("./extlib");
-use HTML::Template;
-use Error qw(:try);
-use lib("./lib");
-use Affelio;
-use Affelio::misc::MyCrypt;
-use Affelio::misc::Debug qw(debug_print);
-
-############################################################################
-#Main
-############################################################################
-my $g_username="";
-my $g_password="";
-my $g_nickname="";
-my $g_email="";
-my $g_crypted_password="";
-my $q = new CGI;
-my $g_fsroot = cwd();
-my $g_webroot = $q->self_url();
-
-if($q->url_param("mode") eq "go"){
-################################
-#Start Affelio
-################################
-my $af;
-try{
- $af = new Affelio(ConfigDir => ".");
-}catch Error with{
- my $e = shift;
- error($q, "Affelio load error.\n" . $e->stacktrace);
-};
-
-################################
-#Copy default template files
-################################
-my $g_locale = $af->{site__locale};
-try{
- system("cp -fr defaults/af_templates/$g_locale/*.aftmpl ./$af->{site__user_dir}/af_templates/");
-}catch Error with{
- my $e = shift;
- error($q, "Could not copy default templates.\n" . $e->stacktrace);
-};
-
-################################
-#Rebuild templates_dyn
-################################
-try{
- use Affelio::App::Admin::EditTemplates qw(rebuild);
- Affelio::App::Admin::EditTemplates::rebuild($af);
-}catch Error with{
- my $e = shift;
- error($q, "Could not rebuild templates.\n" . $e->stacktrace);
-};
-
-print "Content-type: text/html; charset=UTF-8\n";
-print "Pragma: no-cache", "\n\n";
-print 'OK. Successfuly done.<P><B>Delete this CGI immediately!!</B>';
-exit(1);
-
-
-}else{
- print "Content-type: text/html; charset=UTF-8\n";
- print "Pragma: no-cache", "\n\n";
- print '<HTML><B>Upgrade Affelio from 0.9.5.4 to 1.0RC1</B><P><FORM ACTION="upgrade-0954-10RC1.cgi?mode=go" method=POST><INPUT TYPE="submit" VALUE="Go"></FORM></HTML>';
- exit(1);
-}
-
Index: affelio/upgrade-10-11.cgi
diff -u affelio/upgrade-10-11.cgi:1.11 affelio/upgrade-10-11.cgi:removed
--- affelio/upgrade-10-11.cgi:1.11 Wed Dec 21 15:03:24 2005
+++ affelio/upgrade-10-11.cgi Thu Aug 10 06:50:48 2006
@@ -1,269 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-
-use CGI qw(-unique_headers);
-use Cwd;
-use DBI;
-use lib("./extlib");
-use HTML::Template;
-use Error qw(:try);
-use lib("./lib");
-use Affelio;
-use Affelio::misc::Debug qw(debug_print);
-
-############################################################################
-#Main
-############################################################################
-my $g_username="";
-my $g_password="";
-my $g_nickname="";
-my $g_email="";
-my $q = new CGI;
-my $g_fsroot = cwd();
-my $g_webroot = $q->self_url();
-
-#########################################################################
-#1st screen
-#########################################################################
-if($q->url_param("mode") ne "go"){
- print "Content-type: text/html; charset=UTF-8\n";
- print "Pragma: no-cache", "\n\n";
- print <<EOM;
-<HTML>
-<h1>Upgrade Script from 1.0.1 to 1.1</h1>
-<P>
-<H2>1. Copy your affelio.cfg to config/affelio.cfg</H2>
-Location of <B>affelio.cfg</B> file changed. Create <B>config/</B>
-directory and move <b>affelio.cfg</b> to <B>config/</B> directory.
-<P>
-<H2>2. Upgrade your Affelio data</H2>
-Push the button below and upgrade your data!
-<P>
-<FORM ACTION="upgrade-10-11.cgi?mode=go" method=POST>
-<INPUT TYPE="submit" VALUE="Upgrade">
-</FORM>
-</HTML>
-EOM
-exit(1);
-
-
-#########################################################################
-#Do upgrade
-#########################################################################
-}else{
- print "Content-type: text/html; charset=UTF-8\n";
- print "Pragma: no-cache", "\n\n";
-
- ################################
- #Start Affelio
- ################################
- my $af;
- try{
- $af = new Affelio(ConfigDir => "./config/",
- Mode => "init");
- }catch Error with{
- my $e = shift;
- print("Affelio load error.\n" . $e->stacktrace);
- exit(1);
- };
-
- ################################
- #Create application table
- ################################
- {
- my $query = 'SELECT * from AFuser_CORE_apps';
- my $sth;
- eval{
- $sth = $af->getDB->prepare($query);
- $sth->execute;
- };
- if($@){
- print "We confirmed that the app table does not exist.<BR>";
- print "So, We will make it<BR>";
- my $query = <<EOT;
-CREATE TABLE AFuser_CORE_apps(appid INTEGER PRIMARY KEY AUTOINCREMENT,
- install_name TEXT,
- install_title TEXT,
- app_URI TEXT,
- app_name TEXT,
- app_version TEXT,
- app_desc TEXT,
- app_author TEXT,
- guest_index TEXT,
- owner_index TEXT,
- action_types TEXT,
- action_types_desc TEXT)
-EOT
- my $sth;
- eval{
- $sth = $af->getDB->prepare($query);
- $sth->execute;
- };
- if($@){
- print 'Error occured in creating the table<BR><BR>' . $@;
- exit(1);
- }
-
- }else{
- #Application table already exists.
- #So, do nothing.
- print 'We confirmed that the app table already exists.<BR>';
- print 'So, We will do nothing.<BR>';
- }
- }#block
-
- ################################
- #Create nghr_news
- ################################
- {
- my $query = 'SELECT * from AFuser_CORE_nghr_news';
- my $sth;
- eval{
- $sth = $af->getDB->prepare($query);
- $sth->execute;
- };
- if($@){
- print "We confirmed that nghr_news table does not exist.<BR>";
- print "So, We will make it<BR>";
- my $query = <<EOT;
-CREATE TABLE AFuser_CORE_nghr_news(nid INTEGER PRIMARY KEY AUTOINCREMENT,
- datetime INTEGER,
- af_id TEXT,
- nickname TEXT,
- app_install_name TEXT,
- title TEXT,
- description TEXT,
- creator TEXT,
- URL TEXT)
-EOT
- my $sth;
- eval{
- $sth = $af->getDB->prepare($query);
- $sth->execute;
- };
- if($@){
- print 'Error occured in creating the table<BR><BR>' . $@;
- exit(1);
- }
-
- }else{
- #Application table already exists.
- #So, do nothing.
- print 'We confirmed that nghr_news table already exists.<BR>';
- print 'So, We will do nothing.<BR>';
- }
- }#block
-
- ################################
- #Create my_news
- ################################
- {
- my $query = 'SELECT * from AFuser_CORE_my_news';
- my $sth;
- eval{
- $sth = $af->getDB->prepare($query);
- $sth->execute;
- };
- if($@){
- print "We confirmed that my_news table does not exist.<BR>";
- print "So, We will make it<BR>";
- my $query = <<EOT;
-CREATE TABLE AFuser_CORE_my_news(nid INTEGER PRIMARY KEY AUTOINCREMENT,
- datetime INTEGER,
- app_install_name TEXT,
- title TEXT,
- description TEXT,
- creator TEXT,
- URL TEXT)
-EOT
- my $sth;
- eval{
- $sth = $af->getDB->prepare($query);
- $sth->execute;
- };
- if($@){
- print 'Error occured in creating the table<BR><BR>' . $@;
- exit(1);
- }
-
- }else{
- #Application table already exists.
- #So, do nothing.
- print 'We confirmed that my_news table already exists.<BR>';
- print 'So, We will do nothing.<BR>';
- }
- }#block
-
- ################################
- #Add columns to friend tale
- ################################
- add_column($af, 'AFuser_CORE_friends', 'last_news_in', "INTEGER", 0);
- add_column($af, 'AFuser_CORE_friends', 'last_news_out', "INTEGER", 0);
- #
- add_column($af, 'AFuser_CORE_friends', 'last_access', "INTEGER", 0);
- add_column($af, 'AFuser_CORE_friends', 'count_access', "INTEGER", 0);
- #
- add_column($af, 'AFuser_CORE_friends', 'last_incoming', "INTEGER", 0);
- add_column($af, 'AFuser_CORE_friends', 'count_incoming', "INTEGER", 0);
- #
- add_column($af, 'AFuser_CORE_friends', 'last_outgoing', "INTEGER", 0);
- add_column($af, 'AFuser_CORE_friends', 'count_outgoing', "INTEGER", 0);
- #
- add_column($af, 'AFuser_CORE_friends', 'apps', "TEXT", "' '");
-
- ################################
- #Create small images
- ################################
- print "We will make resized profile images...";
- eval{
- require Affelio::misc::ImageEditor;
- Affelio::misc::ImageEditor::resize_image("$af->{site__user_dir}/profile_face.jpg", "$af->{site__user_dir}/profile_face_100x100.jpg", 100);
- Affelio::misc::ImageEditor::resize_image("$af->{site__user_dir}/profile_face.jpg", "$af->{site__user_dir}/profile_face_150x150.jpg", 150);
- };
- if($@){
- print 'Error occured in creating resized images...<BR><BR>' . $@;
- exit(1);
- }
-
- print "Done.<BR>";
-
- print '<h2>OK. Successfuly done.</H2><P><B>Delete this CGI immediately!!</B>';
- exit(1);
-}
-
-
-
-sub add_column{
- my $af= shift;
- my $table = shift;
- my $col = shift;
- my $type = shift;
- my $def = shift;
-
- my $query = "SELECT $col from $table";
- my $sth;
- eval{
- $sth = $af->getDB->prepare($query);
- $sth->execute;
- };
- if($@){
- print "We confirmed that table [$table] needs column [$col]<BR>";
- my $query2 = "ALTER TABLE $table ADD COLUMN $col $type DEFAULT $def";
- my $sth;
- eval{
- $af->getDB->do($query2);
- };
- if($@){
- print 'Error occured in modifying the table<BR><BR>' . $@;
- exit(1);
- }
- print "Successfully added [$col].<BR>";
-
- }else{
- #Application table already exists.
- #So, do nothing.
- print "We confirmed that table [$table] already has [$col]<BR>";
- print 'So, We will do nothing.<BR>';
- }
-}
Index: affelio/upgrade-10RC1-10RC11.cgi
diff -u affelio/upgrade-10RC1-10RC11.cgi:1.2 affelio/upgrade-10RC1-10RC11.cgi:removed
--- affelio/upgrade-10RC1-10RC11.cgi:1.2 Mon Jul 4 11:19:24 2005
+++ affelio/upgrade-10RC1-10RC11.cgi Thu Aug 10 06:50:48 2006
@@ -1,70 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-
-use CGI qw(-unique_headers);
-use Cwd;
-use DBI;
-use lib("./extlib");
-use HTML::Template;
-use Error qw(:try);
-use lib("./lib");
-use Affelio;
-use Affelio::misc::MyCrypt;
-use Affelio::misc::Debug qw(debug_print);
-
-############################################################################
-#Main
-############################################################################
-my $g_username="";
-my $g_password="";
-my $g_nickname="";
-my $g_email="";
-my $q = new CGI;
-my $g_fsroot = cwd();
-my $g_webroot = $q->self_url();
-
-#########################################################################
-#1st screen
-#########################################################################
-if($q->url_param("mode") ne "go"){
- print "Content-type: text/html; charset=UTF-8\n";
- print "Pragma: no-cache", "\n\n";
- print '<HTML><B>Upgrade Affelio from 1.0RC1 to 1.0RC1.1</B><P>ã“ã®ã‚¹ã‚¯ãƒªãƒ—トã¯ã€1.0RC1ã§ä¸å…·åˆã®ã‚る足跡データベースをリセットã—ã¾ã™ã€‚<bR>1.0RC1ã‚’MySQLã¨ã¨ã‚‚ã«ãŠä½¿ã„ã§ã€è¶³è·¡ãŒè¡¨ç¤ºã•ã‚Œãªã„å ´åˆã®ã¿å®Ÿè¡Œã—ã¦ãã ã•ã„。<P><FORM ACTION="upgrade-10RC1-10RC11.cgi?mode=go" method=POST><INPUT TYPE="submit" VALUE="Go"></FORM></HTML>';
- exit(1);
-
-#########################################################################
-#Do upgrade
-#########################################################################
-}else{
- ################################
- #Start Affelio
- ################################
- my $af;
- try{
- $af = new Affelio(ConfigDir => ".");
- }catch Error with{
- my $e = shift;
- error($q, "Affelio load error.\n" . $e->stacktrace);
- };
-
- my $query = 'drop table AFuser_CORE_accesslog';
- my $sth;
- eval{
- $sth = $af->{db}->prepare($query);
- $sth->execute;
- };
- if($@){
- print "Content-type: text/html; charset=UTF-8\n";
- print "Pragma: no-cache", "\n\n";
- print 'Error!<BR><BR>' . $@;
- exit(1);
- }
-
- print "Content-type: text/html; charset=UTF-8\n";
- print "Pragma: no-cache", "\n\n";
- print 'OK. Successfuly done.<P><B>Delete this CGI immediately!!</B>';
- exit(1);
-}
-
-