$!----------------------------------------------------------------------------+ $! USERCHANGE - Used for changed usernames to display warning and new link | $!----------------------------------------------------------------------------+ $ SET NOON $ PUT = "WRITE NET_LINK" $ PUT "" ! Set implied carriage control. $ CGI_SYMBOLS "WWW_" "FORM_" ! Define symbols $ PUT "content-type: text/html" ! HTML document $ PUT "status: 200 Okay" ! Say we're doing fine $ PUT "" ! End the header $ IF WWW_REQUEST_METHOD .EQS. "HEAD" THEN EXIT $! $ OLDUSER = F$ELEMENT(1,"/",WWW_PATH_INFO) $ NEWUSER = F$ELEMENT(2,"/",WWW_PATH_INFO) $ THEREST = WWW_PATH_INFO - "/''OLDUSER'/''NEWUSER'/" $ OLDLINK = "http://www.people.memphis.edu/~''OLDUSER'/" + THEREST $ NEWLINK = "http://www.people.memphis.edu/~''NEWUSER'/" + THEREST $ CREATE NET_LINK: Username and Link Change Notice

Username and Link Change Notice!

In order to standardize usernames at The University of Memphis across operating system environments, some usernames have been changed. As a consequence of this action, some URL's which contain usernames have also changed. The link you have followed here is one of those affected by this change, or where a user requested the change.

$ PUT "

""''OLDUSER'"" has been changed to ""''NEWUSER'""

" $ PUT "Old URL: ''OLDLINK'
" $ PUT "New URL: ''NEWLINK'

" $ PUT "Select the new URL above to continue on to the intended page." $ PUT "

" $ IF "''WWW_HTTP_REFERER'" .NES. "" $ THEN PUT "The referring page" $ PUT "(''WWW_HTTP_REFERER')" $ PUT "should be corrected as soon as possible." $ ELSE PUT "Please update your bookmarks and/or documentation." $ ENDIF $ PUT "

" $ PUT "

" $ PUT "This forwarding link page will only be provided for a limited" $ PUT "time!" $ PUT "" $ PUT "" $ PUT "" $! DEFINE SYS$OUTPUT NET_LINK: $! SHOW SYMBOL WWW* $! DEASSIGN SYS$OUTPUT $ EXIT