summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 4e0cb4d)
raw | patch | inline | side by side (parent: 4e0cb4d)
author | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Mon, 17 Mar 2008 10:32:04 +0000 (10:32 +0000) | ||
committer | rettenbe <rettenbe@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Mon, 17 Mar 2008 10:32:04 +0000 (10:32 +0000) |
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@9893 594d385d-05f5-0310-b6e9-bd551577e9d8
gosa-si/server/events/clMessages.pm | patch | blob | history |
index 2a23f355983376185b340f755a267753354e26d6..dfac6725555c7010e51e5952778697f663a9ff64 100644 (file)
"LOGOUT",
"CURRENTLY_LOGGED_IN",
"save_fai_log",
- "goto-activation-start",
+ "goto_activation_start",
);
@EXPORT = @events;
}
-#####################
-## under construction
-#sub goto-activation-start {
-# my ($msg, $msg_hash, $session_id) = @_;
-# my $header = @{$msg_hash->{'header'}}[0];
-# my $macaddress = @{$msg_hash->{'macaddress'}}[0];
-#
-# my $sql_statement = "UPDATE $main::job_queue_tn ".
-# "SET status='processing', progress='goto-activation'".
-# "WHERE status='processing' AND macaddress LIKE '$macaddress'";
-# &main::daemon_log("$session_id DEBUG: $sql_statement", 7);
-# my $res = $main::job_db->update_dbentry($sql_statement);
-# &main::daemon_log("$session_id INFO: '$header' at '$macaddress'", 5);
-#
-#}
-## under construction
-#####################
+sub goto_activation_start {
+ my ($msg, $msg_hash, $session_id) = @_;
+ my $header = @{$msg_hash->{'header'}}[0];
+ my $macaddress = @{$msg_hash->{'macaddress'}}[0];
+
+ my $sql_statement = "UPDATE $main::job_queue_tn ".
+ "SET status='processing', progress='goto-activation' ".
+ "WHERE status='processing' AND macaddress LIKE '$macaddress'";
+ &main::daemon_log("$session_id DEBUG: $sql_statement", 7);
+ my $res = $main::job_db->update_dbentry($sql_statement);
+ &main::daemon_log("$session_id INFO: '$header' at '$macaddress'", 5);
+
+}
sub save_fai_log {