view release on metacpan or  search on metacpan

lib/Metabrik/Remote/Wmi.pm  view on Meta::CPAN

   return 1;
}

#
# Must add specific user everywhere
#
# Howto enable WMI on a Windows machine
# http://community.zenoss.org/docs/DOC-4517
#
# Troubleshoot WMI connexion issues:
# wbemtest.exe + https://msdn.microsoft.com/en-us/library/windows/desktop/aa394603(v=vs.85).aspx
#
# dcomcnfg => DCOM permission for user
# Computer/Manage/Properties => 'WMI Control/Properties/Security'
#
# Open firewall for DCOM service
# http://www.returnbooleantrue.com/2014/10/enabling-wmi-on-windows-azure.html
#
sub request {
   my $self = shift;
   my ($query, $host, $user, $password) = @_;

lib/Metabrik/Video/Ffmpeg.pm  view on Meta::CPAN

      attributes => {
         resolution => [ qw(resolution) ],
         use_micro => [ qw(0|1) ],
      },
      attributes_default => {
         resolution => '1024x768',
         use_micro => 0,
      },
      commands => {
         install => [ ],  # Inherited
         record_desktop => [ qw(output.mkv resolution|OPTIONAL) ],
         convert_to_youtube => [ qw(input.mkv output.mp4) ],
      },
      require_binaries => {
         ffmpeg => [ ],
      },
      need_packages => {
         ubuntu => [ qw(ffmpeg) ],
         debian => [ qw(ffmpeg) ],
         kali => [ qw(ffmpeg) ],
      },
   };
}

sub record_desktop {
   my $self = shift;
   my ($output, $resolution) = @_;

   $resolution ||= $self->resolution;
   $self->brik_help_run_undef_arg('record_desktop', $output) or return;

   # Give 1 second to switch window if needed.
   my $cmd = 'sleep 1 && ffmpeg';
   if ($self->use_micro) {
      $cmd .= " -f alsa -i pulse -f x11grab -r 25 -s $resolution -i :0.0 ".
         "-acodec pcm_s16le -vcodec libx264 -preset ultrafast -crf 0 -threads 0";
   }
   else {
      $cmd .= " -f x11grab -r 25 -s $resolution -i :0.0 -vcodec libx264 ".
         "-preset ultrafast -crf 0 -threads 0";