Smiles from the <% $repo %> repository

%for ( <$location/$repo/*.gif> ) { % ( my $img = $_ ) =~ s!^$location/!!; %}
ImageDidi-Speakimg-Speak
-:Pic src=http://smile.welcomes-you.com/<% $img %> Pic:-[img]http://smile.welcomes-you.com/<% $img %>[/img]
<%args> $dir => 'standard' <%init> my $location = '/home/apache/plain/htdocs/smile'; # sanitize repo (my $repo = $dir ) =~ tr/a-zA-Z0-9_//cd; unless (-d "$location/$repo") { print "

DuDu!

"; $m->abort; }