amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-04-21 09:09:06 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add in 'email' Build action

Browse source 
This is to help generate announcement emails more easily
This commit is contained in:
Duncan Ferguson 2014-01-31 10:13:45 +00:00
parent ac41ffeb2b
commit 161fba4dac
1 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
Build.PL
View file

@ -3,7 +3,26 @@ use warnings;
use Module::Build;
my $build = Module::Build->new(
my $class = Module::Build->subclass(
class => "Module::Build::Custom",
code => q{
sub ACTION_email {
my ($self, @args) = shift;
my $v=$self->dist_version;
print $/, '=' x 10,$/,$/;
print 'Bug Reports and Issues: https://github.com/duncs/clusterssh/issues',$/;
print 'Project Repository: http://github.com/duncs/clusterssh',$/;
print 'CPAN release: http://search.cpan.org/~duncs/App-ClusterSSH-',$v,$/;
print 'SF release: http://sourceforge.net/projects/clusterssh/files/2.%20ClusterSSH%20Series%204/App-ClusterSSH-',$v,'.tar.gz/download',$/;
print 'SF/net git repo: https://sourceforge.net/scm/?type=git&group_id=89139',$/;
print $/, '=' x 10,$/,$/;
}
},
);
my $build = $class->new(
meta_merge => {
resources => {
Repository => [