. "46a2d068cbd0e132fc25bc69480daedf" . . . "2017-06-29T07:29:24.641985"^^ . . "ODSControllerVSPAPILoginSource" . . . . . "ODSControllerVSPAPILoginSource" . . . "2017-06-29T07:29:24Z" . . "2017-06-13T06:04:24Z" . "ODSControllerVSPAPILoginSource" . "2017-06-13T06:04:24.119387"^^ . . . "---++ODS Controller for VSP API Login Source Code\n\nThe following source code represents the ODS Controller for VSP API Login users.vsp file:\n\n\n\n\n\n \n Virtuoso Web Applications\n \n \n \n \n \n \n \n \n \n \n \n '80')\n vHostUrl := vHostUrl || ':' || hpa [1];\n }\n goto _exit;\n }\n\n _default:;\n vHostUrl := cfg_item_value (virtuoso_ini_path (), 'URIQA', 'DefaultHost');\n if (vHostUrl is null)\n {\n vHostUrl := sys_stat ('st_host_name');\n if (server_http_port () <> '80')\n vHostUrl := vHostUrl || ':' || server_http_port ();\n }\n\n _exit:;\n if (vHostUrl not like 'http://%')\n vHostUrl := 'http://' || vHostUrl;\n\n vHostUrl := vHostUrl || '/ods/api';\n vRequest := null;\n vRespond := null;\n\n declare exit handler for sqlstate '*'\n {\n dbg_obj_print ('', __SQL_STATE, __SQL_MESSAGE);\n vForm := 'login';\n goto _end;\n };\n\n vError := '';\n vForm := get_keyword ('form', params, 'login');\n vSid := get_keyword ('sid', params);\n vRealm := 'wa';\n\n if (vForm = 'login')\n {\n if (get_keyword ('lf_login', params, '') <> '')\n {\n declare vUser, vPassword any;\n\n vUser := get_keyword ('lf_uid', params, '');\n vPassword := get_keyword ('lf_password', params, '');\n vUrl := sprintf ('%s/user.authenticate?user_name=%s&password_hash=%s', vHostUrl, vUser, ODS.._hex_sha1_digest (vUser || vPassword));\n commit work;\n vResult := http_client_ext (\n vUrl,\n http_method=>'GET',\n http_headers=>vRequest,\n headers=>vRespond\n );\n if (vRespond[0] like 'HTTP/1._ 4__ %' or vRespond[0] like 'HTTP/1._ 5__ %')\n {\n vError := vRespond[0];\n }\n else\n {\n vSid := vResult;\n vForm := 'user';\n }\n }\n }\n\n if (vForm = 'profile')\n {\n if (get_keyword ('pf_update', params, '') <> '')\n {\n vUrl := vHostUrl || '/user.update.fields' ||\n '?sid=' || vSid ||\n '&realm=' || vRealm ||\n '&mail=' || sprintf ('%U', get_keyword ('pf_mail', params, '')) ||\n '&title=' || sprintf ('%U', get_keyword ('pf_title', params, '')) ||\n '&firstName=' || sprintf ('%U', get_keyword ('pf_firstName', params, '')) ||\n '&lastName=' || sprintf ('%U', get_keyword ('pf_lastName', params, '')) ||\n '&fullName=' || sprintf ('%U', get_keyword ('pf_fullName', params, '')) ||\n '&gender=' || sprintf ('%U', get_keyword ('pf_gender', params, '')) ||\n '&birthday=' || sprintf ('%U', get_keyword ('pf_birthday', params, '')) ||\n '&icq=' || sprintf ('%U', get_keyword ('pf_icq', params, '')) ||\n '&skype=' || sprintf ('%U', get_keyword ('pf_skype', params, '')) ||\n '&yahoo=' || sprintf ('%U', get_keyword ('pf_yahoo', params, '')) ||\n '&aim=' || sprintf ('%U', get_keyword ('pf_aim', params, '')) ||\n '&msn=' || sprintf ('%U', get_keyword ('pf_msn', params, '')) ||\n '&homeDefaultMapLocation=' || sprintf ('%U', get_keyword ('pf_homeDefaultMapLocation', params, '')) ||\n '&homeCountry=' || sprintf ('%U', get_keyword ('pf_homecountry', params, '')) ||\n '&homeState=' || sprintf ('%U', get_keyword ('pf_homestate', params, '')) ||\n '&homeCity=' || sprintf ('%U', get_keyword ('pf_homecity', params, '')) ||\n '&homeCode=' || sprintf ('%U', get_keyword ('pf_homecode', params, '')) ||\n '&homeAddress1=' || sprintf ('%U', get_keyword ('pf_homeaddress1', params, '')) ||\n '&homeAddress2=' || sprintf ('%U', get_keyword ('pf_homeaddress2', params, '')) ||\n '&homeTimezone=' || sprintf ('%U', get_keyword ('pf_homeTimezone', params, '')) ||\n '&homeLatitude=' || sprintf ('%U', get_keyword ('pf_homelat', params, '')) ||\n '&homeLongitude=' || sprintf ('%U', get_keyword ('pf_homelng', params, '')) ||\n '&homePhone=' || sprintf ('%U', get_keyword ('pf_homePhone', params, '')) ||\n '&homeMobile=' || sprintf ('%U', get_keyword ('pf_homeMobile', params, '')) ||\n '&businessIndustry=' || sprintf ('%U', get_keyword ('pf_businessIndustry', params, '')) ||\n '&businessOrganization=' || sprintf ('%U', get_keyword ('pf_businessOrganization', params, '')) ||\n '&businessHomePage=' || sprintf ('%U', get_keyword ('pf_businessHomePage', params, '')) ||\n '&businessJob=' || sprintf ('%U', get_keyword ('pf_businessJob', params, '')) ||\n '&businessCountry=' || sprintf ('%U', get_keyword ('pf_businesscountry', params, '')) ||\n '&businessState=' || sprintf ('%U', get_keyword ('pf_businessstate', params, '')) ||\n '&businessCity=' || sprintf ('%U', get_keyword ('pf_businesscity', params, '')) ||\n '&businessCode=' || sprintf ('%U', get_keyword ('pf_businesscode', params, '')) ||\n '&businessAddress1=' || sprintf ('%U', get_keyword ('pf_businessaddress1', params, '')) ||\n '&businessAddress2=' || sprintf ('%U', get_keyword ('pf_businessaddress2', params, '')) ||\n '&businessTimezone=' || sprintf ('%U', get_keyword ('pf_businessTimezone', params, '')) ||\n '&businessLatitude=' || sprintf ('%U', get_keyword ('pf_businesslat', params, '')) ||\n '&businessLongitude=' || sprintf ('%U', get_keyword ('pf_businesslng', params, '')) ||\n '&businessPhone=' || sprintf ('%U', get_keyword ('pf_businessPhone', params, '')) ||\n '&businessMobile=' || sprintf ('%U', get_keyword ('pf_businessMobile', params, '')) ||\n '&businessRegNo=' || sprintf ('%U', get_keyword ('pf_businessRegNo', params, '')) ||\n '&businessCareer=' || sprintf ('%U', get_keyword ('pf_businessCareer', params, '')) ||\n '&businessEmployees=' || sprintf ('%U', get_keyword ('pf_businessEmployees', params, '')) ||\n '&businessVendor=' || sprintf ('%U', get_keyword ('pf_businessVendor', params, '')) ||\n '&businessService=' || sprintf ('%U', get_keyword ('pf_businessService', params, '')) ||\n '&businessOther=' || sprintf ('%U', get_keyword ('pf_businessOther', params, '')) ||\n '&businessNetwork=' || sprintf ('%U', get_keyword ('pf_businessNetwork', params, '')) ||\n '&businessResume=' || sprintf ('%U', get_keyword ('pf_businessResume', params, '')) ||\n '&securitySecretQuestion=' || sprintf ('%U', get_keyword ('pf_securitySecretQuestion', params, '')) ||\n '&securitySecretAnswer=' || sprintf ('%U', get_keyword ('pf_securitySecretAnswer', params, '')) ||\n '&securitySiocLimit=' || sprintf ('%U', get_keyword ('pf_securitySiocLimit', params, ''));\n commit work;\n vResult := http_client_ext (\n vUrl,\n http_method=>'GET',\n http_headers=>vRequest,\n headers=>vRespond\n );\n if (vRespond[0] like 'HTTP/1._ 4__ %' or vRespond[0] like 'HTTP/1._ 5__ %')\n {\n vError := vRespond[0];\n vForm := 'login';\n }\n else\n {\n vXml := xml_tree_doc (vResult);\n if (xpath_eval ('/failed/message', vXml))\n {\n vError := xpath_eval ('string (/failed/message)', vXml);\n vForm := 'login';\n } else {\n vForm := 'user';\n }\n }\n }\n else if (get_keyword ('pf_cancel', params, '') <> '')\n {\n vForm := 'user';\n }\n }\n\n if (vForm = 'user')\n {\n if (get_keyword ('uf_profile', params, '') <> '')\n vForm := 'profile';\n }\n\n if ((vForm = 'user') or (vForm = 'profile'))\n {\n vUrl := sprintf ('%s/user.info?sid=%s&realm=%s', vHostUrl, vSid, vRealm);\n if (vForm = 'profile')\n vUrl := vUrl || '&short=1';\n\n commit work;\n vResult := http_client_ext (\n vUrl,\n http_method=>'GET',\n http_headers=>vRequest,\n headers=>vRespond\n );\n if (vRespond[0] like 'HTTP/1._ 4__ %' or vRespond[0] like 'HTTP/1._ 5__ %')\n {\n vError := vRespond[0];\n vForm := 'login';\n }\n else\n {\n vXml := xml_tree_doc (vResult);\n if (xpath_eval ('/failed/message', vXml))\n {\n vError := xpath_eval ('string (/failed/message)', vXml);\n vForm := 'login';\n }\n else if (vForm = 'profile')\n {\n declare tmp, listItems any;\n\n items := vector (vector ('Industry', ''),\n vector ('Country', '')\n );\n vLists := vector ();\n foreach (any item in items) do\n {\n vUrl := sprintf ('%s/lookup.list?key=%s¶m=%s', vHostUrl, item[0], item[1]);\n commit work;\n vResult := http_client_ext (\n vUrl,\n http_method=>'GET',\n http_headers=>vRequest,\n headers=>vRespond\n );\n if (vRespond[0] like 'HTTP/1._ 4__ %' or vRespond[0] like 'HTTP/1._ 5__ %')\n {\n vError := vRespond[0];\n vForm := 'login';\n goto _end;\n }\n vList := vector ();\n tmp := xml_tree_doc (vResult);\n listItems := xpath_eval ('/items/item', tmp, 0);\n foreach (any listItem in listItems) do\n {\n vList := vector_concat (vList, vector (cast (listItem as varchar)));\n }\n vLists := vector_concat (vLists, vector (vList));\n }\n }\n }\n }\n _end:;\n if (vForm = 'login')\n {\n vSid := '';\n vRealm := '';\n }\n ?>\n \n
\n
\n
\n \" />\n \" />\n \" />\n
\n \n 'login')\n {\n ?>\n \n \n
\n
\n \n \n \n \n \n
\n
\n
\n \n \"FOAF\"\n \n
\n
\n \n
\n '')\n http ('
' || vError || '
');\n ?>\n
\n Enter your Member ID and Password\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \n
\n \n \n \n
\n or\n \n
\n \n \n \n
\n
\n \n
\n
\n \n
\n
\n User profile\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n Login Name\n \n \n
\n E-mail\n \n \n
\n Title\n \n \n
\n First Name\n \n \n
\n Last Name\n \n \n
\n Full Name\n \n \n
\n
\n \n
\n
\n \n
\n '')\n http ('
' || vError || '
');\n ?>\n
\n Update user profile\n
\n
    \n
  • Personal
  • \n
  • Contact
  • \n
  • Home
  • \n
  • Business
  • \n
  • Security
  • \n
\n
\n
\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \n
\n \n \n \" id=\"pf_firstName\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_lastName\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_fullName\" size=\"60\" />\n
\n \n \n \" id=\"pf_mail\" style=\"width: 220px;\" />\n
\n \n \n \n
\n \n \n \" onclick=\"cPopup.select ($('pf_birthday'), 'pf_birthday_select', 'yyyy-MM-dd');\"/>\n \n
\n
\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \" id=\"pf_icq\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_skype\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_yahoo\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_aim\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_msn\" style=\"width: 220px;\" />\n
\n
\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \n
\n \n \n \n \n \n
\n \n \n \" id=\"pf_homeCity\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_homeCode\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_homeAddress1\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_homeAddress2\" style=\"width: 220px;\" />\n
\n \n \n \n
\n \n \n \" id=\"pf_homelat\" />\n \n \n
\n \n \n \" id=\"pf_homelng\" />\n
\n \n \n \" id=\"pf_homePhone\" />\n
\n \n \n \" id=\"pf_homeMobile\" />\n
\n
\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n \n \n
\n \n \n \" id=\"pf_businessOrganization\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_businessNetwork\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_businessJob\" style=\"width: 220px;\" />\n
\n \n \n \n
\n \n \n \n \n \n
\n \n \n \" id=\"pf_businesscity\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_businessCode\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_businessAddress1\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_businessAddress2\" style=\"width: 220px;\" />\n
\n \n \n \n
\n \n \n \" id=\"pf_businesslat\" />\n \n \n
\n \n \n \" id=\"pf_businesslng\" />\n
\n \n \n \" id=\"pf_businessPhone\" />\n
\n \n \n \" id=\"pf_businessMobile\" />\n
\n \n \n \" id=\"pf_businessRegNo\" style=\"width: 220px;\" />\n
\n \n \n \n
\n \n \n \n
\n \n \n \n
\n \n \n \n
\n \n \n \" id=\"pf_businessOther\" style=\"width: 220px;\" />\n
\n \n \n \" id=\"pf_businessNetwork\" style=\"width: 220px;\" />\n
\n \n \n \n
\n
\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n
\n \n
\n Password Settings\n
\n \n \n \n
\n \n \n \n
\n \n \n \n \n
\n Password Recovery\n
\n \n \n \" id=\"pf_securitySecretQuestion\" style=\"width: 220px;\" />\n \n
\n \n \n \" id=\"pf_securitySecretAnswer\" style=\"width: 220px;\" />\n
\n Applications restrictions\n
\n \n \n \" id=\"pf_securitySiocLimit\" />\n
\n
\n\n
\n
\n \n \n
\n
\n \n
\n
\n
\n
\n
\n \"Powered\n
\n
\n FAQ | Privacy | Report Abuse\n
\n Copyright © 1999-2009 OpenLink Software\n
\n
\n
\n \n\n
" .