#!/usr/local/bin/perl # index.cgi # Display PAM services on the system require './pam-lib.pl'; &ui_print_header(undef, $text{'index_title'}, undef, undef, 1, 1, 0, &help_search_link("pam", "man", "howto", "doc")); @pams = sort { $a->{'name'} cmp $b->{'name'} } &get_pam_config(); if (!@pams) { print "
",&text('index_none', "$config{'pam_dir'}", "$gconfig{'webprefix'}/config.cgi?$module_name"),"
\n"; &ui_print_footer("/", $text{'index'}); exit; } @links = ( "$text{'index_add'}" ); print &ui_links_row(\@links); $mid = int((@pams-1) / 2); print "
\n"; &pam_table(@pams[0 .. $mid]); print " | \n"; &pam_table(@pams[$mid+1 .. $#pams]); print " |