Added a first log viewer module.

Mail alert is not working yet

1 files changed, 435 insertions, 0 deletions

diff --git a/modules/logviewer/logviewer.pl b/modules/logviewer/logviewer.pl
new file mode 100755
index 0000000..642cdd4
--- /dev/null
+++ b/modules/logviewer/logviewer.pl
@@ -0,0 +1,435 @@
+#! /usr/bin/perl
+# vim: set et ts=4 sw=4:
+#    Copyright 2012 Angelo Naselli <anaselli@linux.it>
+#
+#    This file is part of LogViever
+#
+#    LogViever is free software: you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation, either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    LogViever is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with LogViever.  If not, see <http://www.gnu.org/licenses/>.
+
+package LogViewer;
+
+use strict;
+use POSIX;
+# use FindBin::Bin;
+# use lib "$FindBin::RealBin";
+use lib qw(/usr/lib/libDrakX);
+use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
+use c;
+use common;
+# use Auth;
+use yui;
+
+### TODO icon 
+my $wm_icon = "/usr/share/mcc/themes/default/logdrake-mdk.png";
+
+#ask_for_authentication() if(require_root_capability());
+
+my ($isExplain, $Explain, $isFile, $File, $isWord, $Word);
+
+#- parse arguments list.
+foreach (@ARGV) {
+    /^--explain=(.*)$/ and do { $isExplain = ($Explain) = $1; $isFile = 1; $File = "/var/log/explanations"; next };
+    /^--file=(.*)$/ and do { $isFile = ($File) = $1; next };
+    /^--word=(.*)$/ and do { $isWord = ($Word) = $1; next };
+    /^--alert$/ and do { alert_config(); quit() };
+}
+
+my $isTail = $isFile;
+$| = 1 if $isTail;
+my $h = chomp_(`hostname -s`);
+
+my $explain_title = N("%s Tools Logs", N("Mageia"));
+
+yui::YUI::app()->setApplicationTitle($isExplain ? $explain_title : N("Log viewer"));
+yui::YUI::app()->setApplicationIcon($wm_icon);
+
+my $factory = yui::YUI::widgetFactory;
+
+### MAIN DIALOG ###
+my $my_win = $factory->createMainDialog;
+
+
+my %files = (
+    "auth" => { file => "/var/log/auth.log", desc => N("_:this is the auth.log log file\nAuthentication") },
+    "user" => { file => "/var/log/user.log", desc => N("_:this is the user.log log file\nUser") },
+    "messages" => { file => "/var/log/messages", desc => N("_:this is the /var/log/messages log file\nMessages") },
+    "syslog" => { file => "/var/log/syslog", desc => N("_:this is the /var/log/syslog log file\nSyslog") },
+    "explanations" => { file => "/var/log/explanations", desc => $explain_title }
+);
+
+my %toggle;
+my $searchButton  = 0;
+my $matchingInputField = 0;
+my $notMatchingInputField = 0;
+my $progressBarPosition = 0;
+
+my $mainLayout = $factory->createVBox($my_win);
+my $align = $factory->createAlignment($mainLayout, 3, 0);
+$factory->createLabel( $align, N("A tool to monitor your logs") );
+
+if (!$isFile) {
+    my $vbox = $factory->createVBox($mainLayout);
+    $align = $factory->createAlignment($vbox, 1, 0);
+    $factory->createLabel($align, N("Settings") );
+
+    my $hbox = $factory->createHBox($vbox);
+    $align = $factory->createAlignment($hbox, 1, 0);
+    $matchingInputField = $factory->createInputField($align, N("Matching"));
+    $align = $factory->createAlignment($hbox, 1, 0);
+    $notMatchingInputField = $factory->createInputField($align, N("but not matching"));
+
+    $hbox = $factory->createHBox($vbox);
+    my $fileFrame = $factory->createFrame($hbox, N("Choose file"));
+    my $calendarFrame = $factory->createFrame($hbox, N("Calendar"));
+
+    $fileFrame->setWeight(0, 75);
+    $calendarFrame->setWeight(0, 25);
+
+    $searchButton = $factory->createPushButton($vbox, N("search"));
+    $searchButton->setStretchable(0, 1);
+    #  here we change the widget (add and remove progress bar)
+    $progressBarPosition = $factory->createReplacePoint($vbox);
+    $factory->createLabel($progressBarPosition, "");
+
+    $vbox = $factory->createVBox($fileFrame);
+    for my $cb (keys %files) {
+        $align = $factory->createAlignment($vbox, 1, 0);
+        $toggle{$cb} = $factory->createCheckBox($align, $files{$cb}{desc}, 0);
+    }
+
+}
+my $logView = $factory->createLogView($mainLayout, N("Content of the file"), 10, 0);
+$align = $factory->createAlignment($mainLayout, 2, 0);
+
+my $hbox = $factory->createHBox($align);
+my $mailALertButton = $factory->createPushButton($hbox, N("Mail alert"));
+my $SaveButton = $factory->createPushButton($hbox, N("Save"));
+my $QuitButton = $factory->createPushButton($hbox, N("Quit"));
+
+search() if $isFile;
+
+######## main loop ####################
+while(1) {
+    my $event = $my_win->waitForEvent();
+
+    if($event->widget() == $QuitButton) {
+        quit();
+        last;
+    }
+    if ($event->eventType() == $yui::YEvent::CancelEvent) {
+        quit();
+        last;
+    }
+    if($event->widget() == $searchButton) {
+        $logView->clearText();
+        search();
+    }
+
+    if($event->widget() == $SaveButton) {
+        save();
+    }
+}
+
+######### fuctions  #################
+
+## Search call back
+sub search() {
+    if ($isFile) {
+        parse_file($File, $File);
+    } else {
+        foreach (keys %files) {
+            parse_file($files{$_}{file}, $files{$_}{desc}) if $toggle{$_}->isChecked();
+        }
+    }
+}
+
+sub parse_file {
+    my ($file, $descr) = @_;
+
+    $file =~ s/\.gz$//;
+
+    logText("****************************************");
+    logText($file . " - " . $descr);
+
+    my $pbar = 0;
+    my $ey = "";
+    my $en = "";
+
+    if ($progressBarPosition) {
+        $my_win->startMultipleChanges();
+        $progressBarPosition->deleteChildren();
+        $pbar = $factory->createProgressBar($progressBarPosition, N("please wait, parsing file: %s", $descr), 100);
+        $progressBarPosition->showChild();
+        $my_win->recalcLayout();
+        $my_win->doneMultipleChanges();
+    }
+
+    ## TODO if no input maybe we could load all instead of nothing
+    if ($matchingInputField) {
+        $ey = $matchingInputField->value();
+    }
+    if ($notMatchingInputField) {
+        $en = $notMatchingInputField->value();
+    }
+    $ey =~ s/ OR /|/;
+    $ey =~ s/^\*$//;
+    $en =~ s/^\*$/.*/;
+    $ey = $ey . $Word if $isWord;
+
+    #### TODO calendar
+    #   if ($cal_mode) {
+    #       my (undef, $month, $day) = $cal->get_date;
+    #       $ey = $months[$month] . "\\s{1,2}$day\\s.*$ey.*\n";
+    #   }
+
+    my @all = -e $file ? catMaybeCompressed($file) : N("Sorry, log file isn't available!");
+
+    if ($isExplain) {
+        my (@t, $t);
+        while (@all) {
+            $t = pop @all;
+            next if $t =~ /logdrake/;
+            last if $t !~ /$Explain/;
+            push @t, $t;
+        }
+        @all = reverse @t;
+    }
+
+    my $taille = @all;
+    my $i = 0;
+    my $test;
+
+    if ($en && !$ey) {
+        $test = sub { $_[0] !~ /$en/ };
+    } elsif ($ey && !$en) {
+        $test = sub { $_[0] =~ /$ey/ };
+    } else {
+        $test = sub { $_[0] =~ /$ey/ && $_[0] !~ /$en/ };
+    }
+
+    foreach (@all) {
+        $i++;
+        if ($pbar && $i % 10) {
+            $pbar->setValue(floor(100*$i/$taille));
+        }
+
+        $logView->appendLines($_) if $test->($_);
+    }
+
+    if ($progressBarPosition) {
+        $my_win->startMultipleChanges();
+        $progressBarPosition->deleteChildren();
+        $factory->createLabel($progressBarPosition, "");
+        $progressBarPosition->showChild();
+        $my_win->recalcLayout();
+        $my_win->doneMultipleChanges();
+    }
+
+    if ($isTail && ! $isWord) {
+        my $F;
+        unless (open ($F, "<", $file)) {
+            my $error = $!;
+            my $string = N("Error while opening \"%s\" log file: %s", $file, $error);
+            logText($string);
+            return;
+        }
+        while ( ! eof($F) ) {
+            my $buffer = readline( $F );
+            $logView->appendLines($buffer) if $buffer;
+        } 
+        close $F if $F;
+    }
+}
+
+## Append a custom string to log view adding date
+sub logText {
+    my ($st) = @_;
+    my $string = chomp_(`LC_ALL=C date '+%Y %b %d %T'`) . " " . $st . "\n";
+    # `` return non utf8 and concat of non utf8 & utf8 is non utf8:
+    c::set_tagged_utf8($string);
+
+    # log given text
+    $logView->appendLines($string);
+}
+
+## Save as
+sub save() {
+    my $outFile = yui::YUI::app()->askForSaveFileName( "/root", "*", N("Save as.."));
+    if ($outFile) {
+        output($outFile, $logView->logText());
+    }
+}
+
+## Quit 
+sub quit() {
+    $my_win->destroy();
+}
+
+## alert config call back
+sub alert_config() {
+## TODO
+    print "To be implemented yet \n";
+    return;
+}
+=comment
+
+
+#-------------------------------------------------------------
+# mail/sms alert
+#-------------------------------------------------------------
+
+sub alert_config() {
+    local $::isEmbedded = 0;
+    undef $::WizardTable;
+    undef $::WizardWindow;
+    my $conffile = "/etc/sysconfig/mail_alert";
+    my %options = getVarsFromSh($conffile);
+    $options{LOAD} ||= 3;
+    $options{MAIL} ||= "root";
+    $options{SMTP} ||= "localhost";
+    
+    my $service = {
+        httpd => N("Apache World Wide Web Server"),
+        bind => N("Domain Name Resolver"),
+        ftp => N("Ftp Server"),
+        postfix => N("Postfix Mail Server"),
+        samba => N("Samba Server"),
+        sshd => N("SSH Server"),
+        webmin => N("Webmin Service"),
+        xinetd => N("Xinetd Service")
+    };
+    my @installed_d = grep { -e "/etc/init.d/$_" } sort keys %$service;
+    my %services_to_check = map { $_ => 1 } split(':', $options{SERVICES});
+
+    $::isWizard = 1;
+    my $mode;
+    my $cron_file = "/etc/cron.hourly/logdrake_service";
+    my %modes = (
+                   configure => N("Configure the mail alert system"),
+                   disable =>  N("Stop the mail alert system"),
+                  );
+    require wizards;
+    my $wiz = wizards->new({
+               defaultimage => "logdrake.png",
+               name => N("Mail alert"),
+               pages => {
+                         welcome => {
+                                     name => N("Mail alert configuration") . "\n\n" .
+                                     N("Welcome to the mail configuration utility.\n\nHere, you'll be able to set up the alert system.\n"),
+                                     no_back => 1,
+                                     data => [
+                                              { val => \$mode, label => N("What do you want to do?"),
+                                                list => [ keys %modes ], format => sub { $modes{$_[0]} },  },
+                                              ],
+
+                                     post => sub { $mode eq 'configure' ? 'services' : 'stop' },
+                                    },
+                         services => {
+                                      name => N("Services settings") . "\n\n" .
+                                      N("You will receive an alert if one of the selected services is no longer running"),
+                                      data => [ map { { label => $_, val => \$services_to_check{$_}, 
+                                                          type => "bool", text => $service->{$_} } } @installed_d ],
+                                      next => "load",
+                                     },
+                         load => {
+                                  #PO- Here "load" is a noun; that is load refers to the system/CPU) load
+                                  name => N("Load setting") . "\n\n" .
+                                  N("You will receive an alert if the load is higher than this value"),
+                                  data => [ { label => N("_: load here is a noun, the load of the system\nLoad"), 
+                                              val => \$options{LOAD}, type => 'range', min => 1, max => 50 } ],
+                                  next => "email",
+                                 },
+                         email => {
+                                   name => N("Alert configuration") . "\n\n" .
+                                   N("Please enter your email address below ") . "\n" .
+                                   N("and enter the name (or the IP) of the SMTP server you wish to use"),
+                                   data => [
+                                            { label => "Email address", val => \$options{MAIL} },
+                                            { label => "Email server", val => \$options{SMTP} },
+                                           ],
+                                   complete => sub {
+                                       if ($options{MAIL} !~ /[\w.-]*\@[\w.-]/ && !member($options{MAIL}, map { $_->[0] } list_passwd())) {
+                                           err_dialog(N("Error"), N("\"%s\" neither is a valid email nor is an existing local user!",
+                                                                          $options{MAIL}));
+                                           return 1;
+                                       }
+                                       if (member($options{MAIL}, map { $_->[0] } list_passwd()) && $options{SMP} !~ /localhost/) {
+                                           err_dialog(N("Error"), N("\"%s\" is a local user, but you did not select a local smtp, so you must use a complete email address!", $options{MAIL}));
+                                           return 1;
+                                       }
+                                   },
+                                   next => "end",
+                                  },
+                         end => {
+                                 name => N("Congratulations") . "\n\n" . N("The wizard successfully configured the mail alert."), 
+                                 end => 1,
+                                 no_back => 1,
+                                },
+                         stop => {
+                                  pre => sub { eval { rm_rf($cron_file) } },
+                                  name => N("Congratulations") . "\n\n" . N("The wizard successfully disabled the mail alert."), 
+                                  end => 1,
+                                  no_back => 1,
+                                },
+                        },
+              });
+    $wiz->process($in);
+    return if $mode eq 'disable';
+    
+    $options{SERVICES} = join ':', grep { $services_to_check{$_} } sort keys %services_to_check;
+
+    use Data::Dumper;
+    output_with_perm $cron_file, 0755, q(#!/usr/bin/perl
+# generated by logdrake
+use MDK::Common;
+my $r;
+my %options = getVarsFromSh("/etc/sysconfig/mail_alert");
+
+#- check services
+my ) . Data::Dumper->Dump([ $service ], [qw(*services)]) . q(
+foreach (split(':', $options{SERVICES})) {
+    next unless $services{$_};
+    $r .= "Service $_ ($services{$_} is not running)\\n" unless -e "/var/lock/subsys/$_";
+}
+
+#- load
+my ($load) = split ' ', first(cat_("/proc/loadavg"));
+$r .= "Load is huge: $load\n" if $load > $options{LOAD};
+
+#- report it
+if ($r) {
+    use Mail::Mailer;
+    my $mailer = Mail::Mailer->new('smtp', Server => $options{SMTP});
+    $mailer->open({ From    => 'root@localhost',
+                    To      => $options{MAIL},
+                    Subject => "DrakLog Mail Alert",
+                  })
+      or die "Cannot open: $!\n";
+    print $mailer $r;
+    $mailer->close;
+}
+
+# EOF);
+    setVarsInSh($conffile, \%options);
+        
+    if (defined $::WizardWindow) {
+	$::WizardWindow->destroy;
+	undef $::WizardWindow;
+    }
+}
+
+=cut
+
+
+1
\ No newline at end of file