apparmor/management/libaalogparse/swig/perl/examples/example.pl
Matt Barringer 1fa3516397 - Modified configure to require --with-perl/python/ruby/etc
to enable the compilation of those SWIG wrappers.
- Put together a perl usage example
2007-07-11 01:08:06 +00:00

15 lines
685 B
Raku

require AppArmorLogRecordParser;
$msg = "type=APPARMOR msg=audit(1168662182.495:58): PERMITTING r access to /home/matt/projects/change_hat_test/test (test_hat(27871) profile /home/matt/projects/change_hat_test/test_hat active null-complain-profile)";
my($test) = AppArmorLogRecordParser::parse_record($msg);
if (AppArmorLogRecordParser::aa_log_record::swig_event_get($test) == $AppArmorLogRecordParser::AA_RECORD_ALLOWED )
{
print "AA_RECORD_ALLOWED\n";
}
print "Audit ID: " . AppArmorLogRecordParser::aa_log_record::swig_audit_id_get($test) . "\n";
print "PID: " . AppArmorLogRecordParser::aa_log_record::swig_pid_get($test) . "\n";
AppArmorLogRecordParser::free_record($test);