tag 533607 patch thanks On Fri, Jun 19, 2009 at 12:26:35PM +0300, Damyan Ivanov wrote: > Package: libapp-nopaste-perl > Version: 0.10-2 > Severity: wishlist >
put the attached somewhere in your @INC and set the NOPASTE_SERVICES environment variable to Debian or pass "-s Debian" to nopaste. -- _________________________ Ryan Niebur [email protected]
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;
signature.asc
Description: Digital signature
