#!/usr/local/bin/perl # edit_host.cgi # Show details of a managed host and it's current cfengine configuration require './cfengine-lib.pl'; &foreign_require("servers", "servers-lib.pl"); &ReadParse(); @hosts = &list_cfengine_hosts(); ($host) = grep { $_->{'id'} eq $in{'id'} } @hosts; $server = &foreign_call("servers", "get_server", $in{'id'}); &remote_foreign_require($server->{'host'}, "cfengine", "cfengine-lib.pl"); &ui_print_header(undef, $text{'host_title'}, "", "edit_host"); # Show host details and current config print "
\n"; &ui_print_footer("list_hosts.cgi", $text{'hosts_return'});