Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 42 lines (30 sloc) 784 Bytes
use strict;
use warnings;
use WWW::Selenium;
use Image::Magick;
my $sel = WWW::Selenium->new( host => "localhost",
port => 4444,
browser => "*firefox",
browser_url => "",
my $path = "/var/www/images/";
my $curTime = time();
my $file = $path.$curTime.".png";
my($image, $x);
$image = Image::Magick->new;
$x = $image->Read($file);
warn "$x" if "$x";
$x = $image->Crop(geometry=>'480x340');
warn "$x" if "$x";
$x = $image->Write($file);
warn "$x" if "$x";
Jump to Line
Something went wrong with that request. Please try again.