ports/90919: [NEW PORT] www/p5-WebService-NoPaste: Post to Paste Web Pages

Mon Dec 26 11:00:21 UTC 2005

>Number:         90919
>Category:       ports
>Synopsis:       [NEW PORT] www/p5-WebService-NoPaste: Post to Paste Web Pages
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          change-request
>Submitter-Id:   current-users
>Arrival-Date:   Mon Dec 26 11:00:17 GMT 2005
>Closed-Date:
>Last-Modified:
>Originator:     Gea-Suan Lin
>Release:        FreeBSD 6.0-RELEASE i386
>Organization:
>Environment:
System: FreeBSD netnews.NCTU.edu.tw 6.0-RELEASE FreeBSD 6.0-RELEASE #3: Sat Dec 10 02:26:21 CST 2005
>Description:
When online chatting it is problematic to paste an entire 300 line
file.  Yes paste?  No.  NoPaste!

Posting to a paste host is preferred.  These servers are just web
forms that accept input from a big text field, and temporarily house
them as web pages.

This script/module is for those who find it tedious to switch to a
web browser, load the page, and then paste.  Why use the mouse when
you can use the keyboard? ;)    When online chatting it is problematic
to paste an entire 300 line file.  Yes paste?  No.  NoPaste!

Posting to a paste host is preferred.  These servers are just web
forms that accept input from a big text field, and temporarily house
them as web pages.

This script/module is for those who find it tedious to switch to a
web browser, load the page, and then paste.  Why use the mouse when
you can use the keyboard? ;)

Author:	Ryan King <rking at panoptic.com>
WWW:	http://search.cpan.org/dist/WebService-NoPaste/

Generated with FreeBSD Port Tools 0.63
>How-To-Repeat:
>Fix:

--- p5-WebService-NoPaste-0.03.shar begins here ---
# This is a shell archive.  Save it in a file, remove anything before
# this line, and then unpack it by entering "sh file".  Note, it may
# create directories; files and directories will be owned by you and
# have default permissions.
#
# This archive contains:
#
#	p5-WebService-NoPaste
#	p5-WebService-NoPaste/pkg-descr
#	p5-WebService-NoPaste/Makefile
#	p5-WebService-NoPaste/pkg-plist
#	p5-WebService-NoPaste/distinfo
#	p5-WebService-NoPaste/files
#	p5-WebService-NoPaste/files/nox11patch-lib-WebService-NoPaste.pm
#
echo c - p5-WebService-NoPaste
mkdir -p p5-WebService-NoPaste > /dev/null 2>&1
echo x - p5-WebService-NoPaste/pkg-descr
sed 's/^X//' >p5-WebService-NoPaste/pkg-descr << 'END-of-p5-WebService-NoPaste/pkg-descr'
XWhen online chatting it is problematic to paste an entire 300 line
Xfile.  Yes paste?  No.  NoPaste!
X
XPosting to a paste host is preferred.  These servers are just web
Xforms that accept input from a big text field, and temporarily house
Xthem as web pages.
X
XThis script/module is for those who find it tedious to switch to a
Xweb browser, load the page, and then paste.  Why use the mouse when
Xyou can use the keyboard? ;)    When online chatting it is problematic
Xto paste an entire 300 line file.  Yes paste?  No.  NoPaste!
X
XPosting to a paste host is preferred.  These servers are just web
Xforms that accept input from a big text field, and temporarily house
Xthem as web pages.
X
XThis script/module is for those who find it tedious to switch to a
Xweb browser, load the page, and then paste.  Why use the mouse when
Xyou can use the keyboard? ;)
X
XAuthor:	Ryan King <rking at panoptic.com>
XWWW:	http://search.cpan.org/dist/WebService-NoPaste/
END-of-p5-WebService-NoPaste/pkg-descr
echo x - p5-WebService-NoPaste/Makefile
sed 's/^X//' >p5-WebService-NoPaste/Makefile << 'END-of-p5-WebService-NoPaste/Makefile'
X# New ports collection makefile for:	p5-WebService-NoPaste
X# Date created:		2005-12-26
X# Whom:			Gea-Suan Lin <gslin at netnews.NCTU.edu.tw>
X#
X# $FreeBSD$
X#
X
XPORTNAME=	WebService-NoPaste
XPORTVERSION=	0.03
XCATEGORIES=	www
XMASTER_SITES=	${MASTER_SITE_PERL_CPAN}
XMASTER_SITE_SUBDIR=	WebService
XPKGNAMEPREFIX=	p5-
X
XMAINTAINER=	gslin at gslin.org
XCOMMENT=	Post to Paste Web Pages
X
XBUILD_DEPENDS=	${SITE_PERL}/IO/All.pm:${PORTSDIR}/devel/p5-IO-All \
X		${SITE_PERL}/LWP/UserAgent.pm:${PORTSDIR}/www/p5-libwww \
X		${SITE_PERL}/Spiffy.pm:${PORTSDIR}/devel/p5-Spiffy
XRUN_DEPENDS=	${BUILD_DEPENDS}
X
XPERL_CONFIGURE=	yes
X
XOPTIONS=	X11 "Enable X11 Clipboard support" off
X
X.include <bsd.port.pre.mk>
X
X.if defined(WITH_X11)
XBUILD_DEPENDS+=	${SITE_PERL}/Clipboard.pm:${PORTSDIR}/x11/p5-Clipboard
X.else
XEXTRA_PATCHES+=	${PATCHDIR}/nox11patch-lib-WebService-NoPaste.pm
X.endif
X
X.include <bsd.port.post.mk>
END-of-p5-WebService-NoPaste/Makefile
echo x - p5-WebService-NoPaste/pkg-plist
sed 's/^X//' >p5-WebService-NoPaste/pkg-plist << 'END-of-p5-WebService-NoPaste/pkg-plist'
X%%SITE_PERL%%/WebService/NoPaste.pm
X at unexec rmdir %D/%%SITE_PERL%%/WebService 2>/dev/null || true
X%%SITE_PERL%%/%%PERL_ARCH%%/auto/WebService/NoPaste/.packlist
X at dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/WebService/NoPaste
X at unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/WebService 2>/dev/null || true
END-of-p5-WebService-NoPaste/pkg-plist
echo x - p5-WebService-NoPaste/distinfo
sed 's/^X//' >p5-WebService-NoPaste/distinfo << 'END-of-p5-WebService-NoPaste/distinfo'
XMD5 (WebService-NoPaste-0.03.tar.gz) = 1113fd9f7a9de9ec5b8310b7aed1f8b6
XSHA256 (WebService-NoPaste-0.03.tar.gz) = 413a1eba3694cff66904941ba216ef25dddc259e4f17e8cfd75ddb4aaba2973d
XSIZE (WebService-NoPaste-0.03.tar.gz) = 9773
END-of-p5-WebService-NoPaste/distinfo
echo c - p5-WebService-NoPaste/files
mkdir -p p5-WebService-NoPaste/files > /dev/null 2>&1
echo x - p5-WebService-NoPaste/files/nox11patch-lib-WebService-NoPaste.pm
sed 's/^X//' >p5-WebService-NoPaste/files/nox11patch-lib-WebService-NoPaste.pm << 'END-of-p5-WebService-NoPaste/files/nox11patch-lib-WebService-NoPaste.pm'
X--- lib/WebService/NoPaste.pm.orig	Tue May  3 20:10:26 2005
X+++ lib/WebService/NoPaste.pm	Mon Dec 26 18:45:18 2005
X@@ -3,7 +3,6 @@
X use LWP::UserAgent;
X use HTTP::Request::Common 'POST';
X use IO::All;
X-use Clipboard;
X our $VERSION = '0.03';
X 
X sub new {
X@@ -37,9 +36,9 @@
X     io('-')->all
X }
X 
X-sub read_from_clipboard { Clipboard->paste }
X+sub read_from_clipboard { }
X 
X-sub save_to_clipboard { Clipboard->copy($_[0]); }
X+sub save_to_clipboard { }
X 
X my $PLEASE_EMAIL = "WebService::NoPaste has only been tested with 'pastebot' brand paste servers, and even then only to a limited extent.  If you got this error unexpectedly, please let me know - rking\@panopic.com.";
X sub response_die {
X@@ -57,14 +56,6 @@
X 
X     # Manually paste input, manually copy the result url:
X     $ nopaste
X-
X-    # Turbo mode: use clipboard as input, send, and then put the result
X-    # URL back into the clipboard:
X-    $ nopaste cp
X-
X-    # Just take the input from the clipboard, but otherwise leave the
X-    # clipboard alone:
X-    $ nopaste c
X 
X     # Instantly upload your passwd file for the whole world to see, but
X     # at least you'll have the result URL conveniently in your
END-of-p5-WebService-NoPaste/files/nox11patch-lib-WebService-NoPaste.pm
exit
--- p5-WebService-NoPaste-0.03.shar ends here ---

>Release-Note:
>Audit-Trail:
>Unformatted: