Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: f588996e96
Fetching contributors…

Cannot retrieve contributors at this time

executable file 23 lines (15 sloc) 0.59 kb
#!/usr/local/bin/perl -w
use lib 'lib';
use CGI::Carp qw(fatalsToBrowser);
use strict;
use OurCal;
use OurCal::Config;
use OurCal::Handler::CGI;
use OurCal::View;
$|++;
my $config = OurCal::Config->new( file => 'ourcal.conf' );
my $handler = OurCal::Handler::CGI->new( config => $config );
my $cal = OurCal->new( date => $handler->date, user => $handler->user, config => $config );
my $view = OurCal::View->load_view($handler->view, handler => $handler, config => $config->config, calendar => $cal);
print $handler->header($view->mime_type);
print $view->handle();
Jump to Line
Something went wrong with that request. Please try again.