Changeset 47 in bookmarks

Timestamp:

06/03/13 20:28:59 (12 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

Location:

trunk

Files:

• Bookmarks.pm (modified) (1 diff)
• bkmk (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;
 }
 

trunk/bkmk

@@ -20 +20 @@
 
 my %action_for = (
+    init => sub {
+        $bookmarks->create_tables;
+    },
     get => sub {
         my $identifier = shift;