BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
use My::Web;
-require 'CGI';
-require 'My::Project';
+require CGI;
+Wrequire 'My::Project';
use constant ENTRIES=>"CVS/Entries";
use constant ENTRIES_LOG=>"CVS/Entries.Log";
print <<'HERE';
<h1>Project List of <a href="mailto:web-www.jankratochvil.net@jankratochvil.net">Jan Kratochvil</a></h1>
-<form action="Index.pl" method="get"><p>
+<form action="Index.html.pl" method="get"><p>
<select name="description_opt" onchange="this.form.submit();">
HERE
print '<option value="0"'.(!$CGI->param("description_opt") ? ' selected="selected"' : '').'>only list</option>'."\n";
my %item;
for my $dir (keys(%dirs)) {
- require "project::${dir}::ListItem";
+ Wrequire "project::${dir}::ListItem";
my $item=eval('\@project::'.$dir.'::ListItem::ListItem');
do { warn "Broken project/$dir/ListItem.pm"; next; } if !defined $item;
$item{$dir}={ My::Project::project_arr_to_hash(@$item) };
return $_[0];
};
+$col{"maintenance"}{"format"}=sub {
+ return ($_[0]=~/^([^-]*)/)[0];
+ };
+
$col{"online-demo"}{"format"}=\&format_url;
$col{"download"}{"format"}=\&format_url;
$col{"name"}{""}="Project Name";