RE: Canned ASP applications / applets

[Dariusz Pietrzak]

This one here is just repackaged rss2html from XML::RSS module,
made to fit style suggested by John Leonard.

I still think it would be better to make those applets as regular perl
modules - that way it's trivial to precompile them into apache and solves
namespace problems.

-- 
Dariusz Pietrzak
snafu

<%

# -----------------------------------------------------------------------------------
#
# - rss.inc  - Apache::ASP applet
# - 
#
# -----------------------------------------------------------------------------------
#
# INCLUDES
use strict;
use XML::RSS;
use LWP::Simple;

# Declare variables
my $content;
my $file;

# MAIN

# get the command-line argument
my ($arg) = @_;

# create new instance of XML::RSS
my $rss = new XML::RSS;

# argument is a URL
if ($arg=~ /http:/i) {
    $content = get($arg);
    die "Could not retrieve $arg" unless $content;
    # parse the RSS content
    $rss->parse($content);

# argument is a file
} else {
    $file = $arg;
    die "File \"$file\" does't exist.\n" unless -e $file;
    # parse the RSS file
    $rss->parsefile($file);
}

# print the HTML channel
&print_html($rss);

# SUBROUTINES
sub print_html {
    my $rss = shift;
    print <<HTML;
<table bgcolor="#000000" border="0" width="200"><tr><td>
<TABLE CELLSPACING="1" CELLPADDING="4" BGCOLOR="#FFFFFF" BORDER=0 width="100%">
  <tr>
  <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>

<tr><td>
HTML

    # print channel image
    if ($rss->{'image'}->{'link'}) {
        print <<HTML;
<center>
<p><a href="$rss->{'image'}->{'link'}"><img src="$rss->{'image'}->{'url'}" 
alt="$rss->{'image'}->{'title'}" border="0"
HTML
        print " width=\"$rss->{'image'}->{'width'}\""
            if $rss->{'image'}->{'width'};
        print " height=\"$rss->{'image'}->{'height'}\""
            if $rss->{'image'}->{'height'};
        print "></a></center><p>\n";
    }

    # print the channel items
    foreach my $item (@{$rss->{'items'}}) {
        next unless defined($item->{'title'}) && defined($item->{'link'});
        print "<li><a href=\"$item->{'link'}\">$item->{'title'}</a><BR>\n";
    }

    # if there's a textinput element
    if ($rss->{'textinput'}->{'title'}) {
        print <<HTML;
<form method="get" action="$rss->{'textinput'}->{'link'}">
$rss->{'textinput'}->{'description'}<BR> 
<input type="text" name="$rss->{'textinput'}->{'name'}"><BR>
<input type="submit" value="$rss->{'textinput'}->{'title'}">
</form>
HTML
    }

    # if there's a copyright element
    if ($rss->{'channel'}->{'copyright'}) {
        print <<HTML;
<p><sub>$rss->{'channel'}->{'copyright'}</sub></p>
HTML
    }

    print <<HTML;
</td>
</TR>
</TABLE>
</td></tr></table>
HTML
}



=head1 NAME

rss.inc - Apache::ASP applet

=head1 SYNOPSIS

  $Response->Include( "rss.inc" ,"/path/to/file.rdf" );
  $Response->Include( "showdir.inc", "http://slashdot.org/slashdot.rdf";); -don't abuse 
this!

=head1 DESCRIPTION
 This little ASP applet produces html table from RDF file.
It can fetch it from network using LWP agent, but watch out for this solution - 
webmasters often
place limits on how often you can fetch their site.rdf file.

=head1 SIDE EFFECTS

Outputs resulting HTML string using print.

=head1 AUTHOR

Jonathan Eisenzopf.
Apache::ASP version - Eyck;) 

=cut



%>

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]