1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
package site;
use Image::Size qw(html_imgsize);
use strict;
use vars qw(@XMLSubsPages);
@XMLSubsPages = qw( box testimonial testimonials );
for my $page ( @XMLSubsPages ) {
eval "sub $page { \$main::Response->Include(\"$page.inc\", \@_) }";
$@ && die("can't eval page sub for $page: $@");
}
sub img {
my $args = shift;
my $file = "../site/$args->{src}";
my $size = '';
if(-e $file) {
$size = html_imgsize($file);
}
print qq(<img src="$args->{src}" $size alt="$args->{alt}" border="0">);
}
1;
|
