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