From 17177f68e60663a5999564dc0714c54f18148d44 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Thu, 2 Dec 2004 19:25:24 +0000 Subject: [PATCH] adding image asset type --- docs/upgrades/upgrade_6.2.9-6.3.0.sql | 7 + lib/WebGUI/Asset/File/Image.pm | 204 ++++++++++++++++++++++++++ 2 files changed, 211 insertions(+) create mode 100644 lib/WebGUI/Asset/File/Image.pm diff --git a/docs/upgrades/upgrade_6.2.9-6.3.0.sql b/docs/upgrades/upgrade_6.2.9-6.3.0.sql index 497dc3bff..9487ef3ea 100644 --- a/docs/upgrades/upgrade_6.2.9-6.3.0.sql +++ b/docs/upgrades/upgrade_6.2.9-6.3.0.sql @@ -177,3 +177,10 @@ CREATE TABLE commerceSettings ( type varchar(10) NOT NULL default '' ) TYPE=MyISAM; INSERT INTO template VALUES ('1','Default payment gateway selection template','\r\n
\r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n
\r\n \r\n \r\n\r\n \r\n','Commerce/SelectPaymentGateway',1,1); + + +create table ImageAsset ( + assetId varchar(22) not null primary key, + thumbnailSize int not null default 50 +); + diff --git a/lib/WebGUI/Asset/File/Image.pm b/lib/WebGUI/Asset/File/Image.pm new file mode 100644 index 000000000..90a986752 --- /dev/null +++ b/lib/WebGUI/Asset/File/Image.pm @@ -0,0 +1,204 @@ +package WebGUI::Asset::File::Image; + +=head1 LEGAL + + ------------------------------------------------------------------- + WebGUI is Copyright 2001-2004 Plain Black Corporation. + ------------------------------------------------------------------- + Please read the legal notices (docs/legal.txt) and the license + (docs/license.txt) that came with this distribution before using + this software. + ------------------------------------------------------------------- + http://www.plainblack.com info@plainblack.com + ------------------------------------------------------------------- + +=cut + +use strict; +use WebGUI::Asset::File; +use WebGUI::HTTP; +use WebGUI::Session; +use WebGUI::Storage; + +# do a check to see if they've installed Image::Magick +my $hasImageMagick = 1; +eval " use Image::Magick; "; $hasImageMagick=0 if $@; + +our @ISA = qw(WebGUI::Asset::File); + + +=head1 NAME + +Package WebGUI::Asset::File::Image + +=head1 DESCRIPTION + +Extends WebGUI::Asset::File to add image manipulation operations. + +=head1 SYNOPSIS + +use WebGUI::Asset::File::Image; + + +=head1 METHODS + +These methods are available from this class: + +=cut + + + +#------------------------------------------------------------------- + +=head2 definition ( definition ) + +Defines the properties of this asset. + +=head3 definition + +A hash reference passed in from a subclass definition. + +=cut + +sub definition { + my $class = shift; + my $definition = shift; + push(@{$definition}, { + tableName=>'ImageAsset', + className=>'WebGUI::Asset::File::Image', + properties=>{ + thumbnailSize=>{ + fieldType=>'integer', + defaultValue=>$session{setting}{thumbnailSize} + } + } + }); + return $class->SUPER::definition($definition); +} + + + +#------------------------------------------------------------------- + +=head2 generateThumbnail ( [ thumbnailSize ] ) + +Generates a thumbnail for this image. + +=head3 thumbnailSize + +A size, in pixels, of the maximum height or width of a thumbnail. If specified this will change the thumbnail size of the image. If unspecified the thumbnail size set in the properties of this asset will be used. + +=cut + +sub generateThumbnail { + my $self = shift; + my $thumbnailSize = shift; + if (defined $thumbnailSize) { + $self->update({thumbnailSize=>$thumbnailSize}); + } + if ($self->getValue("filename") && $hasImageMagick) { + my $storage = WebGUI::Storage->new($self->get("storageId")); + $image = Image::Magick->new; + $error = $image->Read($storage->getPath($storage->get("filename"))); + if ($error) { + $self->_addError("Couldn't read image for thumnail creation: ".$error); + return 0; + } + ($x, $y) = $image->Get('width','height'); + $n = $self->get("thumbnailSize"); + if ($x > $n || $y > $n) { + $r = $x>$y ? $x / $n : $y / $n; + $image->Scale(width=>($x/$r),height=>($y/$r)); + } + if (isIn($storage->getFileExtension($self->get("filename")), qw(tif tiff bmp))) { + $error = $image->Write($storage->getPath.$session{os}{slash}.'thumb-'.$self->get("filename").'.png'); + } else { + $error = $image->Write($storage->getPath.$session{os}{slash}.'thumb-'.$self->get("filename")); + } + if ($error) { + $self->_addError("Couldn't create thumbnail: ".$error); + return 0; + } + return 1; + } + $self->_addError("Can't generate a thumbnail when you haven't uploaded a file."); + return 0; # couldn't generate thumbnail +} + + +#------------------------------------------------------------------- + +=head2 getEditForm () + +Returns the TabForm object that will be used in generating the edit page for this asset. + +=cut + +sub getEditForm { + my $self = shift; + my $tabform = $self->SUPER::getEditForm(); + $tabform->getTab("properties")->integer( + -name=>"thumbnailSize", + -label=>"Thumbnail Size", + -value=>$self->getValue("thumbnailSize") + ); + if ($self->get("filename") ne "") { + my $storage = WebGUI::Storage->new($self->get("storageId")); + $tabform->getTab("properties")->readOnly( + -label=>"Thumbnail", + -value=>'thumbnail' + ); + } +} + + +#------------------------------------------------------------------- + +=head2 getName + +Returns the displayable name of this asset. + +=cut + +sub getName { + return "Image"; +} + + +#------------------------------------------------------------------- + +=head2 www_editSave + +Gathers data from www_edit and persists it. + +=cut + +sub www_editSave { + my $self = shift; + $self->SUPER::www_editSave(); + $self->generateThumbnail; + return ""; +} + + +#------------------------------------------------------------------- + +=head2 www_view + +A web executable method that redirects the user to the specified page, or displays the edit interface when admin mode is enabled. + +=cut + +sub www_view { + my $self = shift; + if ($session{var}{adminOn}) { + return $self->www_edit; + } + my $storage = WebGUI::Storage->new($self->get("storageId")); + WebGUI::HTTP::setRedirect($storage->getUrl($self->get("filename"))); + return ""; +} + + +1; +