+ if ($pi_config && defined $listname && length $listname) {
+ foreach my $key (qw(description address url atomurl midurl)) {
+ $rv{$key} = $pi_config->get($listname, $key);
+ }
+ }
+ if ($cgi) {
+ my $cgi_url = $cgi->self_url;
+ my $url_base = $cgi_url;
+ $url_base =~ s!/?(?:index|all)\.atom\.xml\z!!;
+ $rv{url} ||= "$url_base/";
+ $rv{midurl} ||= "$url_base/mid/%s.html";
+ $rv{atomurl} = $cgi_url;