Smiles from the <% $repo %> repository

%for ( <$location/$repo/*.gif> ) { % ( my $img = $_ ) =~ s!^$location/!!; %}

Image	Didi-Speak	img-Speak
	-:Pic src=http://smile.welcomes-you.com/<% $img %> Pic:-	[img]http://smile.welcomes-you.com/<% $img %>[/img]

<%args> $dir => 'standard' <%init> my $location = '/var/www/html/'; # sanitize repo (my $repo = $dir ) =~ tr/a-zA-Z0-9_//cd; unless (-d "$location/$repo") { print "

DuDu!

"; $m->abort; }