lib/SGN/Controller/Search/Cross.pm

   1
   2 package SGN::Controller::Search::Cross;
   3
   4 use Moose;
   5
   6 use File::Basename;
   7 use File::Slurp qw | read_file |;
   8 use URI::FromHash 'uri';
   9 use CXGN::Trial::Download;
  10 use DateTime;
  11 use Data::Dumper;
  12
  13 BEGIN { extends 'Catalyst::Controller' };
  14
  15 sub search_page : Path('/search/cross') Args(0) {
  16     my $self = shift;
  17     my $c = shift;
  18
  19     my $user = $c->user();
  20     if (!$user) {
  21         $c->res->redirect( uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
  22         return;
  23     }
  24
  25     $c->stash->{template} = '/search/cross.mas';
  26
  27 }
  28
  29
  30 sub search_progenies_using_female : Path('/search/progenies_using_female') Args(0) {
  31     my $self = shift;
  32     my $c = shift;
  33
  34     $c->stash->{template} = '/search/cross/progeny_search_using_female.mas';
  35
  36 }
  37
  38
  39 sub search_progenies_using_male : Path('/search/progenies_using_male') Args(0) {
  40     my $self = shift;
  41     my $c = shift;
  42
  43     $c->stash->{template} = '/search/cross/progeny_search_using_male.mas';
  44
  45 }
  46
  47
  48 sub search_crosses_using_female : Path('/search/crosses_using_female') Args(0) {
  49     my $self = shift;
  50     my $c = shift;
  51
  52     $c->stash->{template} = '/search/cross/cross_search_using_female.mas';
  53
  54 }
  55
  56
  57 sub search_crosses_using_male : Path('/search/crosses_using_male') Args(0) {
  58     my $self = shift;
  59     my $c = shift;
  60
  61     $c->stash->{template} = '/search/cross/cross_search_using_male.mas';
  62
  63 }
  64
  65
  66 sub download_cross_entries : Path('/search/download_cross_entries') Args(0) {
  67     my $self = shift;
  68     my $c = shift;
  69
  70     my $schema = $c->dbic_schema('Bio::Chado::Schema', 'sgn_chado');
  71     my $user = $c->user();
  72     if (!$user) {
  73         $c->res->redirect( uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
  74         return;
  75     }
  76
  77     my $cross_properties_string = $c->config->{cross_properties};
  78     my @cross_properties = split ',', $cross_properties_string;
  79     my $file_format = "xlsx";
  80
  81     my $time = DateTime->now();
  82     my $timestamp = $time->ymd();
  83     my $dir = $c->tempfiles_subdir('download');
  84     my $temp_file_name = "cross_entries". "XXXX";
  85     my $rel_file = $c->tempfile( TEMPLATE => "download/$temp_file_name");
  86     $rel_file = $rel_file . ".$file_format";
  87     my $tempfile = $c->config->{basepath}."/".$rel_file;
  88 #    print STDERR "TEMPFILE : $tempfile\n";
  89
  90     my $download = CXGN::Trial::Download->new({
  91         bcs_schema => $schema,
  92         filename => $tempfile,
  93         format => 'CrossEntriesXLS',
  94         field_crossing_data_order => \@cross_properties
  95     });
  96
  97     my $error = $download->download();
  98
  99     my $file_name = "cross_entries" . "_" . "$timestamp" . ".$file_format";
 100     $c->res->content_type('Application/'.$file_format);
 101     $c->res->header('Content-Disposition', qq[attachment; filename="$file_name"]);
 102
 103     my $output = read_file($tempfile);
 104
 105     $c->res->body($output);
 106
 107
 108 }
 109
 110
 111 sub download_all_accessions_with_pedigree : Path('/search/download_all_accessions_with_pedigree') Args(0) {
 112     my $self = shift;
 113     my $c = shift;
 114
 115     my $schema = $c->dbic_schema('Bio::Chado::Schema', 'sgn_chado');
 116     my $user = $c->user();
 117     if (!$user) {
 118         $c->res->redirect( uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
 119         return;
 120     }
 121
 122     my $file_format = "xlsx";
 123
 124     my $time = DateTime->now();
 125     my $timestamp = $time->ymd();
 126     my $dir = $c->tempfiles_subdir('download');
 127     my $temp_file_name = "accessions_with_pedigree". "XXXX";
 128     my $rel_file = $c->tempfile( TEMPLATE => "download/$temp_file_name");
 129     $rel_file = $rel_file . ".$file_format";
 130     my $tempfile = $c->config->{basepath}."/".$rel_file;
 131 #    print STDERR "TEMPFILE : $tempfile\n";
 132
 133     my $download = CXGN::Trial::Download->new({
 134         bcs_schema => $schema,
 135         filename => $tempfile,
 136         format => 'AccessionsWithPedigreeXLSX',
 137     });
 138
 139     my $error = $download->download();
 140
 141     my $file_name = "all_accessions_with_pedigree" . "_" . "$timestamp" . ".$file_format";
 142     $c->res->content_type('Application/'.$file_format);
 143     $c->res->header('Content-Disposition', qq[attachment; filename="$file_name"]);
 144
 145     my $output = read_file($tempfile);
 146
 147     $c->res->body($output);
 148
 149 }
 150
 151 sub download_parents_and_numbers_of_progenies : Path('/search/download_parents_and_numbers_of_progenies') Args(0) {
 152     my $self = shift;
 153     my $c = shift;
 154
 155     my $schema = $c->dbic_schema('Bio::Chado::Schema', 'sgn_chado');
 156     my $user = $c->user();
 157     if (!$user) {
 158         $c->res->redirect( uri( path => '/user/login', query => { goto_url => $c->req->uri->path_query } ) );
 159         return;
 160     }
 161
 162     my $parent_type = $c->req->param("parent_type");
 163     my $plugin_type;
 164     if ($parent_type eq 'female_parent') {
 165         $plugin_type = 'FemaleParentsAndNumbersOfProgeniesXLSX';
 166     } elsif ($parent_type eq 'male_parent') {
 167         $plugin_type = 'MaleParentsAndNumbersOfProgeniesXLSX';
 168     }
 169
 170      my $file_format = "xlsx";
 171
 172     my $time = DateTime->now();
 173     my $timestamp = $time->ymd();
 174     my $dir = $c->tempfiles_subdir('download');
 175
 176     my $temp_file_name;
 177     if ($parent_type eq 'female_parent') {
 178         $temp_file_name = "female_parents_and_numbers_of_progenies". "XXXX";
 179     } elsif ($parent_type eq 'male_parent') {
 180         $temp_file_name = "male_parents_and_numbers_of_progenies". "XXXX";
 181     }
 182
 183     my $rel_file = $c->tempfile( TEMPLATE => "download/$temp_file_name");
 184     $rel_file = $rel_file . ".$file_format";
 185     my $tempfile = $c->config->{basepath}."/".$rel_file;
 186 #    print STDERR "TEMPFILE : $tempfile\n";
 187
 188     my $download = CXGN::Trial::Download->new({
 189         bcs_schema => $schema,
 190         filename => $tempfile,
 191         format => $plugin_type,
 192     });
 193     my $error = $download->download();
 194
 195     my $file_name;
 196     if ($parent_type eq 'female_parent') {
 197         $file_name = "female_parents_and_numbers_of_progenies" . "_" . "$timestamp" . ".$file_format";
 198     } elsif ($parent_type eq 'male_parent') {
 199         $file_name = "male_parents_and_numbers_of_progenies" . "_" . "$timestamp" . ".$file_format";
 200     }
 201     $c->res->content_type('Application/'.$file_format);
 202     $c->res->header('Content-Disposition', qq[attachment; filename="$file_name"]);
 203
 204     my $output = read_file($tempfile);
 205
 206     $c->res->body($output);
 207
 208 }
 209
 210
 211
 212 1;