diff --git a/Database.pm b/Database.pm index b435c63..3e64cf2 100644 --- a/Database.pm +++ b/Database.pm @@ -121,7 +121,7 @@ sub create_base { my $dbh = DBI->connect( "dbi:SQLite:dbname=$first_sqlite", "", "" ); print "Create database schema\n"; my $q_table - = "create table passwords(name VARCHAR(32), username VARCHAR(32), + = "create table passwords(id INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL, name VARCHAR(32), username VARCHAR(32), resource TEXT, password TEXT)"; $dbh->do($q_table);