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