You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
53 lines
799 B
53 lines
799 B
#!/usr/bin/env perl
|
|
|
|
=pod
|
|
|
|
=head1 NAME
|
|
|
|
pieces-add - add URLs to the collection of pieces
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
pieces-add: stashes a filesystem path for use with other utilities
|
|
|
|
USAGE:
|
|
pieces add uri_to_add
|
|
|
|
EXAMPLE:
|
|
pieces add *.txt
|
|
|
|
=head1 AUTHOR
|
|
|
|
Brennen Bearnes
|
|
|
|
=cut
|
|
|
|
use warnings;
|
|
use strict;
|
|
use 5.10.0;
|
|
|
|
use App::Pieces;
|
|
use Cwd qw(cwd abs_path);
|
|
use Getopt::Long;
|
|
use Pod::Usage;
|
|
use URI;
|
|
|
|
GetOptions(
|
|
# 'config=s' => \$config_file,
|
|
help => sub { pod2usage(0) },
|
|
) or pod2usage(2);
|
|
|
|
my $p = App::Pieces->new();
|
|
|
|
my @addresses;
|
|
foreach my $addy (@ARGV) {
|
|
my $uri = URI->new($addy);
|
|
if ($uri->has_recognized_scheme) {
|
|
say "add: " . $uri->canonical;
|
|
push @addresses, $uri->canonical;
|
|
} else {
|
|
say "unrecognized scheme: " . $addy;
|
|
}
|
|
}
|
|
|
|
$p->add(@addresses);
|