in wnpp.pl,
L107
push @rfa_bypackage_html, " <pdolink \"$pkg\" />, ";
L122
push @rfa_bymaint_html, " <pdolink \"$pkg\" />, ";
L136
push @rfa_byage_html, " <pdolink \"$pkg\" />, ";
L148
push @orphaned_html, " <pdolink \"$pkg\" />, ";
L160
push @orphaned_byage_html, " <pdolink \"$pkg\" />";
L174
" <pdolink \"$pkg\" />, ";
L191
" <pdolink \"$pkg\" />, ";
L207
" <pdolink \"$pkg\" />, ";
L286
" <pdolink \"$rfh_pkg{$_}\" />, ";
L302
" <pdolink \"$rfh_pkg{$_}\" />, ";
L314
" <pdolink \"$rfh_pkg{$_}\" />, <popcon \"$popcon{$rfh_pkg{$_}}\" />, ";
these <pdolink ..../> need to be 1 by 1 as pdo site does not accept multiple
stanza;;
I suggest most clear way, adding a sub routine named "pdolinks"
and replace these <pdolink> tags w/ a snippet refering this, like:
&pdolinks($pkg);
---
# this sub routine takes 1 arg, expects "pkg1, pkg2, ..." form
# and returns a scalar: "<pdolink "pkg1" />[, <pdolink "pkg2" />, ...]
# additional description for noob:
# 1st line: $packages takes the 1st arg
# 2nd line: @packages takes indivisual packages for each element
# 3rd-6th lines: cleanup and <pdolink>'ifies every element in @packages
# 8th line: join concatenates array using specified separator as the 1st arg
# if it returns an array, the @..._html arrays will contain every links 1 by 1
sub pdolinks{
my $packages = shift;
my @packages = split(/[\s,]+/, $packages);
for (my $i=0; $i<$#packages; $i++){
$packages[$i] =~ s/[\s,]//g;
$packages[$i] = "<pdolink \"$packages[$i]\" />":
}
return join(", ", @packages);
}
---
note that I did no test;
additionally, popcon links may have the same issue
--
victory
no need to CC me :-)
