#!/usr/bin/perl
#
# get list of files in requested dir, then return details to flash
#

use FunctionLib;

# Get form data
&GetParams;

$data='';
$filedir=$input{'filedir'};
$fulldir=".." . $filedir;
$txtfile='';

print "Content-type: text/plain\n\n";
#print "Content-type: application/x-www-form-urlencoded\n\n";

print 'dir=' . $filedir; # return dir to flash as confirmation

# Open the directory
opendir FILES, $fulldir;

$num=0;
$file = "";

while ($file = readdir(FILES)) {
	# Output the file details unless it's a directory
	unless (-d "$fulldir/$file") {
		if (($file=~/(.jpg)$/) & ($file ne "default.jpg")) {
			$num++;
			print qq^&lvurl$num=$filedir/$file^; # url of file
			$txtfile=$file;
			$txtfile=~s/jpg/txt/;
			open(fhin,"$fulldir/$txtfile");
			$data = join '', <fhin>; # get image description
			close(fhin);
			print '&lvdesc' . $num . '=' . $data;
		}
	}
}


print '&total=' . $num; # total files found
print '&server=' . $ENV{'HTTP_HOST'}; # server name