Rex - Mini-Einführung Frankfurt Perl-Community Workshop 2016

Transcript

1. Rex
2. Rex rexify.org
3. Automatisierung / Konfiguration von Aufgaben
4. Automatisierung / Konfiguration von Aufgaben mit Perl!
5. • OTRS-Demoinstanzen • Auswertungen von Servern holen • Upgrades • Deployment von Anwendungen
6. • Tasks werden in Rexfile gespeichert • Start über rex <taskname>
7. task uname_a => sub { my $result = run 'uname -a'; say "uname: $result"; };
8. $ rex uname_a [2016-06-04 11:34:24] INFO - Running task uname_a on <local> uname: Linux perl-services 3.13.0-86-generic \ #131-Ubuntu SMP Thu May 12 23:33:13 UTC 2016 \ x86_64 x86_64 x86_64 GNU/Linux
9. • Wenn kein Server angegeben ist, wird alles auf localhost ausgeführt
10. $ rex -H perl-services.de uname_a
11. • Server können gruppiert werden
12. group fra_pw => qw/ perl-services.de frankfurt.pm /; task uname_a => sub { my $result = run 'uname -a'; say "uname: $result"; };
13. $ rex -G fra_pw uname_a
14. • Beschreibungen für die Tasks
15. desc "Lasse uname laufen..."; task uname_a => sub { my $result = run 'uname -a'; say "uname: $result"; };
16. Auth
17. user "root"; password "mypassword"; desc "Lasse uname laufen..."; task uname_a => sub { my $result = run 'uname -a'; say "uname: $result"; };
18. user 'root'; private_key '/path/to/your/private.key'; public_key '/path/to/your/public.key'; password 'my_password'; key_auth; desc "Lasse uname laufen..."; task uname_a => sub { my $result = run 'uname -a'; say "uname: $result"; };
19. Beispiele
20. task prepare => sub { pkg "apache2", ensure => "latest"; service "apache2", ensure => "started"; };
21. task prepare => sub { create_user "otrs" => home => '/opt/otrs/', no_create_home => 1, %{ $params->{otrs_user} || {} }; };
22. task prepare => sub { # download, unpack and link otrs if ( ! is_file '/tmp/otrs-' . $version . '.tar.gz' ) { my $source = "http://otrs/.../otrs-$version.tar.gz"; my $target = "/tmp/otrs-$version.tar.gz"; run "wget -O $target $source"; } };
23. task prepare => sub { file "/opt/otrs-$version/Kernel/Config.pm", content => template( '@Config', db => { host => $params->{db}->{schema}->{host}, schema => $params->{db}->{schema}->{name}, user => $params->{db}->{user}->{name}, password => $params->{db}->{user}->{password}, dsn => $self->db_obj->dsn, }, config_pm => $params->{'config.pm'} || [], ), owner => "root", mode => 630; }; __DATA__ @Config $Self->{DatabaseHost} = '<%= $db->{host} %>'; $Self->{Database} = '<%= $db->{schema} %>'; $Self->{DatabaseUser} = '<%= $db->{user} %>';
24. $ rex -e 'say `uname -a`' [2016-06-04 12:29:16] INFO - Running task eval-line on <local> Linux perl-services 3.13.0-86-generic #131-Ubuntu SMP \ Thu May 12 23:33:13 UTC 2016 x86_64 x86_64 x86_64 GNU/Linux
25. Zusatzpakete
26. • Ähnlich wie CPAN-Module • Für alle möglichen Bereiche existieren Zusatzpakete • Werden mit „include“ eingebunden
27. $ rexify --use Rex::Database::MySQL
28. include qw/Rex::Database::MySQL::Admin/; set mysql => user => 'root'; desc "Get the timestamp when the users logged in for the last time"; task last_logged_in => sub { my $result = Rex::Database::MySQL::Admin::execute({ schema => 'otrs', sql => $sql, }); my @lines = split /\n/, $result; shift @lines; for my $line ( @lines ) { my ($user, $time) = split /\s+/, $line; say "$user → $time"; } });