From 5665dd4e9523df029f17019d7b64a9e2daf379ad Mon Sep 17 00:00:00 2001 From: Eugeni Dodonov Date: Mon, 17 Aug 2009 14:34:52 +0000 Subject: Added netprofile_count function. --- lib/network/network.pm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lib/network/network.pm') diff --git a/lib/network/network.pm b/lib/network/network.pm index 59dd926..8161cbe 100644 --- a/lib/network/network.pm +++ b/lib/network/network.pm @@ -442,6 +442,11 @@ sub netprofile_list() { map { if_(m!([^/]*)/$!, $1) } glob("$::prefix/etc/netprofile/profiles/*/"); } +sub netprofile_count() { + my @profiles = netprofile_list(); + return $#profiles; +} + sub netprofile_read { my ($net) = @_; my $profile = cat_("$::prefix/etc/netprofile/current"); -- cgit v1.2.1