Index: trunk/bookmarks.sql
===================================================================
--- trunk/bookmarks.sql	(revision 128)
+++ 	(revision )
@@ -1,55 +1,0 @@
-drop table if exists tags;
-drop table if exists resources;
-drop table if exists bookmarks;
-
--- resources by URI
--- this is where we would store information about the resource,
--- such as its title, last known status, etc.
-create table resources (
-    uri varchar primary key,
-    title varchar -- URI title (e.g., page title)
-);
-
--- bookmarks of resources
--- each resource can only have one bookmark
--- bookmarks have creation and modification times
-create table bookmarks (
-    id integer primary key,
-    uri varchar references resources(uri) on update cascade,
-    ctime integer, -- creation time of the bookmark
-    mtime integer,  -- modification time of the bookmark
-    constraint unique_uri unique (uri)
-);
-
-/* old resources table
-create table resources (
-    uri varchar primary key,
-    title varchar, -- URI title (e.g., page title)
-    ctime integer, -- creation time of the bookmark
-    mtime integer  -- modification time of the bookmark
-);
-*/
-
--- tags that describe the resource
--- TODO: machine-tag style tags? e.g. format:video or creator:NASA; implicit tag prefix is "subject:"
-create table tags (
-    uri varchar references resources(uri) on update cascade,
-    tag varchar,
-    constraint unique_tag primary key (uri, tag)
-);
-
-/*
-create a new resource:
-insert into resources (uri, title) values ('http://echodin.net/', 'More Space');
-
-create a bookmark of that resource:
-insert into bookmarks (uri, ctime, mtime) values ('http://echodin.net/', 1323407821, 1323407821);
-
-tag that resource:
-insert into tags (uri, tag) values ('http://echodin.net/', 'homepage');
-
-The resource's primary key is the URI. The bookmark id identifies the bookmark only, NOT the bookmarked resource
-
-get the bookmark and its resource values
-select id,resources.uri,title,ctime,mtime from bookmarks join resources on bookmarks.uri=resources.uri where id=1;
-*/
Index: trunk/cpanfile
===================================================================
--- trunk/cpanfile	(revision 128)
+++ 	(revision )
@@ -1,32 +1,0 @@
-# vim:ft=perl
-requires 'Moose';
-requires 'HTTP::Date';
-requires 'JSON';
-requires 'SQL::Interp';
-requires 'URI';
-requires 'Template';
-requires 'Encode';
-requires 'Router::Resource';
-requires 'Data::Pageset';
-
-# web application
-requires 'Plack', '1.0036';
-requires 'Starman';
-requires 'File::Pid';
-requires 'Plack::Middleware::ReverseProxy';
-requires 'Plack::Middleware::Auth::Digest';
-requires 'Bytes::Random::Secure';
-
-# command line tool
-requires 'YAML';
-requires 'WWW::Mechanize';
-
-# for opening the dbh handle
-requires 'DBI';
-requires 'DBD::SQLite';
-
-# TODO: should these be recommends?
-requires 'XML::XBEL';
-requires 'XML::Atom';
-requires 'Text::CSV::Encoded';
-requires 'File::Slurp';
Index: trunk/import
===================================================================
--- trunk/import	(revision 128)
+++ 	(revision )
@@ -1,41 +1,0 @@
-#!/usr/bin/perl -w
-use strict;
-
-use XML::XPath;
-use DBI;
-use YAML;
-use Time::Local;
-
-my $xpath = XML::XPath->new(filename => 'delicious.xml');
-
-my $nodeset = $xpath->find('/posts/post');
-
-binmode(STDOUT, ":utf8");
-
-use Bookmarks;
-my $bookmarks = Bookmarks->new({
-    dbh => DBI->connect("dbi:SQLite:dbname=bookmarks.db", "", "", { RaiseError => 1 })
-});
-
-foreach my $node ($nodeset->get_nodelist) {
-    my $timestamp = $node->getAttribute('time');
-    my ($year, $month, $day, $hour, $minute, $second) = ($timestamp =~ /^(\d\d\d\d)-(\d\d)-(\d\d)T(\d\d):(\d\d):(\d\d)Z$/);
-    my $ctime = timegm($second, $minute, $hour, $day, $month - 1, $year);
-    my %bookmark = (
-        uri   => $node->getAttribute('href'),
-        title => sanitize($node->getAttribute('description')),
-        tags  => [ split ' ', $node->getAttribute('tag') ],
-        ctime => $ctime,
-    );
-    print Dump(\%bookmark);
-    #TODO: UTF-8 issues
-    $bookmarks->add(\%bookmark);
-}
-
-
-# strip out Unicode control characters that are showing up in YouTube link titles
-sub sanitize {
-    my $string = shift;
-    $string =~ s/[\x{202a}\x{202c}\x{200f}]//g;
-    return $string;
-}