mirror of
https://github.com/Ponce/slackbuilds
synced 2024-11-20 19:41:34 +01:00
network/twitter-cmdline: Uncompressed the patch
Signed-off-by: Robby Workman <rworkman@slackbuilds.org>
This commit is contained in:
parent
d6bc195869
commit
059aa944e8
3 changed files with 37 additions and 1 deletions
36
network/twitter-cmdline/https.patch
Normal file
36
network/twitter-cmdline/https.patch
Normal file
|
@ -0,0 +1,36 @@
|
|||
diff -Naur twitter-1.03.orig/Twitter.pm twitter-1.03/Twitter.pm
|
||||
--- twitter-1.03.orig/Twitter.pm 2008-06-16 23:39:19.000000000 +0200
|
||||
+++ twitter-1.03/Twitter.pm 2009-04-06 16:30:59.000000000 +0200
|
||||
@@ -10,8 +10,8 @@
|
||||
# This package implements a twitter object that is
|
||||
# used to connect to twitter, and "do stuff"
|
||||
|
||||
-my $twitter_post = q{http://twitter.com/statuses/update.json};
|
||||
-my $twitter_friends_timeline = q{http://twitter.com/statuses/friends_timeline.rss};
|
||||
+my $twitter_post = q{https://twitter.com/statuses/update.json};
|
||||
+my $twitter_friends_timeline = q{https://twitter.com/statuses/friends_timeline.rss};
|
||||
|
||||
# Constructor.
|
||||
# new ( <user>, <pass>, [cookie jar] )
|
||||
@@ -39,8 +39,8 @@
|
||||
$self->{ua}->timeout(10);
|
||||
|
||||
# Basic auth is for the win.
|
||||
- $self->{ua}->credentials( "www.twitter.com:80", "Twitter API", $u, $p );
|
||||
- $self->{ua}->credentials( "twitter.com:80", "Twitter API", $u, $p );
|
||||
+ $self->{ua}->credentials( "www.twitter.com:443", "Twitter API", $u, $p );
|
||||
+ $self->{ua}->credentials( "twitter.com:443", "Twitter API", $u, $p );
|
||||
|
||||
# It's fun to store our cookies.
|
||||
$self->{ua}->cookie_jar( HTTP::Cookies->new(
|
||||
diff -Naur twitter-1.03.orig/twitter.pl twitter-1.03/twitter.pl
|
||||
--- twitter-1.03.orig/twitter.pl 2008-07-09 20:38:39.000000000 +0200
|
||||
+++ twitter-1.03/twitter.pl 2009-04-06 16:30:25.000000000 +0200
|
||||
@@ -12,7 +12,6 @@
|
||||
# Licensed under the GNU GPL v2.
|
||||
|
||||
use strict;
|
||||
-use lib '/home/gabriel/lib';
|
||||
use Data::Dumper;
|
||||
use Getopt::Std;
|
||||
use Twitter;
|
Binary file not shown.
|
@ -73,7 +73,7 @@ find . \
|
|||
|
||||
# I do not like the http-only approach: switch to https-only.
|
||||
# If you prefer cleartext authentication, feel free to comment this out.
|
||||
zcat $CWD/https.patch.gz | patch -p1
|
||||
patch -p1 < $CWD/https.patch
|
||||
|
||||
install -d $PKG/usr/bin/ $PKG/usr/lib$LIBDIRSUFFIX/perl5/vendor_perl/5.10.0/
|
||||
install -m 0644 Twitter.pm $PKG/usr/lib$LIBDIRSUFFIX/perl5/vendor_perl/5.10.0/
|
||||
|
|
Loading…
Reference in a new issue