--- loncom/lonnet/perl/lonnet.pm 2003/09/09 18:46:28 1.409 +++ loncom/lonnet/perl/lonnet.pm 2003/09/10 15:53:16 1.410 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.409 2003/09/09 18:46:28 www Exp $ +# $Id: lonnet.pm,v 1.410 2003/09/10 15:53:16 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3165,6 +3165,13 @@ sub dirlist { # when it was last modified. It will also return an error of -1 # if an error occurs +## +## FIXME: This subroutine assumes its caller knows something about the +## directory structure of the home server for the student ($root). +## Not a good assumption to make. Since this is for looking up files +## in user directories, the full path should be constructed by lond, not +## whatever machine we request data from. +## sub GetFileTimestamp { my ($studentDomain,$studentName,$filename,$root)=@_; $studentDomain=~s/\W//g;