<?php
/*
** Aratix
** Version 0.2.2beta9 (Anubis)
**
** Autor: Manuel Burghammer
** E-Mail: hide@address.com
** Homepage: http://www.xitara.net
**
** File: pathes3.inc.php - Version 0.2.2 build 1
** Position: /setup/
** Last Modified: 03.04.2006 - 23:21:43
*/

$perl_path = get('perl_path');
$cgi_path = $config->get('cgi_path');

$handle = fopen($cgi_path . "/test.cgi", "w") or die("Fehler");
fwrite($handle, "#!" . $perl_path . "\n");
fwrite($handle, "print \"Content-Type: text/plain\\n\\n\";\n");
fwrite($handle, "print \"true\";\n");
fclose($handle);

chmod($cgi_path . "/test.cgi", 0755) or die("Fehler");

if($check = @file("http://" . $config->url('1') . $config->get('cgi_folder') . "/test.cgi")){
	if($check[0] == "true"){
		$checked_path = TRUE;
		$db->update(TB_CONFIG, "text", $perl_path, "var='perl_path'");
	}
}
unlink($cgi_path . "/test.cgi");

if(isset($checked_path))
	$content->assign("perl_path", $checked_path);
else
	$content->assign("error_flag", TRUE);
?>