#!/usr/local/bin/perl
use vars qw($SCRIPT);
($SCRIPT = $0) =~ s!.+/([^/]+$)!$1!;
use CGI::Carp qw(fatalsToBrowser);
use lib './lib';
use strict;
use utf8;
use Encode;
use Encode::Guess qw/ euc-jp shiftjis 7bit-jis utf8 /;
$Encode::Guess::NoUTFAutoGuess = 1; # utf16 utf32 を候補から外す

binmode STDOUT=>":utf8";

my $uid = 1;
use butch;
my $butch = butch->new({'script'=>$SCRIPT, 'dbname'=>sprintf(qq{%05d}, $uid)});

my $form = $butch->read_form(20000,{enc=>'utf8'});
my $is_login = $butch->check_login($form);
if( ! $is_login ){
	$butch->go_entrance();
}
$butch->download_backup_sqlite($uid);

exit;