Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 21 lines (14 sloc) 361 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use Cwd qw(realpath);
use File::Basename;
my $BASE_DIR = dirname realpath __FILE__;
my ($user) = @ARGV;
my $author_file = $BASE_DIR . '/authors';
my $author = "$user <$user\@dev.catalystframework.org>";
open my $fh, '>>', $author_file;
print { $fh } "$user = $author\n";
close $fh;
print "$author\n";
exit 0;