<?
################################################################################
# Dacio's Picture of the day v1.1
# Copyright 2003 by Dacio            daciofit@yahoo.com
# Created 07.03.2005
# Dacio's PHP scripts                http://kopicaidej.underground.si/script
#
# This script is free to use and modify. 
# Email me if u find it useful at: daciofit@yahoo.com
#
# Change below to suit your needs
#
################################################################################
# See readme.txt for more info
################################################################################

$flist = "list.txt";                         //filename photo list
$nr = "pnumber.inc";                         //file with counter
$arhiv = "arhiv.txt";                        //arhiv photo list

if (file_exists ($flist)) {                  //if exist $flist
    $photo = file($flist);                   //file with photo list
}
if (file_exists ($nr)) {                     //if exist $nr
 $date_mod = date("d.m.y", filemtime ($nr)); //check files modified date
}
$date = date("d.m.y");                       //todays date

//directory where photos are stored;don't forget "/" at the end
$photo_dir = "photos/"; 
$photo_width = "800";                        //photo width
$photo_height = "1200";                       //photo height
$photo_border = "1";                         //photo border
$photo_alt = "Babe Rankings Babe of the Day";//photo alt text

//don't change below ////////////////////////////////////////////////
$w = "width=".$photo_width;
$h = "hight=".$photo_height;
$b = "border=".$photo_border;
$a = "alt=\"".$photo_alt."\"";
$photo_info = $w." ".$h." ".$b." ".$a;

####################################################
# here deletes $photo file (if exist)              #
# AND makes new one with photo list                #
# You can comment this lines ones the list is made #
####################################################
if (file_exists ($flist)) {
  unlink ($flist);
}
$handle = opendir($photo_dir);
while (false !== ($file = readdir($handle))) {
       if ($file != "." && $file != ".." && is_dir($file) == FALSE) {
            $aq = fopen ($flist,"a+");
            fputs ($aq, $file."\n");
            fclose ($aq);
       }
}
closedir($handle);
////////////////////////////////////////////////////////////////////

###########################################
# check date_mod not same as todays date  #
# AND run script                          #
###########################################
if ($date_mod != $date) {

  ###############################################################
  # if file exist read the number and encrease it by one        #
  # then show photo where line is same as number in pnumber.inc #
  ###############################################################
  if (file_exists ($nr)) {
        $fp = fopen ($nr,"r+");
        $qc = fgets ($fp,4);
        $qc = chop ($qc);
        $qc += 1;
            if ($qc >= count($flist))
            $qc == 0;
            rewind ($fp);
            fputs ($fp,substr($qc."   ",0,4));
            fclose ($fp);
            echo "<center><font face=\"verdana\" size=\"-1\"><h2>$photo_alt</h2></font>";
            echo "<img src=\"$photo_dir/$photo[$qc]\" $photo_info>";
            include ("copyright.inc");

            //write info when did photo displayed AND which one
						//You can comment out this lines if you don't wan't arhiv
            $ap = fopen ($arhiv,"a");
            fputs ($ap, $date."\t".$photo[$qc]);
            fclose ($ap);
						///////////////////////////////////////////////////


  ###############################################################
  # if file doesn't exists, make it and add null                #
  # then show photo where line is same as number in pnumber.inc #
  ###############################################################
  } else {
        $fp = fopen($nr,"w");
        $qc = 0;
        fputs ($fp,substr($qc."   ",0,4));
        fclose ($fp);
        echo "<center><font face=\"verdana\" size=\"-1\"><h2>$photo_alt</h2></font>";
        echo "<img src=\"$photo_dir/$photo[$qc]\" $photo_info>";
        include ("copyright.inc");
  }

##########################################################
# show photo where line is same as number in pnumber.inc #
##########################################################
} else {
$fp = fopen ($nr,"r");
$qc = fgets ($fp,4);
$qc = chop ($qc);
fclose ($fp);
echo "<center><font face=\"verdana\" size=\"-1\"><h2>$photo_alt</h2></font>";
echo "<img src=\"$photo_dir/$photo[$qc]\" $photo_info>";
include ("copyright.inc");
}
?>