065a7b2212a43e967bbed86127c94949c0835932
hiram
  Wed Mar 23 10:17:44 2011 -0700
adding server port to returnto string for genomewiki login
diff --git src/lib/cheapcgi.c src/lib/cheapcgi.c
index 9574d27..21b668d 100644
--- src/lib/cheapcgi.c
+++ src/lib/cheapcgi.c
@@ -68,30 +68,36 @@
 return getenv("CONTENT_LENGTH");
 }
 
 char *cgiScriptName()
 /* Return name of script so libs can do context-sensitive stuff. */
 {
 return getenv("SCRIPT_NAME");
 }
 
 char *cgiServerName()
 /* Return name of server */
 {
 return getenv("SERVER_NAME");
 }
 
+char *cgiServerPort()
+/* Return port number of server */
+{
+return getenv("SERVER_PORT");
+}
+
 char *cgiRemoteAddr()
 /* Return IP address of client (or "unknown"). */
 {
 static char *dunno = "unknown";
 char *remoteAddr = getenv("REMOTE_ADDR");
 if (remoteAddr == NULL)
     remoteAddr = dunno;
 return remoteAddr;
 }
 
 char *cgiUserAgent()
 /* Return remote user agent (HTTP_USER_AGENT) or NULL if remote user agent is not known */
 {
 return getenv("HTTP_USER_AGENT");
 }