diff options
Diffstat (limited to 'perl-install/standalone/logdrake')
| -rwxr-xr-x | perl-install/standalone/logdrake | 681 |
1 files changed, 0 insertions, 681 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake deleted file mode 100755 index 3d9c2b8ab..000000000 --- a/perl-install/standalone/logdrake +++ /dev/null @@ -1,681 +0,0 @@ -#! /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 standalone; #- warning, standalone must be loaded very first, for 'explanations' - -use interactive; -use any; -use Config; -init Gtk; -Gtk->set_locale; -use my_gtk qw(:helpers :wrappers); - -use MDK::Common; -use Data::Dumper; -#------------------------------------------------------------- -# 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) -#------------------------------------------------------------- - -{ - no warnings; - sub _ { - my $s = shift @_; my $t = translate($s); - sprintf $t, @_; - } - - no warnings; - 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] [--explain=regexp] [--alert]'; - /^--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(); }; -} - -$::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 the selected 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 => \&quit }, - { 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"; -#$col_norm = "\033[00m"; -#$col_background = "\033[07m"; -#$col_brighten = "\033[01m"; -#$col_underline = "\033[04m"; -#$col_blink = "\033[05m"; - -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 => _("Authentication") }, - "user" => { file => "/var/log/user.log", desc => _("User") }, - "messages" => { file => "/var/log/messages", desc => _("Messages") }, - "syslog" => { file => "/var/log/syslog", desc => _("Syslog") }, - "explanations" => { file => "/var/log/explanations", desc => _("Mandrake Tools Explanations")} -); - -my $yy=gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("search")) , clicked => \&search),0); -my $log_text = new Gtk::Text(undef, undef); -my $refcount_search; -#### far from window -gtkadd($window, - gtkpack_(new Gtk::VBox(0,5), - if_(!$::isExplain, 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() - ) - ), - 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_". $_} = gtksignal_connect(new Gtk::CheckButton($files{$_}{desc}), clicked=> sub{$refcount_search++;gtkset_sensitive($yy,$refcount_search)}) } 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 - ) - ) - ), - $yy, - ) - ) - ), - !$::isExplain ? (1, gtkadd(new Gtk::Frame(_("Content of the file")), - createScrolledWindow($log_text) - )) : (1, $log_text), - if_(!$::isExplain, 0, gtkadd (gtkset_border_width(gtkset_layout(new Gtk::HButtonBox,-end), 5), - if_ (!$::isFile, gtksignal_connect(new Gtk::Button (_("Mail/SMS alert")), clicked => sub {eval {alert_config()}; - if ($@ =~ /wizcancel/) { - $::Wizard_no_previous = 1; - $::Wizard_no_cancel = 1; - #$::Wizard_finished = 1; -# undef $::isWizard; - $::WizardWindow->destroy if defined $::WizardWindow; - undef $::WizardWindow; -}; })), - gtksignal_connect(new Gtk::Button (_("Save")), clicked => \&save), - gtksignal_connect(new Gtk::Button ($::isEmbedded ? _("Cancel") : _("Quit")), clicked => \&quit) - ) - ) - ) - - ); - -$::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; - -sub quit { -$::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0); -} - -#------------------------------------------------------------- -# 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 =~ s/^\*$//; - $en =~ s/^\*$/.*/; - $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); - - 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; - 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]); -} - - -#------------------------------------------------------------- -# mail/sms alert -#------------------------------------------------------------- - -sub alert_config { - - $::isWizard = 1; - $::Wizard_pix_up = "wiz_drakgw.png"; # FIXME - $::Wizard_title = _("Mail/SMS alert"); - -my $cron =q(#!/usr/bin/perl -# generated by logdrake -use MDK::Common; -my $r= "*** ". chomp_(`date`) . " ***\n"; - -); - - my ($load,$mail,$email,$smtp,$sms,$smssend); - $load=3; - - begin: - $::Wizard_finished = 0; - $::Wizard_no_previous = 1; - $in->ask_okcancel(_("Mail/SMS alert configuration"), - _("Welcome to the mail/SMS configuration utility.\n\nHere, you'll be able to set up the alert system.\n"), - 1) or quit(); - - step_service: - undef $::Wizard_no_previous; - my $l ={ - http => ["/etc/init.d/httpd", _("Apache is a World Wide Web server. It is used to serve HTML files and CGI."), '$r .= "Apache is not running\n" if (`[ -x /etc/init.d/httpd ] && LC_ALL=C /etc/init.d/httpd status` =~ /\*not\* running/);'], - bind => ["/etc/init.d/named", _("named (BIND) is a Domain Name Server (DNS) that is used to resolve host names to IP addresses."), ], - ftp => ["/etc/init.d/proftpd", _("proftpd"), '$r .= "FTP server (proftpd) is not running\n" unless (`[ -x /etc/init.d/proftpd ] && /etc/init.d/proftpd status 2>&1 > /dev/null`);'], - postfix => ["/etc/init.d/postfix", _("Postfix is a Mail Transport Agent, which is the program that moves mail from one machine to another."), '$r .= "Postfix is not running\n" unless (`[ -x /etc/init.d/postfix ] && LC_ALL=C /etc/init.d/postfix status`);'], - samba => ["/etc/init.d/smb", ("samba"), '$r .= "samba is not running\n" unless (`[ -x /etc/init.d/smb ] && LC_ALL=C /etc/init.d/smb status`);'], - sshd => ["/etc/init.d/sshd", _("sshd"), '$r .= "sshd is not running\n" unless (`[ -x /etc/init.d/sshd ] && LC_ALL=C /etc/init.d/sshd status`);'], - webmin => ["/etc/init.d/webmin", _("webmin"), '$r .= "webmin is not running\n" unless (`[ -x /etc/init.d/webmin ] && LC_ALL=C /etc/init.d/webmin status`);'], - xinetd=> ["/etc/init.d/xinetd", _("xinetd"), '$r .= "xinetd is not running\n" unless (`[ -x /etc/init.d/xinetd ] && LC_ALL=C /etc/init.d/yxinetd status`);'], - }; - - $in->ask_from(_("service setting"), - _("You will receive an alert if one of the selected service is no more running"), - [ map { {label => "$_", val=> \${$_}, type => "bool", text => "$l->{$_}[1]" }; } keys %$l - ]) or goto begin; - - $cron .= "#- check services\n"; - for (keys %$l) { - $cron .= $l->{$_}[2]."\n" if (${$_}); - } - - step_load: - $in->ask_from(_("load setting"), - _("You will receive an alert if the load is higher than this value"), - [ - { label => "load ", val => \$load, type => 'range', min => 1, max => 50 }, - ]) or goto step_service; - - $cron .= q@ -#- load -my ($load) = split ' ', first(cat_("/proc/loadavg")); -$r .= "Load is huge: $load\n" if ($load >@ . "$load);\n\n"; - - step_output: - $::Wizard_no_previous = 1; - $::Wizard_finished = 1; - $in->ask_from(_("alert configuration"), - _("Configure the way the system will alert you"), - [ - { label => "mail", val => \$mail, type => "bool", text => "mail output" }, - { label => "email", val => \$email, disabled => sub { !$mail; }}, - #{ label => "smtp", val => \$smtp, disabled => sub { !$mail; } }, - { label => "" }, - { label => "sms output", val => \$sms, type => "bool", text => "You need to have smsend set up (works only for some countries)" }, - { label => "smssend output", val => \$smssend , disabled => sub {!$sms;}}, - ]) or goto step_load; - -#output("/etc/cron.hourly/logdrake_alert.pl", ($cron)); - $cron .= q@#- report it@; - if ($mail) { - $cron .= q! -open F, '|/usr/sbin/sendmail -oi -t'; - -print F -q(Subject: logdrake Mail Alert -From: root@localhost -To: ), "$email\n"; -print F $r; - -# EOF!; - } elsif ($sms) { - $in->do_pkgs->install('smssend'); - $cron .= q!system(smssend !, $smssend, q! chomp_(`date`));! - } - - undef $::isWizard; - $::WizardWindow->destroy if defined $::WizardWindow; - undef $::WizardWindow; - -} - - -#------------------------------------------------------------- -# 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.15 2002/03/14 18:09:12 yduret -# fix some bug -# -# Revision 1.14 2002/03/14 12:25:43 yduret -# fix * bug in field matching/ not matching -# -# Revision 1.13 2002/03/05 06:56:27 yduret -# mail alert: use eval {} to catch wizcancel -# -# Revision 1.12 2002/02/20 10:50:37 damien -# cosmetic change, mcc compliance -# -# Revision 1.11 2002/02/05 11:26:29 damien -# wizard updated -# -# Revision 1.10 2002/02/05 11:16:28 damien -# correction for mcc. -# -# Revision 1.9 2002/02/04 14:02:14 damien -# corrected typo. Yvounet, check your code!! -# -# Revision 1.8 2002/02/04 14:00:52 damien -# embedded, explain -# -# Revision 1.7 2002/02/01 22:59:27 yduret -# ergo fix thx dadou report -# -# Revision 1.6 2002/02/01 18:10:06 yduret -# fix --explain=foo bug that prevent to show anything -# -# Revision 1.5 2002/02/01 10:01:39 pablo -# changed some strings to make translation easier -# -# Revision 1.4 2002/01/29 23:19:31 yduret -# logdrake is now under gi/perl-install/standalone -# -# Revision 1.32 2002/01/27 20:47:58 yduret -# updated, added button in logdrake main screen, bug fix -# -# Revision 1.31 2002/01/27 01:58:23 yduret -# added --alert feature -# -# Revision 1.30 2002/01/26 20:42:30 yduret -# --explain= feature -# -# 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.. -# |