--- loncom/lonnet/perl/londns.pm 2007/03/28 00:12:59 1.1 +++ loncom/lonnet/perl/londns.pm 2013/09/02 14:40:18 1.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # A debugging harness. # -# $Id: londns.pm,v 1.1 2007/03/28 00:12:59 albertel Exp $ +# $Id: londns.pm,v 1.3 2013/09/02 14:40:18 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -53,6 +53,9 @@ sub handler { return &serve_file($r,'dns_hosts.tab','loncapa/hosts'); } elsif ($command eq 'domain') { return &serve_file($r,'dns_domain.tab','loncapa/domain'); + } elsif ($command eq 'checksums') { + my $version = (split('/',$r->uri))[4]; + return &serve_file($r,"dns_checksums/$version.tab",'loncapa/versions'); } return FORBIDDEN; }