| Subject: | Support for paste.debian.net (patch included) |
Hi there:
Thanks for a very useful module!
There is a Debian bug #533607; some users would like to get support for
paste.debian.net added to App-Nopaste. Ryan Niebur has written a patch
(the included file) which provides the necessary service to make it
all work.
Ideally, we would like to have this module included upstream in your
distribution.
For the original report, please see:
http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=533607
We generally release our patches under the same terms as the upstream
license. You might need to discuss copyright issues with him directly,
but I don't anticipate this will pose much of an issue.
Please let us know if there is anything else you'd like us to do (ie,
contribute test scripts) to get this module polished up and added to
your package upstream.
Cheers,
Jonathan
| Subject: | debian.pm |
package App::Nopaste::Service::Debian;
use strict;
use warnings;
use base 'App::Nopaste::Service';
sub uri { "http://paste.debian.net/" }
sub fill_form {
my $self = shift;
my $mech = shift;
my %args = @_;
$mech->form_number(1);
$mech->submit_form(
fields => {
code => $args{text},
do { $args{nick} ? (poster => $args{nick}) : () },
},
);
}
sub return {
my $self = shift;
my $mech = shift;
my $link = $mech->uri();
return (1, $link);
}
1;