$!----------------------------------------------------------------------------+ $! HTTP_OWLS.COM - The Offsite Warning Link System (OWLS) | $!----------------------------------------------------------------------------+ $! NOTE: You'll need to edit this file for your site. $ SET NOON $ PUT = "WRITE NET_LINK" $ PUT "" ! Set implied carriage control. $ CGI_SYMBOLS "WWW_" "FORM_" ! Define symbols $ CUR_TIME = F$CVTIME(,"ABSOLUTE") $ CUR_DAY = F$EXTRACT(0,3,F$CVTIME(CUR_TIME,,"WEEKDAY")) $ CUR_DATE = CUR_DAY + ", " + F$ELEMENT(0,"-",CUR_TIME) + " " +- F$ELEMENT(1,"-",CUR_TIME) + " " + F$ELEMENT(2,"-",CUR_TIME) -- "." - F$ELEMENT(1,".",CUR_TIME) + " " +- F$TRNLNM("MULTINET_TIMEZONE") $! $ COOKIE_CHECK = "|''WWW_HTTP_COOKIE'|" $ IF F$LOCATE("info=warned",COOKIE_CHECK) .NE. F$LENGTH(COOKIE_CHECK) $ THEN PUT "content-type: text/plain" ! There won't be a body... $ PUT "status: 302 Redirect" ! Just a redirection $ PUT "location: http:/''WWW_PATH_INFO'" ! to here $ PUT "" ! End the header $ EXIT ! No more to do $ ELSE PUT "content-type: text/html" ! HTML document $ PUT "expires: ''cur_date'" ! Make sure we're not cached $ PUT "status: 200 Okay" ! Say we're doing fine $ PUT "set-cookie: info=warned; domain=.memphis.edu" ! Feed cookie $ PUT "" ! End the header $ ENDIF $ IF WWW_REQUEST_METHOD .EQS. "HEAD" THEN EXIT $! $ CREATE NET_LINK: Leaving University of Memphis Warning

WARNING!

The link you have chosen is not controlled by The University of Memphis!

The University of Memphis is not responsible for any of the material found by continuing on. This link was provided for your convenience in locating information or services not directly provided by the University.

$ IF "''WWW_HTTP_REFERER'" .NES. "" $ THEN PUT "

Go Back

" $ PUT "This link will take you back to the page that referred you.

" $ ELSE PUT "

Go To Our Home Page

" $ PUT "No referring page was present in the headers, so you may use your" $ PUT """back"" button to go back.

" $ ENDIF $ IF ("''WWW_PATH_INFO'" .NES. "") .AND. ("''WWW_PATH_INFO'" .NES. "/") $ THEN PUT "

Continue On

" $ PUT "This link will take you on to the site selected.

" $ ELSE PUT "No forward path was given in this link! Go back and inform" $ PUT "the maintainer of the referring page.

" $ ENDIF $! DEFINE SYS$OUTPUT NET_LINK: $! SHOW SYMBOL WWW* $! DEASSIGN SYS$OUTPUT $! PUT "Cookie check: ''cookie_check'" $ CREATE NET_LINK:

[This warning will only show once per session for each link if your browser accepts "cookies".]

$ EXIT