cgi-bin/solpeople/admin/get_person.pl

   1 use strict;
   2 use CXGN::Page;
   3 use CXGN::DB::Connection;
   4
   5 my $page = CXGN::Page->new("","johnathon");
   6 my ($id) = $page->get_encoded_arguments("id");
   7 print "Content-Type: text/html \n\n";
   8 my $dbh = CXGN::DB::Connection->new("sgn_people");
   9 my $sth = $dbh->prepare("select username, last_access_time from sp_person where sp_person_id = ?");
  10 die "Id is not integer." unless $id > 0;
  11 $sth->execute("$id");
  12 my ($name, $time) = $sth->fetchrow_array();
  13 print "<tr><td>$name</td><td>$time</tr>"
  14