source: bookmarks/trunk/index.cgi @ 25

#!/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();