From 264e9f7fd00c81bcbb963e715a8f5c5365872c3c Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 3 Nov 2018 17:13:34 -0400
Subject: stop using app::nopaste

---
 bin/nopaste | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100755 bin/nopaste

(limited to 'bin/nopaste')

diff --git a/bin/nopaste b/bin/nopaste
new file mode 100755
index 0000000..573af2e
--- /dev/null
+++ b/bin/nopaste
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.020;
+
+use Carp;
+use File::Spec;
+use File::Temp;
+use POSIX 'strftime';
+
+if (@ARGV > 1) {
+    croak "can only nopaste one file at a time";
+}
+
+my $date = strftime("%Y-%m-%d", localtime);
+my $template = "${date}-XXXXXXXX";
+my $suffix = @ARGV
+    ? "-${\(File::Spec->splitdir($ARGV[0]))[-1]}"
+    : undef;
+
+my $contents = do { local $/; <> };
+
+my $tmpfile = File::Temp->new(
+    TEMPLATE => $template,
+    SUFFIX => $suffix,
+    UNLINK => 1,
+    TMPDIR => 1,
+);
+my $tmpfilename = $tmpfile->filename;
+
+print $tmpfile $contents or croak "Can't write to $tmpfilename: $!";
+close $tmpfile or croak "Can't write to $tmpfilename: $!";
+chmod 0644 => $tmpfilename;
+
+system('scp', '-pq', $tmpfilename, "tozt.net:paste");
+
+say "https://paste.tozt.net/${\(File::Spec->splitdir($tmpfilename))[-1]}";
-- 
cgit v1.2.3-54-g00ecf