Use of uninitialized value in eval "string" at /path_to/req/readin_pagevars.cgi line 10, <STDIN> line 47.
Use of uninitialized value in eval "string" at /path_to/req/readin_pagevars.cgi line 10, <STDIN> line 47.
Use of uninitialized value in eval "string" at /path_to/req/readin_pagevars.cgi line 10, <STDIN> line 47.
Use of uninitialized value in substitution iterator at /path_to/req/readin_pagevars.cgi line 10, <STDIN> line 47.
Use of uninitialized value in eval "string" at /path_to/req/readin_pagevars.cgi line 10, <STDIN> line 47.
Use of uninitialized value in eval "string" at /path_to/req/readin_pagevars.cgi line 10, <STDIN> line 47.
##</code><code>##


sub Get_Page_Vars {
	my ($temp_vars,$type) = @_;
	my ($code1, $code2, $_do_code, $syscode1, $syscode2);
	$sth = $dbh->prepare (qq{ SELECT `name`,`value`,`add_name` FROM `page_vars` WHERE `type` = ? OR `type2` = ? ORDER BY add_name,id,d});
	$sth->execute($type,$type);
	while(my ($db_name,$content,$_add_name) = $sth->fetchrow_array()) {
		$content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/ eval($temp_vars{$1}) /ge;
		$content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/ $temp_vars{eval($1)} /ge;
		$content =~ s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/ eval ($vars{$1}) /ge;
		$content =~ s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/ $vars{eval($1)} /ge;
		$content =~ s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/ eval ($temp_vars{$1}) /ge;
		$content =~ s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/ $temp_vars{eval($1)} /ge;
		$content =~ s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/ eval ($1) /ge;
		$content =~ s/{{([a-zA-Z0-9\{\'\}_]+)}}/ eval($vars{$1}) /ge;
		$content =~ s/{{([a-zA-Z0-9\{\'\}_]+)}}/ $vars{eval($1)} /ge;
		$content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/ eval($vars{$1}) /ge;
		$content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/ $vars{eval($1)} /ge;
		$content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/ eval($1) /ge;
		if ($content && ($content =~ /<code>/i && $content =~ /<\/code>/i)) {
			while($content =~ /<code>/i && $content =~ /<\/code>/i) {
				my ($code1,$code2,$_do_code);
				($content,$code1) = split /<code>/, $content, 2;
				($code2,$ocontent) = split /<\/code>/, $code1, 2;
				$_do_code = eval($code2) if $_do_code && $_do_code ne "";
				$content = $content . $_do_code . $ocontent;
			}
		}
		if ($content && ($content =~ /<syscode>/i && $content =~ /<\/syscode>/i)) {
			while($content =~ /<syscode>/i && $content =~ /<\/syscode>/i) {
				my ($syscode1,$syscode2);
				($content,$syscode1) = split /<syscode>/i, $content, 2;
				($syscode2,$ocontent) = split /<\/syscode>/i, $syscode1, 2;
				eval($syscode2) if $syscode2 && $syscode2 ne "";
				$content = $content . $ocontent;
			}
		}
		if ($_add_name) {
			$content = qq~<!--Start $db_name-->$content<!--End $db_name-->~;
		}
		$temp_vars{$db_name} = $content;
	}
	$sth->finish();
return(%temp_vars);
}