Project

General

Profile

1 989 aldus
//:Get a random image from a folder in the MEDIA folder.
2
//:Commandline to use: [[RandomImage?dir=subfolder_in_mediafolder]]
3
$folder=opendir(WB_PATH.MEDIA_DIRECTORY.'/'.$dir.'/.');
4
$names = array();
5
while ($file = readdir($folder))  {
6
	$ext=strtolower(substr($file,-4));
7
	if ($ext==".jpg"||$ext==".gif"||$ext==".png"){
8
		$names[count($names)] = $file;
9
	}
10
}
11
closedir($folder);
12
shuffle($names);
13
$image=$names[0];
14
$name=substr($image,0,-4);
15
return '<img src="'.WB_URL.MEDIA_DIRECTORY.'/'.$dir.'/'.$image.'" alt="'.$name.'" width="'.$width.'" height="'.$height.'"/>';