tii paste

#!/usr/bin/env perl
use 5.014;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/lib/";
use WWW::Pastebin::PastebinCom::API;
use File::Spec::Functions;
use Getopt::Long;

my $api_key = get_api_key();
my $opt_title   = 'tii paste';
my $opt_format  = 'GetText';
my $opt_expire  = 'N';
my $opt_help;
my $opt_silent;
my $program_break;
my $opt_append;
$SIG{INT} = sub {
    print "Received Ctrl+C; will finish reading STDIN.\n";
    $program_break = 1;
};

my $_opt = GetOptions(
  'a|append'   => \$opt_append,
  'k|apikey=s' => \$api_key,
  's|silent'   => \$opt_silent,
  't|title=s'  => \$opt_title,
  'f|format=s' => \$opt_format,
  'e|expire=s' => \$opt_expire,
  'h|help'     => \$opt_help,
);


unless ($api_key) {
    die "Pastebin.com api key not found in ~/.pastebin neither supplied via -a\n";
}

usage() if ($opt_help);

my $bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => "$api_key",
);

my $data = '';
my $O;
if (defined $ARGV[0]) {
    if (defined $opt_append) {
        open $O, '>>', "$ARGV[0]" || die "Unable to write to output file: $ARGV[0]\n";
    } else {
        open $O, '>', "$ARGV[0]" || die "Unable to write to output file: $ARGV[0]\n";

    }
}
my $count_lines = 0;
while (my $line = <STDIN>) {
    last if ($program_break);
    $data .= $line;
    say $data if (not defined $opt_silent);
    say {$O} $data if (defined $ARGV[0]);
    $count_lines++;
}

if ($data) {
    say $bin->paste($data,
        title => $opt_title,
        format => $opt_format,
        expire => $opt_expire,
           ) || die "$bin";
    say STDERR "$count_lines lines received.";
} else {
    say STDERR "No data received\n";
}


sub get_api_key {
    my $api_file = catfile($ENV{'HOME'} , '.pastebin');
    say $api_file;
    my $key;
    local *STDERR;
    open  STDERR, '>', File::Spec->devnull() or die "could not open STDERR: $!\n";
    my $readkey = eval {
        open my $i, '<', $api_file;
        $key = readline($i);
        chomp($key);
        1;
    };

    $key = 'not_found' unless ($readkey);
    return $key;
}

sub usage {
  say STDERR<<END;

  cat file.txt | tii [options] [filename]
  --------------------------------------------------------------------------
  Like tee, but will create a pastebin.com entry with your text.

  Options:
    -a, --append          Append to filename rather than overwriting

    -s, --silent          Will not print the stream to STDOUT

    -k, --apikey          Pastebin.com api key.
                          Can be stored (alone) in the ~/.pastebin file

    -t, --title           Pastebin title [default: $opt_title]

    -f, --format          Syntax highlight like 'perl', 'bash' [default: $opt_format]

    -e, --expiry          Default N (never). Alternatives: 10M (10 minutes),
                          1H (1 hour), 1D (1 day), 1W (1 week), 1M (1 month),
                          6M (6 months),1Y (1 year)

END
}
__END__
##### Private paste with all optional args set

$bin = WWW::Pastebin::PastebinCom::API->new(
    api_key => 'a3767061e0e64fef6c266126f7e588f4',
);


$bin->paste(
    'Stuff to paste',

    title => 'Title for your paste',
    private => 1,       # set paste as a private paste
    format => 'perl',   # Perl syntax highlighting
    expiry => 'awhile', # expire the paste after 1 week
) or die "$bin";

print "$bin\n";