123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611 |
- <?php
- if (!$_SERVER['REQUEST_URI']) {
- $_SERVER['REQUEST_URI'] = $_SERVER['SCRIPT_NAME'] . '?' . $_SERVER['QUERY_STRING'];
- }
- if (version_compare(PHP_VERSION, '5', '>=') && !(function_exists('domxml_new_doc'))) {
- require_once (dirname(__FILE__) . '/CAS/domxml-php4-to-php5.php');
- }
- define('PHPCAS_VERSION', '1.1.2');
- define("CAS_VERSION_1_0", '1.0');
- define("CAS_VERSION_2_0", '2.0');
- define("SAML_VERSION_1_1", 'S1');
- define("SAML_XML_HEADER", '<?xml version="1.0" encoding="UTF-8"?>');
- define("SAML_SOAP_ENV", '<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"><SOAP-ENV:Header/>');
- define("SAML_SOAP_BODY", '<SOAP-ENV:Body>');
- define("SAMLP_REQUEST", '<samlp:Request xmlns:samlp="urn:oasis:names:tc:SAML:1.0:protocol" MajorVersion="1" MinorVersion="1" RequestID="_192.168.16.51.1024506224022" IssueInstant="2002-06-19T17:03:44.022Z">');
- define("SAMLP_REQUEST_CLOSE", '</samlp:Request>');
- define("SAML_ASSERTION_ARTIFACT", '<samlp:AssertionArtifact>');
- define("SAML_ASSERTION_ARTIFACT_CLOSE", '</samlp:AssertionArtifact>');
- define("SAML_SOAP_BODY_CLOSE", '</SOAP-ENV:Body>');
- define("SAML_SOAP_ENV_CLOSE", '</SOAP-ENV:Envelope>');
- define("SAML_ATTRIBUTES", 'SAMLATTRIBS');
- define("CAS_PGT_STORAGE_FILE_DEFAULT_PATH", '/tmp');
- define("CAS_PGT_STORAGE_FILE_FORMAT_PLAIN", 'plain');
- define("CAS_PGT_STORAGE_FILE_FORMAT_XML", 'xml');
- define("CAS_PGT_STORAGE_FILE_DEFAULT_FORMAT", CAS_PGT_STORAGE_FILE_FORMAT_PLAIN);
- define("CAS_PGT_STORAGE_DB_DEFAULT_DATABASE_TYPE", 'mysql');
- define("CAS_PGT_STORAGE_DB_DEFAULT_HOSTNAME", 'localhost');
- define("CAS_PGT_STORAGE_DB_DEFAULT_PORT", '');
- define("CAS_PGT_STORAGE_DB_DEFAULT_DATABASE", 'phpCAS');
- define("CAS_PGT_STORAGE_DB_DEFAULT_TABLE", 'pgt');
- define("PHPCAS_SERVICE_OK", 0);
- define("PHPCAS_SERVICE_PT_NO_SERVER_RESPONSE", 1);
- define("PHPCAS_SERVICE_PT_BAD_SERVER_RESPONSE", 2);
- define("PHPCAS_SERVICE_PT_FAILURE", 3);
- define("PHPCAS_SERVICE_NOT AVAILABLE", 4);
- define("PHPCAS_LANG_ENGLISH", 'english');
- define("PHPCAS_LANG_FRENCH", 'french');
- define("PHPCAS_LANG_GREEK", 'greek');
- define("PHPCAS_LANG_GERMAN", 'german');
- define("PHPCAS_LANG_JAPANESE", 'japanese');
- define("PHPCAS_LANG_SPANISH", 'spanish');
- define("PHPCAS_LANG_CATALAN", 'catalan');
- define("PHPCAS_LANG_DEFAULT", PHPCAS_LANG_ENGLISH);
- define('DEFAULT_DEBUG_DIR', '/tmp/');
- $GLOBALS['PHPCAS_CLIENT'] = null;
- $GLOBALS['PHPCAS_INIT_CALL'] = array (
- 'done' => FALSE,
- 'file' => '?',
- 'line' => -1,
- 'method' => '?'
- );
- $GLOBALS['PHPCAS_AUTH_CHECK_CALL'] = array (
- 'done' => FALSE,
- 'file' => '?',
- 'line' => -1,
- 'method' => '?',
- 'result' => FALSE
- );
- $GLOBALS['PHPCAS_DEBUG'] = array (
- 'filename' => FALSE,
- 'indent' => 0,
- 'unique_id' => ''
- );
- include_once (dirname(__FILE__) . '/CAS/client.php');
- class phpCAS {
-
-
-
-
-
- function client($server_version, $server_hostname, $server_port, $server_uri, $start_session = true) {
- global $PHPCAS_CLIENT, $PHPCAS_INIT_CALL;
- phpCAS :: traceBegin();
- if (is_object($PHPCAS_CLIENT)) {
- phpCAS :: error($PHPCAS_INIT_CALL['method'] . '() has already been called (at ' . $PHPCAS_INIT_CALL['file'] . ':' . $PHPCAS_INIT_CALL['line'] . ')');
- }
- if (gettype($server_version) != 'string') {
- phpCAS :: error('type mismatched for parameter $server_version (should be `string\')');
- }
- if (gettype($server_hostname) != 'string') {
- phpCAS :: error('type mismatched for parameter $server_hostname (should be `string\')');
- }
- if (gettype($server_port) != 'integer') {
- phpCAS :: error('type mismatched for parameter $server_port (should be `integer\')');
- }
- if (gettype($server_uri) != 'string') {
- phpCAS :: error('type mismatched for parameter $server_uri (should be `string\')');
- }
-
- $dbg = phpCAS :: backtrace();
- $PHPCAS_INIT_CALL = array (
- 'done' => TRUE,
- 'file' => $dbg[0]['file'],
- 'line' => $dbg[0]['line'],
- 'method' => __CLASS__ . '::' . __FUNCTION__
- );
-
- $PHPCAS_CLIENT = new CASClient($server_version, FALSE
- , $server_hostname, $server_port, $server_uri, $start_session);
- phpCAS :: traceEnd();
- }
-
- function proxy($server_version, $server_hostname, $server_port, $server_uri, $start_session = true) {
- global $PHPCAS_CLIENT, $PHPCAS_INIT_CALL;
- phpCAS :: traceBegin();
- if (is_object($PHPCAS_CLIENT)) {
- phpCAS :: error($PHPCAS_INIT_CALL['method'] . '() has already been called (at ' . $PHPCAS_INIT_CALL['file'] . ':' . $PHPCAS_INIT_CALL['line'] . ')');
- }
- if (gettype($server_version) != 'string') {
- phpCAS :: error('type mismatched for parameter $server_version (should be `string\')');
- }
- if (gettype($server_hostname) != 'string') {
- phpCAS :: error('type mismatched for parameter $server_hostname (should be `string\')');
- }
- if (gettype($server_port) != 'integer') {
- phpCAS :: error('type mismatched for parameter $server_port (should be `integer\')');
- }
- if (gettype($server_uri) != 'string') {
- phpCAS :: error('type mismatched for parameter $server_uri (should be `string\')');
- }
-
- $dbg = phpCAS :: backtrace();
- $PHPCAS_INIT_CALL = array (
- 'done' => TRUE,
- 'file' => $dbg[0]['file'],
- 'line' => $dbg[0]['line'],
- 'method' => __CLASS__ . '::' . __FUNCTION__
- );
-
- $PHPCAS_CLIENT = new CASClient($server_version, TRUE
- , $server_hostname, $server_port, $server_uri, $start_session);
- phpCAS :: traceEnd();
- }
-
-
-
-
-
-
- function setDebug($filename = '') {
- global $PHPCAS_DEBUG;
- if ($filename != FALSE && gettype($filename) != 'string') {
- phpCAS :: error('type mismatched for parameter $dbg (should be FALSE or the name of the log file)');
- }
- if (empty ($filename)) {
- if (preg_match('/^Win.*/', getenv('OS'))) {
- if (isset ($_ENV['TMP'])) {
- $debugDir = $_ENV['TMP'] . '/';
- } else
- if (isset ($_ENV['TEMP'])) {
- $debugDir = $_ENV['TEMP'] . '/';
- } else {
- $debugDir = '';
- }
- } else {
- $debugDir = DEFAULT_DEBUG_DIR;
- }
- $filename = $debugDir . 'phpCAS.log';
- }
- if (empty ($PHPCAS_DEBUG['unique_id'])) {
- $PHPCAS_DEBUG['unique_id'] = substr(strtoupper(md5(uniqid(''))), 0, 4);
- }
- $PHPCAS_DEBUG['filename'] = $filename;
- phpCAS :: trace('START phpCAS-' . PHPCAS_VERSION . ' ******************');
- }
-
-
-
- function backtrace() {
- if (function_exists('debug_backtrace')) {
- return debug_backtrace();
- } else {
-
- return array ();
- }
- }
-
- function log($str) {
- $indent_str = ".";
- global $PHPCAS_DEBUG;
- if ($PHPCAS_DEBUG['filename']) {
- for ($i = 0; $i < $PHPCAS_DEBUG['indent']; $i++) {
- $indent_str .= '| ';
- }
- error_log($PHPCAS_DEBUG['unique_id'] . ' ' . $indent_str . $str . "\n", 3, $PHPCAS_DEBUG['filename']);
- }
- }
-
- function error($msg) {
- $dbg = phpCAS :: backtrace();
- $function = '?';
- $file = '?';
- $line = '?';
- if (is_array($dbg)) {
- for ($i = 1; $i < sizeof($dbg); $i++) {
- if (is_array($dbg[$i])) {
- if ($dbg[$i]['class'] == __CLASS__) {
- $function = $dbg[$i]['function'];
- $file = $dbg[$i]['file'];
- $line = $dbg[$i]['line'];
- }
- }
- }
- }
- echo "<br />\n<b>phpCAS error</b>: <font color=\"FF0000\"><b>" . __CLASS__ . "::" . $function . '(): ' . htmlentities($msg) . "</b></font> in <b>" . $file . "</b> on line <b>" . $line . "</b><br />\n";
- phpCAS :: trace($msg);
- phpCAS :: traceExit();
- exit ();
- }
-
- function trace($str) {
- $dbg = phpCAS :: backtrace();
- phpCAS :: log($str . ' [' . basename($dbg[1]['file']) . ':' . $dbg[1]['line'] . ']');
- }
-
- function traceBegin() {
- global $PHPCAS_DEBUG;
- $dbg = phpCAS :: backtrace();
- $str = '=> ';
- if (!empty ($dbg[2]['class'])) {
- $str .= $dbg[2]['class'] . '::';
- }
- $str .= $dbg[2]['function'] . '(';
- if (is_array($dbg[2]['args'])) {
- foreach ($dbg[2]['args'] as $index => $arg) {
- if ($index != 0) {
- $str .= ', ';
- }
- $str .= str_replace("\n", "", var_export($arg, TRUE));
- }
- }
- $str .= ') [' . basename($dbg[2]['file']) . ':' . $dbg[2]['line'] . ']';
- phpCAS :: log($str);
- $PHPCAS_DEBUG['indent']++;
- }
-
- function traceEnd($res = '') {
- global $PHPCAS_DEBUG;
- $PHPCAS_DEBUG['indent']--;
- $dbg = phpCAS :: backtrace();
- $str = '';
- $str .= '<= ' . str_replace("\n", "", var_export($res, TRUE));
- phpCAS :: log($str);
- }
-
- function traceExit() {
- global $PHPCAS_DEBUG;
- phpCAS :: log('exit()');
- while ($PHPCAS_DEBUG['indent'] > 0) {
- phpCAS :: log('-');
- $PHPCAS_DEBUG['indent']--;
- }
- }
-
-
-
-
-
-
- function setLang($lang) {
- global $PHPCAS_CLIENT;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- if (gettype($lang) != 'string') {
- phpCAS :: error('type mismatched for parameter $lang (should be `string\')');
- }
- $PHPCAS_CLIENT->setLang($lang);
- }
-
-
-
-
-
-
- function getVersion() {
- return PHPCAS_VERSION;
- }
-
-
-
-
-
-
- function setHTMLHeader($header) {
- global $PHPCAS_CLIENT;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- if (gettype($header) != 'string') {
- phpCAS :: error('type mismatched for parameter $header (should be `string\')');
- }
- $PHPCAS_CLIENT->setHTMLHeader($header);
- }
-
- function setHTMLFooter($footer) {
- global $PHPCAS_CLIENT;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- if (gettype($footer) != 'string') {
- phpCAS :: error('type mismatched for parameter $footer (should be `string\')');
- }
- $PHPCAS_CLIENT->setHTMLFooter($footer);
- }
-
-
-
-
-
-
- function setPGTStorageFile($format = '', $path = '') {
- global $PHPCAS_CLIENT, $PHPCAS_AUTH_CHECK_CALL;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if (!$PHPCAS_CLIENT->isProxy()) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if ($PHPCAS_AUTH_CHECK_CALL['done']) {
- phpCAS :: error('this method should only be called before ' . $PHPCAS_AUTH_CHECK_CALL['method'] . '() (called at ' . $PHPCAS_AUTH_CHECK_CALL['file'] . ':' . $PHPCAS_AUTH_CHECK_CALL['line'] . ')');
- }
- if (gettype($format) != 'string') {
- phpCAS :: error('type mismatched for parameter $format (should be `string\')');
- }
- if (gettype($path) != 'string') {
- phpCAS :: error('type mismatched for parameter $format (should be `string\')');
- }
- $PHPCAS_CLIENT->setPGTStorageFile($format, $path);
- phpCAS :: traceEnd();
- }
-
- function setPGTStorageDB($user, $password, $database_type = '', $hostname = '', $port = 0, $database = '', $table = '') {
- global $PHPCAS_CLIENT, $PHPCAS_AUTH_CHECK_CALL;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if (!$PHPCAS_CLIENT->isProxy()) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if ($PHPCAS_AUTH_CHECK_CALL['done']) {
- phpCAS :: error('this method should only be called before ' . $PHPCAS_AUTH_CHECK_CALL['method'] . '() (called at ' . $PHPCAS_AUTH_CHECK_CALL['file'] . ':' . $PHPCAS_AUTH_CHECK_CALL['line'] . ')');
- }
- if (gettype($user) != 'string') {
- phpCAS :: error('type mismatched for parameter $user (should be `string\')');
- }
- if (gettype($password) != 'string') {
- phpCAS :: error('type mismatched for parameter $password (should be `string\')');
- }
- if (gettype($database_type) != 'string') {
- phpCAS :: error('type mismatched for parameter $database_type (should be `string\')');
- }
- if (gettype($hostname) != 'string') {
- phpCAS :: error('type mismatched for parameter $hostname (should be `string\')');
- }
- if (gettype($port) != 'integer') {
- phpCAS :: error('type mismatched for parameter $port (should be `integer\')');
- }
- if (gettype($database) != 'string') {
- phpCAS :: error('type mismatched for parameter $database (should be `string\')');
- }
- if (gettype($table) != 'string') {
- phpCAS :: error('type mismatched for parameter $table (should be `string\')');
- }
- $PHPCAS_CLIENT->setPGTStorageDB($user, $password, $database_type, $hostname, $port, $database, $table);
- phpCAS :: traceEnd();
- }
-
-
-
-
-
-
- function serviceWeb($url, & $err_code, & $output) {
- global $PHPCAS_CLIENT, $PHPCAS_AUTH_CHECK_CALL;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if (!$PHPCAS_CLIENT->isProxy()) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if (!$PHPCAS_AUTH_CHECK_CALL['done']) {
- phpCAS :: error('this method should only be called after the programmer is sure the user has been authenticated (by calling ' . __CLASS__ . '::checkAuthentication() or ' . __CLASS__ . '::forceAuthentication()');
- }
- if (!$PHPCAS_AUTH_CHECK_CALL['result']) {
- phpCAS :: error('authentication was checked (by ' . $PHPCAS_AUTH_CHECK_CALL['method'] . '() at ' . $PHPCAS_AUTH_CHECK_CALL['file'] . ':' . $PHPCAS_AUTH_CHECK_CALL['line'] . ') but the method returned FALSE');
- }
- if (gettype($url) != 'string') {
- phpCAS :: error('type mismatched for parameter $url (should be `string\')');
- }
- $res = $PHPCAS_CLIENT->serviceWeb($url, $err_code, $output);
- phpCAS :: traceEnd($res);
- return $res;
- }
-
- function serviceMail($url, $service, $flags, & $err_code, & $err_msg, & $pt) {
- global $PHPCAS_CLIENT, $PHPCAS_AUTH_CHECK_CALL;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if (!$PHPCAS_CLIENT->isProxy()) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if (!$PHPCAS_AUTH_CHECK_CALL['done']) {
- phpCAS :: error('this method should only be called after the programmer is sure the user has been authenticated (by calling ' . __CLASS__ . '::checkAuthentication() or ' . __CLASS__ . '::forceAuthentication()');
- }
- if (!$PHPCAS_AUTH_CHECK_CALL['result']) {
- phpCAS :: error('authentication was checked (by ' . $PHPCAS_AUTH_CHECK_CALL['method'] . '() at ' . $PHPCAS_AUTH_CHECK_CALL['file'] . ':' . $PHPCAS_AUTH_CHECK_CALL['line'] . ') but the method returned FALSE');
- }
- if (gettype($url) != 'string') {
- phpCAS :: error('type mismatched for parameter $url (should be `string\')');
- }
- if (gettype($flags) != 'integer') {
- phpCAS :: error('type mismatched for parameter $flags (should be `integer\')');
- }
- $res = $PHPCAS_CLIENT->serviceMail($url, $service, $flags, $err_code, $err_msg, $pt);
- phpCAS :: traceEnd($res);
- return $res;
- }
-
-
-
-
-
-
- function setCacheTimesForAuthRecheck($n) {
- global $PHPCAS_CLIENT;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- if (gettype($n) != 'integer') {
- phpCAS :: error('type mismatched for parameter $header (should be `string\')');
- }
- $PHPCAS_CLIENT->setCacheTimesForAuthRecheck($n);
- }
-
- function checkAuthentication() {
- global $PHPCAS_CLIENT, $PHPCAS_AUTH_CHECK_CALL;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- $auth = $PHPCAS_CLIENT->checkAuthentication();
-
- $dbg = phpCAS :: backtrace();
- $PHPCAS_AUTH_CHECK_CALL = array (
- 'done' => TRUE,
- 'file' => $dbg[0]['file'],
- 'line' => $dbg[0]['line'],
- 'method' => __CLASS__ . '::' . __FUNCTION__,
- 'result' => $auth
- );
- phpCAS :: traceEnd($auth);
- return $auth;
- }
-
- function forceAuthentication() {
- global $PHPCAS_CLIENT, $PHPCAS_AUTH_CHECK_CALL;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- $auth = $PHPCAS_CLIENT->forceAuthentication();
-
- $dbg = phpCAS :: backtrace();
- $PHPCAS_AUTH_CHECK_CALL = array (
- 'done' => TRUE,
- 'file' => $dbg[0]['file'],
- 'line' => $dbg[0]['line'],
- 'method' => __CLASS__ . '::' . __FUNCTION__,
- 'result' => $auth
- );
- if (!$auth) {
- phpCAS :: trace('user is not authenticated, redirecting to the CAS server');
- $PHPCAS_CLIENT->forceAuthentication();
- } else {
- phpCAS :: trace('no need to authenticate (user `' . phpCAS :: getUser() . '\' is already authenticated)');
- }
- phpCAS :: traceEnd();
- return $auth;
- }
-
- function renewAuthentication() {
- global $PHPCAS_CLIENT, $PHPCAS_AUTH_CHECK_CALL;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
-
- $dbg = phpCAS :: backtrace();
- $PHPCAS_AUTH_CHECK_CALL = array (
- 'done' => TRUE,
- 'file' => $dbg[0]['file'],
- 'line' => $dbg[0]['line'],
- 'method' => __CLASS__ . '::' . __FUNCTION__,
- 'result' => $auth
- );
- $PHPCAS_CLIENT->renewAuthentication();
- phpCAS :: traceEnd();
- }
-
- function authenticate() {
- phpCAS :: error('this method is deprecated. You should use ' . __CLASS__ . '::forceAuthentication() instead');
- }
-
- function isAuthenticated() {
- global $PHPCAS_CLIENT, $PHPCAS_AUTH_CHECK_CALL;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
-
- $auth = $PHPCAS_CLIENT->isAuthenticated();
-
- $dbg = phpCAS :: backtrace();
- $PHPCAS_AUTH_CHECK_CALL = array (
- 'done' => TRUE,
- 'file' => $dbg[0]['file'],
- 'line' => $dbg[0]['line'],
- 'method' => __CLASS__ . '::' . __FUNCTION__,
- 'result' => $auth
- );
- phpCAS :: traceEnd($auth);
- return $auth;
- }
-
- function isSessionAuthenticated() {
- global $PHPCAS_CLIENT;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- return ($PHPCAS_CLIENT->isSessionAuthenticated());
- }
-
- function getUser() {
- global $PHPCAS_CLIENT, $PHPCAS_AUTH_CHECK_CALL;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- if (!$PHPCAS_AUTH_CHECK_CALL['done']) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::forceAuthentication() or ' . __CLASS__ . '::isAuthenticated()');
- }
- if (!$PHPCAS_AUTH_CHECK_CALL['result']) {
- phpCAS :: error('authentication was checked (by ' . $PHPCAS_AUTH_CHECK_CALL['method'] . '() at ' . $PHPCAS_AUTH_CHECK_CALL['file'] . ':' . $PHPCAS_AUTH_CHECK_CALL['line'] . ') but the method returned FALSE');
- }
- return $PHPCAS_CLIENT->getUser();
- }
-
- function getAttributes() {
- global $PHPCAS_CLIENT, $PHPCAS_AUTH_CHECK_CALL;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- if (!$PHPCAS_AUTH_CHECK_CALL['done']) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::forceAuthentication() or ' . __CLASS__ . '::isAuthenticated()');
- }
- if (!$PHPCAS_AUTH_CHECK_CALL['result']) {
- phpCAS :: error('authentication was checked (by ' . $PHPCAS_AUTH_CHECK_CALL['method'] . '() at ' . $PHPCAS_AUTH_CHECK_CALL['file'] . ':' . $PHPCAS_AUTH_CHECK_CALL['line'] . ') but the method returned FALSE');
- }
- return $PHPCAS_CLIENT->getAttributes();
- }
-
- function handleLogoutRequests($check_client = true, $allowed_clients = false) {
- global $PHPCAS_CLIENT;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- return ($PHPCAS_CLIENT->handleLogoutRequests($check_client, $allowed_clients));
- }
-
- function getServerLoginURL() {
- global $PHPCAS_CLIENT;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- return $PHPCAS_CLIENT->getServerLoginURL();
- }
-
- function setServerLoginURL($url = '') {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after
- ' . __CLASS__ . '::client()');
- }
- if (gettype($url) != 'string') {
- phpCAS :: error('type mismatched for parameter $url (should be
- `string\')');
- }
- $PHPCAS_CLIENT->setServerLoginURL($url);
- phpCAS :: traceEnd();
- }
-
- function setServerServiceValidateURL($url = '') {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after
- ' . __CLASS__ . '::client()');
- }
- if (gettype($url) != 'string') {
- phpCAS :: error('type mismatched for parameter $url (should be
- `string\')');
- }
- $PHPCAS_CLIENT->setServerServiceValidateURL($url);
- phpCAS :: traceEnd();
- }
-
- function setServerProxyValidateURL($url = '') {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after
- ' . __CLASS__ . '::client()');
- }
- if (gettype($url) != 'string') {
- phpCAS :: error('type mismatched for parameter $url (should be
- `string\')');
- }
- $PHPCAS_CLIENT->setServerProxyValidateURL($url);
- phpCAS :: traceEnd();
- }
-
- function setServerSamlValidateURL($url = '') {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after
- ' . __CLASS__ . '::client()');
- }
- if (gettype($url) != 'string') {
- phpCAS :: error('type mismatched for parameter $url (should be
- `string\')');
- }
- $PHPCAS_CLIENT->setServerSamlValidateURL($url);
- phpCAS :: traceEnd();
- }
-
- function getServerLogoutURL() {
- global $PHPCAS_CLIENT;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should not be called before ' . __CLASS__ . '::client() or ' . __CLASS__ . '::proxy()');
- }
- return $PHPCAS_CLIENT->getServerLogoutURL();
- }
-
- function setServerLogoutURL($url = '') {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after
- ' . __CLASS__ . '::client()');
- }
- if (gettype($url) != 'string') {
- phpCAS :: error('type mismatched for parameter $url (should be
- `string\')');
- }
- $PHPCAS_CLIENT->setServerLogoutURL($url);
- phpCAS :: traceEnd();
- }
-
- function logout($params = "") {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::client() or' . __CLASS__ . '::proxy()');
- }
- $parsedParams = array ();
- if ($params != "") {
- if (is_string($params)) {
- phpCAS :: error('method `phpCAS::logout($url)\' is now deprecated, use `phpCAS::logoutWithUrl($url)\' instead');
- }
- if (!is_array($params)) {
- phpCAS :: error('type mismatched for parameter $params (should be `array\')');
- }
- foreach ($params as $key => $value) {
- if ($key != "service" && $key != "url") {
- phpCAS :: error('only `url\' and `service\' parameters are allowed for method `phpCAS::logout($params)\'');
- }
- $parsedParams[$key] = $value;
- }
- }
- $PHPCAS_CLIENT->logout($parsedParams);
-
- phpCAS :: traceEnd();
- }
-
- function logoutWithRedirectService($service) {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::client() or' . __CLASS__ . '::proxy()');
- }
- if (!is_string($service)) {
- phpCAS :: error('type mismatched for parameter $service (should be `string\')');
- }
- $PHPCAS_CLIENT->logout(array (
- "service" => $service
- ));
-
- phpCAS :: traceEnd();
- }
-
- function logoutWithUrl($url) {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::client() or' . __CLASS__ . '::proxy()');
- }
- if (!is_string($url)) {
- phpCAS :: error('type mismatched for parameter $url (should be `string\')');
- }
- $PHPCAS_CLIENT->logout(array (
- "url" => $url
- ));
-
- phpCAS :: traceEnd();
- }
-
- function logoutWithRedirectServiceAndUrl($service, $url) {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::client() or' . __CLASS__ . '::proxy()');
- }
- if (!is_string($service)) {
- phpCAS :: error('type mismatched for parameter $service (should be `string\')');
- }
- if (!is_string($url)) {
- phpCAS :: error('type mismatched for parameter $url (should be `string\')');
- }
- $PHPCAS_CLIENT->logout(array (
- "service" => $service,
- "url" => $url
- ));
-
- phpCAS :: traceEnd();
- }
-
- function setFixedCallbackURL($url = '') {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if (!$PHPCAS_CLIENT->isProxy()) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if (gettype($url) != 'string') {
- phpCAS :: error('type mismatched for parameter $url (should be `string\')');
- }
- $PHPCAS_CLIENT->setCallbackURL($url);
- phpCAS :: traceEnd();
- }
-
- function setFixedServiceURL($url) {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if (gettype($url) != 'string') {
- phpCAS :: error('type mismatched for parameter $url (should be `string\')');
- }
- $PHPCAS_CLIENT->setURL($url);
- phpCAS :: traceEnd();
- }
-
- function getServiceURL() {
- global $PHPCAS_CLIENT;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- return ($PHPCAS_CLIENT->getURL());
- }
-
- function retrievePT($target_service, & $err_code, & $err_msg) {
- global $PHPCAS_CLIENT;
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::proxy()');
- }
- if (gettype($target_service) != 'string') {
- phpCAS :: error('type mismatched for parameter $target_service(should be `string\')');
- }
- return ($PHPCAS_CLIENT->retrievePT($target_service, $err_code, $err_msg));
- }
-
- function setCasServerCert($cert) {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::client() or' . __CLASS__ . '::proxy()');
- }
- if (gettype($cert) != 'string') {
- phpCAS :: error('type mismatched for parameter $cert (should be `string\')');
- }
- $PHPCAS_CLIENT->setCasServerCert($cert);
- phpCAS :: traceEnd();
- }
-
- function setCasServerCACert($cert) {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::client() or' . __CLASS__ . '::proxy()');
- }
- if (gettype($cert) != 'string') {
- phpCAS :: error('type mismatched for parameter $cert (should be `string\')');
- }
- $PHPCAS_CLIENT->setCasServerCACert($cert);
- phpCAS :: traceEnd();
- }
-
- function setNoCasServerValidation() {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::client() or' . __CLASS__ . '::proxy()');
- }
- $PHPCAS_CLIENT->setNoCasServerValidation();
- phpCAS :: traceEnd();
- }
-
-
- function setExtraCurlOption($key, $value) {
- global $PHPCAS_CLIENT;
- phpCAS :: traceBegin();
- if (!is_object($PHPCAS_CLIENT)) {
- phpCAS :: error('this method should only be called after ' . __CLASS__ . '::client() or' . __CLASS__ . '::proxy()');
- }
- $PHPCAS_CLIENT->setExtraCurlOption($key, $value);
- phpCAS :: traceEnd();
- }
- }
- ?>
|