@@ -43,6 +43,12 @@ Setup database.

     ./setup_database

+If you used Gitprep version 1 from now, you need upgrade database.

+

+    mv data/gitprep.db data/gitprep_v1bak.db

+    ./setup_database

+    ./copy_database_v1_to_v2 data/gitprep_v1bak.db data/gitprep.db

+

 If you install git in your local directry,

 you must add the correct git command path to the **gitprep.conf** config file.

@@ -397,6 +397,33 @@ sub rename_project {

   croak $error if $error;

 }

+sub is_database_v1 {

+  my $self = shift;

+  

+  # If project.user_id exists, that database is version 1

+  my $user_id;

+  eval { $user_id = $self->app->dbi->model('project')->select('user_id', append => 'limit 0, 1') };

+  

+  my $is_v1 = defined $user_id ? 1 : 0;

+  

+  return $is_v1;

+}

+

+=pod

+  # If mail is empty, id is copied to mail for uniqueness

+  my $user_ids = $dbi->select('id', table => 'user', where => {mail => ''})->values;

+  for my $user_id (@$user_ids) {

+    $dbi->update({mail => "$user_id\@gitprep.example"}, table => 'user', where => {id => $user_id});

+  }

+  

+  # add unique to mail

+  eval { $dbi->execute("create unique index user__mail on user(mail)") };

+  my $created_user_mail_index = $dbi->execute("select * from sqlite_master where type = 'index' and name = 'user__mail'")->one;

+  unless ($created_user_mail_index) {

+    croak "Can't create user__mail index";

+  }

+=cut

+

 sub setup_database {

   my $self = shift;

@@ -409,6 +436,192 @@ create table user (

   row_id integer primary key autoincrement,

   id not null unique default ''

 );

+EOS

+    $dbi->execute($sql);

+  };

+

+  # Create user columns

+  my $user_columns = [

+    "admin integer not null default 0",

+    "password not null default ''",

+    "salt not null default ''",

+    "email not null default ''",

+    "name not null default ''"

+  ];

+  for my $column (@$user_columns) {

+    eval { $dbi->execute("alter table user add column $column") };

+  }

+

+  # Check user table

+  eval { $dbi->select([qw/row_id id admin password salt email name/], table => 'user') };

+  if ($@) {

+    my $error = "Can't create user table properly: $@";

+    $self->app->log->error($error);

+    croak $error;

+  }

+  

+  # Create project table

+  eval {

+    my $sql = <<"EOS";

+create table project (

+  row_id integer primary key autoincrement,

+  user integer not null default 0,

+  id not null,

+  unique(user, id)

+);

+EOS

+    $dbi->execute($sql);

+  };

+  

+  # Create Project columns

+  my $project_columns = [

+    "default_branch not null default 'master'",

+    "original_project integer not null default 0",

+    "private integer not null default 0",

+    "ignore_space_change integer not null default 0",

+    "guess_encoding integer not null default ''"

+  ];

+  for my $column (@$project_columns) {

+    eval { $dbi->execute("alter table project add column $column") };

+  }

+

+  # Check project table

+  eval {

+    $dbi->select(

+      [qw/row_id user id default_branch original_project private ignore_space_change guess_encoding/],

+      table => 'project'

+    );

+  };

+  if ($@) {

+    my $error = "Can't create project table properly: $@";

+    $self->app->log->error($error);

+    croak $error;

+  }

+

+  # Create ssh_public_key table

+  eval {

+    my $sql = <<"EOS";

+create table ssh_public_key (

+  row_id integer primary key autoincrement,

+  key not null unique default ''

+);

+EOS

+    $dbi->execute($sql);

+  };

+

+  # Create ssh_public_key columns

+  my $ssh_public_key_columns = [

+    "user integer not null default 0",

+    "title not null default ''"

+  ];

+  for my $column (@$ssh_public_key_columns) {

+    eval { $dbi->execute("alter table ssh_public_key add column $column") };

+  }

+  

+  # Check ssh_public_key table

+  eval { $dbi->select([qw/row_id user key title/], table => 'ssh_public_key') };

+  if ($@) {

+    my $error = "Can't create ssh_public_key table properly: $@";

+    $self->app->log->error($error);

+    croak $error;

+  }

+

+  # Create collaboration table

+  eval {

+    my $sql = <<"EOS";

+create table collaboration (

+  row_id integer primary key autoincrement,

+  project integer not null default 0,

+  collaborator integer not null default 0,

+  unique(project, collaborator)

+);

+EOS

+    $dbi->execute($sql);

+  };

+  

+  # Check collaboration table

+  eval { $dbi->select([qw/row_id project collaborator/], table => 'collaboration') };

+  if ($@) {

+    my $error = "Can't create collaboration table properly: $@";

+    $self->app->log->error($error);

+    croak $error;

+  }

+

+  # Create pull_request table

+  eval {

+    my $sql = <<"EOS";

+create table pull_request (

+  row_id integer primary key autoincrement,

+  project integer not null default 0,

+  branch1 not null default '',

+  branch2 not null default '',

+  unique(project, branch1, branch2)

+);

+EOS

+    $dbi->execute($sql);

+  };

+  

+  # Create pull_request columns

+  my @pull_request_columns = (

+    "title not null default ''",

+    "message not null default ''",

+    "open integer default 0",

+    "open_time integer default 0",

+    "open_user integer default 0"

+  );

+  for my $column (@pull_request_columns) {

+    eval { $dbi->execute("alter table pull_request add column $column") };

+  }

+

+  # Check pull_request table

+  eval { $dbi->select([qw/row_id project branch1 branch2 title message open open_time open_user/], table => 'pull_request') };

+  if ($@) {

+    my $error = "Can't create pull_request table properly: $@";

+    $self->app->log->error($error);

+    croak $error;

+  }

+

+  # Create number table

+  eval {

+    my $sql = <<"EOS";

+create table number (

+  row_id integer primary key autoincrement,

+  key not null unique

+);

+EOS

+    $dbi->execute($sql);

+  };

+  

+  # Create number columns

+  my $number_columns = [

+    "value integer not null default '0'"

+  ];

+  for my $column (@$number_columns) {

+    eval { $dbi->execute("alter table number add column $column") };

+  }

+

+  # Check number table

+  eval { $dbi->select([qw/row_id key value/], table => 'number') };

+  if ($@) {

+    my $error = "Can't create number table properly: $@";

+    $self->app->log->error($error);

+    croak $error;

+  }

+}

+

+=pod

+sub setup_database_v1 {

+  my $self = shift;

+  

+  my $dbi = $self->app->dbi;

+  

+  # Create user table

+  eval {

+    my $sql = <<"EOS";

+create table user (

+  row_id integer primary key autoincrement,

+  id not null unique default ''

+);

 EOS

     $dbi->execute($sql);

   };

@@ -616,7 +829,7 @@ EOS

     croak $error;

   }

 }

-

+=cut

 sub update_authorized_keys_file {

   my $self = shift;

@@ -7,4 +7,10 @@ use lib "$FindBin::Bin/extlib/lib/perl5";

 use Gitprep;

 my $app = Gitprep->new;

-$app->manager->setup_database;

+

+if ($app->manager->is_database_v1) {

+  die "Can't setup database. you maybe need upgrade database";

+}

+else {

+  $app->manager->setup_database;

+}