git://git.jankratochvil.net
/
www.jankratochvil.net.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
warn on projects with unregistered/unknown "platform" field.
[www.jankratochvil.net.git]
/
project
/
List.pm
diff --git
a/project/List.pm
b/project/List.pm
index
e8e913d
..
b7e3b74
100755
(executable)
--- a/
project/List.pm
+++ b/
project/List.pm
@@
-25,6
+25,7
@@
use warnings;
use My::Web;
Wrequire 'project::Lib';
use My::Web;
Wrequire 'project::Lib';
+use Carp qw(confess cluck);
sub handler
sub handler
@@
-45,6
+46,7
@@
print(project::Lib->views(($W->{"args"}{"platform"} ? "BriefPlatform" : "BriefUn
print(project::Lib->platforms(undef(),"novskip"=>1)) if $W->{"args"}{"platform"};
my %item=project::Lib->name_to_hashref();
print(project::Lib->platforms(undef(),"novskip"=>1)) if $W->{"args"}{"platform"};
my %item=project::Lib->name_to_hashref();
+my %item_unused=%item;
# $col{"name"}{"show"}=1
# $col{"name"}{"format"}=sub { "<".$_[0].">"; }
# $col{"name"}{"show"}=1
# $col{"name"}{"format"}=sub { "<".$_[0].">"; }
@@
-120,6
+122,7
@@
my($platform)=@_;
print '<tr>';
for my $col (@col_order) {
next if defined $col{$col}{"show"} && !$col{$col}{"show"};
print '<tr>';
for my $col (@col_order) {
next if defined $col{$col}{"show"} && !$col{$col}{"show"};
+ delete $item_unused{$row};
print '<td>';
if (!$col{$col}{"format"}) {
print(($item{$row}{$col} || ""));
print '<td>';
if (!$col{$col}{"format"}) {
print(($item{$row}{$col} || ""));
@@
-153,6
+156,7
@@
else {
&{$print_one_platform}($platform_sym);
}
}
&{$print_one_platform}($platform_sym);
}
}
+cluck "INVALID 'platform': $_" for keys(%item_unused);
exit;
exit;