summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 4b094bd)
raw | patch | inline | side by side (parent: 4b094bd)
author | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Tue, 12 Feb 2008 14:02:28 +0000 (14:02 +0000) | ||
committer | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Tue, 12 Feb 2008 14:02:28 +0000 (14:02 +0000) |
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@8866 594d385d-05f5-0310-b6e9-bd551577e9d8
gosa-si/client/events/corefunctions.pm | patch | blob | history |
index e0d5ed5ccef15412d1407545e28eba65a9d324e5..d0126a28e1e45c20944d765885679d8f5ccede4e 100644 (file)
package corefunctions;
use Exporter;
@ISA = qw(Exporter);
-my @events = qw(get_events registered set_activated_for_installation new_ldap_config new_key generate_hw_digest detect_hardware reboot halt reinstall softupdate confirm_new_key);
+my @events = qw(get_events registered new_ldap_config new_key generate_hw_digest detect_hardware reboot halt reinstall softupdate confirm_new_key);
@EXPORT = @events;
use strict;
}
-sub set_activated_for_installation {
- my ($msg, $msg_hash) = @_ ;
- my $header = @{$msg_hash->{'header'}}[0];
- my $target = @{$msg_hash->{'target'}}[0];
- my $source = @{$msg_hash->{'source'}}[0];
-
- my $Datei = "/var/run/gosa-si.activated";
- open(DATEI, ">$Datei");
- print DATEI "activated\n";
- close DATEI;
-
- return;
-}
-
-
sub server_leaving {
my ($msg_hash) = @_ ;
my $source = @{$msg_hash->{'source'}}[0];