lib/SGN/Controller/SolgwasTool.pm

   1 package SGN::Controller::SolgwasTool;
   2
   3 use Moose;
   4
   5 use POSIX;
   6 use Data::Dumper;
   7 use Storable qw | nstore retrieve |;
   8 use List::Util qw/sum/;
   9 use Bio::SeqIO;
  10 use CXGN::Tools::Text qw/ sanitize_string /;
  11 #use SGN::Schema;
  12 use URI::FromHash 'uri';
  13 use CXGN::Blast;
  14 use CXGN::Blast::SeqQuery;
  15
  16
  17 BEGIN { extends 'Catalyst::Controller'; }
  18
  19 sub AUTO {
  20     my $self = shift;
  21     my $c = shift;
  22     SGN::Schema::BlastDb->dbpath($c->config->{blast_db_path});
  23 }
  24
  25 sub index :Path('/tools/solgwas/') :Args(0) {
  26   my $self = shift;
  27   my $c = shift;
  28   if (! $c->user) {
  29     $c->res->redirect(uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
  30     return;
  31   }
  32   $c->stash->{template} = '/tools/solgwas/index.mas';
  33 }
  34
  35
  36
  37
  38 1;