X-Git-Url: http://git.pjr.cc/?p=glcas.git;a=blobdiff_plain;f=libglcas%2Fweb.php;h=f2182f3925e986a535f8a43b9f44e1cab846eb28;hp=0d812d9cbd913c3c8bc494bcfd9d4bc14db38ee7;hb=671e643949bab1c87d175bfc98ff086deb9c44ff;hpb=5e260ebc1ad6b785b3ef47599c7a9202ccb12b8b

diff --git a/libglcas/web.php b/libglcas/web.php
index 0d812d9..f2182f3 100644
--- a/libglcas/web.php
+++ b/libglcas/web.php
@@ -118,6 +118,28 @@ function GLCASpageBuilder($bodyClass, $bodyFunction, $bodycontent=null, $title="
 	
 }
 
+function glcas_isRemoteDir($url)
+{
+	file_get_contents($url);
+	//error_log("did file_get_contents on $url");
+	foreach($http_response_header as $key => $val) {
+		//error_log("got header of $key for $val");
+		if(preg_match("/.*Location:.*/", $val)) {
+			//error_log("in details apt got location as $val from $url");
+			$realloc = preg_replace("/.*: /", "", $val);
+			$urlwithslash = $url."/";
+			//echo "<br>in comp with<br>$urlwithslash<br>$realloc<br>";
+			if(strcasecmp($realloc,$urlwithslash)==0) {
+				//error_log("I believe $realloc is a directory redir for $url");
+				return true;
+			} else {
+				//error_log("I dont believe $realloc is a directory redir for $url");
+			}
+		}
+	}
+	return false;
+}
+
 function glcas_startInstaller()
 {
 	global $WEB_ROOT_FS, $BASE_URL;