Paste: tinyvid

Author: doublec
Mode: factor
Date: Fri, 19 Dec 2008 06:23:40
Plain Text |
: <tinyvid> ( -- tinyvid )
    tinyvid new-dispatcher
        "extra/webapps/tinyvid/www" resource-path <static> "www" add-responder
        <main-action> "" add-responder
        <queue-action> "queue" add-responder
        <upload-action> "upload" add-responder
        <show-action> "show" add-responder
        <file-action> "file" add-responder
        <youtube-action> "youtube" add-responder
        <video-feed-action> "videos.xml" add-responder
        <feedback-action> "feedback" add-responder
        <random-action> "random" add-responder
       <boilerplate>
            { tinyvid "tinyvid" } >>template ;

New Annotation

Summary:
Author:
Mode:
Body: