summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/logdrake
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2001-12-13 15:47:23 +0000
committerYves Duret <yduret@mandriva.com>2001-12-13 15:47:23 +0000
commit777e5460e1d47b6e725dcc5f2d8edcea77ba3407 (patch)
tree377a571eebfaa430a9b72380ddc19a7c415a82f8 /perl-install/standalone/logdrake
parentaf2cfca0eb43b345daf9fc247124c009c0776420 (diff)
downloaddrakx-backup-do-not-use-777e5460e1d47b6e725dcc5f2d8edcea77ba3407.tar
drakx-backup-do-not-use-777e5460e1d47b6e725dcc5f2d8edcea77ba3407.tar.gz
drakx-backup-do-not-use-777e5460e1d47b6e725dcc5f2d8edcea77ba3407.tar.bz2
drakx-backup-do-not-use-777e5460e1d47b6e725dcc5f2d8edcea77ba3407.tar.xz
drakx-backup-do-not-use-777e5460e1d47b6e725dcc5f2d8edcea77ba3407.zip
moving from soft/control-center to here, since there will be a console based version
Diffstat (limited to 'perl-install/standalone/logdrake')
-rwxr-xr-xperl-install/standalone/logdrake496
1 files changed, 496 insertions, 0 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
new file mode 100755
index 000000000..aaa5d5794
--- /dev/null
+++ b/perl-install/standalone/logdrake
@@ -0,0 +1,496 @@
+#! /usr/bin/perl
+# $Id$
+
+# Copyright (C) 2001 MandrakeSoft
+# Yves Duret <yduret at mandrakesoft.com>
+# some code is Copyright: (C) 1999, Michael T. Babcock <mikebabcock@pobox.com>
+#
+# This program 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, or (at your option)
+# any later version.
+#
+# This program 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 this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+
+use POSIX;
+use Gtk;
+use lib qw(/usr/lib/libDrakX);
+use interactive;
+use standalone;
+use any;
+use Config;
+init Gtk;
+Gtk->set_locale;
+use my_gtk qw(:helpers :wrappers);
+
+use MDK::Common;
+
+#-------------------------------------------------------------
+# i18n routines
+# IMPORTANT: next two routines have to be redefined here to
+# get correct namespace (drakconf instead of libDrakX)
+# (This version is now UTF8 compliant - Sg 2001-08-18)
+#-------------------------------------------------------------
+
+sub _ {
+ my $s = shift @_; my $t = translate($s);
+ sprintf $t, @_;
+}
+
+sub translate {
+ my ($s) = @_;
+ $s ? c::dgettext('drakconf', $s) : '';
+}
+
+$::isInstall and die "Not supported during install.\n";
+
+my $in = 'interactive'->vnew('su', 'default');
+
+$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
+if ($::isEmbedded) {
+ print "EMBED\n";
+ print "parent XID\t$::XID\n";
+ print "mcc pid\t$::CCPID\n";
+}
+
+#- parse arguments list.
+for (@ARGV) {
+ /^--version$/ and die 'version: $Id$ '."\n";
+ /^--help$/ and die 'logdrake [--version] [--file=myfyle] [--word=myword]';
+ /^--file=(.*)$/ and do { $::isFile = ($::File) = $1; next };
+ /^--word=(.*)$/ and do { $::isWord = ($::Word) = $1; next };
+}
+
+$::isTail=1 if ($::isFile);
+$|= 1 if ($::isTail);
+my $h=chomp_(`hostname -s`);
+
+my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
+$window->signal_connect( delete_event => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) });
+$window->set_title( _("logdrake") );
+$window->set_policy(1, 1, 1);
+$window->border_width (5) unless ($::isEmbedded);
+#$window->set_default_size( 540,460 );
+
+my $cal = gtkset_sensitive(new Gtk::Calendar(),0);
+my (undef,undef,undef,$mday) = localtime(time);
+$cal->select_day($mday);
+my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+my $cal_mode=0;
+my $cal_butt = gtksignal_connect(new Gtk::CheckButton(_("Show only for this day")), clicked =>sub{$cal_mode =!$cal_mode; gtkset_sensitive($cal,$cal_mode);});
+
+### menus definition
+# the menus are not shown
+# but they provides shiny shortcut like C-q
+my @menu_items = (
+ { path => _("/_File"), type => '<Branch>' },
+ { path => _("/File/_New"), accelerator => _("<control>N"), callback => \&print_hello },
+ { path => _("/File/_Open"), accelerator => _("<control>O"),callback => \&print_hello },
+ { path => _("/File/_Save"), accelerator => _("<control>S"),callback => \&save },
+ { path => _("/File/Save _As") },
+ { path => _("/File/-"),type => '<Separator>' },
+ { path => _("/File/_Quit"), accelerator => _("<control>Q"), callback => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) } },
+ { path => _("/_Options"), type => '<Branch>' },
+ { path => _("/Options/Test") },
+ { path => _("/_Help"),type => '<LastBranch>' },
+ { path => _("/Help/_About...") }
+ );
+my $menubar = get_main_menu( $window );
+######### menus end
+
+
+########## font and colors
+my $n = Gtk::Gdk::Font->fontset_load(_("-misc-fixed-medium-r-*-*-*-100-*-*-*-*-*-*,*"));
+my $b = Gtk::Gdk::Font->fontset_load(_("-misc-fixed-bold-r-*-*-*-100-*-*-*-*-*-*,*"));
+
+#$black = "\033[30m";
+#$red = "\033[31m";
+#$green = "\033[32m";
+#$yellow = "\033[33m";
+#$blue = "\033[34m";
+#$magenta = "\033[35m";
+#$purple = "\033[35m";
+#$cyan = "\033[36m";
+#$white = "\033[37m";
+#$darkgray = "\033[30m";
+
+my $white = my_gtk::gtkcolor(50400, 655, 20000);
+my $black = my_gtk::gtkcolor(0, 0, 0);
+my $red = my_gtk::gtkcolor(0xFFFF, 655, 655);
+my $green = my_gtk::gtkcolor(0x0, 0x9898,0x0);
+my $yellow = my_gtk::gtkcolor(0xFFFF, 0xD7D7, 0);
+my $blue = my_gtk::gtkcolor(655, 655, 0xFFFF);
+my $magenta = my_gtk::gtkcolor(0xFFFF, 655, 0xFFFF);
+my $purple = my_gtk::gtkcolor(0xA0A0, 0x2020, 0xF0F0);
+my $cyan = my_gtk::gtkcolor(0x0, 0x9898, 0x9898);
+my $darkgray = my_gtk::gtkcolor(0x2F2F, 0x4F4F, 0x4F4F);
+
+
+# Define global terms:
+# Define good notables:
+my @word_good=("starting\n", "Freeing", "Detected", "starting.", "accepted.\n", "authenticated.\n", "Ready", "active", "reloading", "saved;", "restarting", "ONLINE\n");
+my @word_warn=("dangling", "closed.\n", "Assuming", "root", "root\n", "exiting\n", "missing", "Ignored", "adminalert:", "deleting", "OFFLINE\n");
+my @word_bad=("bad");
+my @word_note=("LOGIN", "DHCP_OFFER", "optimized", "reset:", "unloaded", "disconnected", "connect", "Successful", "registered\n");
+my @line_good=("up", "DHCP_ACK", "Cleaned", "Initializing", "Starting", "success", "successfully", "alive", "found", "ONLINE\n");
+my @line_warn=("warning:", "WARNING:", "invalid", "obsolete", "bad", "Password", "detected", "timeout", "timeout:", "attackalert:", "wrong", "Lame", "FAILED", "failing", "unknown", "obsolete", "stopped.\n", "terminating.", "disabled\n", "disabled", "Lost");
+my @line_bad=("DENY", "lost", "shutting", "dead", "DHCP_NAK", "failure;", "Unable", "inactive", "terminating", "refused", "rejected", "down", "OFFLINE\n", "error\n", "ERROR\n", "ERROR:", "error", "ERROR", "error:", "failed:");
+
+# Define specifics:
+my @daemons=("named");
+
+# Now define what we want to use when:
+my $col_good = $green;
+my $col_warn = $yellow;
+my $col_bad = $red;
+my $col_note = $purple;
+my $col=$cyan;
+
+######### font and colors end
+
+my %files = (
+ "auth" => { file => "/var/log/auth.log", desc => _("authentification") },
+ "user" => { file => "/var/log/user.log", desc => _("user") },
+ "messages" => { file => "/var/log/messages", desc => _("messages") },
+ "syslog" => { file => "/var/log/syslog", desc => _("syslog") }
+);
+
+#### far from window
+gtkadd($window,
+ gtkpack_(new Gtk::VBox(0,5),
+ 0, _("A tool to monitor your logs"),
+ if_ (!$::isFile, 0, gtkadd(new Gtk::Frame(_("Settings")),
+ gtkpack__(new Gtk::VBox(0,2),
+ gtkpack__(new Gtk::VBox(0,2),
+ # _("Show lines"),
+ gtkpack__(new Gtk::HBox(0,0),
+ " " . _("matching") . " ", $e_yes = new Gtk::Entry(),
+ " " . _("but not matching") . " ", $e_no = new Gtk::Entry()
+ )
+ ),
+ # _("tips: you can use OR"),
+ gtkpack_(new Gtk::HBox(0,0),
+ 1, gtkadd(gtkset_border_width(new Gtk::Frame(_("Choose file")),2),
+ gtkpack (gtkset_border_width(new Gtk::VBox(0,0),0),
+ map { ${"b_". $_} = new Gtk::CheckButton($files{$_}{desc}) } keys %files,
+ )
+ ),
+ 0, gtkadd(gtkset_border_width(new Gtk::Frame(_("Calendar")),2),
+ gtkpack__(gtkset_border_width(new Gtk::VBox(0,0),5),
+ $cal_butt, $cal
+ )
+ )
+ ),
+ gtksignal_connect(new Gtk::Button(_("search")), clicked => \&search)
+ )
+ )
+ ),
+ 1, gtkadd(new Gtk::Frame(_("Content of the file")),
+ createScrolledWindow(my $log_text = new Gtk::Text(undef, undef))
+ ),
+ 0, gtkadd (gtkset_layout(new Gtk::HButtonBox,-end),
+ gtksignal_connect(new Gtk::Button (_("Save")), clicked => \&save),
+ gtksignal_connect(new Gtk::Button ($::isEmbedded ? _("Cancel") : _("Quit")), clicked => sub {$::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0)})
+ )
+
+ )
+
+ );
+
+$::isFile and gtkset_usize($log_text,400,500);
+$window->realize;
+$window->show_all();
+search() if ($::isFile);
+Gtk->main_iteration while Gtk->events_pending;
+$::isEmbedded and kill 'USR2', $::CCPID;
+Gtk->main;
+
+#-------------------------------------------------------------
+# search functions
+#-------------------------------------------------------------
+sub search {
+ $log_text->backward_delete($log_text->get_length());
+ $log_text->freeze();
+ if ($::isFile) {
+ parse_file($::File);
+ } else {
+ foreach (keys %files) {
+ parse_file($files{$_}{file}) if ${$::{"b_". $_}}->active
+ };
+ }
+ $log_text->thaw();
+ Gtk->main_iteration while Gtk->events_pending;
+}
+
+sub parse_file {
+ my $file = $_[0];
+
+ $file =~ s/\.gz$//;
+ my $i=0;
+ gtkadd(my $win_pb = (gtkset_modal new Gtk::Window(), 1),
+ gtkpack(new Gtk::VBox(5,0),
+ " " . _("please wait, parsing file: %s", $files{$_}{desc}) . " ",
+ my $pbar = new Gtk::ProgressBar()
+ )
+ );
+ $win_pb->set_position('center');
+ $win_pb->realize();
+ $win_pb->show_all();
+ my $ey = $e_yes->get_chars(0, -1);
+ my $en = $e_no->get_chars(0, -1);
+ $ey =~ s/ OR /\|/;
+ $ey = $ey .($::Word) if ($::isWord);
+
+ if ($cal_mode) {
+ my ($year, $month, $day) = $cal->get_date();
+ $ey= $months[$month]."\\s{1,2}$day\\s.*$ey.*\n";
+ }
+
+ my @all=catMaybeCompressed ($file);
+ my $taille= @all;
+ foreach (@all) {
+ $i++;
+ if ($i % 10) {
+ $pbar->update($i/$taille);
+ Gtk->main_iteration while Gtk->events_pending;
+ }
+
+ if (($en eq "") and /$ey/i) {logcolorize($_); next}
+ if ((! /$en/i) and /$ey/i) {logcolorize($_); next}
+ if ((! /$en/i) and ($ey eq "")) {logcolorize($_); next}
+ }
+ $win_pb->destroy();
+
+ if ($::isTail) {
+ open F, $file or die "E: $!";
+ while (<F>) {}; #to prevent to output the file twice..
+ $log_text->set_point($log_text->get_length());
+ my $timer = Gtk->timeout_add( 1000, \&input_callback);
+ }
+}
+
+sub input_callback {
+ logcolorize($_) while <F>;
+ seek F, 0, 1;
+}
+
+
+##########################################################################################
+
+sub logcolorize {
+
+ # we get date & time if it is date & time (dmesg)
+ s/(\D{3} .. \d\d:\d\d:\d\d )//;
+ $timestamp=$1;
+ @rec = split;
+
+ log_output($cyan,$timestamp,$b); # date & time if any...
+ log_output(($rec[0] eq $h) ? $blue : $col,"$rec[0] ",$b); # hostname
+
+ if ($rec[1] eq "last") {
+ log_output($green," last message repeated ",$n);
+ log_output($green, $rec[4], $b);
+ log_output($green," times\n",$n);
+ return;
+ }
+ # Extract PID if present
+ if ($rec[1] =~ /\[(\d+)\]\:/) {
+ my($pid) = $1;
+ $rec[1]=~s/\[$1\]\:// ;
+ log_output ($green, $rec[1] ."[",$n);
+ log_output ($black, $pid,$b);
+ log_output ($green, "]: ",$n);
+ }
+ else {
+ log_output($green, $rec[1] ." ",$n);
+ }
+
+
+ for ($therest=(2); $therest<=$#rec; $therest++) {
+ $col=$cyan;
+
+ # Check for keywords to highlight
+ foreach (@word_good) { $col=$col_good if ($_ eq $rec[$therest]);}
+ foreach (@word_warn) { $col=$col_warn if ($_ eq $rec[$therest]);}
+ foreach (@word_bad) { $col=$col_bad if ($_ eq $rec[$therest]);}
+ foreach (@word_note) { $col=$col_note if ($_ eq $rec[$therest]);}
+
+ # Watch for words that indicate entire lines should be highlighted
+ #foreach (@line_good) { $col=$col_good if ($_ eq $rec[$therest]);}
+ #foreach (@line_warn) { $col=$col_warn if ($_ eq $rec[$therest]);}
+ #foreach (@line_bad) { $col=$col_bad if ($_ eq $rec[$therest]);}
+
+ log_output($col,"$rec[$therest] ",$n);
+ }
+ log_output($black,"\n",$n);
+}
+
+
+sub log_output {
+ $log_text->insert($_[2],$_[0], undef,$_[1]);
+}
+
+
+#-------------------------------------------------------------
+# menu callback functions
+#-------------------------------------------------------------
+
+
+sub save {
+ #$file_dialog = new Gtk::FileSelection(_("Save as.."));
+ #$file_dialog->show();
+ $yy= $in->ask_file(_("Save as.."),"/root") or return;
+ output($yy,$log_text->get_chars(0,$log_text->get_length()));
+}
+
+sub print_hello {
+ print( "mcdtg !\n" );
+}
+
+sub get_main_menu {
+ my ($window) = @_;
+
+ my $accel_group = new Gtk::AccelGroup();
+ my $item_factory = new Gtk::ItemFactory( 'Gtk::MenuBar', '<main>', $accel_group );
+ $item_factory->create_items( @menu_items );
+ $window->add_accel_group( $accel_group );
+ return ( $item_factory->get_widget( '<main>' ) );
+}
+
+sub create_dialog {
+ my ($label, $c) = @_;
+ my $ret = 0;
+ my $dialog = new Gtk::Dialog;
+ $dialog->signal_connect ( delete_event => sub {Gtk->main_quit();});
+ $dialog->set_title(_("logdrake"));
+ $dialog->border_width(10);
+ $dialog->vbox->pack_start(new Gtk::Label($label),1,1,0);
+
+ my $button = new Gtk::Button _("OK");
+ $button->can_default(1);
+ $button->signal_connect(clicked => sub { $ret=1; $dialog->destroy(); Gtk->main_quit(); });
+ $dialog->action_area->pack_start($button, 1, 1, 0);
+ $button->grab_default;
+
+ if ($c) {
+ my $button2 = new Gtk::Button _("Cancel");
+ $button2->signal_connect(clicked => sub { $ret=0; $dialog->destroy(); Gtk->main_quit(); });
+ $button2->can_default(1);
+ $dialog->action_area->pack_start($button2, 1, 1, 0);
+ }
+
+ $dialog->show_all;
+ Gtk->main();
+ $ret;
+}
+
+sub destroy_window {
+ my($widget, $windowref, $w2) = @_;
+ $$windowref = undef;
+ $w2 = undef if defined $w2;
+ 0;
+}
+
+
+# log
+# $Log$
+# Revision 1.1 2001/12/13 15:47:23 yduret
+# moving from soft/control-center to here, since there will be a console based version
+#
+# Revision 1.29 2001/09/15 15:44:22 siegel
+# added missing space in "matching" line
+#
+# Revision 1.28 2001/09/15 15:34:55 siegel
+# added missing _()
+#
+# Revision 1.27 2001/09/05 16:07:22 warly
+# fix regexp for day matching
+#
+# Revision 1.26 2001/09/03 20:34:37 yduret
+# remove ok boutton taht does nothing !
+#
+# Revision 1.25 2001/09/03 20:27:29 yduret
+# fix proper call to kill 'USRx'
+#
+# Revision 1.24 2001/09/03 20:26:25 yduret
+# fix
+#
+# Revision 1.23 2001/08/28 15:43:01 yduret
+# fix window size in embedded mode
+#
+# Revision 1.22 2001/08/27 12:22:03 yduret
+# back from chamonix
+#
+# Revision 1.21 2001/08/20 15:04:55 siegel
+# added "Gtk->set_locale;"
+#
+# Revision 1.20 2001/08/18 19:46:35 siegel
+# made i18n UTF8 compliant
+#
+# Revision 1.19 2001/08/13 09:57:55 yduret
+# added a timeout to watch file
+#
+# Revision 1.18 2001/08/10 10:36:17 yduret
+# fixes
+#
+# Revision 1.17 2001/08/10 10:20:53 yduret
+# calendar added more
+#
+# Revision 1.16 2001/08/10 09:28:35 yduret
+# added calendar functionnality
+#
+# Revision 1.15 2001/08/10 01:46:05 yduret
+# corrected vnew usage (thc gc)
+#
+# Revision 1.14 2001/08/06 14:58:12 yduret
+# added isFile mode for daminounet
+#
+# Revision 1.13 2001/08/03 05:49:10 yduret
+# really fixed bug when embeded in mcc
+# use plain english instead of bad french
+#
+# Revision 1.12 2001/08/02 08:28:18 pablo
+# update pot file, s/ :/:/ for English text
+#
+# Revision 1.11 2001/08/01 19:06:05 yduret
+# pour boblack
+#
+# Revision 1.10 2001/08/01 17:30:21 yduret
+# added mapping..
+#
+# Revision 1.9 2001/08/01 13:19:14 yduret
+# ask_many_from_list
+#
+# Revision 1.8 2001/07/19 13:24:54 pablo
+# updated Croatian file
+#
+# Revision 1.7 2001/07/16 16:48:21 yduret
+# update
+#
+# Revision 1.6 2001/07/03 19:40:48 pablo
+# updated Danish file,
+# i18n'd logdrake
+#
+# Revision 1.5 2001/07/03 08:54:43 yduret
+# powered by DrakX technologie
+#
+# Revision 1.4 2001/07/02 09:47:55 yduret
+# fix bug in regexp
+#
+# Revision 1.3 2001/06/29 16:14:01 yduret
+# great upgrade
+#
+# Revision 1.2 2001/06/28 10:50:27 yduret
+# full support of color
+#
+# Revision 1.1 2001/06/27 09:22:59 yduret
+# added it..
+#