File Coverage

blib/lib/Data/Save/S3.pm

Criterion	Covered	Total	%
statement	30	63	47.6
branch	1	16	6.2
condition	0	6	0.0
subroutine	10	14	71.4
pod	0	5	0.0
total	41	104	39.4

#!/usr/bin/perl
# -I/home/phil/z/perl/cpan/DataTableText/lib
#-------------------------------------------------------------------------------
# Zip some files to Amazon S3
# Philip R Brenan at gmail dot com, Appa Apps Ltd, 2017
#-------------------------------------------------------------------------------
# podDocumentation

package Data::Save::S3;
require v5.16.0;
use warnings FATAL => qw(all);
use strict;
use Carp;
use Data::Table::Text qw(:all);
our $VERSION = 20170808;

#1 Zip and Send to S3                                                           # Zip the named files into one folder, zip the folder and send it to AWS S3

sub new                                                                         # New zipper
 {bless {}
 }

genLValueArrayMethods (qw(files));                                              # Array of files to zip and send to S3
genLValueScalarMethods(qw(folder));                                             # Folder in which to build the zip file - defaults to B
genLValueScalarMethods(qw(profile));                                            # Optional L profile to use
genLValueScalarMethods(qw(s3));                                                 # Bucket/folder on L into which to upload the zip file, without the leading s3:// or trailing zip file name
genLValueScalarMethods(qw(zip));                                                # The short name of the zip file minus the zip extension and path

sub send($)                                                                     # Zip and send files to S3
 {my ($zip) = @_;                                                               # Zipper

  unless(my $missing = &checkEnv)                                               # Check that the necessary commands are installed
   {confess "Ensure that 'zip' and 'aws' commands are installed";
   }

  my $d = $zip->folder // qq(zip);                                              # Folder in which to create zip file
  my $z = $zip->zip;                                                            # Short zip name
  my $Z = filePathExt($d, $z, qw(zip));                                         # Long  zip file name

  my $folder = filePathDir($d, $z);                                             # Create a folder into which we can make temporary copies of the files to process
  makePath($folder);                                                            # Make a path to the  zip folder

  unlink($Z);                                                                   # Unlink any existing zip file

  for my $file(@{$zip->files})                                                  # Copy files to temporary folder
   {my ($F, $f, $e) = parseFileName($file);
    my $source = $file;
    -e $source or confess "File does not exist:\n$source";
    my $target = filePathExt($folder, $f, $e);
    copy($source, $target) or confess "Copy failed: $!";
   }

  my $s3 = $zip->s3;                                                            # Position on S3
  my $profile = $zip->profile // '';                                            # Profile keyword
     $profile = "--profile $profile" if $profile;

  xxx("cd $d && zip -mqrT $z $z");                                              # Zip temporary files
  xxx("aws s3 cp $d/$z.zip s3://$s3/$z.zip $profile");                          # Send to AWS
 }

sub clean($)                                                                    # Remove local copy
 {my ($zip) = @_;                                                               # Zipper
  my $d = $zip->folder // qq(zip);                                              # Folder in which to create zip file
  my $z = $zip->zip;                                                            # Short zip name
  my $Z = filePathExt($d, $z, qw(zip));                                         # Long  zip file name

  my $folder = filePathDir($d, $z);                                             # Create a folder into which we can make temporary copies of the files to process
  unlink($Z);                                                                   # Unlink local zip file
  rmdir $d;                                                                     # Remove zip folder if empty
 }

sub checkEnv                                                                    #P Check environment
 {return "zip "    if qx(zip 2>&1) !~ m/Usage:/;                                # Zip is not installed
  return "aws cli" if qx(aws --version 2>&1) !~ m/aws-cli:/;                    # aws cli is not installed
  undef
 }

# Tests and documentation

sub test
 {my $s = eval "join('', )";
  $@ and die $@;
  eval $s;
  $@ and die $@;
 }
test unless caller;

# podDocumentation

=pod

=encoding utf-8

=head1 Name

Data::Save::S3 - Zip some files to Amazon S3

=head1 Synopsis

The specified L are copied into a sub
L/L, then moved into a zip file
L/LB<.zip> and uploaded to L using
L
optionally using a specified L.

At the end of the process a copy of the files will exist in
the local file: L/LB<.zip> and in the L. If you
do not want to keep the locally zipped copy call method L to
L it and L the
containing L if it is empty.

=head2 Required software

You should install the B command and
L
before using this module.

=head2 Example

 use Data::Save::S3;

 my $z   = Data::Save::S3::new;
 $z->zip = qq(DataSaveS3);
 $z->add = [filePathExt(currentDirectory, qw(test c)))];
 $z->s3  = qq(bucket/folder);
 $z->send;

produces:

 cd zip && zip -mqrT DataSaveS3 DataSaveS3
 aws s3 cp zip/DataSaveS3.zip s3://AppaAppsSourceVersions/DataSaveS3.zip
 Completed 1.8 KiB/1.8 KiB (296 Bytes/s) with 1 file(s) remaining
 upload: zip/DataSaveS3.zip to s3://AppaAppsSourceVersions/DataSaveS3.zip

=head1 Description

=cut

1;

# podDocumentation

__DATA__