[Midnightbsd-cvs] www: rss2html.pl: stop truncating the text

[laffer1 at midnightbsd.org]

Log Message:
-----------
stop truncating the text

Modified Files:
--------------
    www/bin:
        rss2html.pl (r1.1 -> r1.2)

-------------- next part --------------
Index: rss2html.pl
===================================================================
RCS file: /home/cvs/www/bin/rss2html.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -L bin/rss2html.pl -L bin/rss2html.pl -u -r1.1 -r1.2
--- bin/rss2html.pl
+++ bin/rss2html.pl
@@ -66,7 +66,7 @@
     foreach my $item (@{$rss->{'items'}}[0 .. 15]) {
   	next unless defined($item->{'title'}) && defined($item->{'link'});
         $title = $item->{'title'};
-  	$desc = substr($hs->parse($item->{'description'}),0, 100);
+  	$desc = $hs->parse($item->{'description'});
   	
   	# Wed, 03 Sep 2008 06:58
         my $date = DateTime::Format::Mail->parse_datetime($item->{pubDate})->strftime('%a, %d %b %Y %R');
@@ -74,7 +74,7 @@
         print $fh "<blockquote class=\"bluebox\">\n";
         print $fh qq[<h3>$date</h3>\n];
 	print $fh qq[<h4>$title</h4>\n];
-        print $fh qq{<p class="update">$desc</p>\n};
+        print $fh qq{<p>$desc</p>\n};
         print $fh "</blockquote>\n";
     }