[Sandweb-commit] CVS: sandweb/lib/SandWeb File.pm,1.41,1.42

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

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

Modified Files:
	File.pm 
Log Message:
put in some regexps in an attempt to workaround IE/Windows behaviour
when uploading files ( it gives us the whole path starting from the
drive letter, we just want the filename )


Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -U2 -r1.41 -r1.42
--- File.pm	10 Feb 2002 20:53:07 -0000	1.41
+++ File.pm	10 Feb 2002 21:12:53 -0000	1.42
@@ -129,4 +129,16 @@
 	my $log = $self->{'log_obj'};
 
+# begin workaround for IE/Windows upload behaviour
+	$filename =~ /\\/;
+
+	while ( $' =~ /\\/ ) {
+        	$' =~ /\\/;
+	}
+
+	if ( $filename =~ /\\/ ) {
+		$filename = $';
+	}
+# end workaround for IE/Windows upload behaviour
+
 	my $filehandle = $args{'filehandle'};