X-Git-Url: http://git.ieval.ro/?p=webservice-tdwtf.git;a=blobdiff_plain;f=lib%2FApp%2FTDWTF.pm;h=b31574280ba55edf4ea6001381ab9409461312c4;hp=a8276dd243b758941e6f99f1c1f7a932678809af;hb=0911ac34e6ae2761f1b464817ce43d3a4e4ce14e;hpb=8773c4ec2c066ec03cb01a646f1f8b05b3497bde

diff --git a/lib/App/TDWTF.pm b/lib/App/TDWTF.pm
index a8276dd..b315742 100644
--- a/lib/App/TDWTF.pm
+++ b/lib/App/TDWTF.pm
@@ -24,8 +24,16 @@ sub print_article {
 	say HTML::FormatText->format_string($art->Body)
 }
 
+sub print_series {
+	for my $series (tdwtf_series) {
+		$series->{$_} = encode 'UTF-8', ($series->{$_} // '') for keys %$series;
+		say $series->{Slug}, ' ', $series->{Title}, "\n", $series->{Description}, "\n";
+	}
+}
+
 sub run {
 	my ($args, @argv) = @_;
+	return print_series if $args->{show_series};
 	return print_list tdwtf_list_recent @argv if $args->{recent};
 	return print_list tdwtf_list_series @argv if $args->{series};
 	return print_list tdwtf_list_author @argv if $args->{author};