cgi-bin/qtl/guide.pl

   1 use CatalystX::GlobalContext qw( $c );
   2 #!/usr/bin/perl -w
   3
   4 =head1 DESCRIPTION
   5 easy to remember url redirect to the googledoc QTL guidelines page;
   6
   7 =head1 AUTHOR
   8
   9 Isaak Y Tecle (iyt2@cornell.edu)
  10
  11 =cut
  12
  13 use strict;
  14 use CGI;
  15
  16 my $redir = CGI->new()->redirect(-uri =>'http://docs.google.com/View?id=dgvczrcd_1c479cgfb', status=>301);
  17
  18 $c->forward_to_mason_view('/qtl/guide.mas', redir=>$redir);