+ print STDERR "title=",$self->{-title},
+ ", numofsubs=",$self->{-numofsubs},
+ ", numofimgs=",$self->{-numofimgs},"\n";
+ if ($rssobj) {
+ my $rsstitle=sprintf "%s [%d images, %d subalbums]",
+ $self->{-title},
+ $self->{-numofimgs},
+ $self->{-numofsubs};
+ my $rsslink=$rssobj->channel('link')."index.html";
+ $rssobj->add_item(
+ title => $self->{-title},
+ link => $rsslink,
+ description => $rsstitle,
+ );
+ }