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,
+ };
+
}
|
