Israel Radio chat

תיבת תרגום לאתר שלך #!/usr/bin/perl use LWP::Simple; use Encode; ###################################################### # A WEB-Sucker script # License : GPL # Description: a script to read news from Walla # and reformat it in RSS format, which # is readable by KNewsTicker ;) # To use : put in your home directory, chmod it: # $chmod +x ./web_suck.pl # Run KNewsTicker, go to configure window, # Select 'news sources' tab, press 'add' # In 'source file' browse for this script # Check the 'the file is a program' checkbox, # You can add a link to the site's favicon if # you like, in the 'icon' textbox. # Press ok. Select the new source and apply. # # To set your scroller to scroll from left # to right, go to 'scroller Preference' , # In the 'Direction os scrolling' combobox, # select 'to the right'. # # ENJOY! # # Written by Cyb3rS34l. ###################################################### $title = "Walla"; $description = "Israeli portal"; $link = 'http://www.walla.co.il/'; $news_page = 'http://news.walla.co.il/?w=/22'; $output_encoding = "utf-8"; open_RSS(); @doc = split "\n",get $news_page; while (@doc){ if( (shift @doc) =~ /(.*?)<\/a>/ ){ shift @doc; shift @doc; shift @doc; print_item((shift @doc)." : ".$2 , "http://news.walla.co.il/$1" ); } } close_RSS(); ###################################################### sub print_item{ my ($title,$link) = @_ ; $title = encode("utf8" , decode("iso-8859-8" , $title)); print < $title $link EOD } ###################################################### sub open_RSS{ print < $title $link $description he-il EOD } ###################################################### sub close_RSS{ print < EOD } ######################################################
חשבון משתמש
שלום אורח/ת

התחבר | משתמש חדש

חברים
+ הוסף אותי לרשימה
5hosim (54)
סיגלוש:) (29)
שם הקובץ נפח הקובץ תאריך העלאה