#!/usr/bin/perl -w use strict; # bookmarklet to add a bookmark via the browser # javascript:(function(){window.open("http://grim.ath.cx/~peter/bookmarks?uri="+document.location+"&title="+document.title,"edit_bookmark","width=800,height=250")})() package BookmarkApp::Dispatch; use base 'CGI::Application::Dispatch'; sub dispatch_args { return { table => [ '[get]' => { app => 'BookmarkApp', rm => 'list' }, 'list[get]' => { app => 'BookmarkApp', rm => 'list' }, 'feed[get]' => { app => 'BookmarkApp', rm => 'feed' }, ':id/:field?[get]' => { app => 'BookmarkApp', rm => 'view' }, ':id?[post]' => { app => 'BookmarkApp', rm => 'edit' }, ], }; } package main; BookmarkApp::Dispatch->dispatch();