package userID2Name;

use sql;
use strict;

my $it=&sql::select("select * from _user");

my %i2n; 
while (my $r=$it->next) {
    $i2n{$r->{mainkey}}=$r->{name};
}
sub getName {
    my $id=shift;
    $i2n{$id};
}

1;