Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

list of all the active groups on the groups/index.html page

  • Loading branch information...
commit 7951a9c2103eab8047a282d87a48ae8f84b57b01 1 parent 1e3d5fe
gabor authored
Showing with 20 additions and 1 deletion.
  1. +4 −1 bin/build
  2. +7 −0 bin/xml
  3. +9 −0 src/groups/index.html
5 bin/build
View
@@ -29,7 +29,10 @@ $rule->or(
my @files = $rule->file()->name(qr/^.[^~]+$/)->in($source);
foreach my $file (@files) {
-print STDERR $file, "\n";
+ next if $file eq 'src/groups/index.html'; # processed by bin/xml
+
+ print STDERR $file, "\n";
+
my $destfile = $file;
$destfile =~ s/^$source/$destination/;
my($volume, $directories, $filepart) = splitpath($destfile);
7 bin/xml
View
@@ -147,6 +147,13 @@ foreach my $continent (@continents) {
|| die $tt->error();
}
+{
+ my $conf = {
+ allgroups => \%allgroups
+ };
+ $tt->process('src/groups/index.html', $conf, "www/groups/index.html")
+ || die $tt->error();
+}
__END__
=head1 NAME
9 src/groups/index.html
View
@@ -28,4 +28,13 @@
[% link_to('/groups/perl_mongers.xml', 'XML file') %] with
[% link_to('/groups/perl_mongers.dtd', 'DTD') %].
+<h2>All the active groups</h2>
+
+<ul>
+[% FOREACH group = allgroups.keys.sort %]
+ <li><a href="[% allgroups.$group.id %].html">[% group | html_entity %]</a></li>
+[% END %]
+</ul>
+
[% END %]
+
Please sign in to comment.
Something went wrong with that request. Please try again.