use strict;
use warnings;
package App::Nopaste::Service::Mojopaste;
# ABSTRACT: Service provider for mojopaste
our $VERSION = '1.009';
use parent 'App::Nopaste::Service';
sub uri { $ENV{NOPASTE_MOJOPASTE_WEBPATH} || 'https://ssl.thorsen.pm/paste' }
sub fill_form {
my $self = shift;
my $mech = shift;
my %args = @_;
# Hack around bot protection
my $form = $mech->form_number(1);
my $action = $form->action;
if ($action =~ m{/invalid$}) {
$action =~ s{/invalid$}{};
$form->action($action);
}
$mech->submit_form(
fields => {
p => 1,
paste => $args{text},
},
);
}
sub return {
my $self = shift;
my $mech = shift;
my $link = $mech->uri();
return (1, $link);
}
1;
__END__
=pod
=encoding UTF-8
=for stopwords mojopaste
=head1 NAME
App::Nopaste::Service::Mojopaste - Service provider for mojopaste
=head1 VERSION
version 1.009
=head1 USAGE
By default the mojopaste installed at http://p.thorsen.pm/ is used.
Point to your local App::mojopaste instance by setting the
NOPASTE_MOJOPASTE_WEBPATH environment variable
For example:
# export NOPASTE_MOJOPASTE_WEBPATH=http://paste.local
# cat /proc/cpuinfo | nopaste -s Mojopaste
=head1 AUTHOR
Dean Hamstead, C<< <dean@bytefoundry.com.au> >>
=head1 SUPPORT
Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=App-Nopaste>
(or L<bug-App-Nopaste@rt.cpan.org|mailto:bug-App-Nopaste@rt.cpan.org>).
=head1 AUTHOR
Shawn M Moore, <sartak@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2008 by Shawn M Moore.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut