Close
1 #!/usr/bin/perl -w 2 # rss2html - converts an RSS file to HTML 3 # It take one argument, either a file on the local system, 4 # or an HTTP URL like https://slashdot.org/slashdot.rdf 5 # by Jonathan Eisenzopf. v1.0 19990901 6 # Copyright (c) 1999 Jupitermedia Corp. All Rights Reserved. 7 # See https://www.webreference.com/perl for more information 8 # 9 # This program is free software; you can redistribute it and/or modify 10 # it under the terms of the GNU General Public License as published by 11 # the Free Software Foundation; either version 2 of the License, or 12 # (at your option) any later version. 13 14 # INCLUDES 15 use strict; 16 use XML::RSS; 17 use LWP::Simple; 18 19 # Declare variables 20 my $content; 21 my $file; 22 23 # MAIN 24 # check for command-line argument 25 die "Usage: rss2html.pl (<RSS file> | <URL>)\n" unless @ARGV == 1; 26 27 # get the command-line argument 28 my $arg = shift; 29 30 # create new instance of XML::RSS 31 my $rss = new XML::RSS; 32 33 # argument is a URL 34 if ($arg=~ /http:/i) { 35 $content = get($arg); 36 die "Could not retrieve $arg" unless $content; 37 # parse the RSS content 38 $rss->parse($content); 39 40 # argument is a file 41 } else { 42 $file = $arg; 43 die "File \"$file\" does't exist.\n" unless -e $file; 44 # parse the RSS file 45 $rss->parsefile($file); 46 } 47 48 # print the HTML channel 49 &print_html($rss); 50 51 # SUBROUTINES 52 sub print_html { 53 my $rss = shift; 54 print <<HTML; 55 <table border="0" width="200"><tr><td> 56 <TABLE CELLSPACING="1" CELLPADDING="4" BGCOLOR="#FFFFFF" BORDER=0 width="100%"> 57 <tr> 58 <td valign="middle" bgcolor="#EEEEEE"><font color="#000000" face="Arial,Helvetica"><B><a href="$rss->{'channel'}->{'link'}">$rss->{'channel'}->{'title'}</a></B></font></td></tr> 59 <tr><td> 60 HTML 61 62 # print channel image 63 if ($rss->{'image'}->{'link'}) { 64 print <<HTML; 65 <center> 66 <p><a href="$rss->{'image'}->{'link'}"><img src="$rss->{'image'}->{'url'}" alt="$rss->{'image'}->{'title'}" border="0" 67 HTML 68 print " width=\"$rss->{'image'}->{'width'}\"" 69 if $rss->{'image'}->{'width'}; 70 print " height=\"$rss->{'image'}->{'height'}\"" 71 if $rss->{'image'}->{'height'}; 72 print "></a></center><p>\n"; 73 } 74 75 # print the channel items 76 foreach my $item (@{$rss->{'items'}}) { 77 next unless defined($item->{'title'}) && defined($item->{'link'}); 78 print "<li><a href=\"$item->{'link'}\">$item->{'title'}</a><BR>\n"; 79 } 80 81 # if there's a textinput element 82 if ($rss->{'textinput'}->{'title'}) { 83 print <<HTML; 84 <form method="get" action="$rss->{'textinput'}->{'link'}"> 85 $rss->{'textinput'}->{'description'}<BR> 86 <input type="text" name="$rss->{'textinput'}->{'name'}"><BR> 87 <input type="submit" value="$rss->{'textinput'}->{'title'}"> 88 </form> 89 HTML 90 } 91 92 # if there's a copyright element 93 if ($rss->{'channel'}->{'copyright'}) { 94 print <<HTML; 95 <p><sub>$rss->{'channel'}->{'copyright'}</sub></p> 96 HTML 97 } 98 99 print <<HTML; 100 </td> 101 </TR> 102 </TABLE> 103 </td></tr></table> 104 HTML 105 } 106 107 108 109 110 111
Find a programming school near you