tlfunctions.php

调查问卷系统源码。想下的就下吧。不要条件

<?
################################################################################
# phpQuestionnaire                           Version 2.2                       #
# Copyright 2003-2005 chumpsoft, inc.        March 28, 2005                    #
################################################################################
#              SCRiPTMAFiA 2005 - THE DiRTY HANDS ON YOUR SCRiPTS              #
################################################################################

function SetLanguage($language, $type = 'PUBLIC') {
	global $phpQAdmin;

	if (RequireLanguage($language)) { return $language; }

	if ($type == 'PUBLIC') { $language = $phpQAdmin['Language']; }
	else { $language = $phpQAdmin['AdminLanguage']; }
	if (RequireLanguage($language)) { return $language; }

	if (RequireLanguage('english')) { return 'english'; }

	$languages = GetLanguages($type);
	if (count($languages) > 0) {
		foreach ($languages as $language => $name) {
			if (RequireLanguage($language)) { return $language; }
		}
	}

	echo "No Language File Found!";
	exit();
}

function RequireLanguage($language) {
	$langdir = $GLOBALS['phpQRootDir'] . 'languages/';
	$imgdir = $GLOBALS['phpQRootDir'] . 'languages';
	$langfile = $langdir . $language . '/index.php';

	if ($language !== '' && is_readable($langfile)) {
		global $phpQlang;
		$phpQlang = array();
		require("$langfile");

		# Find the appropriate image URL to use if we're in admin....
		$imglangs = GetLanguages('IMAGES');
		if (isset($imglangs[$language]) && is_dir("$imgdir/$language/images")) {
			$imglang = $language;
		}
		elseif (isset($imglangs['english']) && is_dir("$imgdir/english/images")) {
			$imglang = 'english';
		}
		else {
			foreach ($imglangs as $lang => $name) {
				if (is_dir("$imgdir/$lang/images")) { $imglang = $lang; break; }
			}
		}

		$GLOBALS["phpQImageDir"] = "$imgdir/$imglang/images";

		return 1;
	}

	return 0;
}

function ReplaceLanguage ($line) {
	global $phpQlang;
	$retval = preg_replace("/%%([^\%]+)%%/e", "\$phpQlang['\\1']", $line);
	return $retval;
}

function GetTemplates () {
	$templates = array();

	$templatesdir = $GLOBALS["phpQRootDir"] . 'templates/';
	if ($handle = opendir($templatesdir)) {
		while (false !== ($temp = readdir($handle))) {
			if ($temp != '.' && $temp != '..' && is_dir($templatesdir.$temp)) {
				$templateloc = $templatesdir.$temp.'/index.html';
				if (is_readable($templateloc)) {
					if ($fp = @fopen($templateloc, 'r')) {
						$templateinfo = @fgets($fp, 1024);
						if (preg_match("/<!--\/\/(.*)\/\/-->/", $templateinfo, $matches)) {
							$templatename = split(":", $matches[1]);
							$templatename = trim($templatename[1]);
						}

						$templates[$temp] = $templatename ? $templatename : $temp;
					}
					@fclose($fp);
				}
			}
		}
	}
	closedir($handle);

	return $templates;
}

function TemplateOptionList ($selected) {
	$templates = GetTemplates();
	$contents = '';
	foreach ($templates as $temp => $name) {
		$seltext = ($selected == $temp) ? ' SELECTED' : '';
		$contents .= "<OPTION$seltext VALUE=\"$temp\">$name\n";
	}

	return $contents;
}

function GetLanguages ($type = 'PUBLIC') {
	$languages = array();

	$languagesdir = $GLOBALS["phpQRootDir"] . 'languages/';
	if ($handle = opendir($languagesdir)) {
		while (false !== ($lang = readdir($handle))) {
			if ($lang != '.' && $lang != '..' && is_dir($languagesdir.$lang)) {
				$languageloc = $languagesdir.$lang.'/index.php';
				if (is_readable($languageloc)) {
					if ($fp = @fopen($languageloc, 'r')) {
						$languageinfo = split(":", @fgets($fp, 1024));
						$languagename = trim($languageinfo[1]);
						$languagetype = split("\|", trim($languageinfo[2]));

						if (is_array($languagetype) && in_array($type, $languagetype)) {
							$languages[$lang] = $languagename ? $languagename : $lang;
						}
					}
					@fclose($fp);
				}
			}
		}
	}
	closedir($handle);

	return $languages;
}

function LanguageOptionList ($languages, $selected) {
	$contents = '';
	foreach ($languages as $lang => $name) {
		$seltext = ($selected == $lang) ? ' SELECTED' : '';
		$contents .= "<OPTION$seltext VALUE=\"$lang\">$name\n";
	}

	return $contents;
}

?>