--- loncom/lonnet/perl/lonnet.pm	2003/08/26 04:56:30	1.406
+++ loncom/lonnet/perl/lonnet.pm	2003/08/29 20:38:12	1.407
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.406 2003/08/26 04:56:30 albertel Exp $
+# $Id: lonnet.pm,v 1.407 2003/08/29 20:38:12 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2136,6 +2136,21 @@ sub dump {
    return %returnhash;
 }
 
+# -------------------------------------------------------------- keys interface
+
+sub getkeys {
+   my ($namespace,$udomain,$uname)=@_;
+   if (!$udomain) { $udomain=$ENV{'user.domain'}; }
+   if (!$uname) { $uname=$ENV{'user.name'}; }
+   my $uhome=&homeserver($uname,$udomain);
+   my $rep=reply("keys:$udomain:$uname:$namespace",$uhome);
+   my @keyarray=();
+   foreach (split(/\&/,$rep)) {
+      push (@keyarray,&unescape($_));
+   }
+   return @keyarray;
+}
+
 # --------------------------------------------------------------- currentdump
 sub currentdump {
    my ($courseid,$sdom,$sname)=@_;