#!/usr/bin/perl
#
# This program can be run with a command like this to start a long-lived
# FastCGI bryar daemon:
#
# env - PATH="/usr/local/bin:/usr/bin:/bin" \
# spawn-fcgi \
# -u md -g md \
# -f /var/www/blog/bin/bryar.fcgi \
# -s /var/run/bryar/bryar.socket \
# -P /var/run/bryar/bryar-fcgi.pid
#
# This is an example configuration for lighttpd:
#
# $HTTP["host"] == "blog.example.org" {
# fastcgi.server = (
# "/fastcgi/bryar.cgi" => ((
# "socket" => "/var/run/bryar/bryar.socket",
# "check-local" => "disable",
# ))
# )
#
# $HTTP["url"] =~ "^/data/" { url.access-deny = ("") }
#
# url.rewrite-once += (
# "^/+([a-z]+/)?(|id_[0-9]+|before_[0-9]+|200[4-9]/.*)(\?.*)?$"
# => "/fastcgi/bryar.cgi/$1$2$3",
# )
# }
use warnings;
use strict;
use Bryar;
use CGI::Fast qw(-compile);
use Cache::FileCache;
my $cache = new Cache::FileCache({
cache_root => '/tmp/bryar/',
cache_depth => 0,
});
my $bryar = Bryar->new(
datadir => '/var/www/blog/data',
renderer => 'Bryar::Renderer::TT',
frontend => 'Bryar::Frontend::FastCGI',
cache => $cache,
);
while (my $q = new CGI::Fast) {
$bryar->config->frontend->fastcgi_request($q);
eval { $bryar->go };
print STDERR "$@\n" if $@;
}