some more

[ndwebbie.git] / main.pl

diff --git a/main.pl b/main.pl
index ef9fda8a1e36aac9a44edba2919e99e662d2af1d..3917873bb55ca50b951891e7c8e1caabd37738f0 100644 (file)
--- a/main.pl
+++ b/main.pl
@@ -21,4 +21,13 @@ use strict;
 
 $ND::TEMPLATE->param(TITLE => 'Main Page');
 
-$ND::TEMPLATE->param(BODY => 'FUN!');
+our $BODY;
+
+$BODY->param(Username => 'harv');
+$BODY->param(isMember => isMember());
+$BODY->param(isHC => isHC());
+my @groups = map {name => $_}, sort keys %ND::GROUPS;
+$BODY->param(Groups => \@groups);
+
+
+1;