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;
|
