Advertisement
Guest User

Untitled

a guest
Jul 16th, 2019
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.56 KB | None | 0 0
  1.                 if ($function_name eq "resizeKeepAspect")
  2.                 {
  3.                         my $ratio = $params[0] / $image1->Get('width');
  4.                         my $height = $ratio * $image1->Get('height');
  5.                         main::_log("exec $function_name($params[0],$height)");
  6.                         $image1->Resize('width'=>$params[0],'height'=>$height);
  7.                         main::_log("width=".($image1->Get('width'))." height=".($image1->Get('height')));
  8.                         $procs++;
  9.                         next;
  10.                 }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement