cgi-bin/about/loggedin.pl

   1
   2 use strict;
   3
   4 use CXGN::DB::Connection;
   5 use CXGN::Login;
   6
   7
   8 CXGN::DB::Connection->verbose(0);
   9 my $dbh = CXGN::DB::Connection->new();
  10
  11 #print STDERR "Calling get_login_info...\n";
  12 my $login = CXGN::Login->new($dbh);
  13 my %logins = $login->get_login_status();
  14
  15 my $summary = "";
  16 foreach(qw/curator submitter user/){
  17         my $count = $logins{$_};
  18         $count = 0 if $count eq "none";
  19         $summary .= "&nbsp;&nbsp;" . ucfirst($_) . "s: <b>$count</b>";
  20 }
  21
  22 my $detailed = "";
  23 foreach my $user_type (keys %{$logins{detailed}}) {
  24         $detailed .= ucfirst($user_type) . "s: ";
  25         my @usernames = (keys %{$logins{detailed}->{$user_type}});
  26         $detailed .= join ", ", @usernames;
  27         $detailed .= "<br />";
  28 }
  29
  30 print <<HTML;
  31
  32 <html>
  33 <body>
  34
  35     <span style="font-size:1.3em"><b>Logins:</b></span>
  36         <span style="font-size:1.2em">$summary</span><br /><br />
  37         $detailed
  38 </body>
  39 </html>
  40
  41 HTML