Re: [PATCH 1/2] teach mklog to get name / email from git config when available

[Peter Bergner]

On Tue, 2014-04-29 at 10:39 -0500, seg...@kernel.crashing.org wrote:
> > +# if this is a git tree then take name and email from the git configuration
> > +if (-d .git) {
> > +  $gitname = `git config user.name`;
> > +  chomp($gitname);
> > +  if ($gitname) {
> > +     $name = $gitname;
> > +  }
> > +
> > +  $gitaddr = `git config user.email`;
> > +  chomp($gitaddr);
> > +  if ($gitaddr) {
> > +     $addr = $gitaddr;
> > +  }
> > +}
> 
> "-d .git" is, erm, not so great.
> 
> How about something like
> 
> sub get_git_config {
>   my $res = `git config --get @_`;
>   return undef if $?;
>   chomp $res;
>   return $res;
> }

I've always used a hacked up version that reads a ~/.mklog config
file for the name and email address to use.  Ala:


[bergner@otta ~]$ cat ~/.mklog 
NAME = Peter Bergner
EMAIL = berg...@vnet.ibm.com


my $conf = "$ENV{HOME}/.mklog";
if (-f "$conf")
  {
    open (CONF, "$conf")
         or die "Could not open file '$conf' for reading: $!\n";
    while (<CONF>)
      {
        if (m/^\s*NAME\s*=\s*(.*)\s*$/)
          {
            $name = $1;
          }
        elsif (m/^\s*EMAIL\s*=\s*(.*)\s*$/)
          {
            $addr = $1;
          }
      }
  }



Peter