Adding support to create mail reports.

cualsea-server/lib/Cualsea/Server/DB.pm

@@ -30,7 +30,9 @@ my @migrations = (
         id INTEGER PRIMARY KEY,
         date_execution TEXT,
         is_up INTEGER
-    );'
+    );',
+    'ALTER TABLE monitor
+        ADD COLUMN name TEXT',
 );
 
 sub dbh {
@@ -50,7 +52,6 @@ sub run_migrations {
     my $dbh = shift;
     my $current_migration = _get_current_migration_number($dbh);
     say $current_migration;
-    say scalar @migrations;
     if ($current_migration < scalar @migrations) {
         my @needed_migrations = @migrations[$current_migration .. $#migrations];
         for my $migration (@needed_migrations) {

cualsea-server/lib/Cualsea/Server/Mail.pm

@@ -44,10 +44,74 @@ sub notify_service_down {
     sendmail( $mime, { transport => $self->transport } );
 }
 
+sub report {
+    my $self         = shift;
+    my $dbh          = Cualsea::Server::DB->dbh();
+    my $current_date = DateTime->now;
+    my $message      = "$current_date\n\n";
+    $message .= "@{[`uname -a`]} @{[`free -m`]} @{[`uptime`]}\n\n";
+    $message .= "List of services\n\n";
+    my $services = $dbh->selectall_arrayref( <<'EOF', { Slice => {} } );
+SELECT name FROM services;
+EOF
+    for my $service (@$services) {
+        $message .= "@{[$service->{name}]}\n";
+    }
+    $message .= "\nLast hour monitor\n\n";
+    my $monitor = $dbh->selectall_arrayref(
+        <<'EOF', { Slice => {} }, $current_date->clone->add( hours => -1 ) . '' );
+SELECT date_execution, name, is_up FROM monitor where date_execution > ?;
+EOF
+
+    for my $register (@$monitor) {
+        my $date_execution = $register->{date_execution};
+        my $name           = $register->{name};
+        my $is_up          = $register->{is_up};
+
+        $message .=
+          "$date_execution @{[ defined $name ? $name : '']} @{[$is_up ? 'started' : 'stopped']}\n";
+    }
+
+    $message .= "\nLast 20 commands\n\n";
+
+    my $log = $dbh->selectall_arrayref( <<'EOF', { Slice => {} } );
+SELECT date_execution, parameters, result FROM log ORDER BY id DESC LIMIT 20;
+EOF
+    for my $register (@$log) {
+        my $date_execution = $register->{date_execution};
+        my $parameters     = $register->{parameters};
+        my $result         = $register->{result};
+
+        $message .= "$date_execution $parameters $result\n";
+    }
+
+    my $mime = Email::MIME->create(
+        header_str => [
+            From    => $self->from,
+            To      => [ $self->report_to ],
+            Subject => "Service report.",
+        ],
+        parts => [
+            Email::MIME->create(
+                attributes => {
+                    content_type => 'text/plain',
+                    disposition  => 'attachment',
+                    charset      => 'UTF-8',
+                    encoding     => "8bit",
+                },
+                body_str => $message,
+            )
+        ]
+    );
+    sendmail( $mime, { transport => $self->transport } );
+
+}
+
 sub report_to {
     my $self = shift;
     if ( !defined $self->{report_to} ) {
-        open my $fh, '<', $REPORT_TO_CONFIG_FILE or die "Unable to get mail to report from config file";
+        open my $fh, '<', $REPORT_TO_CONFIG_FILE
+          or die "Unable to get mail to report from config file";
         my $email = <$fh>;
         chomp $email;
         close $fh;
@@ -59,7 +123,8 @@ sub report_to {
 sub from {
     my $self = shift;
     if ( !defined $self->{from} ) {
-        open my $fh, '<', $FROM_CONFIG_FILE or die "Unable to get mail From from config file";
+        open my $fh, '<', $FROM_CONFIG_FILE
+          or die "Unable to get mail From from config file";
         my $email = <$fh>;
         chomp $email;
         close $fh;
@@ -72,7 +137,8 @@ sub transport {
     my $self = shift;
     if ( !defined $self->{transport} ) {
         my %parameters;
-        open my $fh, '<', $MAIL_CONFIG_FILE or die "Unable to get transport from config file";
+        open my $fh, '<', $MAIL_CONFIG_FILE
+          or die "Unable to get transport from config file";
         while ( my $line = <$fh> ) {
             my ( $key, $value ) = $line =~ /^(.*?)=(.*?)\s*$/;
             if ( $key eq 'hosts' ) {

cualsea-server/lib/Cualsea/Server/MessageController.pm

@@ -160,6 +160,16 @@ sub handle_restart {
     };
 }
 
+sub handle_report {
+    my $mailer = Cualsea::Server::Mail->new();
+    $mailer->report;
+    return {
+        is_error => 0,
+        status => 200,
+        desc => 'Successfully sent report.',
+    };
+}
+
 my %COMMANDS = (
     add => {
         params => [
@@ -190,6 +200,7 @@ my %COMMANDS = (
     report => {
         params    => [],
         validator => sub { },
+        handle => \&handle_report,
     },
     start => {
         params    => ['name'],

cualsea-server/lib/Cualsea/Server/MonitorController.pm

@@ -56,8 +56,8 @@ EOF
             $started = !system 'ps', '-p', $pid;
             close $fh;
         }}
-        $dbh->do( 'INSERT INTO monitor (date_execution, is_up) VALUES (?, ?);',
+        $dbh->do( 'INSERT INTO monitor (date_execution, name, is_up) VALUES (?, ?);',
-            undef, DateTime->now() . '', $started );
+            undef, DateTime->now() . '', $name, $started );
         if (!$started) {
             say "$name stopped";
             my $mailer = Cualsea::Server::Mail->new();