Isolate Stemweb calls into own controller; guard against server being down. #29

[scpubgit/stemmaweb.git] / lib / stemmaweb / Controller / Root.pm

diff --git a/lib/stemmaweb/Controller/Root.pm b/lib/stemmaweb/Controller/Root.pm
index 82fde7d..0315867 100644 (file)
--- a/lib/stemmaweb/Controller/Root.pm
+++ b/lib/stemmaweb/Controller/Root.pm
@@ -2,7 +2,6 @@ package stemmaweb::Controller::Root;
 use Moose;
 use namespace::autoclean;
 use JSON qw ();
-use LWP::UserAgent;
 use TryCatch;
 use XML::LibXML;
 use XML::LibXML::XPathContext;
@@ -16,8 +15,6 @@ BEGIN { extends 'Catalyst::Controller' }
 #
 __PACKAGE__->config(namespace => '');
 
-my $STEMWEB_BASE_URL = 'http://slinkola.users.cs.helsinki.fi';
-
 =head1 NAME
 
 stemmaweb::Controller::Root - Root Controller for stemmaweb
@@ -42,14 +39,6 @@ sub index :Path :Args(0) {
        if( $c->req->param('withtradition') ) {
                $c->stash->{'withtradition'} = $c->req->param('withtradition');
        }
-       # Get the current list of Stemweb algorithms
-       my $ua = LWP::UserAgent->new();
-       my $resp = $ua->get( $STEMWEB_BASE_URL . '/algorithms/available' );
-       if( $resp->is_success ) {
-               $c->stash->{'stemweb_algorithms'} = $resp->content;
-       } else {
-               $c->stash->{'stemweb_algorithms'} = '{}';
-       }
     $c->stash->{template} = 'index.tt';
 }