|< 1 2 >| | 11 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
use CGI qw/:standard/;
my $query = new CGI;
my %in = $query->Vars;
$in{'uploaded_file'} = param('uploaded_file');
return %in;
AddHandler cgi-script .cgi .pl
1
2
3
4
5
6
7
8
use CGI qw/:standard/;
my $query = new CGI;
my %in = $query->Vars;
$in{'uploaded_file'} = param('uploaded_file');
return %in;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
# create thumbnails (format: ##i.jpg)..
use Image::Magick;
my ($width,$height,$relation);
my $p = new Image::Magick;
for (1 .. $#members+1) { # is gegeben..
print"<b>$_</b>, ";
$p->Read("$output_path/$_.jpg");
}
my $numberOfImages = $#$p+1;
for (1 .. $numberOfImages) {
($width,$height) = $p->[$_-1]->Get("Width","Height");
$relation = $height / $width;
$p->[$_-1]->Resize("Width" => $thumbnail_width, "Height" => ($thumbnail_width * $relation));
$p->[$_-1]->Write("$output_path/$_"."i.jpg");
$message .= "$output_path/$_"."i.jpg<br>\n";
}
|< 1 2 >| | 11 Einträge, 2 Seiten |