From 3901fb88e6619250e693e20439fc1331f4ff8dcf Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 18 Feb 2005 19:07:24 +0000
Subject: support GetReports method

---
 perl-install/network/activefw.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'perl-install/network/activefw.pm')

diff --git a/perl-install/network/activefw.pm b/perl-install/network/activefw.pm
index 78e958043..5ddd696d2 100644
--- a/perl-install/network/activefw.pm
+++ b/perl-install/network/activefw.pm
@@ -105,6 +105,11 @@ sub set_interactive {
                     Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $mode));
 }
 
+sub get_reports {
+    my ($o) = @_;
+    $o->call_method('GetReports');
+}
+
 sub get_blacklist {
     my ($o) = @_;
     $o->call_method('GetBlacklist');
-- 
cgit v1.2.1