Removed old log viewer (no more syslog)

3 files changed, 0 insertions, 625 deletions

diff --git a/lib/AdminPanel/LogViewer/init.pm b/lib/AdminPanel/LogViewer/init.pm
deleted file mode 100644
index 1c96171..0000000
--- a/lib/AdminPanel/LogViewer/init.pm
+++ /dev/null
@@ -1,31 +0,0 @@
-package AdminPanel::LogViewer::init;
-
-use strict;
-use warnings;
-use diagnostics;
-use English;
-use lib qw(/usr/lib/libDrakX);
-use common;
-use AdminPanel::Shared;
-use base qw(Exporter);
-
-our @EXPORT = qw(warn_about_user_mode
-		interactive_msg);
-
-sub interactive_msg {
-	my ($title, $contents) = @_;
-	return ask_YesOrNo($title, $contents);
-}
-
-sub warn_about_user_mode() {
-	my $title = N("Running in user mode");
-	my $msg = N("You are launching this program as a normal user.\n".
-		    "You will not be able to read system logs which you do not have rights to,\n".
-		    "but you may still browse all the others.");
-	if(($EUID != 0) and (!interactive_msg($title, $msg))) {
-		return 0;
-	}
-	return 1;
-}
-
-1;
diff --git a/lib/AdminPanel/Module/LogViewer.pm b/lib/AdminPanel/Module/LogViewer.pm
index dacb98f..7b9b5a1 100644
--- a/lib/AdminPanel/Module/LogViewer.pm
+++ b/lib/AdminPanel/Module/LogViewer.pm
@@ -479,7 +479,6 @@ $DB::single = 1;
     my $log = AdminPanel::Shared::JournalCtl->new(%{$log_opts});
     my $all = $log->getLog();
     
-print "    _search \n";
     return $all;
 }
 
diff --git a/modules/logviewer/logviewer.pl b/modules/logviewer/logviewer.pl
deleted file mode 100755
index 79acc7a..0000000
--- a/modules/logviewer/logviewer.pl
+++ /dev/null
@@ -1,593 +0,0 @@
-#! /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 qw/strftime floor/;
-use Date::Simple ();
-use File::HomeDir qw(home);
-# 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 yui;
-
-#use AdminPanel::Privileges;
-use AdminPanel::Shared;
-use AdminPanel::LogViewer::init;
-
-### TODO icon 
-my $wm_icon = "/usr/share/mcc/themes/default/logdrake-mdk.png";
-
-#ask_for_authentication($USE_CHLP) if(require_root_capability());
-
-my ($isExplain, $Explain, $isFile, $File, $isWord, $Word);
-
-# prototypes
-sub alert_config;
-sub quit;
-sub search;
-
-#- 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 @months = qw(Err Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
-
-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;
-my $optFactory = yui::YUI::optionalWidgetFactory;
-
-### MAIN DIALOG ###
-my $my_win = $factory->createMainDialog;
-
-if(!warn_about_user_mode()) {
-    quit();
-    exit(0);
-}
-
-
-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 $fileChooserFrame = 0;
-my $calendarFrame = 0;
-my $journalctlFrame = 0;
-my $calendar = 0;
-my $journalAll = 0;
-my $journalFree = 0;
-my $journalFreeInputField = 0;
-
-my $mainLayout = $factory->createVBox($my_win);
-
-my $align = $factory->createAlignment($mainLayout, 3, 0);
-$factory->createLabel( $align, N("A tool to monitor your logs"), 1, 0);
-
-if (!$isFile) {
-    my $vbox = $factory->createVBox($mainLayout);
-    $align = $factory->createAlignment($vbox, 1, 0);
-    $factory->createLabel($align, N("Settings") );
-
-    my $hbox = $factory->createHBox($vbox);
-    #input field aligned to left
-    $align = $factory->createLeft($hbox);
-    $matchingInputField = $factory->createInputField($align, N("Matching"));
-
-    $factory->createHSpacing($hbox, 5);
-
-    #input field aligned to left
-    $align = $factory->createLeft($hbox);
-    $notMatchingInputField = $factory->createInputField($align, N("but not matching"));
-
-    $hbox = $factory->createHBox($vbox);
-
-    $fileChooserFrame = $factory->createCheckBoxFrame($hbox, N("Choose file"), 1);
-    $fileChooserFrame->setNotify(1);
-    $journalctlFrame = $factory->createCheckBoxFrame($hbox, N("Get from the journal"), 1);
-    $journalctlFrame->setNotify(1);
-    $calendarFrame = $factory->createCheckBoxFrame($hbox, N("Calendar"), 1);
-
-    $fileChooserFrame->setWeight(0, 40);
-    $journalctlFrame->setWeight(0, 40);
-    $calendarFrame->setWeight(0, 20);
-
-    $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, "");
-
-    # file chooser 
-    $vbox = $factory->createVBox($fileChooserFrame);
-    for my $cb (keys %files) {
-        $align = $factory->createAlignment($vbox, 1, 0);
-        $toggle{$cb} = $factory->createCheckBox($align, $files{$cb}{desc}, 0);
-    }
-
-    # journalctl    
-    my $rg = $factory->createRadioButtonGroup($journalctlFrame);
-    $vbox = $factory->createVBox($rg);
-    $align = $factory->createAlignment($vbox, 1, 0);
-    $journalAll = $factory->createRadioButton($align, N("Whole journal"), 1);
-    if ($journalAll->buttonGroup()) {
-        $journalAll->buttonGroup()->addRadioButton($journalAll);
-    }
-    $align = $factory->createAlignment($vbox, 1, 0);
-    $hbox = $factory->createHBox($align);
-    $journalFree = $factory->createRadioButton($hbox, N("Free journalctl parameters"), 0);
-    if ($journalFree->buttonGroup()) {
-        $journalFree->buttonGroup()->addRadioButton($journalFree);
-    }
-    $journalFreeInputField = $factory->createInputField($hbox, N("journalctl parameters"));
-
-    # calendar
-    $vbox = $factory->createVBox($calendarFrame);
-    $align = $factory->createAlignment($vbox, 3, 3);
-
-    if ($optFactory->hasDateField()) {
-        $calendar = $optFactory->createDateField($align, "");
-        my $day = strftime "%F", localtime;
-        $calendar->setValue($day);
-    }
-
-    ### NOTE CheckBoxFrame doesn't honoured his costructor checked value for his children
-    $calendarFrame->setValue(0);
-    $journalctlFrame->setValue(0);
-}
-# create log view object
-my $logView = $factory->createLogView($mainLayout, N("Content of the file"), 10, 0);
-
-# buttons are on the ritght
-$align = $factory->createRight($mainLayout);
-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();
-
-    my $eventType = $event->eventType();
-
-    #event type checking
-    if ($eventType == $yui::YEvent::CancelEvent) {
-        quit();
-        last;
-    }
-    elsif ($eventType == $yui::YEvent::WidgetEvent) {
-        # widget selected
-        my $widget      = $event->widget();
-
-        if($widget == $SaveButton) {
-            save();
-        }
-        elsif ($widget == $QuitButton) {
-            quit();
-            last;
-        }
-        elsif ($searchButton && $widget == $searchButton) {
-            $logView->clearText();
-            search();
-        }
-        elsif ($fileChooserFrame && $widget == $fileChooserFrame) {
-            # block journalctl frame notification
-            $journalctlFrame->setNotify(0);
-            if ($fileChooserFrame->value()) {
-                # unchecK $journalctlFrame
-                $journalctlFrame->setValue(0);
-            }
-            else {
-                # checK $journalctlFrame
-                $journalctlFrame->setValue(1);
-            }
-            # unblock journalctl frame notification
-            $journalctlFrame->setNotify(1);
-        }
-        elsif ($journalctlFrame && $widget == $journalctlFrame) {
-            # block file chooser frame notification
-            $fileChooserFrame->setNotify(0);
-            if ($journalctlFrame->value()) {
-                # unchecK $fileChooserFrame
-                $fileChooserFrame->setValue(0);
-            }
-            else {
-                # checK $fileChooserFrame
-                $fileChooserFrame->setValue(1);
-            }
-            # unblock file chooser frame notification
-            $fileChooserFrame->setNotify(1);
-        }
-       elsif ($widget == $mailALertButton) {
-           alert_config();
-       }
-       else {
-           warningMsgBox(N("Unmanaged WidgetEvent"));
-       }
-    }
-}
-
-######### fuctions  #################
-
-## Search call back
-sub search() {
-    if ($isFile) {
-        parse_file($File, $File);
-    } else {
-        if ($fileChooserFrame && $fileChooserFrame->value()) {
-            foreach (keys %files) {
-                parse_file($files{$_}{file}, $files{$_}{desc}) if $toggle{$_}->isChecked();
-            }
-        }
-        elsif ($journalctlFrame && $journalctlFrame->value()) {
-            my @all;
-            # using journal log
-            # there is not any perl binding at the moment
-            if ($journalAll->value()) {
-                if ($calendarFrame && $calendarFrame->value() == 1 && $calendar) {
-                    my $date  = Date::Simple->new($calendar->value());
-                    @all = `journalctl --all --no-pager --since=$date`;
-                }
-                else {
-                    @all = `journalctl --all --no-pager`;
-                }
-            }
-            elsif ($journalFree->value()) {
-                if ($calendarFrame && $calendarFrame->value() == 1 && $calendar) {
-                    my $date  = Date::Simple->new($calendar->value());
-                    my $param = $journalFreeInputField->value();
-                    @all = `journalctl --no-pager --since=$date $param`;
-                }
-                else {
-                    my $param = $journalFreeInputField->value();
-                    @all = `journalctl --all --no-pager $param`;
-                }
-            }
-            parse_content(@all, N("from journalctl"));
-        }
-    }
-}
-
-sub parse_content {
-    my (@all, $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;
-
-    #### calendar
-    if ($journalAll && !$journalAll->value() && $journalFree && !$journalFree->value()) {
-        if ($calendarFrame && $calendarFrame->value() == 1 && $calendar) {
-            my $date  = Date::Simple->new($calendar->value());
-            my $month = $date->month;
-            my $day   = $date->day;
-            $ey = $months[$month] . "\\s{1,2}$day\\s.*$ey.*\n";
-        }
-    }
-
-
-    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));
-        }
-        if ($journalFree && $journalFree->value()) {
-            $logView->appendLines($_);
-        }
-        else {
-            $logView->appendLines($_) if $test->($_);
-        }
-    }
-
-    if ($progressBarPosition) {
-        $my_win->startMultipleChanges();
-        $progressBarPosition->deleteChildren();
-        $factory->createLabel($progressBarPosition, "");
-        $progressBarPosition->showChild();
-        $my_win->recalcLayout();
-        $my_win->doneMultipleChanges();
-        $pbar = 0;
-    }
-
-}
-
-sub parse_file {
-    my ($file, $descr) = @_;
-
-    $file =~ s/\.gz$//;
-
-    logText("****************************************");
-    logText($file . " - " . $descr);
-
-    my @all = -e $file ? catMaybeCompressed($file) : N("Sorry, log file isn't available!");
-
-    parse_content(@all, $descr);
-
-    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 = strftime('%Y %b %d %T', localtime) . " " . $st . "\n";
-    # convert to utf8:
-    c::set_tagged_utf8($string);
-
-    # log given text
-    $logView->appendLines($string);
-}
-
-## Save as
-sub save {
-    my $outFile = yui::YUI::app()->askForSaveFileName(home(), "*", N("Save as.."));
-    if ($outFile) {
-        output($outFile, $logView->logText());
-    }
-}
-
-## Quit 
-sub quit {
-    $my_win->destroy();
-}
-
-## alert config call back
-sub alert_config {
-## TODO
-    infoMsgBox(N("To be implemented yet"));
-    return;
-}
-
-
-### NOTE next code has to be removed after getting mail alert functionality
-=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