This is the MBARI BOG dataset
Please go to the following for more information:
MBARI's Biological Ocean Group
This data is being served by a DODS Relational Database Server (DRDS), which is a somewhat unusual instance of a DODS server. All of the data served by the DRDS is stored in a relational database management system (DBMS). Queries from DODS clients are translated into SQL queries and sent to the underlying DBMS. The reuturned data is read by the DRDS and returned to the requesting client.
Because the DRDS is essentially a front end to a DBMS, the DDS's have a somewhat different meaning than in other DODS servers. Each DDS served by the a DRDS represents a table in the underlying DBMS. Since queries to the DBMS will return an unknown amount of data, each DDS basically must contain a representation of the tables contents defined as a DODS sequence. Because of this it rarely makes sense for a client to request the entire "dataset", as this request will return the entire contents of the table. When requesting data from a DRDS, it is best to get the dataset information (using the .info extension on the DODS URL) and then build a constrained request that just returns data that is actually desired. This doesn't mean that the entire table cannot be requested and sent, it is simply a caution that each dataset/DDS/table may in fact be very large.
unique(): This function gets used in the selection part of the DODS constraint expression. It requires no parameters. Calling this funcion will cause the return to contain only unique rows. This is useful for sifting through numerous identical fields, for example station data that contains instrument names. This is NOT very useful if you are trying to retrieve a ship track... Example:
http://nasty.dods.url/server/dataset.dods?var1,var2&unique()
Regular Expressions: The typical DODS server supports the full range regular expression syntax. THIS DODS server does not. Limited string matching is available. The wild card characters '.' and '.*' may used. The '[...]' notation for matching a range of characters may be used, but only to match a single character to a range of possiblities. Examples:
http://nasty.dods.url/server/dataset.dods?var1,var2&var3~=".*south.*" http://nasty.dods.url/server/dataset.dods?var1,var2&var3~=".south."
location="Southern%20Ocean"
location="Southern Ocean"
Have fun!
"; @values = split(/&/, $ENV{'QUERY_STRING'}); my %qVars = (); foreach $i (@values) { ($varname, $mydata) = split(/=/, $i); $qVars{lc $varname} = $mydata; ##print "The value of $varname is $mydata\n\n
"; } # # Get parameters from Query String. GE will provide bbox. qsql is for # potential future use. # $bbox = $qVars{'bbox'}; $qsql = $qVars{'qsql'}; ##print "bbox = $bbox\n"; if ( $bbox ) { ($west, $south, $east, $north) = split(',', $bbox); } elsif ( $qsql ) { # Use this SQL for the query below } else { # Some default bounding box - for testing ($west, $south, $east, $north) = (-124, 35.2, -122, 36); } # # Set up database connection (replace <...> entries with actual connection parameters) # ##print "\nConnecting to the Database"; my $dbh = DBI->connect("DBI:Sybase:server=", "", "", {PrintError => 1}); $dbh->do("use BOG"); # # Count the records for the query and set up the stride for subsampling # - careful that we use the same join and where clause as we do below... # my $countSQL = < $south) AND (dbo.EXPEDITION.dec_lat < $north) AND (dbo.EXPEDITION.dec_long > $west) AND (dbo.EXPEDITION.dec_long < $east) EOS ##print "\nExecuting countSQL: $countSQL"; my $sth = $dbh->prepare($countSQL); $sth->execute; while ( my $rrow = $sth->fetchrow_arrayref() ) { $numRows = $$rrow[0]; } ##print "numRows = $numRows\n"; $bottlesToDisplay = 500; $stride = int($numRows / $bottlesToDisplay); $stride = 1 if $stride < 1; ##print "stride = $stride\n"; # # Construct SQL statements with DateTime given in ISO8601 format. If SQL passed in then # construct that query with the additional ISO8601 date format. Apply the stride from above. # my $sql; if ( $qsql ) { # Add DateTime and put in some newlines for cleaner display in the description # Need to add ISO date time to SELECT $qsql =~ s/FROM/, rtrim(convert(char, CollectionEventDTG,126)) + 'Z' as DateTime \nFROM/; $qsql =~ s/WHERE/\nWHERE/; $qsql =~ s/ORDER/\nORDER/; $sql = $qsql; } else { ##SELECT dbo.EXPEDITION.dec_lat AS Latitude, dbo.EXPEDITION.dec_long AS Longitude, ## dbo.BCTD.BOTTLE, dbo.EXPEDITION.cruise, dbo.BCTD.DEPTH, dbo.BCTD.CTRB_ID, $sql = < $south) AND (dbo.EXPEDITION.dec_lat < $north) AND (dbo.EXPEDITION.dec_long > $west) AND (dbo.EXPEDITION.dec_long < $east) AND BCTD.CTD_BOTTLE_ID % $stride = 1 ORDER BY dbo.EXPEDITION.date_time EOS } # # Execute the SQL, and build the placemarks # ##print "\nExecuting sql: $sql"; $sth = $dbh->prepare($sql); $sth->execute; my $placemarks = ''; my $count = 0; while ( my $rrow = $sth->fetchrow_hashref() ) { ##foreach my $k ( keys %$rrow ) { ##print "k = $k, v = " . $$rrow{$k} . "\n"; ##} ##print "\n"; $lat = $$rrow{'dec_lat'}; $lon = $$rrow{'dec_long'}; $depth = $$rrow{'DEPTH'}; unless ($lat && $lon && $depth) { next; } $isodate = $$rrow{'DateTime'}; $bottle = $$rrow{'BOTTLE'}; $cruise = $$rrow{'cruise'}; $name = "$cruise $bottle"; $placemarks .= "\n$name\n"; $placemarks .= "\n$isodate\n\n"; $placemarks .= "$name\n"; foreach my $k ( sort keys %$rrow ) { $placemarks .= "$k: " . $$rrow{$k} . "\n"; } $placemarks .= "]] >\n"; $placemarks .= "#square_pair\n"; $placemarks .= "\nabsolute\n"; $placemarks .= "$lon,$lat,-${depth}\n\n"; $placemarks .= "\n"; $count++; } $dbh->disconnect; # # Build up KML and deliver it to the client # my $kml = < EOK if ( $qsql ) { $kml .= "BOG DB Bottle Query\n"; } else { $kml .= "Bottles\n"; } $kml .= < Individual Bottles normal #sn_square_copy29 highlight #sh_square_copy13 0 0 Resulting from query$sql]] > $placemarks EOK print "Content-type: application/vnd.google-earth.kml+xml\r\n\r\n"; print $kml; {code}]]>
$sql
"; } # # Get parameters from Query String. GE will provide bbox. qsql is for # potential future use. # $bbox = $qVars{'bbox'}; $qsql = $qVars{'qsql'}; ##print "bbox = $bbox\n"; if ( $bbox ) { ($west, $south, $east, $north) = split(',', $bbox); } elsif ( $qsql ) { # Use this SQL for the query below } else { # Some default bounding box - for testing ($west, $south, $east, $north) = (-124, 35.2, -122, 36); } # # Set up database connection # ##print "\nConnecting to the Database"; my $dbh = DBI->connect("DBI:Sybase:server=solstice", "everyone", "guest", {PrintError => 1}); $dbh->do("use BOG"); # # Count the records for the query and set up the stride for subsampling # - careful that we use the same join and where clause as we do below... # my $countSQL = < $south) AND (dbo.EXPEDITION.dec_lat < $north) AND (dbo.EXPEDITION.dec_long > $west) AND (dbo.EXPEDITION.dec_long < $east) EOS ##print "\nExecuting countSQL: $countSQL"; my $sth = $dbh->prepare($countSQL); $sth->execute; while ( my $rrow = $sth->fetchrow_arrayref() ) { $numRows = $$rrow[0]; } ##print "numRows = $numRows\n"; $bottlesToDisplay = 500; $stride = int($numRows / $bottlesToDisplay); $stride = 1 if $stride < 1; ##print "stride = $stride\n"; # # Construct SQL statements with DateTime given in ISO8601 format. If SQL passed in then # construct that query with the additional ISO8601 date format. Apply the stride from above. # my $sql; if ( $qsql ) { # Add DateTime and put in some newlines for cleaner display in the description # Need to add ISO date time to SELECT $qsql =~ s/FROM/, rtrim(convert(char, CollectionEventDTG,126)) + 'Z' as DateTime \nFROM/; $qsql =~ s/WHERE/\nWHERE/; $qsql =~ s/ORDER/\nORDER/; $sql = $qsql; } else { ##SELECT dbo.EXPEDITION.dec_lat AS Latitude, dbo.EXPEDITION.dec_long AS Longitude, ## dbo.BCTD.BOTTLE, dbo.EXPEDITION.cruise, dbo.BCTD.DEPTH, dbo.BCTD.CTRB_ID, $sql = < $south) AND (dbo.EXPEDITION.dec_lat < $north) AND (dbo.EXPEDITION.dec_long > $west) AND (dbo.EXPEDITION.dec_long < $east) AND BCTD.CTD_BOTTLE_ID % $stride = 1 ORDER BY dbo.EXPEDITION.date_time EOS } # # Execute the SQL, and build the placemarks # ##print "\nExecuting sql: $sql"; $sth = $dbh->prepare($sql); $sth->execute; my $placemarks = ''; my $count = 0; while ( my $rrow = $sth->fetchrow_hashref() ) { ##foreach my $k ( keys %$rrow ) { ##print "k = $k, v = " . $$rrow{$k} . "\n"; ##} ##print "\n"; $lat = $$rrow{'dec_lat'}; $lon = $$rrow{'dec_long'}; $depth = $$rrow{'DEPTH'}; unless ($lat && $lon && $depth) { next; } $isodate = $$rrow{'DateTime'}; $bottle = $$rrow{'BOTTLE'}; $cruise = $$rrow{'cruise'}; $name = "$cruise $bottle"; $placemarks .= "\n$name\n"; $placemarks .= "\n$isodate\n\n"; $placemarks .= "$name\n"; foreach my $k ( sort keys %$rrow ) { $placemarks .= "$k: " . $$rrow{$k} . "\n"; } $placemarks .= "]] >\n"; $placemarks .= "#square_pair\n"; $placemarks .= "\nabsolute\n"; $placemarks .= "$lon,$lat,-${depth}\n\n"; $placemarks .= "\n"; $count++; } $dbh->disconnect; # # Build up KML and deliver it to the client # my $kml = < EOK if ( $qsql ) { $kml .= "BOG DB Bottle Query\n"; } else { $kml .= "Bottles\n"; } $kml .= < Individual Bottles normal #sn_square_copy29 highlight #sh_square_copy13 0 0 Resulting from query$sql]] > $placemarks EOK print "Content-type: application/vnd.google-earth.kml+xml\r\n\r\n"; print $kml; {code}]]>
"; } # # Get parameters from Query String. GE will provide bbox. qsql is for # potential future use. # $bbox = $qVars{'bbox'}; $qsql = $qVars{'qsql'}; ##print "bbox = $bbox\n"; if ( $bbox ) { ($west, $south, $east, $north) = split(',', $bbox); } elsif ( $qsql ) { # Use this SQL for the query below } else { # Some default bounding box - for testing ($west, $south, $east, $north) = (-124, 35.2, -122, 36); } # # Set up database connection # ##print "\nConnecting to the Database"; my $dbh = DBI->connect("DBI:Sybase:server=", "", "", {PrintError => 1}); $dbh->do("use BOG"); # # Count the records for the query and set up the stride for subsampling # - careful that we use the same join and where clause as we do below... # my $countSQL = < $south) AND (dbo.EXPEDITION.dec_lat < $north) AND (dbo.EXPEDITION.dec_long > $west) AND (dbo.EXPEDITION.dec_long < $east) EOS ##print "\nExecuting countSQL: $countSQL"; my $sth = $dbh->prepare($countSQL); $sth->execute; while ( my $rrow = $sth->fetchrow_arrayref() ) { $numRows = $$rrow[0]; } ##print "numRows = $numRows\n"; $bottlesToDisplay = 500; $stride = int($numRows / $bottlesToDisplay); $stride = 1 if $stride < 1; ##print "stride = $stride\n"; # # Construct SQL statements with DateTime given in ISO8601 format. If SQL passed in then # construct that query with the additional ISO8601 date format. Apply the stride from above. # my $sql; if ( $qsql ) { # Add DateTime and put in some newlines for cleaner display in the description # Need to add ISO date time to SELECT $qsql =~ s/FROM/, rtrim(convert(char, CollectionEventDTG,126)) + 'Z' as DateTime \nFROM/; $qsql =~ s/WHERE/\nWHERE/; $qsql =~ s/ORDER/\nORDER/; $sql = $qsql; } else { ##SELECT dbo.EXPEDITION.dec_lat AS Latitude, dbo.EXPEDITION.dec_long AS Longitude, ## dbo.BCTD.BOTTLE, dbo.EXPEDITION.cruise, dbo.BCTD.DEPTH, dbo.BCTD.CTRB_ID, $sql = < $south) AND (dbo.EXPEDITION.dec_lat < $north) AND (dbo.EXPEDITION.dec_long > $west) AND (dbo.EXPEDITION.dec_long < $east) AND BCTD.CTD_BOTTLE_ID % $stride = 1 ORDER BY dbo.EXPEDITION.date_time EOS } # # Execute the SQL, and build the placemarks # ##print "\nExecuting sql: $sql"; $sth = $dbh->prepare($sql); $sth->execute; my $placemarks = ''; my $count = 0; while ( my $rrow = $sth->fetchrow_hashref() ) { ##foreach my $k ( keys %$rrow ) { ##print "k = $k, v = " . $$rrow{$k} . "\n"; ##} ##print "\n"; $lat = $$rrow{'dec_lat'}; $lon = $$rrow{'dec_long'}; $depth = $$rrow{'DEPTH'}; unless ($lat && $lon && $depth) { next; } $isodate = $$rrow{'DateTime'}; $bottle = $$rrow{'BOTTLE'}; $cruise = $$rrow{'cruise'}; $name = "$cruise $bottle"; $placemarks .= "\n$name\n"; $placemarks .= "\n$isodate\n\n"; $placemarks .= "$name\n"; foreach my $k ( sort keys %$rrow ) { $placemarks .= "$k: " . $$rrow{$k} . "\n"; } $placemarks .= "]] >\n"; $placemarks .= "#square_pair\n"; $placemarks .= "\nabsolute\n"; $placemarks .= "$lon,$lat,-${depth}\n\n"; $placemarks .= "\n"; $count++; } $dbh->disconnect; # # Build up KML and deliver it to the client # my $kml = < EOK if ( $qsql ) { $kml .= "BOG DB Bottle Query\n"; } else { $kml .= "Bottles\n"; } $kml .= < Individual Bottles normal #sn_square_copy29 highlight #sh_square_copy13 0 0 Resulting from query$sql]] > $placemarks EOK print "Content-type: application/vnd.google-earth.kml+xml\r\n\r\n"; print $kml; {code}]]>