--- loncom/lonnet/perl/lonnet.pm	2002/07/30 19:59:32	1.256
+++ loncom/lonnet/perl/lonnet.pm	2002/07/30 21:20:27	1.257
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.256 2002/07/30 19:59:32 albertel Exp $
+# $Id: lonnet.pm,v 1.257 2002/07/30 21:20:27 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -717,6 +717,23 @@ sub tokenwrapper {
 	'token='.$token.'&server='.$perlvar{'lonHostID'};
 }
     
+# --------------- Take an uploaded file and put it into the userfiles directory
+# input: name of form element
+# output: url of file in userspace
+
+sub userfileupload {
+    my $formname=shift;
+    my $fname=$ENV{'form.'.$formname.'.filename'};
+    $fname=~s/\\/\//g;
+    $fname=~s/^.*\/([^\/]+)$/$1/;
+    unless ($fname) { return 'error: no uploaded file'; }
+    chop($ENV{'form.'.$formname});
+    my $path='/userfiles/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/';
+#
+# FIXME: actually save file
+#
+    return 'http;//'.$ENV{'SERVER_NAME'}.$path.$fname;    
+}
 
 # ------------------------------------------------------------------------- Log