#!/usr/bin/perl use strict; use CGI qw/:standard/; #my $DOCROOT = '/whoiweb/apache/htdocs'; my $DOCROOT = '/raid/b1/web/virtual/www/www-htdocs'; my $DIR = '/science/B/whalepelvics/data'; my $q = CGI->new; my $t = $q->param('t') || 'default'; my $title = 'The pelvic bones of some cetacea'; my $content; if ($t eq 'default') { $content = homepage({ dir => "$DOCROOT/$DIR" }) . q(

Species

'; } else { # One of the species #$content .= "$DOCROOT/$DIR/$t"; if (-d "$DOCROOT/$DIR/$t") { my $nicename = ucfirst $t; $nicename =~ s:_: :g; my $english; { local $/ = undef; open(F, "$DOCROOT/$DIR/$t/info.txt"); $english = ; close F; } $content .= qq(

$nicename ($english)

); my @images = dir_contents("$DOCROOT/$DIR/$t"); foreach my $img (@images) { next if $img eq 'info.txt'; $content .= qq(  ); } } $content .= q(
Home); } print header() . qq( $title $content ); ##### sub dir_contents { my $dir = shift; opendir D, $dir; my @items = grep /\w+/, readdir D; closedir D; return sort @items; } sub homepage { my $args = shift; my $debug; #foreach my $key (keys %ENV) { # $debug .= qq($key -- $ENV{$key}
); #} my $content; open (F, "/raid/b1/web/virtual/www/www-htdocs/science/B/whalepelvics/homepage.html"); { local $/ = undef; $content = ; } close F; return $content; } __END__

The pelvic bones of some cetaceans.

This web site provides digital photographs of the pelvic bones of several different species of whales, dolphins and porpoise. They are referred to as pelvic bones because of the unresolved issue of labeling them vestiges, rudiments or remnants.

The data with each picture, when available, includes species, sex, length and either field number or museum number. Missing information is due in large part to the fact that some bones were collected over a century ago and arrived with incomplete data.

The source of these bones include the Smithsonian, the Museum of Comparative Zoology at Harvard, Northeastern University, the University of Massachusetts at Amherst, the American Museum of Natural History, Los Angeles County Museum, New Brunswick Museum and whale recovery efforts of Dr. Tom French, Dr. Michael Moore, the author and others.

Anyone wishing to contribute photographs of cetacean pelvic bones or comment on existing pictures is encouraged to e-mail me at dbtaylor\@whoi.edu.