diff options
| -rw-r--r-- | lib/network/network.pm | 5 |
1 files changed, 5 insertions, 0 deletions
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"); |