File Coverage

lib/Sorauta/Capture/ScreenShot.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

#============================================
# PC�̃f�X�N�g�b�v�摜���L���v�`�����A����I�ɑ��M����v���O���� for Mac
# -------------------------------------------
# �A�N�Z�T
# os                    String          �g�pOS
#                                               Mac or Win(not supported yet)
# capture_file_path     String          �L���v�`���摜�̃p�X
#                                               �K�{
# interval_time         Integer         �o�b�`�̎��s����
#                                               0�̏ꍇ�͈�x�̂ݎ��s
# api_url               String          �L���v�`���摜���M��API��URL
#                                               ���ꂪ�w�肳��Ă���ꍇ�̓L���v�`�����Ƀf�[�^�𑗐M����
# api_attr              HashRef         �摜���M����attribute��t����ꍇ
#                                               { id => 1, name => 2 }
# debug                 Integer         �f�o�b�O���[�h
#                                               0 ... ���O�\�����Ȃ�(�f�t�H���g)
#                                               1 ... ���O�\������
#============================================
package Sorauta::Capture::ScreenShot;
use base qw/Class::Accessor::Fast/;

use 5.012003;
use strict;
use warnings;
use utf8;
use CGI::Carp qw/fatalsToBrowser/;
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Request::Common qw/POST/;
use File::Basename;
use Sorauta::Utility;

our $VERSION = '0.02';

__PACKAGE__->mk_accessors(
  qw/os capture_file_path debug interval_time api_url api_attr/);

#==========================================
# �摜�̃L���v�`�������s
# req:
# res:
#==========================================
sub execute {
  my $self = shift;

  # must be defined accessors
  if (!$self->os || !$self->capture_file_path || !length($self->interval_time)) {
    my $message = join $/,
      '====================',
      'must be define accessor ',
      'os ... Mac or Win',
      'capture_file_path ... /Users/user1/Desktop/capture.jpg',
      'interval_time ... 10(when you capture only once, please set 0)',
      '====================';
    die $message;
  }

  # execute
  print '=================================', $/;
  print ' Batch Start', $/;
  print '=================================', $/;

  while (1) {
    my $res = $self->execute_by_interval;

    print "[", get_timestamp(time), "]capture ", $res ? "succeeded" : "failed";

    if ($self->interval_time != 0) {
      print ", please wait ", $self->interval_time, "sec", $/;

      sleep $self->interval_time;
    }
    else {
      print $/;

      last;
    }
  }

  return 1;
}

#==========================================
# ����o�b�`���s
# req:
# res:
#   result: ������1�A����ȊO0
#==========================================
sub execute_by_interval {
  my $self = shift;

  # �L���v�`���摜�̃p�X�̃f�B���N�g�����A�E�g�ȏꍇ
  my($filename, $dir, $ext) = fileparse( $self->capture_file_path);
  unless (-d $dir) {
    die "was not exists directory of output capture file path";
  }

  # �L���v�`�����s
  if ($self->os =~ /^Win/i) {
    # not implement now...
  }
  else {
    my $cmd = 'screencapture -x '.$self->capture_file_path;
    `$cmd`;
  }

  # send capture data to server
  if (length($self->api_url)) {
    my $ua = new LWP::UserAgent;
    my $req = POST(
      $self->api_url,
      Content_Type => 'form-data',
      Content      => [
        %{$self->api_attr},
      ]
    );

    my $res = $ua->request($req);
    if ($res->is_success) {
      print "[Sorauta::Capture::ScreenShot]send capture file ... success.", $/;
    }
    else {
      print "[Sorauta::Capture::ScreenShot]send capture file ... failed: ", $res->status_line, $/;

      return 0;
    }
  }

  return 1;
}

1;

__END__