[Sandweb-commit] CVS: sandweb/lib/SandWeb File.pm,1.4,1.5

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

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

Modified Files:
	File.pm 
Log Message:

added info method, which gives you a hash of all known info on the
current File object.



Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -U2 -r1.4 -r1.5
--- File.pm	2001/10/09 17:35:21	1.4
+++ File.pm	2001/10/09 17:41:39	1.5
@@ -14,6 +14,6 @@
 		'filename' => $args{'filename'},
 		'location' => $args{'location'},
-		'permissions' => $args{'permissions'};
-		'file_type' => $args{'file_type'};
+		'permissions' => $args{'permissions'},
+		'file_type' => $args{'file_type'},
 	}, $class;
 
@@ -22,8 +22,6 @@
 
 
-sub file {
+sub info {
 	my $self = shift;
-	my $progname = shift;
-	my %args = @_;
 
 	my $owner = $self->_get_owner();
@@ -34,5 +32,13 @@
 	my $file_type = $self->_get_file_type();
 
-	return $self;
+	my %info = { 
+		'owner' => $owner,
+		'group' => $group,
+		'filename' => $filename,
+		'location' => $location,
+		'permissions' => $permissions,
+		'file_type' => $file_type,
+	};
+
 }