sub config_mail_new_devices { my ($arg_ref) = @_; # Set one of the following two parameters my $mail_to = ''; # e.g. jbloggs@example.com my $profile = ''; # e.g. NetEng my $subject; my @body; my $cnt = 0; # Get the time of the last discover SNMP scan my $fstat_ref = file_stat ($DISCOVER_SNMP_SCAN); my $discover_tt = $fstat_ref->{mtime}; push @body, "The following devices were added into AKIPS:"; push @body, ""; # Inspect the creation time of every device for my $line (adb_result ("mtime device *")) { my ($device, undef, $val) = split (" ", $line); my ($ctime, $mtime, $utime) = split (",", $val); next if ($ctime < $discover_tt); # Add this new device into the email body my $time_str = strftime ("%H:%M", localtime ($ctime)); push @body, sprintf ("%s %s", $time_str, $device); $cnt++; } return if ($cnt == 0); $subject = sprintf ("Discovered %d new devices", $cnt); # Send to a single email address if ($mail_to ne "") { mail ({ subject => $subject, to => $mail_to, body => \@body }); } # Send to all email addresses in a profile if ($profile ne "") { for my $addr (config_get_emails ($profile)) { mail ({ subject => $subject, to => $addr, body => \@body }); } } }