#!/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);
}


