"assessment.pstpl"); $files[]=array("name"=>"clearall.pstpl"); $files[]=array("name"=>"completed.pstpl"); $files[]=array("name"=>"endgroup.pstpl"); $files[]=array("name"=>"endpage.pstpl"); $files[]=array("name"=>"groupdescription.pstpl"); $files[]=array("name"=>"load.pstpl"); $files[]=array("name"=>"navigator.pstpl"); $files[]=array("name"=>"printanswers.pstpl"); $files[]=array("name"=>"privacy.pstpl"); $files[]=array("name"=>"question.pstpl"); $files[]=array("name"=>"register.pstpl"); $files[]=array("name"=>"save.pstpl"); $files[]=array("name"=>"surveylist.pstpl"); $files[]=array("name"=>"startgroup.pstpl"); $files[]=array("name"=>"startpage.pstpl"); $files[]=array("name"=>"survey.pstpl"); $files[]=array("name"=>"welcome.pstpl"); //Standard Screens //Only these may be viewed $screens[]=array("name"=>$clang->gT("Survey List Page", "unescaped")); $screens[]=array("name"=>$clang->gT("Welcome Page", "unescaped")); $screens[]=array("name"=>$clang->gT("Question Page", "unescaped")); $screens[]=array("name"=>$clang->gT("Completed Page", "unescaped")); $screens[]=array("name"=>$clang->gT("Clear All Page", "unescaped")); $screens[]=array("name"=>$clang->gT("Register Page", "unescaped")); $screens[]=array("name"=>$clang->gT("Load Page", "unescaped")); $screens[]=array("name"=>$clang->gT("Save Page", "unescaped")); $screens[]=array("name"=>$clang->gT("Print Answers Page", "unescaped")); // Set this so common.php doesn't throw notices about undefined variables $thissurvey['active']='N'; $file_version="LimeSurvey Template Editor ".$versionnumber; $_SESSION['s_lang']=$_SESSION['adminlang']; if (!isset($templatename)) {$templatename = sanitize_paranoid_string(returnglobal('templatename'));} if (!isset($templatedir)) {$templatedir = sanitize_paranoid_string(returnglobal('templatedir'));} if (!isset($editfile)) {$editfile = sanitize_paranoid_string(returnglobal('editfile'));} if (!isset($screenname)) {$screenname=auto_unescape(returnglobal('screenname'));} // Checks if screen name is in the list of allowed screen names if ( isset($screenname) && (multiarray_search($screens,'name',$screenname)===false)) {die('Invalid screen name');} // Die you sneaky bastard! if (!isset($action)) {$action=sanitize_paranoid_string(returnglobal('action'));} if (!isset($otherfile)) {$otherfile = sanitize_paranoid_string(returnglobal('otherfile'));} if (!isset($newname)) {$newname = sanitize_paranoid_string(returnglobal('newname'));} if (!isset($copydir)) {$copydir = sanitize_paranoid_string(returnglobal('copydir'));} if (file_exists($publicdir."/templates/".$templatename."/template.css")) { $files[]=array("name"=>"template.css"); } if (isset ($_POST['changes'])) { $changedtext=$_POST['changes']; if(get_magic_quotes_gpc()) { $changedtext = str_replace("\'", stripslashes("'"), $changedtext); $changedtext = str_replace('\"', stripslashes('"'), $changedtext); } } if ($action != "newtemplate" && !$templatename) {$templatename = "default";} $template_a=gettemplatelist(); foreach ($template_a as $tp) { $templates[]=array("name"=>$tp, "dir"=>$publicdir."/templates/".$tp); } unset($template_a); //Save Changes if necessary if ($action=="templatesavechanges" && $changedtext) { $changedtext=str_replace("\r\n", "\n", $changedtext); if ($editfile) { // Check if someone tries to submit a file other than one of the allowed filenames if (multiarray_search($files,'name',$editfile)===false) {die('Invalid template filename');} // Die you sneaky bastard! $savefilename=$publicdir."/templates/".$templatename."/".$editfile; if (is_writable($savefilename)) { if (!$handle = fopen($savefilename, 'w')) { echo "Could not open file ($savefilename)"; exit; } if (!fwrite($handle, $changedtext)) { echo "Cannot write to file ($savefilename)"; exit; } fclose($handle); } else { echo "The file $savefilename is not writable"; } } } if ($action == "templatecopy" && isset($newname) && isset($copydir)) { //Copies all the files from one template directory to a new one //This is a security issue because it is allowing copying from get variables... $newdirname=$publicdir."/templates/".$newname; $copydirname=$publicdir."/templates/".$copydir; $mkdirresult=mkdir_p($newdirname); if ($mkdirresult == 1) { $copyfiles=getListOfFiles($copydirname); foreach ($copyfiles as $file) { $copyfile=$copydirname."/".$file; $newfile=$newdirname."/".$file; if (!copy($copyfile, $newfile)) { echo ""; } } $templates[]=array("name"=>$newname, "dir"=>$newdirname); $templatename=$newname; } elseif($mkdirresult == 2) { echo ""; } else { echo ""; } } if ($action == "templaterename" && isset($newname) && isset($copydir)) { $newdirname=$publicdir."/templates/".$newname; $olddirname=$publicdir."/templates/".$copydir; if (rename($olddirname, $newdirname)==false) { echo ""; } else { $templates[]=array("name"=>$newname, "dir"=>$newdirname); $templatename=$newname; } } if ($action == "templateupload") { $the_full_file_path = $publicdir."/templates/".$templatename . "/" . $_FILES['the_file']['name']; //This is where the temp file is if ($extfile = strrchr($_FILES['the_file']['name'], '.')) { if (!(stripos(','.$allowedtemplateuploads.',',','. substr($extfile,1).',') === false)) { //Uploads the file into the appropriate directory if (!@move_uploaded_file($_FILES['the_file']['tmp_name'], $the_full_file_path)) { echo "".$clang->gT("Error")."
\n"; echo sprintf ($clang->gT("An error occurred uploading your file. This may be caused by incorrect permissions in your %s folder."),$tempdir)."

\n"; echo "\n"; echo "\n"; echo "\n\n"; exit; } } else { // if we came here is because the file extention is not allowed @unlink($_FILES['the_file']['tmp_name']); echo "".$clang->gT("Error")."
\n"; echo $clang->gT("This file type is not allowed to be uploaded.")."

\n"; echo "\n"; echo "\n"; echo "\n\n"; exit; } } else { // if we came here is because the file extention is not allowed @unlink($_FILES['the_file']['tmp_name']); echo "".$clang->gT("Error")."
\n"; echo $clang->gT("This file type is not allowed to be uploaded.")."

\n"; echo "\n"; echo "\n"; echo "\n\n"; exit; } } if ($action == "templatefiledelete") { $the_full_file_path = $publicdir."/templates/".$templatename."/".$otherfile; //This is where the temp file is unlink($the_full_file_path); } if ($action == "templatezip") { require("classes/phpzip/phpzip.inc.php"); $z = new PHPZip(); $templatedir="$publicdir/templates/$templatename/"; $zipfile="$tempdir/$templatename.zip"; $z -> Zip($templatedir, $zipfile); if (is_file($zipfile)) { //Send the file for download! header("Pragma: public"); header("Expires: 0"); header("Cache-Control: must-revalidate, post-check=0, pre-check=0"); header("Content-Type: application/force-download"); header( "Content-Disposition: attachment; filename=$templatename.zip" ); header( "Content-Description: File Transfer"); @readfile($zipfile); //Delete the temporary file unlink($zipfile); } } $normalfiles=array("DUMMYENTRY", ".", "..", "preview.png"); foreach ($files as $fl) { $normalfiles[]=$fl["name"]; } if (file_exists($publicdir."/templates/".$templatename."/template.css")) { $normalfiles[]="template.css"; } //Page Display Instructions $SurveyList=array("startpage.pstpl", "surveylist.pstpl", "endpage.pstpl"); $Welcome=array("startpage.pstpl", "welcome.pstpl", "privacy.pstpl", "navigator.pstpl", "endpage.pstpl"); $Question=array("startpage.pstpl", "survey.pstpl", "startgroup.pstpl", "groupdescription.pstpl", "question.pstpl", "endgroup.pstpl", "navigator.pstpl", "endpage.pstpl"); $Completed=array("startpage.pstpl", "assessment.pstpl", "completed.pstpl", "endpage.pstpl"); $Clearall=array("startpage.pstpl", "clearall.pstpl", "endpage.pstpl"); $Register=array("startpage.pstpl", "survey.pstpl", "register.pstpl", "endpage.pstpl"); $Save=array("startpage.pstpl", "save.pstpl", "endpage.pstpl"); $Load=array("startpage.pstpl", "load.pstpl", "endpage.pstpl"); $printtemplate=array("startpage.pstpl", "printanswers.pstpl", "endpage.pstpl"); //CHECK ALL FILES EXIST, AND IF NOT - COPY IT FROM DEFAULT DIRECTORY foreach ($files as $file) { $thisfile="$publicdir/templates/$templatename/".$file['name']; if (!is_file($thisfile)) { $copyfile="$publicdir/templates/default/".$file['name']; $newfile=$thisfile; if (!@copy($copyfile, $newfile)) { echo ""; } } } if (!$screenname) {$screenname=$clang->gT("Welcome Page", "unescaped");} if ($screenname != $clang->gT("Welcome Page")) {$_SESSION['step']=1;} else {unset($_SESSION['step']);} //This helps handle the load/save buttons //FAKE DATA FOR TEMPLATES $thissurvey['name']="Template Sample"; $thissurvey['description']="This is a sample survey description. It could be quite long.

But this one isn't."; $thissurvey['welcome']="Welcome to this sample survey.
\n You should have a great time doing this
"; $thissurvey['allowsave']="Y"; $thissurvey['templatedir']=$templatename; $thissurvey['format']="G"; $thissurvey['url']="http://www.limesurvey.org/"; $thissurvey['urldescrip']="A URL Description"; $thissurvey['usecaptcha']="A"; $percentcomplete=makegraph(6, 10); $groupname="Group 1: The first lot of questions"; $groupdescription="This group description is fairly vacuous, but quite important."; $navigator=""; if ($screenname != $clang->gT("Welcome Page")) {$navigator = "\n".$navigator;} $help="This is some help text"; $totalquestions="10"; $surveyformat="Format"; $completed="Survey is completed and saved."; $notanswered="5"; $privacy=""; $surveyid="1295"; $token=1234567; $assessments="
Assessment Heading
Assessment details
Note that assessments will only show if assessment rules have been set. Otherwise, this assessment table will not appear
"; $printoutput="".$clang->gT("Survey Name (ID)")." testt (46962)
".$clang->gT("Question")."".$clang->gT("Your Answer")."
id 12
Date Submitted 1980-01-01 00:00:00
This is a sample question text. The user was asked to enter a date. 2007-11-06
This is another sample question text - asking for number. 666
This is one last sample question text - asking for some free text. Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum
"; $addbr=false; switch($screenname) { case $clang->gT("Survey List Page", "unescaped"): unset($files); $list[]="
  • Survey Number 1
  • \n"; $list[]="
  • Survey Number 2
  • \n"; $surveylist=array( "nosid"=>$clang->gT("You have not provided a survey identification number"), "contact"=>sprintf($clang->gT("Please contact %s ( %s ) for further assistance."),$siteadminname,$siteadminemail), "listheading"=>$clang->gT("The following surveys are available:"), "list"=>implode("\n",$list), ); $myoutput[]=""; foreach ($SurveyList as $qs) { $files[]=array("name"=>$qs); $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/$qs")); } if (file_exists($publicdir."/templates/".$templatename."/template.css")) { $files[]=array("name"=>"template.css"); } break; case $clang->gT("Question Page", "unescaped"): unset($files); foreach ($Question as $qs) { $files[]=array("name"=>$qs); } $myoutput[]="\n"; $myoutput[]="\n"; $myoutput[]="\n"; $myoutput[]="\n"; $myoutput[]="\n"; $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/startpage.pstpl")); $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/survey.pstpl")); $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/startgroup.pstpl")); $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/groupdescription.pstpl")); $question="How many roads must a man walk down?"; $questioncode="1a"; $answer="


    \n"; $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/question.pstpl")); $question="Please explain your details:"; $questioncode="2"; $answer=""; $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/question.pstpl")); $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/endgroup.pstpl")); $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/navigator.pstpl")); $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/endpage.pstpl")); if (file_exists($publicdir."/templates/".$templatename."/template.css")) { $files[]=array("name"=>"template.css"); } break; case $clang->gT("Welcome Page", "unescaped"): unset($files); $myoutput[]=""; foreach ($Welcome as $qs) { $files[]=array("name"=>$qs); $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/$qs")); } if (file_exists($publicdir."/templates/".$templatename."/template.css")) { $files[]=array("name"=>"template.css"); } break; case $clang->gT("Register Page", "unescaped"): unset($files); foreach($Register as $qs) { $files[]=array("name"=>$qs); } foreach(file("$publicdir/templates/$templatename/startpage.pstpl") as $op) { $myoutput[]=templatereplace($op); } foreach(file("$publicdir/templates/$templatename/survey.pstpl") as $op) { $myoutput[]=templatereplace($op); } foreach(file("$publicdir/templates/$templatename/register.pstpl") as $op) { $myoutput[]=templatereplace($op); } foreach(file("$publicdir/templates/$templatename/endpage.pstpl") as $op) { $myoutput[]=templatereplace($op); } $myoutput[]= "\n"; if (file_exists($publicdir."/templates/".$templatename."/template.css")) { $files[]=array("name"=>"template.css"); } break; case $clang->gT("Save Page", "unescaped"): unset($files); foreach($Save as $qs) { $files[]=array("name"=>$qs); } foreach(file("$publicdir/templates/$templatename/startpage.pstpl") as $op) { $myoutput[]=templatereplace($op); } foreach(file("$publicdir/templates/$templatename/save.pstpl") as $op) { $myoutput[]=templatereplace($op); } foreach(file("$publicdir/templates/$templatename/endpage.pstpl") as $op) { $myoutput[]=templatereplace($op); } $myoutput[]= "\n"; if (file_exists($publicdir."/templates/".$templatename."/template.css")) { $files[]=array("name"=>"template.css"); } break; case $clang->gT("Load Page", "unescaped"): unset($files); foreach($Load as $qs) { $files[]=array("name"=>$qs); } foreach(file("$publicdir/templates/$templatename/startpage.pstpl") as $op) { $myoutput[]=templatereplace($op); } foreach(file("$publicdir/templates/$templatename/load.pstpl") as $op) { $myoutput[]=templatereplace($op); } foreach(file("$publicdir/templates/$templatename/endpage.pstpl") as $op) { $myoutput[]=templatereplace($op); } $myoutput[]= "\n"; if (file_exists($publicdir."/templates/".$templatename."/template.css")) { $files[]=array("name"=>"template.css"); } break; case $clang->gT("Clear All Page", "unescaped"): unset($files); foreach ($Clearall as $qs) { $files[]=array("name"=>$qs); } foreach(file("$publicdir/templates/$templatename/startpage.pstpl") as $op) { $myoutput[]=templatereplace($op); } foreach(file("$publicdir/templates/$templatename/clearall.pstpl") as $op) { $myoutput[]=templatereplace($op); } foreach(file("$publicdir/templates/$templatename/endpage.pstpl") as $op) { $myoutput[]=templatereplace($op); } $myoutput[]= "\n"; if (file_exists($publicdir."/templates/".$templatename."/template.css")) { $files[]=array("name"=>"template.css"); } break; case $clang->gT("Completed Page", "unescaped"): unset($files); $myoutput[]=""; foreach ($Completed as $qs) { $files[]=array("name"=>$qs); $myoutput = array_merge($myoutput, doreplacement("$publicdir/templates/$templatename/$qs")); } if (file_exists($publicdir."/templates/".$templatename."/template.css")) { $files[]=array("name"=>"template.css"); } break; case $clang->gT("Print Answers Page", "unescaped"): unset($files); foreach ($printtemplate as $qs) { $files[]=array("name"=>$qs); } foreach(file("$publicdir/templates/$templatename/startpage.pstpl") as $op) { $myoutput[]=templatereplace($op); } foreach(file("$publicdir/templates/$templatename/printanswers.pstpl") as $op) { $myoutput[]=templatereplace($op); } foreach(file("$publicdir/templates/$templatename/endpage.pstpl") as $op) { $myoutput[]=templatereplace($op); } $myoutput[]= "\n"; if (file_exists($publicdir."/templates/".$templatename."/template.css")) { $files[]=array("name"=>"template.css"); } break; } $myoutput[]=""; if (is_array($files)) { $match=0; foreach ($files as $f) { if ($editfile == $f["name"]) { $match=1; } } if ($match != 1) { if (count($files) == 1) { $editfile=$files[0]["name"]; } else { $editfile=""; } } } //Get list of 'otherfiles' $dirloc=$publicdir."/templates/".$templatename; if ($handle = opendir($dirloc)) { while(false !== ($file = readdir($handle))) { if (!array_search($file, $normalfiles)) { if (!is_dir("$dirloc/$file")) { $otherfiles[]=array("name"=>$file); } } } // while closedir($handle); } //**************************************************************** //** OUTPUT STARTS HERE //**************************************************************** $templatesoutput= "\n"; $templatesoutput.= "\n" . "\t\n" . "\t\t
    \n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\t\n" ."
    \n"; //TEMPLATE DETAILS $templatesoutput.= "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\t\n" ."
    \n"; //FILE CONTROL DETAILS $templatesoutput.= "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t\n" . "\t\t\t" . "\t\t\t\t\n" ."\t" ."" ."
    "; //SAMPLE ROW $templatesoutput.= "\t\t\t\n" . "\t\t\t\n" . "\t\t\t\t\n" . "\t\t\t\n" ."\t\n" ."\t\t\n"; function doreplacement($file) { //Produce sample page from template file $output=array(); foreach(file($file) as $op) { $output[]=templatereplace($op); } return $output; } function unlink_wc($dir, $pattern){ if ($dh = opendir($dir)) { //List and put into an array all files while (false !== ($file = readdir($dh))){ if ($file != "." && $file != "..") { $files[] = $file; } } closedir($dh); //Split file name and extenssion if(strpos($pattern,".")) { $baseexp=substr($pattern,0,strpos($pattern,".")); $typeexp=substr($pattern,strpos($pattern,".")+1,strlen($pattern)); }else{ $baseexp=$pattern; $typeexp=""; } //Escape all regexp Characters $baseexp=preg_quote($baseexp); $typeexp=preg_quote($typeexp); // Allow ? and * $baseexp=str_replace(array("\*","\?"), array(".*","."), $baseexp); $typeexp=str_replace(array("\*","\?"), array(".*","."), $typeexp); //Search for pattern match $i=0; foreach($files as $file) { $filename=basename($file); if(strpos($filename,".")) { $base=substr($filename,0,strpos($filename,".")); $type=substr($filename,strpos($filename,".")+1,strlen($filename)); }else{ $base=$filename; $type=""; } if(preg_match("/^".$baseexp."$/i",$base) && preg_match("/^".$typeexp."$/i",$type)) { $matches[$i]=$file; $i++; } } if (isset($matches)) { while(list($idx,$val) = each($matches)){ if (substr($dir,-1) == "/"){ unlink($dir.$val); }else{ unlink($dir."/".$val); } } } } } function getListOfFiles($wh){ //Returns an array containing all files in a directory if ($handle = opendir($wh)) { while (false !== ($file = readdir($handle))) { if ($file != "." && $file != ".." && !is_dir($file)) { if(!isset($files) || !$files) $files="$file"; else $files="$file\n$files"; } } closedir($handle); } $arr=explode("\n",$files); return $arr; } function textarea_encode($html_code) { $from = array('<', '>'); $to = array('<', '>'); $html_code = str_replace($from, $to, $html_code); return $html_code; } //Load this editfile function filetext($templatefile) { global $publicdir, $templatename; $output=""; foreach(file("$publicdir/templates/$templatename/$templatefile") as $line) { $output .= $line; } return $output; } function makegraph($currentstep, $total) { global $thissurvey, $publicurl, $templatename, $clang; $shchart="$publicurl/templates/{$thissurvey['templatedir']}/chart.jpg"; $graph = "\n
    \n" . "\n" . "\n"; $size=intval(($currentstep-1)/$total*100); $graph .= "\n" . "\n" . "
    0% \n" . "\n" . "\n" . "
    \n" . "".sprintf($clang->gT("%s %% complete"), $size)."\n" . "
    \n" . "
     100%
    \n" . "
    \n"; return $graph; } function mkdir_p($target){ //creates a new directory //Returns 1 for success // 2 for "directory/file by that name exists // 0 for other errors if(file_exists($target) || is_dir($target)) return 2; if(mkdir($target,0777)){ return 1; } if(mkdir_p(substr($target, 0, (strrpos($target, '/')))) == 1){ if(mkdir_p($target) == 1) return 1; else return 0; } else { return 0; } } function makeoptions($array, $value, $text, $selectedvalue) { $return=""; foreach ($array as $ar) { $return .= "