![[tokkee]](http://tokkee.org/images/avatar.png){kind=avatar}
index ec01c4467d1008eb2bfbfa035496d1b323c7807f..4a304eb9304d70b99dacfe85499e0cc500b97b43 100644 (file)
+
+=head1 NAME
+
+gosaTriggered.pm
+
+=head1 SYNOPSIS
+
+use GOSA::GosaSupportDaemon;
+
+use MIME::Base64
+
+=head1 DESCRIPTION
+
+This module contains all GOsa-SI-client processing instructions concerning actions controllable from GOsa.
+
+=head1 VERSION
+
+Version 1.0
+
+=head1 AUTHOR
+
+Andreas Rettenberger <rettenberger at gonicus dot de>
+
+=head1 FUNCTIONS
+
+=cut
+
package gosaTriggered;
+
+use strict;
+use warnings;
+
+use MIME::Base64;
+use File::Temp qw/ tempfile/;
+use GOsaSI::GosaSupportDaemon;
+
use Exporter;
-@ISA = qw(Exporter);
+
+our @ISA = qw(Exporter);
+
my @events = (
"get_events",
+ "usr_msg",
"trigger_action_localboot",
"trigger_action_halt",
"trigger_action_faireboot",
"trigger_action_reboot",
- "trigger_action_memcheck",
"trigger_action_reinstall",
"trigger_action_update",
"trigger_action_instant_update",
- "trigger_action_sysinfo",
- "trigger_action_rescan",
+ "trigger_goto_settings_reload",
);
-@EXPORT = @events;
-
-use strict;
-use warnings;
-use utf8;
-use GOSA::GosaSupportDaemon;
+
+our @EXPORT = @events;
BEGIN {}
END {}
+### Parameter declarations ###################################################
+my $userNotification;
+my %cfg_defaults = (
+"client" => {
+ "user-notification-of-admin-activities" => [\$userNotification, 'true'],
+ },
+);
+
+# Read config file
+&read_configfile($main::cfg_file, %cfg_defaults);
+
+###############################################################################
+=over
+
+=item B<get_events ()>
+
+=over
+
+=item description
+
+ Reports all provided functions.
+
+=item parameter
+
+ None.
+
+=item return
+
+ \@events - ARRAYREF - array containing all functions
+
+=back
+
+=back
+=cut
+###############################################################################
sub get_events { return \@events; }
+###############################################################################
+=over
+
+=item B<usr_msg ($$)>
+
+=over
+
+=item description
+
+ Executes '/usr/bin/goto-notify' wich displays the message, subject und receiver at screen
+
+=item parameter
+
+ $msg - STRING - complete GOsa-si message
+ $msg_hash - HASHREF - content of GOsa-si message in a hash
+
+=item GOsa-si message xml content
+
+ <to> - STRING - username message should be deliverd to
+ <subject> - STRING - subject of the message, base64 encoded
+ <message> - STRING - message itself, base64 encoded
+
+=item return
+
+ $out_msg - STRING - GOsa-si valid xml message, feedback that message was deliverd
+
+=back
+
+=back
+
+=cut
+###############################################################################
+sub usr_msg {
+ my ($msg, $msg_hash) = @_;
+ my $header = @{$msg_hash->{'header'}}[0];
+ my $source = @{$msg_hash->{'source'}}[0];
+ my $target = @{$msg_hash->{'target'}}[0];
+
+ my $to = @{$msg_hash->{'usr'}}[0];
+ my $subject = &decode_base64(@{$msg_hash->{'subject'}}[0]);
+ my $message = &decode_base64(@{$msg_hash->{'message'}}[0]);
+
+ my ($rand_fh, $rand_file) = tempfile( SUFFIX => '.goto_notify');
+ print $rand_fh "source:$source\ntarget:$target\nusr:$to\nsubject:".@{$msg_hash->{'subject'}}[0]."\nmessage:".@{$msg_hash->{'message'}}[0]."\n";
+ close $rand_fh;
+
+ my $feedback = system("/usr/bin/goto-notify user-message '$to' '$subject' '$message' '$rand_file' &" );
+
+ return
+}
+
+
+###############################################################################
+=over
+
+=item B<trigger_action_localboot ($$)>
+
+=over
+
+=item description
+
+ Executes '/sbin/shutdown -r' if no user is logged in otherwise write
+ 'trigger_action_localboot' to '/etc/gosa-si/event'
+
+=item parameter
+
+ $msg - STRING - complete GOsa-si message
+ $msg_hash - HASHREF - content of GOsa-si message in a hash
+
+=item GOsa-si message xml content
+
+ <timeout> - INTEGER - timeout to wait befor restart, default 0
+
+=item return
+
+ Nothing.
+
+=back
+
+=back
+
+=cut
+###############################################################################
sub trigger_action_localboot {
my ($msg, $msg_hash) = @_;
my $timeout;
+ # Invalid timeout parameter are set to 0
if((not exists $msg_hash->{timeout} ) || (1 != @{$msg_hash->{timeout}} ) ) {
$timeout = -1;
- }
- else {
+ } else {
$timeout = @{$msg_hash->{timeout}}[0];
}
- # check logged in user
- my $logged_in_user = 1;
- if( $logged_in_user ) {
- # TODO do something
- }
- else {
- $timeout = 0;
- }
-
- # execute function
- if( $timeout == 0 ) {
- print STDERR ("shutdown -r +$timeout\n");
- }
- elsif( $timeout > 0 ) {
- print STDERR ("shutdown -r +$timeout\n");
- }
- elsif( $timeout < 0 ) {
- print STDERR "The administrator has sent a signal to reboot this workstation. It will reboot after you've logged out.\n";
- open(FILE, "> /etc/gosa-si/event");
- print FILE "trigger_action_localboot\n";
- close(FILE);
- }
+ # Check if user should be notificated or not
+ if ($userNotification eq "true") {
+ # Check logged in user
+ my @user_list = &get_logged_in_users;
+ if( @user_list >= 1 ) {
+ open(my $FILE, ">", "/etc/gosa-si/event");
+ print $FILE "trigger_action_localboot\n";
+ close($FILE);
+ }
+ }
else {
- # TODO do something, error handling, logging
+ system( "/sbin/shutdown -r +$timeout &" );
}
return;
}
+###############################################################################
+=over
+
+=item B<trigger_action_faireboot ($$)>
+
+=over
+
+=item description
+
+ Executes '/usr/sbin/faireboot'.
+
+=item parameter
+
+ $msg - STRING - complete GOsa-si message
+ $msg_hash - HASHREF - content of GOsa-si message in a hash
+
+=item GOsa-si message xml content
+
+ None.
+
+=item return
+
+ Nothing.
+
+=back
+
+=back
+
+=cut
+###############################################################################
sub trigger_action_faireboot {
my ($msg, $msg_hash) = @_;
+ &main::daemon_log("DEBUG: run /usr/sbin/faireboot\n", 7);
system("/usr/sbin/faireboot");
return;
}
+###############################################################################
+=over
+
+=item B<trigger_action_reboot ($$)>
+
+=over
+
+=item description
+
+ Executes '/usr/bin/goto-notify reboot' and '/sbin/shutdown -r' if no
+ user is logged in otherwise write 'reboot' to '/etc/gosa-si/event'
+
+=item parameter
+
+ $msg - STRING - complete GOsa-si message
+ $msg_hash - HASHREF - content of GOsa-si message in a hash
+
+=item GOsa-si message xml content
+
+ <timeout> - INTEGER - timeout to wait befor reboot, default 0
+
+=item return
+
+ Nothing.
+
+=back
+
+=back
+
+=cut
+###############################################################################
sub trigger_action_reboot {
my ($msg, $msg_hash) = @_;
my $timeout;
+ # Invalid timeout parameter are set to 0
if((not exists $msg_hash->{timeout} ) || (1 != @{$msg_hash->{timeout}} ) ) {
- $timeout = -1;
+ $timeout = 0;
}
else {
$timeout = @{$msg_hash->{timeout}}[0];
}
- # check logged in user
- my @user_list = &get_logged_in_users;
- if( @user_list >= 1 ) {
- # TODO do something
- }
+ # Check if user should be notificated or not
+ if ($userNotification eq "true") {
+ # Check logged in user
+ my @user_list = &get_logged_in_users;
+ if( @user_list >= 1 ) {
+ system( "/usr/bin/goto-notify reboot" );
+ open(my $FILE, ">", "/etc/gosa-si/event");
+ print $FILE "reboot\n";
+ close($FILE);
+ }
+ }
else {
- $timeout = 0;
- }
-
- # execute function
- if( $timeout == 0 ) {
- print STDERR ("shutdown -r +$timeout\n");
- }
- elsif( $timeout > 0 ) {
- print STDERR ("shutdown -r +$timeout\n");
- }
- elsif( $timeout < 0 ) {
- print STDERR "The administrator has sent a signal to reboot this workstation. It will reboot after you've logged out.\n";
- open(FILE, "> /etc/gosa-si/event");
- print FILE "trigger_action_reboot\n";
- close(FILE);
- }
- else {
- # TODO do something, error handling, logging
+ system( "/sbin/shutdown -r +$timeout &" );
}
return;
+}
-
+###############################################################################
+=over
- print STDERR "jetzt würde ich trigger_action_reboot ausführen\n";
- return;
-}
+=item B<trigger_action_halt ($$)>
+
+=over
+
+=item description
+
+ Executes '/usr/bin/goto-notify halt' and '/sbin/shutdown -h' if no
+ user is logged in otherwise write 'halt' to '/etc/gosa-si/event'
+
+=item parameter
+
+ $msg - STRING - complete GOsa-si message
+ $msg_hash - HASHREF - content of GOsa-si message in a hash
+
+=item GOsa-si message xml content
+
+ <timeout> - INTEGER - timeout to wait befor halt, default 0
+
+=item return
+
+ Nothing.
+
+=back
+=back
+=cut
+###############################################################################
sub trigger_action_halt {
my ($msg, $msg_hash) = @_;
my $timeout;
+ # Invalid timeout parameter are set to 0
if((not exists $msg_hash->{timeout} ) || (1 != @{$msg_hash->{timeout}} ) ) {
- $timeout = -1;
+ $timeout = 0;
}
else {
$timeout = @{$msg_hash->{timeout}}[0];
}
- # check logged in user
- my $logged_in_user = 1;
- if( $logged_in_user ) {
- # TODO do something
- }
- else {
- $timeout = 0;
- }
-
- # execute function
- if( $timeout == 0 ) {
- print STDERR ("shutdown -h +$timeout\n");
- }
- elsif( $timeout > 0 ) {
- print STDERR ("shutdown -h +$timeout\n");
- }
- elsif( $timeout < 0 ) {
- print STDERR "The administrator has sent a signal to shutdown this workstation. It will shutdown after you've logged out.\n";
- open(FILE, "> /etc/gosa-si/event");
- print FILE "trigger_action_halt\n";
- close(FILE);
- }
- else {
- # TODO do something, error handling, logging
+ # Check if user should be notificated or not
+ if ($userNotification eq "true") {
+ # Check logged in user
+ my @user_list = &get_logged_in_users;
+ if( @user_list >= 1 ) {
+ system( "/usr/bin/goto-notify halt" );
+ open(my $FILE, ">", "/etc/gosa-si/event");
+ print $FILE "halt\n";
+ close($FILE);
+ }
+ } else {
+ system( "/sbin/shutdown -h +$timeout &" );
}
return;
}
-# TODO
-sub trigger_action_memcheck {
- my ($msg, $msg_hash) = @_ ;
- print STDERR "\n\njetzt würde ich trigger_action_memcheck ausführen\n\n";
- return;
-}
+###############################################################################
+=over
+=item B<trigger_action_reinstall>
-sub trigger_action_reinstall {
- my ($msg, $msg_hash) = @_;
- my $timeout;
+=over
- # check timeout
- if((not exists $msg_hash->{timeout} ) || (1 != @{$msg_hash->{timeout}} ) ) {
- $timeout = -1;
- }
- else {
- $timeout = @{$msg_hash->{timeout}}[0];
- }
+=item description
- # check logged in user
- my $logged_in_user = 1;
- if( $logged_in_user ) {
- # TODO do something
- }
- else {
- $timeout = 0;
- }
+ Executes '/usr/bin/goto-notify install' and '/sbin/shutdown -r now' if no
+ user is logged in otherwise write 'install' to '/etc/gosa-si/event'
- # execute function
- if( $timeout == 0 ) {
- print STDERR ("shutdown -r +$timeout\n");
- }
- elsif( $timeout > 0 ) {
- print STDERR ("shutdown -r +$timeout\n");
+=item parameter
- }
- elsif( $timeout < 0 ) {
- print STDERR "The administrator has sent a signal to reinstall this workstation. It will reinstall after you've logged out.\n";
- open(FILE, "> /etc/gosa-si/event");
- print FILE "trigger_action_reinstall\n";
- close(FILE);
- }
- else {
- # TODO do something, error handling, logging
- }
+ $msg - STRING - complete GOsa-si message
+ $msg_hash - HASHREF - content of GOsa-si message in a hash
+
+=item GOsa-si message xml content
+
+ None.
+
+=item return
+
+ Nothing.
+
+=back
+
+=back
+
+=cut
+###############################################################################
+sub trigger_action_reinstall {
+ my ($msg, $msg_hash) = @_;
+
+ # Check if user should be notificated or not
+ if ($userNotification eq "true") {
+ # Check logged in user
+ my @user_list = &get_logged_in_users;
+ if( @user_list >= 1 ) {
+ system( "/usr/bin/goto-notify install" );
+ open(my $FILE, ">", "/etc/gosa-si/event");
+ print $FILE "install\n";
+ close($FILE);
+ }
+ } else {
+ system( "/sbin/shutdown -r now &" );
+ }
return;
}
+###############################################################################
+=over
+
+=item B<trigger_action_updae>
+
+=over
+
+=item description
+
+ Executes 'DEBIAN_FRONTEND=noninteractive /usr/sbin/fai-softupdate &'
+
+=item parameter
+
+ $msg - STRING - complete GOsa-si message
+ $msg_hash - HASHREF - content of GOsa-si message in a hash
+
+=item GOsa-si message xml content
+
+ None.
+
+=item return
+
+ Nothing
+
+=back
+
+=back
+
+=cut
+###############################################################################
+# Backward compatibility
sub trigger_action_update {
my ($msg, $msg_hash) = @_;
- # execute function
- open(FILE, "> /etc/gosa-si/event");
- print FILE "trigger_action_reinstall\n";
- close(FILE);
-
- # check logged in user
- my $logged_in_user = 1;
- if( $logged_in_user ) {
- print STDERR "This system has been sent a signal for an update. The update will take place after you log out.\n";
- }
- else {
- # not jet
- #system( "DEBIAN_FRONTEND=noninteractive /usr/sbin/fai -N softupdate &" )
- }
+ # Execute update
+ system( "DEBIAN_FRONTEND=noninteractive /usr/sbin/fai-softupdate &" );
return;
}
-sub trigger_action_instant_update {
- my ($msg, $msg_hash) = @_;
+###############################################################################
+=over
- # check logged in user
- my $logged_in_user = 1;
- if( $logged_in_user ) {
- print STDERR "This system has been sent a signal for an update. The update will take place now.\n";
- }
+=item B<trigger_action_instant_update ($$)>
- # not jet
- #system( "DEBIAN_FRONTEND=noninteractive /usr/sbin/fai -N softupdate &" )
+=over
- return;
-}
+=item description
+
+ Executes 'DEBIAN_FRONTEND=noninteractive /usr/sbin/fai-softupdate &'
+
+=item parameter
+ $msg - STRING - complete GOsa-si message
+ $msg_hash - HASHREF - content of GOsa-si message in a hash
-# TODO
-sub trigger_action_sysinfo {
+=item GOsa-si message xml content
+
+ None.
+
+=item return
+
+ Nothing.
+
+=back
+
+=back
+
+=cut
+###############################################################################
+# Backward compatibility
+sub trigger_action_instant_update {
my ($msg, $msg_hash) = @_;
- print STDERR "jetzt würde ich trigger_action_sysinfo ausführen\n";
+
+ # Execute update
+ system( "DEBIAN_FRONTEND=noninteractive /usr/sbin/fai-softupdate &" );
+
return;
}
-# TODO
-sub trigger_action_rescan{
+sub trigger_goto_settings_reload {
my ($msg, $msg_hash) = @_;
- print STDERR "jetzt würde ich trigger_action_rescan ausführen\n";
+
+ # Execute goto settings reload
+ my $cmd = "/etc/init.d/goto-agents";
+ my $pram = "start";
+ if (-f $cmd){
+ my $feedback = system("$cmd $pram") or &main::daemon_log("ERROR: $@");
+ } else {
+ &main::daemon_log("ERROR: cannot exec $cmd, file not found!");
+ }
+
return;
}
+
1;