sub display_links {
    my $self = shift;
    my $cgi = $self->query;
    my $xml = $self->param('xml');
    my %auth = $cgi->cookie(
        -name   =>  'cowsnet-auth',
        -path   =>  '/'
    );
    my $html;
    if (scalar keys %auth) {
        my $prefs = eval {
            my @user = grep { $_->{'username'} eq $auth{'username'} } @{%{$xml}->{'user'}};
            return shift @user;
        };
        $html = $self->load_tmpl("authenticated.tmpl");
        if (exists $prefs->{'links'}) {
            my @links;
            push (@links, {
                'href' =>  eval {
                    my $uri = URI->new($_->{'href'});
                    $uri->canonical->as_string;
                }
            }) foreach @{$prefs->{'links'}};
            $html->param(
                'links' =>  \@links
            );
        }
    } else {
        $html = $self->load_tmpl("default.tmpl");
    }
    return $html->output;
}