[Sandweb-commit] CVS: sandweb/lib/SandWeb File.pm,1.29,1.30

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv29108/lib/SandWeb

Modified Files:
	File.pm 
Log Message:
file upload now works from the file menu.

it probably does NOT work from the browse menu (yet).


Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -U2 -r1.29 -r1.30
--- File.pm	2002/01/07 07:14:41	1.29
+++ File.pm	2002/01/18 07:37:33	1.30
@@ -118,4 +118,29 @@
 }
 
+sub upload {
+	my $self = shift;
+	my %args = @_;
+	my $location = $self->{'location'};
+	my $filename = $self->{'filename'};
+	my $log = $self->{'log_obj'};
+
+	my $filehandle = $args{'filehandle'};
+
+open UPLOADFILE, "> $location/$filename";
+
+while ( <$filehandle> )
+{
+        print UPLOADFILE;
+}
+
+close UPLOADFILE;
+
+print "content-type:text/html\n\n";
+print "all done!";
+print "$filehandle";
+
+exit 1;
+}
+
 sub download {
 	my $self = shift;