Photo Mod Tweak

[johnstires]

This vba mod allows me to have random photos in a certain folder show up on my homepage. I'd like to be able to have the same thing, but have it show the most recently uploaded file. Can someone help me tweak it? Props to KW802 for writing the initial thing:

http://www.vbadvanced.com/forum/showthread.php?t=9852

PHP Code:

<?php

   function after ($this, $inthat)
   {
       if (!is_bool(strpos($inthat, $this)))
       return substr($inthat, strpos($inthat,$this)+strlen($this));
   };

   function after_last ($this, $inthat)
   {
       if (!is_bool(strrevpos($inthat, $this)))
       return substr($inthat, strrevpos($inthat, $this)+strlen($this));
   };

   function before ($this, $inthat)
   {
       return substr($inthat, 0, strpos($inthat, $this));
   };

   function before_last ($this, $inthat)
   {
       return substr($inthat, 0, strrevpos($inthat, $this));
   };

   function between ($this, $that, $inthat)
   {
     return before($that, after($this, $inthat));
   };

   function between_last ($this, $that, $inthat)
   {
     return after_last($this, before_last($that, $inthat));
   };

   // USES
   function strrevpos($instr, $needle)
   {
       $rev_pos = strpos (strrev($instr), strrev($needle));
       if ($rev_pos===false) return false;
       else return strlen($instr) - $rev_pos - strlen($needle);
   };

// This is the directory route to the folder, make sure you leave the trailing slash!
$dir=opendir("/home/cinvin/www/path/to/your/videos/");

// This is a relative link to the directory if it is not in the same directory as the file you are displaying the images on
$directory="http://www.cinvin.com/path/to/your/videos/";

// What type of files should be displayed
$pattern="\.(gif|jpg|jpeg|png|bmp)$";

// Make sure the directory actually exists
if(!$dir)
{
  die("Failed to read directory");
}

// Get the contents of the directory
$s=readdir($dir);

// Initialize our variables
$count="0";
$image;

// Get the count of files and their names
while($s)
{
  if(ereg($pattern, $s))
  {
    $image[$count]=$s;
    $count++;
  }
  $s=readdir($dir);
}

// Close the directory channel
closedir($dir);

//Spit it out
$limit=count($image);$limit--;
$randnum=rand(0,$limit);
// $size=getimagesize("$directory$image[$randNum]");

$filename = "$directory$image[$randnum]"; // Slipstream our content into the template
eval('$home[$mods[\'modid\']][\'content\'] = "' . fetch_template('adv_portal_random_video') . '";'); ?>