2023-07-11 09:12:50 -06:00
|
|
|
{perl}: ''
|
2022-08-25 12:21:35 -06:00
|
|
|
#!${perl}/bin/perl
|
|
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
|
use warnings;
|
|
|
|
|
|
|
|
|
|
use HTTP::Tiny;
|
|
|
|
|
if ($^O eq "openbsd") {
|
|
|
|
|
require OpenBSD::Pledge;
|
|
|
|
|
require OpenBSD::Unveil;
|
|
|
|
|
|
|
|
|
|
OpenBSD::Unveil::unveil("/", "") or die;
|
|
|
|
|
OpenBSD::Pledge::pledge(qw( stdio dns inet rpath )) or die;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
my $http = HTTP::Tiny->new();
|
|
|
|
|
|
|
|
|
|
sub slurp {
|
|
|
|
|
my ($fh) = @_;
|
|
|
|
|
local $/;
|
|
|
|
|
<$fh>;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub sprunge {
|
|
|
|
|
my ($input) = @_;
|
|
|
|
|
my $url = "http://sprunge.us";
|
|
|
|
|
my $form = [ sprunge => $input ];
|
|
|
|
|
my $resp = $http->post_form($url, $form)
|
|
|
|
|
or die "could not POST: $!";
|
|
|
|
|
$resp->{content};
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
my $input = slurp('STDIN');
|
|
|
|
|
my $url = sprunge($input);
|
|
|
|
|
print $url;
|
|
|
|
|
''
|
