shared_include_file)); if($configuration->require_authenticated_access) { include("bugs_accounts.php"); if(!BugsValidateAccess("")) { commonHeader(LocaleText("restricted-access-page")); commonFooter(); exit; } } if(!IsSet($perl_path) || !file_exists($perl_path)) $configuration->Debug("CVS Web configuration problem","It was not defined a valid path for perl!\n"); if(!IsSet($cvsroot) || !@is_dir($cvsroot)) $configuration->Debug("CVS Web configuration problem","It was not defined a valid cvs root directory!\n"); Unset($output); $command= "PATH_INFO=\"".getenv("PATH_INFO")."\" ". "SCRIPT_NAME=\"".getenv("SCRIPT_NAME")."\" ". "QUERY_STRING=\"".getenv("QUERY_STRING")."\" ". "SERVER_ADMIN=\"".getenv("SERVER_ADMIN")."\" ". "SERVER_NAME=\"".getenv("SERVER_NAME")."\" ". "HTTP_USER_AGENT=\"".getenv("HTTP_USER_AGENT")."\" ". "HTTP_ACCEPT_ENCODING=\"".getenv("HTTP_ACCEPT_ENCODING")."\" ". ($cvs_path!="" ? "PATH=\"".$cvs_path.":\$PATH\" " : ""). "CVSROOT=\"".$cvsroot."\" ". "CVSWEB_CONFIG=cvsweb.conf ". $perl_path." 2>&1 -ws ./cvsweb"; Exec($command,$output,$status); if($status) $configuration->Debug("CVS Web execution problem","Command: \"$command\"\nStatus: $status!\nOutput:\n".implode($output,"\n")); for($in_headers=1,$headers=array(),$content_type="",$line=0;$lineaccess_realm\""); Header("HTTP/1.0 401 Unauthorized"); Header("Content-Type: text/plain"); echo "The access to this resource is restricted to BGUI developers."; exit; } for($header=0;$header