#!/usr/local/bin/perl # Show hosts in printer cluster require './lpadmin-lib.pl'; $access{'cluster'} || &error($text{'cluster_ecannot'}); &foreign_require("servers", "servers-lib.pl"); &ReadParse(); &ui_print_header(undef, $text{'cluster_title'}, undef, "cluster"); # Show existing servers @servers = &list_cluster_servers(); if (@servers) { print "
\n"; } else { print "$text{'cluster_none'}\n"; } # Show buttons to add print "
\n"; if (!@allservers) { print "$text{'cluster_need'}\n"; } &ui_print_footer("", $text{'index_return'});