[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.22,1.23 File.pm,1.18,1.19

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

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

Modified Files:
	Browse.pm File.pm 
Log Message:

browse doesn't use UI, so it shouldn't have "use SandWeb::UI" at the
top ;) Browse just uses HTML::Template to return content to the main
CGI, which puts it all together using UI.

Also, File now uses itself ( which is, admittedly, weird ). What
I probably need to be doing is adding a public method for file_read
and file_write, which just call the private methods doing the actual
work. hmm.. yeah, that'll  be better. I'll  do it now.






Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -U2 -r1.22 -r1.23
--- Browse.pm	2001/12/18 02:12:06	1.22
+++ Browse.pm	2001/12/20 02:34:46	1.23
@@ -7,5 +7,4 @@
 use strict;
 use lib '../lib';
-use SandWeb::UI;
 use SandWeb::File;
 use HTML::Template;

Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -U2 -r1.18 -r1.19
--- File.pm	2001/12/20 02:26:24	1.18
+++ File.pm	2001/12/20 02:34:46	1.19
@@ -152,13 +152,11 @@
 	my $tofile = $args{'tofile'};
 
-	open ( FROM_FILE, "< $location/$filename" );
-	my @fromfile = (<FROM_FILE>);
-	close FROM_FILE;
-
-	open ( TO_FILE, "> $tofile" );
-	foreach my $line (@fromfile) {
-		print TO_FILE "$line";
-	}
-	close TO_FILE;
+	my $file = SandWeb::File->new(
+		'location' => "$location",
+		'filename' => "$filename",	
+	);
+	
+	my @fromfile = $file->file_read();
+	$file->file_write( 'contents' => "@fromfile" );
 
 	return $return;