[mythtv-users] FaceBook Status Updates in MythTV

[Harry Devine]

Brad DerManouelian wrote:
> On Feb 7, 2009, at 1:28 PM, David Meixner wrote:
>
>> Thanks, awesome script!
>>
>> I had to make a few changes to get this working, so here they are in 
>> case anyone else runs into the same problem:
>>
>> 1.  Needed perl module Crypt::SSLeay, which requires SSL libraries:
>>
>> $ yum install openssl-devel
>> $ perl -MCPAN -e shell
>> > install Crypt::SSLeay
>>
>> 2.  On my system, osd_cat is located at /usr/bin/local/osd_cat (not 
>> /usr/bin/osd_cat), so I modified that line in the perl script.
>>
>> 3.  Changed the following line:
>>
>> my $feedurl = decode_entities($1) if $response->content =~ 
>> /title=\"Friends.* Status Updates Feed\" 
>> href=\"(http:\/\/www.facebook.com 
>> <http://www.facebook.com>\/feeds\/friends_status.php\?id=\d+&key=.*&format=rss20)\"\/>/;
>>
>> to
>>
>> my $feedurl = decode_entities($1) if $response->content =~ 
>> /title=\"Friends.* Status Updates Feed\" 
>> href=\"(http:\/\/www.facebook.com 
>> <http://www.facebook.com>\/feeds\/friends_status.php\?id=\d+&amp;key=.*format=rss20)\"\/>/;
>>
>> The difference being that after the "&", I needed to add "amp;", and 
>> the "&" before the format wasn't needed.
>>
>> 4.  I didn't have the font 
>> -adobe-helvetica-medium-r-*-*-30-*-*-*-*-*-*-* so I used 
>> -sony-fixed-medium-r-normal--24*
>
> Thanks! I sort of abandoned the script quickly when I realized I 
> wanted one to handle both Facebook and Twitter and posted it here:
> http://www.mythtv.org/wiki/StatusOSD.pl
> (I just added a reference to this script on the page for FacebookOSD.pl)
>
> It handles osd_cat in different locations now. I guess I should have 
> used a standard installed font, but I had just watched the movie 
> Helvetica. :) Weird that you needed Crypt:SSLeay and needed to change 
> your feed URL since it's working for me as-is.
>
> -Brad
>
> ------------------------------------------------------------------------
>
> _______________________________________________
> mythtv-users mailing list
> mythtv-users at mythtv.org
> http://mythtv.org/cgi-bin/mailman/listinfo/mythtv-users
>   
Brad,

Forgive me for jumping in here, but out of curiosity, I thought I'd give 
that script a try since I'm on Facebook (not Twitter though).  I don't 
have any Perl experience at all, and after some Googling, I saw how to 
use CPAN to install Net::Twitter.  However, I can't get it to install.  
Since I have 0 Perl knowledge, does any of the following errors make sense?

PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" 
"test_harness(0, 'inc', 'blib/lib', 'blib/arch')" t/*.t
t/00.load................NOK 1/1
#   Failed test 'use Net::Twitter;'
#   at t/00.load.t line 4.
#     Tried to use 'Net::Twitter'.
#     Error:  Can't locate JSON/Any.pm in @INC (@INC contains: 
/home/hdevine/.cpan/build/Net-Twitter-2.06-qbl28P/inc 
/home/hdevine/.cpan/build/Net-Twitter-2.06-qbl28P/blib/lib 
/home/hdevine/.cpan/build/Net-Twitter-2.06-qbl28P/blib/arch /etc/perl 
/usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 
/usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 
/usr/local/lib/site_perl . /etc/perl /usr/local/lib/perl/5.10.0 
/usr/local/share/perl/5.10.0 /usr/lib/perl5 /usr/share/perl5 
/usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at 
/home/hdevine/.cpan/build/Net-Twitter-2.06-qbl28P/blib/lib/Net/Twitter.pm 
line 13.
# BEGIN failed--compilation aborted at t/00.load.t line 4.
# Compilation failed in require at (eval 3) line 2.
# BEGIN failed--compilation aborted at (eval 3) line 2.
Use of uninitialized value $Net::Twitter::VERSION in concatenation (.) 
or string at t/00.load.t line 7.
# Testing Net::Twitter
# Looks like you failed 1 test of 1.
t/00.load................dubious
        Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 1
        Failed 1/1 tests, 0.00% okay
t/01_api.................Can't locate JSON/Any.pm in @INC (@INC 
contains: t/lib /home/hdevine/.cpan/build/Net-Twitter-2.06-qbl28P/inc 
/home/hdevine/.cpan/build/Net-Twitter-2.06-qbl28P/blib/lib 
/home/hdevine/.cpan/build/Net-Twitter-2.06-qbl28P/blib/arch /etc/perl 
/usr/local/lib/perl/5.10.0 /usr/local/share/perl/5.10.0 /usr/lib/perl5 
/usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 
/usr/local/lib/site_perl .) at 
/home/hdevine/.cpan/build/Net-Twitter-2.06-qbl28P/blib/lib/Net/Twitter.pm 
line 13.
BEGIN failed--compilation aborted at 
/home/hdevine/.cpan/build/Net-Twitter-2.06-qbl28P/blib/lib/Net/Twitter.pm 
line 13.
Compilation failed in require at t/01_api.t line 9.
BEGIN failed--compilation aborted at t/01_api.t line 9.
# Looks like your test died before it could output anything.
t/01_api.................dubious
        Test returned status 255 (wstat 65280, 0xff00)
DIED. FAILED tests 1-35
        Failed 35/35 tests, 0.00% okay
t/99_check_arg_combos....skipped
        all skipped: Data::PowerSet required for these tests
t/pod-coverage...........skipped
        all skipped: ok
t/pod....................skipped
        all skipped: ok
Failed Test Stat Wstat Total Fail  List of Failed
-------------------------------------------------------------------------------
t/00.load.t    1   256     1    1  1
t/01_api.t   255 65280    35   70  1-35
3 tests skipped.
Failed 2/5 test scripts. 36/36 subtests failed.
Files=5, Tests=36,  0 wallclock secs ( 0.10 cusr +  0.00 csys =  0.10 CPU)
Failed 2/5 test programs. 36/36 subtests failed.
make: *** [test_dynamic] Error 255
  CTHOM/Net-Twitter-2.06.tar.gz
  /usr/bin/make test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
  reports CTHOM/Net-Twitter-2.06.tar.gz
Running make install
  make test had returned bad status, won't install without force
Failed during this command:
 CTHOM/Net-Twitter-2.06.tar.gz                : make_test NO


Thanks!
Harry