#!C:\Perl\bin\perl.exe use strict; use warnings; use Env; use CGI::Carp qw(fatalsToBrowser); use Image::Magick; sub GetLayoutName; my $CSSFILE = &GetLayoutName(); print < ::test:: BLOCK my($image, $x, $file); my $neufile = 'n.jpg'; $image = Image::Magick->new; my $dirname = join('/', "$ENV{'DOCUMENT_ROOT'}", 'local'); my $dirname2 = join('/', "$ENV{'DOCUMENT_ROOT'}", 'thumbs', "$neufile"); opendir(DIR, $dirname) or die ("Cannot open $dirname"); while (defined($file = readdir(DIR))) { next if $file =~ /^\.\.?$/; $file = join('/', "$dirname", "$file"); print <Woher: $dirname Was: $file Wohin: $dirname2
BLOCK $x = $image->Read($file); warn "$x" if "$x"; $x = $image->Crop(geometry=>'90x90+275+195'); warn "$x" if "$x"; $x = $image->Write($dirname2); warn "$x" if "$x"; } closedir(DIR); my $thumbFile = 'noname.jpg'; my $thumbsDir = join('/', "$ENV{'DOCUMENT_ROOT'}", 'thumbs/'); opendir(DIR, $thumbsDir) or die ("Cannot open $thumbsDir"); while (defined($thumbFile = readdir(DIR))) { next if $thumbFile =~ /^\.\.?$/; print < $thumbFile
BLOCK } closedir(DIR); print < BLOCK # ================================================================================ # GetLayoutName # ================================================================================ sub GetLayoutName { use Env; $ENV{'HTTP_USER_AGENT'} =~ /(MSIE|Opera|Firefox)/; my $BrowserName = $1; my $LayoutName = "msie.css"; if ($BrowserName eq "Opera") { $LayoutName = "opera.css"; } elsif ($BrowserName eq "Firefox") { $LayoutName = "firefox.css"; } elsif ($BrowserName eq "Netscape") { $LayoutName = "netscape.css"; } else {} return $LayoutName; }