Subversion Repositories PEEPS

print $h->close ("body", "html");

exit;

#foreach (sort keys %ENV) {

#	print "$_: $ENV{$_}\n<br>";

#}

my @announcements;

my @everyone;

push @everyone, $h->li ($h->a ( { href=>"people" }, "Look at a list of people." ));

push @everyone, $h->li ($h->a ( { href=>"organizations" }, "...or a list of leagues." ));

my @leads;

my @insurance;

$user->{policy} = isPersonCovered ($user->{id});

if ($user->{policy}) {

  my $daysremaining = remainingPolicyDays ($user->{id}, $user->{policy});

  push @insurance, $h->li ("You are currently covered by Policy ID: $user->{policy}");

  push @insurance, $h->li ("You have $daysremaining days remaining in coverage.");

  if ($daysremaining <= 90) {

    push @insurance, $h->li ($h->a ( { href=>"attestation" }, "You're eligible to renew." ));

  }

} else {

  push @insurance, $h->li ($h->a ( { href=>"attestation" }, "Purchase Insurance." ));

}

push @insurance, $h->li ($h->a ( { href=>"insurance" }, "View Insurance History." ));

my @managers;

my @sysadmins;

my @activity_log;

my $alog = $dbh->prepare("select timestamp, event from log where person_id = ? order by timestamp desc limit 10");

$alog->execute($user->{person_id});

while (my @logs = $alog->fetchrow_array) {

	my ($d, $t) = split /\s+/, $logs[0];

	push @activity_log, $h->li ({ class=>"shaded" }, join " ", @logs);

}

my @reference;

printRCHeader("Home");

print $h->close ("table");

print $h->form ({ name => "Req", action => url });

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Announcement:"), $h->ul ([ @announcements ]) ]) if (scalar @announcements);

#print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Note:"), "<b>Your account is being reviewed.</b>", $h->br, "You won't have access to view or sign-up for things until you've been approved / added to a department.", $h->br, "Please watch your email for notifications." ]) unless $activated;

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do:"), $h->ul ([ @everyone ]) ]);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Personal Insurance:"), $h->ul ([ @insurance ]) ]);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a Lead:"), $h->ul ([ @leads ]) ]) if ($LVL > 1);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a Manager:"), $h->ul ([ @managers ]) ]) if ($LVL > 2);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a SysAdmin:"), $h->ul ([ @sysadmins ]) ]) if ($LVL >= 5);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Your Latest Activity:"), $h->ul ([ @activity_log ]), $h->h5 ($h->a ({ href=>"log?excel=0&autoload=1&eventid=true&timestamp=true&event=true&RCid=true&derby_name=true&filter-timestamp=&filter-event=&filter-RCid=".$user->{RCid}."&filter-derby_name=&sortby=eventid&limit=25&page=1" }, "[Your entire log history]")) ]);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Reference:"), $h->ul ([ @reference ]) ]);