require(RMySQL)
require(coda)
require(XML)

## Grab the StatShop environmental variable.  I don't know if we will use it,
## but it might be useful.
if(.Platform$OS.type == "unix") {
  StatShop <- system("echo $STATSHOP", intern=TRUE)
} else if(.Platform$OS.type == "windows") {
  StatShop <- system(paste(Sys.getenv("COMSPEC"),"/c","echo %STATSHOP%"),
	intern=TRUE)
}