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;
my $opt_expire  = 'N';
my $opt_help;
my $opt_silent;
my $program_break;
my $opt_append;

# Gently stop reading STDIN if Ctrl+C is pressed
$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');
	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";