/[Arh]/lib/Arh/Action/UploadPicture.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Arh/Action/UploadPicture.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 52 by dpavlin, Sun Apr 6 19:54:12 2008 UTC revision 53 by dpavlin, Sun Apr 6 20:49:32 2008 UTC
# Line 57  sub take_action { Line 57  sub take_action {
57    
58                  my $scaled_image = $image->scale( %$scale ) or die $image->errstr;                  my $scaled_image = $image->scale( %$scale ) or die $image->errstr;
59                  undef $image;                  undef $image;
60    
61                  $scaled_image->write(                  $scaled_image->write(
62                          data => \$content,                          data => \$content,
63                          type => 'jpeg',                          type => 'jpeg',
64  #                       jpegquality => 95,  #                       jpegquality => 95,
65                  ) or die $image->errstr;                  ) or die $scaled_image->errstr;
66                  undef $scaled_image;                  undef $scaled_image;
67    
68                  warn "## resized to ",length($content), " bytes...";                  warn "## resized to ",length($content), " bytes...";
Legend:
Removed from v.52  
changed lines
  Added in v.53
  ViewVC Help
Powered by ViewVC 1.1.26