r49615 - in /branches/upstream/libapp-nopaste-perl/current: Changes MANIFEST META.yml Makefile.PL inc/Module/Install/GithubMeta.pm lib/App/Nopaste.pm lib/App/Nopaste/Service/ssh.pm
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Thu Dec 31 08:19:54 UTC 2009
Author: carnil-guest
Date: Thu Dec 31 08:19:45 2009
New Revision: 49615
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49615
Log:
[svn-upgrade] Integrating new upstream version, libapp-nopaste-perl (0.18)
Added:
branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/ssh.pm (with props)
Removed:
branches/upstream/libapp-nopaste-perl/current/inc/Module/Install/GithubMeta.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
Modified: branches/upstream/libapp-nopaste-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/Changes?rev=49615&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/Changes (original)
+++ branches/upstream/libapp-nopaste-perl/current/Changes Thu Dec 31 08:19:45 2009
@@ -1,4 +1,7 @@
Revision history for App-Nopaste
+
+0.18 Wed Dec 30 16:04:45 2009
+ Add ssh support (obra, jibsheet)
0.17 Mon Nov 2 13:20:24 2009
fix Gist support harder by using the API rather than scraping (rjbs)
Modified: branches/upstream/libapp-nopaste-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libapp-nopaste-perl/current/MANIFEST?rev=49615&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/MANIFEST (original)
+++ branches/upstream/libapp-nopaste-perl/current/MANIFEST Thu Dec 31 08:19:45 2009
@@ -6,7 +6,6 @@
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
-inc/Module/Install/GithubMeta.pm
inc/Module/Install/Include.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
@@ -25,6 +24,7 @@
lib/App/Nopaste/Service/Rafb.pm
lib/App/Nopaste/Service/Shadowcat.pm
lib/App/Nopaste/Service/Snitch.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=49615&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/META.yml (original)
+++ branches/upstream/libapp-nopaste-perl/current/META.yml Thu Dec 31 08:19:45 2009
@@ -23,7 +23,5 @@
MooseX::Getopt: 0.17
WWW::Mechanize: 0
resources:
- homepage: http://github.com/sartak/app-nopaste/tree
license: http://dev.perl.org/licenses/
- repository: git://github.com/sartak/app-nopaste.git
-version: 0.17
+version: 0.18
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=49615&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/Makefile.PL (original)
+++ branches/upstream/libapp-nopaste-perl/current/Makefile.PL Thu Dec 31 08:19:45 2009
@@ -24,6 +24,10 @@
'Github authentication (having Git installed works too)' => [
'Config::INI::Reader' => '0.00',
],
+ 'copy files to remote server with scp' => [
+ 'File::Temp',
+ 'File::Spec'
+ ],
);
install_script 'bin/nopaste';
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=49615&op=diff
==============================================================================
--- branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm (original)
+++ branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste.pm Thu Dec 31 08:19:45 2009
@@ -6,7 +6,7 @@
use base 'Exporter';
our @EXPORT_OK = 'nopaste';
-our $VERSION = '0.17';
+our $VERSION = '0.18';
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=49615&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 Thu Dec 31 08:19:45 2009
@@ -1,0 +1,40 @@
+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");
+
+ `scp $filename $server:$docroot`;
+
+ my ($volume, $dir, $file) = File::Spec->splitpath($filename);
+ return (1, "$topurl/$file");
+
+}
+
+1;
+
+=head1 NAME
+
+App::Nopaste::Service::ssh
+
+=head1 AUTHOR
+
+Kevin Falcone << <falcone at cpan.org> >>
+
+=cut
+
Propchange: branches/upstream/libapp-nopaste-perl/current/lib/App/Nopaste/Service/ssh.pm
------------------------------------------------------------------------------
svn:executable = *
More information about the Pkg-perl-cvs-commits
mailing list