CVS update: affelio (Affelio-cvs 523) - Affelio

Index: affelio/upgrade-0954-10RC1.cgi
diff -u /dev/null affelio/upgrade-0954-10RC1.cgi:1.1

--- /dev/null	Mon Jul  4 10:47:30 2005
+++ affelio/upgrade-0954-10RC1.cgi	Mon Jul  4 10:47:30 2005
@@ -0,0 +1,74 @@
+#!/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-10RC1-10RC11.cgi
diff -u /dev/null affelio/upgrade-10RC1-10RC11.cgi:1.1
--- /dev/null	Mon Jul  4 10:47:30 2005
+++ affelio/upgrade-10RC1-10RC11.cgi	Mon Jul  4 10:47:30 2005
@@ -0,0 +1,73 @@
+#!/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ã§ä¸å…·åˆã®ã‚ã‚‹è¶³è·¡ãƒ‡ãƒ¼ã‚¿ãƒ™ãƒ¼ã‚¹ã‚’ã‚¢ãƒƒãƒ—ã‚°ãƒ¬ãƒ¼ãƒ‰ã—ã¾ã™ã€‚1.0RC1ã‚’ãŠä½¿ã„ã®æ–¹ã®ã¿å®Ÿè¡Œã—ã¦ãã ã•ã„ã€‚<P><FORM ACTION="upgrade-10RC1-to-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);
+    };
+    
+    ################################
+    #Create new Message table
+    ################################
+    
+
+    ################################
+    #Copy data from the old one to new one
+    ################################
+
+
+    ################################
+    #Delete old one
+    ################################
+
+
+    ################################
+    #Renew new one
+    ################################
+
+
+}
+
+
Index: affelio/upgrade.cgi
diff -u affelio/upgrade.cgi:1.3 affelio/upgrade.cgi:removed
--- affelio/upgrade.cgi:1.3	Fri Jul  1 16:10:12 2005
+++ affelio/upgrade.cgi	Mon Jul  4 10:47:30 2005
@@ -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 upgrade.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.0</B><P><FORM ACTION="upgrade.cgi?mode=go" method=POST><INPUT TYPE="submit" VALUE="Go"></FORM></HTML>';
-    exit(1);
-}
-


Affelio

[Affelio-cvs 523] CVS update: affelio