From 3852abfb5c39807cc238e46bf7247e1afcd4cca9 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Wed, 19 Oct 2005 18:49:40 +0000
Subject: fatto il db

---
 script/bookmarks_makedb.pl | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 script/bookmarks_makedb.pl

(limited to 'script')

diff --git a/script/bookmarks_makedb.pl b/script/bookmarks_makedb.pl
new file mode 100644
index 0000000..84e2fd5
--- /dev/null
+++ b/script/bookmarks_makedb.pl
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use DBI;
+use FindBin;
+use Path::Class;
+
+my $DBHOME=dir($FindBin::Bin)->parent->file('bookmarks.db');
+
+my $db=DBI->connect("dbi:SQLite:$DBHOME");
+
+local $/='';
+while (<DATA>) {
+    my $rv=$db->do($_);
+    warn 'Problemi: '.$db->errstr() unless $rv;
+}
+
+__DATA__
+drop table links_tags;
+
+drop table links;
+
+drop table tags;
+
+create table links (
+ pk integer primary key autoincrement,
+ url text unique,
+ descr text,
+ icon blob,
+ add_date integer,
+ last_access_date integer,
+ access_count integer
+);
+
+create table tags (
+ pk integer primary key autoincrement,
+ name text unique,
+ descr text
+);
+
+create table links_tags (
+ link integer,
+ tag integer
+);
-- 
cgit v1.2.3