loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1210, 2013/02/02 00:22:47	version 1.1211, 2013/02/02 03:29:33
Line 11602 sub get_dns {	Line 11602 sub get_dns {
}	}

# ------------------------------------------------------Get DNS checksums file	# ------------------------------------------------------Get DNS checksums file
sub write_dns_checksums_tab {	sub parse_dns_checksums_tab {
my ($lines,$hashref) = @_;	my ($lines,$hashref) = @_;
my $machine_dom = &Apache::lonnet::host_domain($perlvar{'lonHostID'});	my $machine_dom = &Apache::lonnet::host_domain($perlvar{'lonHostID'});
my $loncaparev = &get_server_loncaparev($machine_dom);	my $loncaparev = &get_server_loncaparev($machine_dom);
Line 11648 sub write_dns_checksums_tab {	Line 11648 sub write_dns_checksums_tab {

sub fetch_dns_checksums {	sub fetch_dns_checksums {
my %checksums;	my %checksums;
&get_dns('/adm/dns/checksums',\&write_dns_checksums_tab,1,1,	&get_dns('/adm/dns/checksums',\&parse_dns_checksums_tab,1,1,
\%checksums);	\%checksums);
return \%checksums;	return \%checksums;
}	}