static char *encodedHgSessionReturnUrl(int hgsid)
/* Return a CGI-encoded hgSession URL with hgsid. Free when done. */
{
char retBuf[1024];
safef(retBuf, sizeof(retBuf), "http://%s/cgi-bin/hgSession?hgsid=%d",
cgiServerName(), hgsid);
return cgiEncode(retBuf);
}
void checkForGeoMirrorRedirect(struct cart *cart)
// Implement Geo/IP based redirection.
{
char *thisNodeStr = geoMirrorNode();
if (thisNodeStr) // if geo-mirroring is enabled
{
char *redirectCookie = findCookieData("redirect");
char *redirect = cgiOptionalString("redirect");
// if we're not already redirected
if (redirect == NULL && redirectCookie == NULL)
{
int thisNode = sqlUnsigned(thisNodeStr);
struct sqlConnection *centralConn = hConnectCentral();
char *ipStr = cgiRemoteAddr();
int node = defaultNode(centralConn, ipStr);
// if our node is not the node that's closest.
if (thisNode != node)
{
char *geoSuffix = cfgOptionDefault("browser.geoSuffix","");
char query[1056];
sqlSafef(query, sizeof query, "select domain from gbNode%s where node = %d", geoSuffix, node);
char *newDomain = sqlQuickString(centralConn, query);
char *oldDomain = cgiServerName();
char *port = cgiServerPort();
char *uri = cgiRequestUri();
char *sep = strchr(uri, '?') ? "&" : "?";
int newUriSize = strlen(uri) + 1024;
char *newUri = needMem(newUriSize);
char *oldUri = needMem(newUriSize);
safef(oldUri, newUriSize, "http%s://%s:%s%s%sredirect=manual&source=%s",
cgiServerHttpsIsOn() ? "s" : "", oldDomain, port, uri, sep, oldDomain);
safef(newUri, newUriSize, "http%s://%s:%s%s%sredirect=manual&source=%s",
cgiServerHttpsIsOn() ? "s" : "", newDomain, port, uri, sep, oldDomain);
printf("<TR><TD COLSPAN=3 id='redirectTd' onclick=\"javascript:document.getElementById('redirectTd').innerHTML='';\">"
"<div style=\"margin: 10px 25%%; border-style:solid; border-width:thin; border-color:#97D897;\">"
"<h3 style=\"background-color: #97D897; text-align: left; margin-top:0px; margin-bottom:0px;\">"
" You might want to navigate to your nearest mirror - %s"
"</h3> "
"<ul style=\"margin:5px;\">",
newDomain);
printf("<li>User settings (sessions and custom tracks) <B>will differ</B> between sites."
"<idiv style=\"float:right;\"><a href=\"../goldenPath/help/genomeEuro.html#sessions\">Read more.</a></idiv>");
printf("<li>Take me to <a href=\"%s\">%s</a> </li>",
newUri, newDomain);
printf("<li>Let me stay here <a href=\"%s\">%s</a>",
oldUri, oldDomain );
printf("</div></TD></TR>\n");
exit(0);
}
hDisconnectCentral(¢ralConn);
}
}
}
boolean cartTrackDbIsAccessDenied(char *db, char *table)
/* Return TRUE if useAccessControl=TRUE was passed to cartTrackDbInit and
* if access to table is denied (at least on this host) by 'tableBrowser off'
* or by the tableAccessControl table. */
{
static char *currentHost = NULL;
static struct hash *dbToAcHash = NULL;
if (!useAC)
return FALSE;
struct slName *enabledHosts = NULL;
struct slName *sln = NULL;
if (dbToAcHash == NULL)
dbToAcHash = hashNew(0);
struct hash *acHash = hashFindVal(dbToAcHash, db);
if (acHash == NULL)
{
struct sqlConnection *conn = hAllocConn(db);
acHash = accessControlInit(conn);
hFreeConn(&conn);
hashAdd(dbToAcHash, db, acHash);
}
if (acHash == NULL)
return FALSE;
enabledHosts = (struct slName *)hashFindVal(acHash, table);
if (enabledHosts == NULL)
return FALSE;
if (currentHost == NULL)
{
currentHost = cloneString(cgiServerName());
if (currentHost == NULL)
{
warn("accessControl: unable to determine current host");
return FALSE;
}
else
chopAtFirstDot(currentHost);
}
for (sln = enabledHosts; sln != NULL; sln = sln->next)
{
if (sameString(currentHost, sln->name))
return FALSE;
}
return TRUE;
}
boolean accessControlDenied(char *db, char *table)
/* Return TRUE if table access is restricted to some host(s) other than
* the one we're running on. */
{
static char *currentHost = NULL;
struct slName *enabledHosts = NULL;
struct slName *sln = NULL;
static struct hash *dbToAcHash = NULL;
if (dbToAcHash == NULL)
dbToAcHash = hashNew(0);
struct hash *acHash = hashFindVal(dbToAcHash, db);
if (acHash == NULL)
{
struct sqlConnection *conn = hAllocConn(db);
acHash = accessControlInit(conn);
hFreeConn(&conn);
hashAdd(dbToAcHash, db, acHash);
}
if (acHash == NULL)
return FALSE;
enabledHosts = (struct slName *)hashFindVal(acHash, table);
if (enabledHosts == NULL)
return FALSE;
if (currentHost == NULL)
{
currentHost = cloneString(cgiServerName());
if (currentHost == NULL)
{
warn("accessControl: unable to determine current host");
return FALSE;
}
else
chopAtFirstDot(currentHost);
}
for (sln = enabledHosts; sln != NULL; sln = sln->next)
{
if (sameString(currentHost, sln->name))
return FALSE;
}
return TRUE;
}
static void webStartWrapperDetailedInternal(struct cart *theCart,
char *db, char *headerText, char *textOutBuf,
boolean withHttpHeader, boolean withLogo, boolean skipSectionHeader,
boolean withHtmlHeader)
/* output a CGI and HTML header with the given title in printf format */
{
char uiState[256];
char *scriptName = cgiScriptName();
boolean isEncode = FALSE;
if (theCart)
{
char *theGenome = NULL;
char *genomeEnc = NULL;
getDbAndGenome(theCart, &db, &theGenome, NULL);
genomeEnc = cgiEncode(theGenome);
safef(uiState, sizeof(uiState), "?%s=%s&%s=%s&%s=%u",
orgCgiName, genomeEnc,
dbCgiName, db,
cartSessionVarName(), cartSessionId(theCart));
}
else
{
uiState[0] = 0;
uiState[1] = 0;
}
if (db == NULL)
db = hDefaultDb();
boolean dbIsFound = hDbExists(db);
boolean haveBlat = FALSE;
if (dbIsFound)
haveBlat = hIsBlatIndexedDatabase(db);
if (scriptName == NULL)
scriptName = cloneString("");
/* don't output two headers */
if(webHeadAlreadyOutputed)
return;
if (sameString(cgiUsualString("action",""),"encodeReleaseLog") ||
rStringIn("EncodeDataVersions", scriptName))
isEncode = TRUE;
/* Preamble. */
dnaUtilOpen();
if (withHttpHeader)
puts("Content-type:text/html\n");
if (withHtmlHeader)
{
char *newString, *ptr1, *ptr2;
char *browserVersion;
if (btIE == cgiClientBrowser(&browserVersion, NULL, NULL) && *browserVersion < '8')
puts("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2//EN\">");
else
puts("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" "
"\"http://www.w3.org/TR/html4/loose.dtd\">");
// Strict would be nice since it fixes atleast one IE problem (use of :hover CSS pseudoclass)
puts(
"<HTML>" "\n"
"<HEAD>" "\n"
);
printf("\t%s\n", headerText);
printf("\t<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;CHARSET=iso-8859-1\">" "\n"
"\t<META http-equiv=\"Content-Script-Type\" content=\"text/javascript\">" "\n"
"\t<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">" "\n"
"\t<META HTTP-EQUIV=\"Expires\" CONTENT=\"-1\">" "\n"
"\t<TITLE>"
);
/* we need to take any HTML formatting out of the titlebar string */
newString = cloneString(textOutBuf);
for(ptr1=newString, ptr2=textOutBuf; *ptr2 ; ptr2++)
{
if (*ptr2 == '<')
{
for(; *ptr2 && (*ptr2 != '>'); ptr2++)
;
}
else
*ptr1++ = *ptr2;
}
*ptr1 = 0;
htmlTextOut(newString);
printf(" </TITLE>\n ");
webIncludeResourceFile("HGStyle.css");
if (extraStyle != NULL)
puts(extraStyle);
printf("</HEAD>\n");
printBodyTag(stdout);
htmlWarnBoxSetup(stdout);// Sets up a warning box which can be filled with errors as they occur
puts(commonCssStyles());
}
puts(
"<A NAME=\"TOP\"></A>" "\n"
"" "\n"
"<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=\"100%\">" "\n");
if (withLogo)
{
puts("<TR><TH COLSPAN=1 ALIGN=\"left\">");
if (isEncode)
{
puts("<A HREF=\"http://www.genome.gov/10005107\" TARGET=\"_BLANK\">"
"<IMG SRC=\"../images/ENCODE_scaleup_logo.png\" height=50 ALT=\"ENCODE Project at NHGRI\">"
"</A>");
puts("<IMG SRC=\"../images/encodeDcc.jpg\" ALT=\"ENCODE Project at UCSC\">");
}
else
{
puts("<IMG SRC=\"../images/title.jpg\">");
}
puts("</TH></TR>" "\n"
"" "\n" );
}
/* Put up the hot links bar. */
char *menuStr = menuBar(theCart);
if(menuStr)
{
puts(menuStr);
}
if (endsWith(scriptName, "hgGateway") && geoMirrorEnabled())
{
// Show an opt-out alert if user is on a host to which user has been automatically redirected (just once, right after they have been redirected)
char *source = cgiOptionalString("source");
char *redirect = cgiOptionalString("redirect");
if (source != NULL && redirect != NULL && sameString(redirect, "auto"))
{
char *domain = cgiServerName();
char *port = cgiServerPort();
// We don't bother maintaining stuff in request URI, because it may contain items like hgsid and other host specific values
int newUriSize = 2048;
char *newUri = needMem(newUriSize);
safef(newUri, newUriSize, "http%s://%s:%s/cgi-bin/hgGateway?redirect=manual&source=%s",
cgiServerHttpsIsOn() ? "s" : "", source, port, domain);
printf("<TR><TD COLSPAN=3 id='redirectTd' onclick=\"javascript:document.getElementById('redirectTd').innerHTML='';\">"
"<div style=\"margin: 10px 25%%; border-style:solid; border-width:thin; border-color:#97D897;\">"
"<h3 style=\"background-color: #97D897; text-align: left; margin-top:0px; margin-bottom:0px;\">"
" You've been redirected to your nearest mirror - %s"
"<idiv style=\"float:right;\">[x]</idiv>"
"</h3> "
"<ul style=\"margin:5px;\">"
"<li>Take me back to <a href=\"%s\">%s</a>"
"<idiv style=\"float:right;\"><a href=\"../goldenPath/help/genomeEuro.html\">What is this?</a></idiv>"
"</li>"
"</ul>"
"</div>"
"</TD></TR>\n"
, domain, newUri, source );
}
}
if(!skipSectionHeader)
/* this HTML must be in calling code if skipSectionHeader is TRUE */
{
puts( // TODO: Replace nested tables with CSS (difficulty is that tables are closed elsewhere)
"<!-- +++++++++++++++++++++ CONTENT TABLES +++++++++++++++++++ -->" "\n"
"<TR><TD COLSPAN=3>\n"
"<div id=firstSection>"
" <!--outer table is for border purposes-->\n"
" <TABLE WIDTH='100%' BGCOLOR='#" HG_COL_BORDER "' BORDER='0' CELLSPACING='0' "
"CELLPADDING='1'><TR><TD>\n"
" <TABLE BGCOLOR='#" HG_COL_INSIDE "' WIDTH='100%' BORDER='0' CELLSPACING='0' "
"CELLPADDING='0'><TR><TD>\n"
" <div class='subheadingBar'><div class='windowSize' id='sectTtl'>"
);
htmlTextOut(textOutBuf);
puts(" </div></div>\n"
" <TABLE BGCOLOR='#" HG_COL_INSIDE "' WIDTH='100%' CELLPADDING=0>"
"<TR><TH HEIGHT=10></TH></TR>\n"
" <TR><TD WIDTH=10> </TD><TD>\n\n"
);
};
webPushErrHandlers();
/* set the flag */
webHeadAlreadyOutputed = TRUE;
} /* static void webStartWrapperDetailedInternal() */
