ae-mogile.pl

#!/usr/bin/env perl

use AnyEvent::HTTPD;
my $httpd = AnyEvent::HTTPD->new(port => 3000);

use MogileFS::Client;
my $client = MogileFS::Client->new( domain => "test", hosts => ["localhost:7001"] );

use MIME::Types;
my $mime = MIME::Types->new;

my $moghandler = sub {
    my ($httpd, $req) = @_;
    my $body = $client->get_file_data($req->url);
    $req->respond({
        content => [$mime->mimeTypeOf($req->url), $$body]
    });
};

$httpd->reg_cb( "" => $moghandler );

$httpd->run;