cgi-bin/population.pl

   1 #!/usr/bin/perl -w
   2
   3 =head1 DESCRIPTION
   4 a redirect for a wrong url (/population.pl?population_id=12)
   5 in qtl paper http://www.biomedcentral.com/1471-2105/11/525/abstract/
   6
   7 --pending a better solution...
   8
   9 =head1 AUTHOR
  10
  11 Isaak Y Tecle (iyt2@cornell.edu)
  12
  13 =cut
  14
  15 use strict;
  16 use CGI;
  17
  18 my $cgi = CGI->new();
  19 my $pop_id = $cgi->param('population_id');
  20
  21 print  $cgi->redirect(-uri =>"phenome/population.pl?population_id=$pop_id", -status=>301);
  22