GoFuckYourself.com - Adult Webmaster Forum

http://www.webreference.com/perl/tut...source.html#25
Code:
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 http://slashdot.org/slashdot.rdf

5  # by Jonathan Eisenzopf. v1.0 19990901

6  # Copyright (c) 1999 Jupitermedia Corp. All Rights Reserved.

7  # See http://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 bgcolor="#000000" border="0" width="200"><tr><td>

56  <TABLE CELLSPACING="1" CELLPADDING="4" BGCOLOR="#FFFFFF" BORDER=0 width="100%">

57    <tr>

58    <td valign="middle" align="center" 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