--- 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;
 }