--- loncom/lonnet/perl/londns.pm 2013/02/02 00:22:47 1.2 +++ 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.2 2013/02/02 00:22:47 raeburn Exp $ +# $Id: londns.pm,v 1.3 2013/09/02 14:40:18 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -54,7 +54,8 @@ sub handler { } elsif ($command eq 'domain') { return &serve_file($r,'dns_domain.tab','loncapa/domain'); } elsif ($command eq 'checksums') { - return &serve_file($r,'dns_checksums.tab','loncapa/versions'); + my $version = (split('/',$r->uri))[4]; + return &serve_file($r,"dns_checksums/$version.tab",'loncapa/versions'); } return FORBIDDEN; }