#!/usr/bin/perl -Tw

use CGI;
use CGI::Carp qw/ fatalsToBrowser /;
use Template;
use strict;


my $cgi = CGI->new;
my $index = 0;
if ( defined $cgi->path_info ) {
    my $path = substr( $cgi->path_info, 1 );
    $index = $1 if $path =~ /^(\d+)$/;
}

my $template = Template->new({ 'INCLUDE_PATH' => '/http/development.cowsnet.com.au/templates' });

my $html = '';
$template->process(
    'navigation.tt2',
    {
        'index'     =>  $index
    },
    \$html
) || croak( 'main:: - Cannot process output template - ', $template->error );

print STDOUT $cgi->header, $html;
exit 0;