eval `/common/tools/mkAliases`

##</code><code>##

my $table = read_table();
foreach my $key (keys %$table)
{
  print "alias $key '$table->{$key} $current_user';\n";
  print "alias ${key}r '$table->{$key} root';\n";
  # etc.
}