oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

rename now renames thumbnails, and exposed the "getNode" method.

Browse source
This commit is contained in:
JT Smith 2003-04-13 21:21:55 +00:00
parent 3cc53150f6
commit 9b791a55d0
1 changed files with 34 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

52
lib/WebGUI/Attachment.pm
View file

@ -47,6 +47,7 @@ Package to manipulate WebGUI Attachments.
$html = $attachment->box; $html = $attachment->box;
$string = $attachment->getFilename; $string = $attachment->getFilename;
$url = $attachment->getIcon; $url = $attachment->getIcon;
$node = $attachment->getNode;
$string = $attachment->getPath; $string = $attachment->getPath;
$integer = $attachment->getSize; $integer = $attachment->getSize;
$url = $attachment->getThumbnail; $url = $attachment->getThumbnail;
@ -114,23 +115,23 @@ sub copy {
$newNode = WebGUI::Node->new($_[1],$_[2]); $newNode = WebGUI::Node->new($_[1],$_[2]);
$newNode->create; $newNode->create;
$a = FileHandle->new($_[0]->getPath,"r"); $a = FileHandle->new($_[0]->getPath,"r");
$b = FileHandle->new(">".$newNode->getPath.'/'.$_[0]->getFilename); $b = FileHandle->new(">".$newNode->getPath.$session{os}{slash}.$_[0]->getFilename);
if (defined $a) { if (defined $a) {
binmode($a); binmode($a);
$b = FileHandle->new(">".$newNode->getPath.'/'.$_[0]->getFilename); $b = FileHandle->new(">".$newNode->getPath.$session{os}{slash}.$_[0]->getFilename);
if (defined $b) { if (defined $b) {
binmode($b); binmode($b);
cp($a,$b) or WebGUI::ErrorHandler::warn("Couldn't copy attachment: ".$newNode->getPath.'/'.$_[0]->getFilename." :".$!); cp($a,$b) or WebGUI::ErrorHandler::warn("Couldn't copy attachment: ".$newNode->getPath.$session{os}{slash}.$_[0]->getFilename." :".$!);
$b->close; $b->close;
} }
$a->close; $a->close;
} }
if (isIn($_[0]->getType,qw(jpg jpeg gif png tif tiff bmp))) { if ($_[0]->isImage) {
$a = FileHandle->new($_[0]->{_node}->getPath.'/thumb-'.$_[0]->getFilename,"r"); $a = FileHandle->new($_[0]->getNode->getPath.$session{os}{slash}.'thumb-'.$_[0]->getFilename,"r");
$b = FileHandle->new(">".$newNode->getPath.'/thumb-'.$_[0]->getFilename); $b = FileHandle->new(">".$newNode->getPath.$session{os}{slash}.'thumb-'.$_[0]->getFilename);
if (defined $a) { if (defined $a) {
binmode($a); binmode($a);
$b = FileHandle->new(">".$newNode->getPath.'/thumb-'.$_[0]->getFilename); $b = FileHandle->new(">".$newNode->getPath.$session{os}{slash}.'thumb-'.$_[0]->getFilename);
if (defined $b) { if (defined $b) {
binmode($b); binmode($b);
cp($a,$b); cp($a,$b);
@ -171,9 +172,9 @@ sub createThumbnail {
$image->Scale(width=>($x/$r),height=>($y/$r)); $image->Scale(width=>($x/$r),height=>($y/$r));
} }
if (isIn($_[0]->getType, qw(tif tiff bmp))) { if (isIn($_[0]->getType, qw(tif tiff bmp))) {
$error = $image->Write($_[0]->{_node}->getPath.'/thumb-'.$_[0]->getFilename.'.png'); $error = $image->Write($_[0]->getNode->getPath.'/thumb-'.$_[0]->getFilename.'.png');
} else { } else {
$error = $image->Write($_[0]->{_node}->getPath.'/thumb-'.$_[0]->getFilename); $error = $image->Write($_[0]->getNode->getPath.'/thumb-'.$_[0]->getFilename);
} }
WebGUI::ErrorHandler::warn("Couldn't create thumbnail: ".$error) if $error; WebGUI::ErrorHandler::warn("Couldn't create thumbnail: ".$error) if $error;
} }
@ -202,7 +203,7 @@ Deletes deletes this attachment's node (and everything in it).
=cut =cut
sub deleteNode { sub deleteNode {
rmtree($_[0]->{_node}->getPath); rmtree($_[0]->getNode->getPath);
} }
@ -306,6 +307,18 @@ sub getIcon {
} }
#-------------------------------------------------------------------
=head2 getNode ( )
Returns the node object for this attachment.
=cut
sub getNode {
return $_[0]->{_node};
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getPath ( ) =head2 getPath ( )
@ -315,7 +328,7 @@ Returns a full path to an attachment.
=cut =cut
sub getPath { sub getPath {
return $_[0]->{_node}->getPath.$session{os}{slash}.$_[0]->getFilename; return $_[0]->getNode->getPath.$session{os}{slash}.$_[0]->getFilename;
} }
@ -329,7 +342,7 @@ Returns the size of this file.
sub getSize { sub getSize {
my ($size); my ($size);
my (@attributes) = stat($_[0]->{_node}->getPath.$session{os}{slash}.$_[0]->getFilename); my (@attributes) = stat($_[0]->getNode->getPath.$session{os}{slash}.$_[0]->getFilename);
if ($attributes[7] > 1048576) { if ($attributes[7] > 1048576) {
$size = round($attributes[7]/1048576); $size = round($attributes[7]/1048576);
$size .= 'MB'; $size .= 'MB';
@ -353,9 +366,9 @@ Returns a full URL to the thumbnail for this attachment. Thumbnails are only cre
sub getThumbnail { sub getThumbnail {
if ($hasImageMagick && isIn($_[0]->getType, qw(jpg jpeg gif png))) { if ($hasImageMagick && isIn($_[0]->getType, qw(jpg jpeg gif png))) {
return $_[0]->{_node}->getURL.'/thumb-'.$_[0]->getFilename; return $_[0]->getNode->getURL.'/thumb-'.$_[0]->getFilename;
} elsif ($hasImageMagick && isIn($_[0]->getType, qw(tif tiff bmp))) { } elsif ($hasImageMagick && isIn($_[0]->getType, qw(tif tiff bmp))) {
return $_[0]->{_node}->getURL.'/thumb-'.$_[0]->getFilename.'.png'; return $_[0]->getNode->getURL.'/thumb-'.$_[0]->getFilename.'.png';
} else { } else {
return $_[0]->getIcon; return $_[0]->getIcon;
} }
@ -387,7 +400,7 @@ Returns a full URL to an attachment.
=cut =cut
sub getURL { sub getURL {
return $_[0]->{_node}->getURL.'/'.$_[0]->getFilename; return $_[0]->getNode->getURL.'/'.$_[0]->getFilename;
} }
@ -451,7 +464,10 @@ Define the new filename for this attachment.
=cut =cut
sub rename { sub rename {
rename $_[0]->getPath, $_[0]->{_node}->getPath.$session{os}{slash}.$_[1]; rename $_[0]->getPath, $_[0]->getNode->getPath.$session{os}{slash}.$_[1];
if ($_[0]->isImage) {
rename $_[0]->getNode->getPath.$session{os}{slash}.'thumb-'.$_[0]->getFilename, $_[0]->getNode->getPath.$session{os}{slash}."thumb-".$_[1];
}
$_[0]->{_filename} = $_[1]; $_[0]->{_filename} = $_[1];
} }
@ -530,7 +546,7 @@ sub save {
$_[0]->{_filename} .= ".txt"; $_[0]->{_filename} .= ".txt";
} }
$_[0]->{_filename} = WebGUI::URL::makeCompliant($_[0]->getFilename); $_[0]->{_filename} = WebGUI::URL::makeCompliant($_[0]->getFilename);
$_[0]->{_node}->create(); $_[0]->getNode->create();
$file = FileHandle->new(">".$_[0]->getPath); $file = FileHandle->new(">".$_[0]->getPath);
if (defined $file) { if (defined $file) {
binmode $file; binmode $file;
@ -589,7 +605,7 @@ sub saveFromFilesystem {
$_[0]->{_filename} .= ".txt"; $_[0]->{_filename} .= ".txt";
} }
$_[0]->{_filename} = WebGUI::URL::makeCompliant($_[0]->getFilename); $_[0]->{_filename} = WebGUI::URL::makeCompliant($_[0]->getFilename);
$_[0]->{_node}->create(); $_[0]->getNode->create();
$a = FileHandle->new($_[1],"r"); $a = FileHandle->new($_[1],"r");
if (defined $a) { if (defined $a) {
binmode($a); binmode($a);