qbit/xin
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

bins/ix: switch from sprunge to ix

Browse Source
This commit is contained in:
Aaron Bieber 2023-10-12 08:06:55 -06:00
parent d4df17e1b1
commit a69511c02e
No known key found for this signature in database
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
bins/ix.nix
View File

@ -21,16 +21,16 @@
<$fh>; <$fh>;
} }
sub sprunge { sub ix {
my ($input) = @_; my ($input) = @_;
my $url = "http://sprunge.us"; my $url = "http://ix.io";
my $form = [ sprunge => $input ]; my $form = [ 'f:1' => $input ];
my $resp = $http->post_form($url, $form) my $resp = $http->post_form($url, $form)
or die "could not POST: $!"; or die "could not POST: $!";
$resp->{content}; $resp->{content};
} }
my $input = slurp('STDIN'); my $input = slurp('STDIN');
my $url = sprunge($input); my $url = ix($input);
print $url; print $url;
'' ''