loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.65, 2006/12/20 22:36:17	version 1.67, 2007/03/03 02:16:17
Line 497 Post announcements to the system login a	Line 497 Post announcements to the system login a
Check machines:<br />	Check machines:<br />
SERVERANNOUNCE	SERVERANNOUNCE
# list servers	# list servers
foreach my $host (sort(keys(%Apache::lonnet::hostname))) {	my %hostname = &Apache::lonnet::all_hostnames();
if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$host})) {	foreach my $host (sort(keys(%hostname))) {
	if (&Apache::lonnet::allowed('psa',
	&Apache::lonnet::host_domain($host))) {
$r->print ('<br /><label><input type="checkbox" name="postto_'.$host.'" /> '.	$r->print ('<br /><label><input type="checkbox" name="postto_'.$host.'" /> '.
$host.' <tt>'.$Apache::lonnet::hostname{$host}.'</tt> '.	$host.' <tt>'.$hostname{$host}.'</tt> '.
'</label><a href="http://'.$Apache::lonnet::hostname{$host}.	'</label><a href="http://'.$hostname{$host}.
'/announcement.txt" target="annowin">current</a>');	'/announcement.txt" target="annowin">current</a>');
}	}
}	}