wordbath.pl

#!/usr/bin/env perl
use Modern::Perl;

use FindBin qw'$Bin';
use lib $Bin . '/lib';
use Wordbath::App;
use Wordbath::Player;
use Path::Tiny;

my $location = $ARGV[0];

#these depend entirely on what is being loaded.
my $wb;
$wb = Wordbath::App->new();
my $workdir = $wb->config->working_dir;
my $log_path = "./wordbath.log";
$wb->log_to_file ($log_path);

my $file;

if ($location){
  #is it a url? if so, do we have to download?
  if ($location =~  m|^https?://.*/([^?/]*\.[^?/]{2,}+)(\?.*)?$| ){
    $file = $1;
    mkdir $workdir unless -d $workdir;
    if (-e "$workdir/$file"){
      say "$file already exists in $workdir.";
    } else {
      require LWP::UserAgent;
      my $ua = LWP::UserAgent->new;
      $ua->timeout(10);
      $ua->env_proxy;

      my $response = $ua->get($location);

      if ($response->is_success) {
        #print $response->decoded_content;  # or whatever
        path( "$workdir/$file")->spew_raw( $response->decoded_content);
        say "Saved as $file    in directory:   $workdir";
      }
      else {
        say STDERR "audio download failed.";
        say STDERR $location;
        say STDERR $response->status_line;
        die;
      }
    }
  }else {
    #given a filesystem path.
    use Path::Class;
    my $path = file ($location);
    $workdir = $path->dir->absolute->stringify;
    $file = $path->basename;
  }
}
else{
  $file = 'blurb.ogg';
  $workdir = "$Bin/assets";
}

#my $wbml_file = $file . '.wbml'; #use?
$wb->load_audio_file("$workdir/$file");
$wb->play();
$wb->run();