Changeset 1249 in spip-zone for _acotes_


Ignore:
Timestamp:
Nov 3, 2005, 11:04:52 PM (13 years ago)
Author:
fil@…
Message:

paola en utf-8

File:
1 edited

Legend:

Unmodified
Added
Removed
  • _acotes_/irc/Paola_Spip/rss2irc.pl

    r1171 r1249  
    88use Encode;
    99
    10 my $rss = new XML::RSS(encoding=>"iso-8859-1");
     10my $rss = new XML::RSS(encoding=>"utf-8");
    1111my $irc = new Net::IRC;
    1212
     
    8181                {
    8282                    sleep(1);
    83                     my $title = Encode::encode("iso-8859-1", $rss->{items}->[0]->{'title'}) . ', '.Encode::encode("iso-8859-1", $rss->{items}->[0]->{'author'}) . ' ('.Encode::encode("iso-8859-1", $rss->{items}->[0]->{'source'}).') - ';
     83                    my $title = Encode::encode("utf-8", $rss->{items}->[0]->{'title'}) . ', '.Encode::encode("utf-8", $rss->{items}->[0]->{'author'}) . ' ('.Encode::encode("utf-8", $rss->{items}->[0]->{'source'}).') - ';
    8484                    $site  = ''.$item->[1].$item->[0].': ';
    85                     my $link = Encode::encode("iso-8859-1", $rss->{'items'}->[0]->{'link'});
     85                    my $link = Encode::encode("utf-8", $rss->{'items'}->[0]->{'link'});
    8686                    #my $phrase_irc="From : ".$site." - ". $title." -> ".$link;
    8787                    my $phrase_irc=$title." -> ".$link;
Note: See TracChangeset for help on using the changeset viewer.