aboutsummaryrefslogtreecommitdiff
path: root/network/twitter-cmdline/https.patch
blob: 79a3c76bc72f10da3c528b8f5e4fec52faf1675a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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;