Changeset 47 in bookmarks for trunk/Bookmarks.pm

Timestamp:

06/03/13 20:28:59 (11 years ago)

Author:

peter

Message:

• added a create_tables method to Bookmarks that uses the bookmarks.sql file to create the tables
• added an "init" command to the bkmk script

File:

• trunk/Bookmarks.pm (modified) (1 diff)

trunk/Bookmarks.pm

@@ -31 +31 @@
         }
     }
+}
+
+sub create_tables {
+    my $self = shift;
+    require File::Slurp;
+    my $table_definitions = File::Slurp::read_file('bookmarks.sql');
+    $self->dbh->{sqlite_allow_multiple_statements} = 1;
+    $self->dbh->do($table_definitions);
+    $self->dbh->{sqlite_allow_multiple_statements} = 0;
+    return $self;
 }