-
Notifications
You must be signed in to change notification settings - Fork 33
/
simple.pl
72 lines (57 loc) · 1.54 KB
/
simple.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
use strict;
use warnings;
# Exports some commands
use Cinnamon::DSL;
my $application = 'My::App';
# It's required if you want to login to remote host
set user => 'johndoe';
# User defined params to use later
set application => $application;
set repository => "git://git.example.com/projects/$application";
set deploy_to => "/home/app/www/$application";
# Lazily evaluated if passed as a code
set lazy_value => sub {
#...
};
# Roles
role development => 'development.example.com';
role test => 'test.example.com', {
deploy_to => "/home/app/www/$application-Test",
hoge => 'fuga',
};
# Lazily evaluated if passed as a code
role production => sub {
my $res = LWP::UserAgent->get('http://servers.example.com/api/hosts');
my $hosts = decode_json $res->content;
$hosts;
};
# Tasks
task update => sub {
my ($host, @args) = @_;
# Executed on localhost
run 'some', 'command';
# Executed on remote host
remote {
run 'git', 'pull';
sudo '/path/to/httpd', 'restart';
} $host;
};
# nest tasks
task server => {
setup => sub {
my ($host, @args) = @_;
# Executed on localhost
run 'some', 'command';
# Executed on remote host
my ($stdout, $stderr) = remote {
run 'git', 'pull';
sudo '/path/to/httpd', 'restart';
} $host;
# Do something with the return values
My::IRC::Client->new->send('#deploy', "Updated: $stdout, $stderr");
},
restart => sub {
my ($host, @args) = @_;
# ...
},
};