summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/logdrake52
1 files changed, 30 insertions, 22 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index b06cad84f..a815104ed 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -58,6 +58,7 @@ use Data::Dumper;
$::isInstall and die "Not supported during install.\n";
my $in = 'interactive'->vnew('su', 'default');
+my $cron_hourly = "/etc/cron.hourly/logdrake_service";
if ($::isEmbedded) {
print "EMBED\n";
@@ -433,10 +434,9 @@ my $initdir = "/etc/init.d";
]) or goto begin;
$cron .= "#- check services\n";
- for (keys %$service) {
-# $cron .= $l->{ $_ }[2]."\n" if (${ $_ });
- if(!-e "/var/lock/subsys/$_") { $r .= "Service $_ ($service->{ $_ } is not running\n" };
- $cron .= "$r" if ${ $_ }; # take a look at this, don't know what is done here
+ foreach (@installed_d) {
+ if(!-e "/var/lock/subsys/$_") { $r .= "Service $_ ($service->{$_} is not running\n" };
+# $cron .= "$r" if ${ $_ }; # take a look at this, don't know what is done here
}
step_load:
@@ -462,11 +462,10 @@ $r .= "Load is huge: $load\n" if ($load >@ . "$load);\n\n";
{ 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 } },
+# { 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!
@@ -479,10 +478,16 @@ To: ), "$email\n";
print F $r;
# EOF!;
- } elsif ($sms) {
- $in->do_pkgs->install('smssend');
- $cron .= q!system(smssend !, $smssend, q! chomp_(`date`));
- }
+ output "$cron_hourly", $cron;
+ chmod 0755, $cron_hourly;
+ }
+
+ print ("whole cron is ****** $cron *******\n");
+
+#elsif ($sms) {
+ #$in->do_pkgs->install('smssend');
+ # $cron .= q!system(smssend !, $smssend, q!chomp_(`date`));
+#}
undef $::isWizard;
$::WizardWindow->destroy if defined $::WizardWindow;
@@ -503,18 +508,13 @@ sub save {
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>'));
+ 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 {
@@ -554,6 +554,14 @@ sub destroy_window {
# log
# $Log$
+# Revision 1.20 2002/08/02 17:10:01 daouda
+# - disable sms alerts (free sms site too complicated to
+# handle). Postponed
+# - mail service should work now
+# - clean up code
+# - give the correct right to cron file to work correctly
+# - fix titi mess
+#
# Revision 1.19 2002/08/01 17:24:58 tvignaud
# perl_checker fixes
#