[Sandweb-commit] CVS: sandweb/lib/SandWeb/File Unix.pm,1.1,1.2

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

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

Modified Files:
	Unix.pm 
Log Message:
fixed a silly download bug ( should've been using the private "_do_file_read"
method, and was forgetting to pass location/filename )


Index: Unix.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File/Unix.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -U2 -r1.1 -r1.2
--- Unix.pm	14 Jul 2002 08:31:37 -0000	1.1
+++ Unix.pm	21 Jul 2002 19:54:33 -0000	1.2
@@ -175,5 +175,8 @@
 	print "content-type: $mime_type\n\n";
 	
-	my $file_contents = file_read();
+	my $file_contents = _do_file_read(
+		'location' => "$location",
+		'filename' => "$filename",
+	);
 
 	print "$file_contents";
@@ -232,5 +235,9 @@
 	$log->debug("error code : $result");
 
-	return $result;
+	if ($result) {
+		return 0;
+	} else {
+		return 1;
+	}
 }