index b818b707f7c3b20e0b2aa0c2e455c7fa856dc168..7bad55ec141bc68e949f8d9c85b959c04ea53941 100644 (file)
my $header = @{$msg_hash->{'header'}}[0];
my $source = @{$msg_hash->{'source'}}[0];
my $macaddress = @{$msg_hash->{'macaddress'}}[0];
+ my $fai_action = @{$msg_hash->{'fai_action'}}[0];
my $all_logs = @{$msg_hash->{$header}}[0];
# if there is nothing to log
my $time = &get_time;
$time = substr($time, 0, 8)."_".substr($time, 8, 6);
- $client_fai_log_dir = File::Spec->catfile( $client_fai_log_dir, "install_$time" );
+ $client_fai_log_dir = File::Spec->catfile( $client_fai_log_dir, $fai_action ."_".$time );
mkdir($client_fai_log_dir, 0755);
my @all_logs = split(/log_file:/, $all_logs);