#!/usr/bin/env perl

my ($db, $key) = @ARGV;
if ($db eq 'passwd') {
  if (!defined($key)) {
    while ($a=join(":",getpwent)) { print "$a\n" }
  }
  elsif ($key =~ /^\d+$/) {
    print join(":",getpwuid($key)), "\n";
  }
  else {
    print join(":",getpwnam($key)), "\n";
  }
}
elsif ($db eq 'group') {
  if (!defined($key)) {
    while ($a=join(":",getgrent)) { print "$a\n" }
  }
  elsif ($key =~ /^\d+$/) {
    print join(":",getgrgid($key)), "\n";
  }
  else {
    print join(":",getgrnam($key)), "\n";
  }
}