mason/tools/bulk/tabs/ftp_tab.mas

   1
   2 <%perl>
   3
   4 =head2 ftp_site
   5
   6   Desc: sub ftp_site
   7   Args: n/a
   8   Ret : ftp tab format
   9
  10   Defines the format of the ftp tab using html & perl. Specifies
  11   links for downloading ftp information.
  12
  13 =cut
  14
  15 print <<HTML;
  16     <h3 style="margin-bottom: 0.3em">SGN FTP site</h3>
  17         <div style="margin: 0 1em 0 1em">Download complete datasets.</div><br />
  18
  19     <div style="margin: 0; padding: 1em; border: 1px solid #ccccff">
  20         <a class="folderlink" href="ftp://ftp.solgenomics.net">ftp top level</a>
  21
  22         <ul style="margin: 1em 0 0 0; list-style: none">
  23
  24 HTML
  25
  26     my %ftplinks = (
  27         'unigene_builds' =>
  28 'Sequence, quality, and membership information for all SGN unigene builds',
  29         'est_sequences' =>
  30           'Sequence and quality files for all SGN ESTs, organized by library',
  31         'maps_and_markers' =>
  32           'Marker sequences and marker position lists for all SGN maps',
  33         'physical_mapping' =>
  34 'Raw data files for Tomato HindIII BAC library FPC and overgo analyses',
  35         'blast_annotations' =>
  36 'Highest-ranked hits vs. Genbank NR and Arabidopsis for all SGN unigenes.',
  37         'manual_annotations' =>
  38           'Manual annotations for a number of SGN unigenes',
  39         'user_requests' =>
  40 'Custom-generated datasets for individual users (mail special requests to <a href="mailto:sgn-feedback@sgn.cornell.edu">sgn-feedback</a>)',
  41         'genomes/Solanum_lycopersicum' =>
  42           'Tomato genomic data, including BAC end and full BAC sequences',
  43           'genomes/Solanum_tuberosum' =>
  44           'Potato genome data',
  45           'genomes/Nicotiana_benthamiana' => 'Nicotiana benthamiana genome data',
  46           'genomes/Solanum_melongena_consortium' => 'Eggplant V3 genome data',
  47         'COSII' => 'COSII marker data'
  48     );
  49
  50     foreach my $dir ( sort keys %ftplinks ) {
  51         my $desc = $ftplinks{$dir};
  52         print <<HTML;
  53         <li><a class="folderlink" href="ftp://ftp.solgenomics.net/$dir"> $dir</a>
  54             <div class="folderdesc">$desc</div>
  55         </li>
  56 HTML
  57     }
  58
  59     print <<HTML;
  60         </ul>
  61     </div>
  62
  63         <br />
  64         <i>Note:</i> The SGN FTP site can also be accessed directly through <a href="ftp://ftp.solgenomics.net">ftp://ftp.solgenomics.net</a> using a browser or ftp program.
  65 HTML
  66
  67
  68
  69
  70 </%perl>