r53167 - in /branches/upstream/libapp-nopaste-perl/current: Changes MANIFEST META.yml Makefile.PL lib/App/Nopaste.pm lib/App/Nopaste/Service/Rafb.pm lib/App/Nopaste/Service/SSH.pm lib/App/Nopaste/Service/ssh.pm t/000-load.t
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Mon Feb 22 06:34:48 UTC 2010
Author: carnil-guest
Date: Mon Feb 22 06:34:24 2010
New Revision: 53167
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53167
Log:
[svn-upgrade] Integrating new upstream version, libapp-nopaste-perl (0.19)
Added:
branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/SSH.pm (with props)
Removed:
branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/Rafb.pm
branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/ssh.pm
Modified:
branches/upstream/libapp-nopaste-perl/current/Changes
branches/upstream/libapp-nopaste-perl/current/MANIFEST
branches/upstream/libapp-nopaste-perl/current/META.yml
branches/upstream/libapp-nopaste-perl/current/Makefile.PL
branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm
branches/upstream/libapp-nopaste-perl/current/t/000-load.t
Modified: branches/upstream/libapp-nopaste-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/Changes?rev=53167&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/Changes (original)
+++ branches/upstream/libapp-nopaste-perl/current/Changes Mon Feb 22 06:34:24 2010
@@ -1,4 +1,8 @@
Revision history for App-Nopaste
+
+0.19 Sun Feb 21 15:39:27 2009
+ Remove rafb.net support since it's been shut down
+ - See also http://rafb.net/paste/
0.18 Wed Dec 30 16:04:45 2009
Add ssh support (obra, jibsheet)
Modified: branches/upstream/libapp-nopaste-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/MANIFEST?rev=53167&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/MANIFEST (original)
+++ branches/upstream/libapp-nopaste-perl/current/MANIFEST Mon Feb 22 06:34:24 2010
@@ -21,10 +21,9 @@
lib/App/Nopaste/Service/Mathbin.pm
lib/App/Nopaste/Service/PastebinCom.pm
lib/App/Nopaste/Service/Pastie.pm
-lib/App/Nopaste/Service/Rafb.pm
lib/App/Nopaste/Service/Shadowcat.pm
lib/App/Nopaste/Service/Snitch.pm
-lib/App/Nopaste/Service/ssh.pm
+lib/App/Nopaste/Service/SSH.pm
Makefile.PL
MANIFEST This list of files
META.yml
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=53167&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/META.yml (original)
+++ branches/upstream/libapp-nopaste-perl/current/META.yml Mon Feb 22 06:34:24 2010
@@ -24,4 +24,4 @@
WWW::Mechanize: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.18
+version: 0.19
Modified: branches/upstream/libapp-nopaste-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/Makefile.PL?rev=53167&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/Makefile.PL (original)
+++ branches/upstream/libapp-nopaste-perl/current/Makefile.PL Mon Feb 22 06:34:24 2010
@@ -14,9 +14,6 @@
features(
'pastebin.com support' => [
'WWW::Pastebin::PastebinCom::Create',
- ],
- 'rafb.net support' => [
- 'WWW::Pastebin::RafbNet::Create',
],
'copying of URLs with -x/--copy' => [
'Clipboard',
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=53167&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm (original)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm Mon Feb 22 06:34:24 2010
@@ -6,7 +6,7 @@
use base 'Exporter';
our @EXPORT_OK = 'nopaste';
-our $VERSION = '0.18';
+our $VERSION = '0.19';
sub nopaste {
# process arguments {{{
Added: 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=53167&op=file
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/SSH.pm (added)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/SSH.pm Mon Feb 22 06:34:24 2010
@@ -1,0 +1,59 @@
+package App::Nopaste::Service::ssh;
+use strict;
+use warnings;
+use base 'App::Nopaste::Service';
+use File::Temp;
+use File::Spec;
+use POSIX qw(strftime);
+
+sub run {
+ my ($self, %args) = @_;
+
+ my $server = $ENV{NOPASTE_SSH_SERVER} || return (0,"No NOPASTE_SSH_SERVER set");
+ my $docroot = $ENV{NOPASTE_SSH_DOCROOT} || return (0, "No NOPASTE_SSH_DOCROOT set");
+ my $topurl = $ENV{NOPASTE_SSH_WEBPATH} || "http://$server";
+
+ my $date = strftime("%Y-%m-%d",localtime());
+ my $tmp = File::Temp->new( TEMPLATE => "${date}XXXXXXXX", CLEANUP => 1 );
+ my $filename = $tmp->filename;
+ print $tmp $args{text} || return (0, "Can't write to tempfile $filename");
+ close $tmp || return (0, "Can't write to tempfile $filename");
+
+ system('scp', '-q', $filename, "$server:$docroot");
+
+ my ($volume, $dir, $file) = File::Spec->splitpath($filename);
+ return (1, "$topurl/$file");
+
+}
+
+1;
+
+=head1 NAME
+
+App::Nopaste::Service::ssh - copies files to your server using scp
+
+=head1 AUTHOR
+
+Kevin Falcone << <falcone at cpan.org> >>
+
+=head1 ENVIRONMENT VARIABLES
+
+=over 4
+
+=item NOPASTE_SSH_SERVER
+
+The hostname to which you ssh. The left-hand side of the colon in the scp.
+Something like C<sartak.org>.
+
+=item NOPASTE_SSH_DOCROOT
+
+The path on disk for your pastes. Something like C<public_html/paste>
+
+=item NOPASTE_SSH_WEBPATH
+
+The path for URLs. Something like C<http://sartak.org/paste>
+
+=back
+
+=cut
+
Propchange: branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/SSH.pm
------------------------------------------------------------------------------
svn:executable = *
Modified: branches/upstream/libapp-nopaste-perl/current/t/000-load.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/t/000-load.t?rev=53167&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/t/000-load.t (original)
+++ branches/upstream/libapp-nopaste-perl/current/t/000-load.t Mon Feb 22 06:34:24 2010
@@ -1,13 +1,12 @@
use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 7;
use_ok 'App::Nopaste';
use_ok 'App::Nopaste::Service';
use_ok 'App::Nopaste::Service::Shadowcat';
use_ok 'App::Nopaste::Service::Husk';
use_ok 'App::Nopaste::Service::Snitch';
-use_ok 'App::Nopaste::Service::Rafb';
use_ok 'App::Nopaste::Service::PastebinCom';
use_ok 'App::Nopaste::Service::Mathbin';
More information about the Pkg-perl-cvs-commits
mailing list