view release on metacpan or  search on metacpan

lcfg.yml  view on Meta::CPAN

author: 
  - Stephen Quinney <squinney@inf.ed.ac.uk>
base: ''
build: 
  gencmake: 0
  remove_input_after_translate: 1
  translate_before_pack: 1
date: 05/04/13 12:39:11
license: GPLv2
name: BuzzSaw
orgident: org.lcfg
platforms: 
  - ScientificLinux6
release: 1
schema: 1
translate: 
  - "*.in"
vcs: 
  checkcommitted: 1
  genchangelog: 1
  logname: ChangeLog

lib/BuzzSaw/UserClassifier.pm  view on Meta::CPAN

  my $uid = getpwnam($username);

  return (defined $uid ? 1 : 0);
}

sub is_person {
  my ( $self, $username ) = @_;

  if ( $self->is_user($username) ) {
    my $gid = (getpwnam($username))[3];

    return ( $gid == $self->people ? 1 : 0 );
  }

  return 0;
}

sub looks_like_person {
  my ( $self, $username ) = @_;

  # This is specific to UoE. Might be worth moving this list of
  # regular expressions into a list attribute.