sub GetGalleryFileAndCaptions
{
my ($URLpicdir,$PATHpicdir) = @_;


return "Error: couldn't build gallery. The following directory does not exist: $PATHpicdir" if not (-d "$PATHpicdir");


my @allfiles = ();
my @dirs = ();
my @CAPTIONS = ();
my @PICS = ();
my $PicDisplayReturn = "";


opendir(DIR, "$PATHpicdir") or return "Could not open: $PATHpicdir";
@allfiles = sort( readdir( DIR ) );
closedir(DIR);

	for my $file (@allfiles)
	{
		if (-d "$PATHpicdir$file")
		{
		push @dirs, $file unless (($file eq ".") or ($file eq ".."));
		}

		else
		{
		my ($extension) = $file =~ /\.([^.]+?)$/; 
		$extension = lc($extension);
		push @PICS, $file if ($extension eq "jpg");
		}

	}

my $CaptionFile = $PATHpicdir."bu.txt";

open my $rfh, '<', $CaptionFile or return qq|Program Error! Could not open file: $CaptionFile. Debugging information: $!|;
{
# perldoc perlvar
# $INPUT_RECORD_SEPARATOR
local $/ = "\r\n\r\n";
@CAPTIONS = <$rfh>;
chomp @CAPTIONS;
}
close $rfh or return qq|Program Error! Could not close file: $CaptionFile. Debugging information: $!|;


	for my $i (0 .. $#PICS)
	{

		$PicDisplayReturn .= "<img src=\"$URLpicdir$PICS[$i]\" alt=\"$CAPTIONS[$i]\" border=\"0\" class=\"GalleryPic\"><br>$CAPTIONS[$i]<br><br>";
	}

$PicDisplayReturn =~ s/\015\012|\012|\015//sg;
return $PicDisplayReturn;
}