r57199 - in /branches/upstream/libapp-nopaste-perl/current: Changes META.yml lib/App/Nopaste.pm lib/App/Nopaste/Command.pm lib/App/Nopaste/Service/Gist.pm lib/App/Nopaste/Service/SSH.pm
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Sat May 1 08:13:29 UTC 2010
Author: carnil-guest
Date: Sat May 1 08:10:13 2010
New Revision: 57199
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57199
Log:
[svn-upgrade] Integrating new upstream version, libapp-nopaste-perl (0.21)
Modified:
branches/upstream/libapp-nopaste-perl/current/Changes
branches/upstream/libapp-nopaste-perl/current/META.yml
branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm
branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Command.pm
branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Gist.pm
branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/SSH.pm
Modified: branches/upstream/libapp-nopaste-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/Changes?rev=57199&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/Changes (original)
+++ branches/upstream/libapp-nopaste-perl/current/Changes Sat May 1 08:10:13 2010
@@ -1,4 +1,11 @@
Revision history for App-Nopaste
+
+0.21 Sat May 1 09:32:10 2010
+ Add a --list_services/-L option (David Bremner) [rt.cpan.org #55562]
+ Add --private support, used in Gist (John Goulah)
+ Doc fix (Salvatore Bonaccorso) [rt.cpan.org #53249]
+ Doc fix (Fabien Wernli) [rt.cpan.org #54928]
+ Mention 'nopaste' script (Damyan Ivanov) [rt.cpan.org #51065]
0.20 Fri Apr 16 23:05:10 2010
App::Nopaste::Service::Pastie would generate warnings via
Modified: branches/upstream/libapp-nopaste-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/META.yml?rev=57199&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/META.yml (original)
+++ branches/upstream/libapp-nopaste-perl/current/META.yml Sat May 1 08:10:13 2010
@@ -27,4 +27,4 @@
homepage: http://github.com/sartak/app-nopaste/tree
license: http://dev.perl.org/licenses/
repository: git://github.com/sartak/app-nopaste.git
-version: 0.20
+version: 0.21
Modified: branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm?rev=57199&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm (original)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm Sat May 1 08:10:13 2010
@@ -7,7 +7,7 @@
use base 'Exporter';
our @EXPORT_OK = 'nopaste';
-our $VERSION = '0.20';
+our $VERSION = '0.21';
sub nopaste {
# process arguments {{{
Modified: branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Command.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Command.pm?rev=57199&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Command.pm (original)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Command.pm Sat May 1 08:10:13 2010
@@ -45,6 +45,14 @@
documentation => "The nopaste services to try, in order. You may also specify this in the env var NOPASTE_SERVICES.",
);
+has list_services => (
+ traits => ['Getopt'],
+ is => 'rw',
+ isa => 'Bool',
+ cmd_aliases => ['list', 'L'],
+ documentation => "List available nopaste services",
+);
+
has copy => (
traits => ['Getopt'],
is => 'rw',
@@ -69,8 +77,24 @@
documentation => "If specified, do not warn or complain about broken services.",
);
+has private => (
+ traits => ['Getopt'],
+ is => 'rw',
+ isa => 'Bool',
+ documentation => "If specified, paste privately to services where possible.",
+);
+
sub run {
my $self = shift;
+
+ if ($self->list_services) {
+ for (sort App::Nopaste->plugins) {
+ s/App::Nopaste::Service::(\w+)$/$1/;
+ print $_, "\n";
+ }
+ exit 0;
+ }
+
my $text = $self->read_text;
my %args = (
@@ -80,6 +104,7 @@
lang => $self->lang,
chan => $self->chan,
services => $self->services,
+ private => $self->private,
);
$args{error_handler} = $args{warn_handler} = sub { }
@@ -121,6 +146,8 @@
App::Nopaste::Command - command-line utility for L<App::Nopaste>
+nopaste - command-line utility to nopaste
+
=head1 DESCRIPTION
This application will take some text on STDIN and give you a URL on STDOUT.
@@ -137,7 +164,7 @@
=head2 -n, --name
-Your nickname, usually displayed with the paste. Default: C<$NOPASTE_USER> then
+Your nickname, usually displayed with the paste. Default: C<$NOPASTE_NICK> then
C<$USER>.
=head2 -l, --lang
Modified: branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Gist.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Gist.pm?rev=57199&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Gist.pm (original)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Gist.pm Sat May 1 08:10:13 2010
@@ -23,6 +23,7 @@
'file_ext[gistfile1]' => '.' . ( $arg{lang} || 'txt' ),
'file_contents[gistfile1]' => $arg{text},
%auth,
+ defined $arg{private} ? (private => 1) : (),
},
);
Modified: branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/SSH.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/SSH.pm?rev=57199&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/SSH.pm (original)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/SSH.pm Sat May 1 08:10:13 2010
@@ -30,7 +30,7 @@
=head1 NAME
-App::Nopaste::Service::ssh - copies files to your server using scp
+App::Nopaste::Service::SSH - copies files to your server using scp
=head1 AUTHOR
More information about the Pkg-perl-cvs-commits
mailing list