37 lines
1.1 KiB
Perl
37 lines
1.1 KiB
Perl
--- lib/WebService/NoPaste.pm.orig Tue May 3 20:10:26 2005
|
|
+++ lib/WebService/NoPaste.pm Mon Dec 26 18:45:18 2005
|
|
@@ -3,7 +3,6 @@
|
|
use LWP::UserAgent;
|
|
use HTTP::Request::Common 'POST';
|
|
use IO::All;
|
|
-use Clipboard;
|
|
our $VERSION = '0.03';
|
|
|
|
sub new {
|
|
@@ -37,9 +36,9 @@
|
|
io('-')->all
|
|
}
|
|
|
|
-sub read_from_clipboard { Clipboard->paste }
|
|
+sub read_from_clipboard { }
|
|
|
|
-sub save_to_clipboard { Clipboard->copy($_[0]); }
|
|
+sub save_to_clipboard { }
|
|
|
|
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.";
|
|
sub response_die {
|
|
@@ -57,14 +56,6 @@
|
|
|
|
# Manually paste input, manually copy the result url:
|
|
$ nopaste
|
|
-
|
|
- # Turbo mode: use clipboard as input, send, and then put the result
|
|
- # URL back into the clipboard:
|
|
- $ nopaste cp
|
|
-
|
|
- # Just take the input from the clipboard, but otherwise leave the
|
|
- # clipboard alone:
|
|
- $ nopaste c
|
|
|
|
# Instantly upload your passwd file for the whole world to see, but
|
|
# at least you'll have the result URL conveniently in your
|