index d6efde3b8345173aa241b1f8e7a683a177d53a25..789996d3b0577ad6e936608d4dbdf2419f403e77 100644 (file)
@ISA = qw(Exporter);
my @events = (
"get_events",
@ISA = qw(Exporter);
my @events = (
"get_events",
+ "usr_msg",
"trigger_action_localboot",
"trigger_action_halt",
"trigger_action_faireboot",
"trigger_action_reboot",
"trigger_action_localboot",
"trigger_action_halt",
"trigger_action_faireboot",
"trigger_action_reboot",
- "trigger_action_memcheck",
+# "trigger_action_memcheck", # not yet implemented
"trigger_action_reinstall",
"trigger_action_update",
"trigger_action_instant_update",
"trigger_action_reinstall",
"trigger_action_update",
"trigger_action_instant_update",
- "trigger_action_sysinfo",
- "trigger_action_rescan",
+# "trigger_action_sysinfo", # not yet implemented
);
@EXPORT = @events;
use strict;
use warnings;
);
@EXPORT = @events;
use strict;
use warnings;
-use utf8;
-
+use GOSA::GosaSupportDaemon;
+use Data::Dumper;
+use MIME::Base64;
BEGIN {}
BEGIN {}
sub get_events { return \@events; }
sub get_events { return \@events; }
+sub usr_msg {
+ my ($msg, $msg_hash) = @_;
+
+
+ my $to = @{$msg_hash->{'usr'}}[0];
+ my $subject = &decode_base64(@{$msg_hash->{'subject'}}[0]);
+ my $message = &decode_base64(@{$msg_hash->{'message'}}[0]);
+ system( "/usr/bin/goto-notify user-message '$to' '$subject' '$message'" );
+
+ # give gosa-si-server feedback, that msg was received
+ $msg =~ s/<header>usr_msg<\/header>/<header>confirm_usr_msg<\/header>/g;
+ return $msg;
+}
+
sub trigger_action_localboot {
my ($msg, $msg_hash) = @_;
sub trigger_action_localboot {
my ($msg, $msg_hash) = @_;
sub trigger_action_faireboot {
my ($msg, $msg_hash) = @_;
sub trigger_action_faireboot {
my ($msg, $msg_hash) = @_;
+ &main::daemon_log("DEBUG: run /usr/sbin/faireboot\n", 7);
system("/usr/sbin/faireboot");
return;
}
sub trigger_action_reboot {
system("/usr/sbin/faireboot");
return;
}
sub trigger_action_reboot {
- my ($msg, $msg_hash) = @_;
- print STDERR "jetzt würde ich trigger_action_reboot ausführen\n";
- return;
-}
-
-
-sub trigger_action_halt {
my ($msg, $msg_hash) = @_;
my $timeout;
if((not exists $msg_hash->{timeout} ) || (1 != @{$msg_hash->{timeout}} ) ) {
my ($msg, $msg_hash) = @_;
my $timeout;
if((not exists $msg_hash->{timeout} ) || (1 != @{$msg_hash->{timeout}} ) ) {
- $timeout = -1;
+ $timeout = 0;
}
else {
$timeout = @{$msg_hash->{timeout}}[0];
}
# check logged in user
}
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";
+ my @user_list = &get_logged_in_users;
+ if( @user_list >= 1 ) {
+ system( "/usr/bin/goto-notify reboot" );
open(FILE, "> /etc/gosa-si/event");
open(FILE, "> /etc/gosa-si/event");
- print FILE "trigger_action_halt\n";
+ print FILE "reboot\n";
close(FILE);
}
else {
close(FILE);
}
else {
- # TODO do something, error handling, logging
+ system( "/sbin/shutdown -r +$timeout &" );
}
return;
}
}
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;
-}
-
-
-sub trigger_action_reinstall {
+sub trigger_action_halt {
my ($msg, $msg_hash) = @_;
my $timeout;
my ($msg, $msg_hash) = @_;
my $timeout;
- # check timeout
if((not exists $msg_hash->{timeout} ) || (1 != @{$msg_hash->{timeout}} ) ) {
if((not exists $msg_hash->{timeout} ) || (1 != @{$msg_hash->{timeout}} ) ) {
- $timeout = -1;
- }
+ $timeout = 0;
+ }
else {
$timeout = @{$msg_hash->{timeout}}[0];
}
# check logged in user
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 reinstall this workstation. It will reinstall after you've logged out.\n";
+ my @user_list = &get_logged_in_users;
+ if( @user_list >= 1 ) {
+ system( "/usr/bin/goto-notify halt" );
open(FILE, "> /etc/gosa-si/event");
open(FILE, "> /etc/gosa-si/event");
- print FILE "trigger_action_reinstall\n";
+ print FILE "halt\n";
close(FILE);
}
else {
close(FILE);
}
else {
- # TODO do something, error handling, logging
+ system( "/sbin/shutdown -h +$timeout &" );
}
return;
}
}
return;
}
-sub trigger_action_update {
+sub trigger_action_reinstall {
my ($msg, $msg_hash) = @_;
my ($msg, $msg_hash) = @_;
- # execute function
- open(FILE, "> /etc/gosa-si/event");
- print FILE "trigger_action_reinstall\n";
- close(FILE);
-
# check logged in user
# 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";
+ my @user_list = &get_logged_in_users;
+ if( @user_list >= 1 ) {
+ system( "/usr/bin/goto-notify install" );
+ open(FILE, "> /etc/gosa-si/event");
+ print FILE "install\n";
+ close(FILE);
}
else {
}
else {
- # not jet
- #system( "DEBIAN_FRONTEND=noninteractive /usr/sbin/fai -N softupdate &" )
+ system( "/sbin/shutdown -r now &" );
}
return;
}
}
return;
}
-sub trigger_action_instant_update {
+# Backward compatibility
+sub trigger_action_update {
my ($msg, $msg_hash) = @_;
my ($msg, $msg_hash) = @_;
- # 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";
- }
-
- # not jet
- #system( "DEBIAN_FRONTEND=noninteractive /usr/sbin/fai -N softupdate &" )
+ # Execute update
+ system( "DEBIAN_FRONTEND=noninteractive /usr/sbin/fai-softupdate &" );
return;
}
return;
}
-
-# TODO
-sub trigger_action_sysinfo {
+# Backward compatibility
+sub trigger_action_instant_update {
my ($msg, $msg_hash) = @_;
my ($msg, $msg_hash) = @_;
- print STDERR "jetzt würde ich trigger_action_sysinfo ausführen\n";
- return;
-}
-# TODO
-sub trigger_action_rescan{
- my ($msg, $msg_hash) = @_;
- print STDERR "jetzt würde ich trigger_action_rescan ausführen\n";
+ # Execute update
+ system( "DEBIAN_FRONTEND=noninteractive /usr/sbin/fai-softupdate &" );
+
return;
}
return;
}
+
1;
1;