Inheritance diagram for ilBMFWSDL_Cache:
Collaboration diagram for ilBMFWSDL_Cache:
Public Member Functions | |
| ilBMFWSDL_Cache () | |
| _cacheDir () | |
| _cacheDir return the path to the cache, if it doesn't exist, make it | |
| get ($wsdl_fname, $proxy_params=array(), $cache=0) | |
| get retreives file from cache if it exists, otherwise retreive from net, add to cache, and return from cache | |
Detailed Description
Definition at line 572 of file class.ilBMFWSDL.php.
Member Function Documentation
| ilBMFWSDL_Cache::_cacheDir | ( | ) |
_cacheDir return the path to the cache, if it doesn't exist, make it
Definition at line 581 of file class.ilBMFWSDL.php.
Referenced by get().
{
$dir = getenv("WSDLCACHE");
if (!$dir) $dir = "./wsdlcache";
@mkdir($dir, 0700);
return $dir;
}
Here is the caller graph for this function:
| ilBMFWSDL_Cache::get | ( | $ | wsdl_fname, | |
| $ | proxy_params = array(), |
|||
| $ | cache = 0 | |||
| ) |
get retreives file from cache if it exists, otherwise retreive from net, add to cache, and return from cache
Definition at line 593 of file class.ilBMFWSDL.php.
References $result, _cacheDir(), and ilBMFBase::_raiseSoapFault().
{
$cachename = ilBMFWSDL_Cache::_cacheDir() . "/" . md5($wsdl_fname);
$cacheinfo = $cachename.".info";
$cachename .= ".wsdl";
$md5_wsdl = "";
$file_data = '';
if (WSDL_CACHE_USE && file_exists($cachename)) {
$wf = fopen($cachename,"rb");
if ($wf) {
$file_data = fread($wf, filesize($cachename));
$md5_wsdl = md5($file_data);
fclose($wf);
}
if ($cache) {
if ($cache != $md5_wsdl) {
return $this->_raiseSoapFault("WSDL Checksum error!", $wsdl_fname);
}
} else {
$fi = stat($cachename);
$cache_mtime = $fi[8];
#print cache_mtime, time()
if ($cache_mtime + WSDL_CACHE_MAX_AGE < time()) {
# expired
$md5_wsdl = ""; # refetch
}
}
}
if (!$md5_wsdl) {
// is it a local file?
// this section should be replace by curl at some point
if (!preg_match('/^(http|file):\/\//',$wsdl_fname)) {
if (!file_exists($wsdl_fname)) {
return $this->_raiseSoapFault("Unable to read local WSDL $wsdl_fname", $wsdl_fname);
}
if (function_exists('file_get_contents')) {
$file_data = file_get_contents($wsdl_fname);
} else {
$file_data = implode('',file($wsdl_fname));
}
} else {
$uri = explode('?',$wsdl_fname);
$rq = new HTTP_Request($uri[0], $proxy_params);
// the user agent HTTP_Request uses fouls things up
if (isset($uri[1])) {
$rq->addRawQueryString($uri[1]);
}
$result = $rq->sendRequest();
if (PEAR::isError($result)) {
return $this->_raiseSoapFault("Unable to retrieve WSDL $wsdl_fname,".$rq->getResponseCode(), $wsdl_fname);
}
$file_data = $rq->getResponseBody();
if (!$file_data) {
return $this->_raiseSoapFault("Unable to retrieve WSDL $wsdl_fname, nohttp body", $wsdl_fname);
}
}
$md5_wsdl = md5($file_data);
if (WSDL_CACHE_USE) {
$fp = fopen($cachename, "wb");
fwrite($fp, $file_data);
fclose($fp);
}
}
if (WSDL_CACHE_USE && $cache && $cache != $md5_wsdl) {
return $this->_raiseSoapFault("WSDL Checksum error!", $wsdl_fname);
}
return $file_data;
}
Here is the call graph for this function:
| ilBMFWSDL_Cache::ilBMFWSDL_Cache | ( | ) |
Definition at line 574 of file class.ilBMFWSDL.php.
References ilBMFBase::ilBMFBase().
{
parent::ilBMFBase('WSDLCACHE');
}
Here is the call graph for this function:
The documentation for this class was generated from the following file:
- payment/bmf/lib/SOAP/class.ilBMFWSDL.php
