[Sandweb-commit] CVS: sandweb/lib/SandWeb File.pm,1.7,1.8

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

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

Modified Files:
	File.pm 
Log Message:

hooked up File object, using file subroutine in
sandweb.cgi

This implementation is still somewhat raw; 
$file->get_user() and get_group() return uid/gid
instead of full filename.

Pretty cool besides that.



Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -U2 -r1.7 -r1.8
--- File.pm	2001/10/10 07:27:01	1.7
+++ File.pm	2001/11/15 19:46:20	1.8
@@ -10,10 +10,6 @@
 
 	my $self = bless {
-		'owner' => $args{'owner'},
-		'group' => $args{'group'},
 		'filename' => $args{'filename'},
 		'location' => $args{'location'},
-		'permissions' => $args{'permissions'},
-		'file_type' => $args{'file_type'},
 	}, $class;
 
@@ -23,10 +19,23 @@
 sub get_owner {
 	my $self = shift;
-	return $self->{'owner'};
+	my $location = $self->{'location'};
+	my $filename = $self->{'filename'};
+
+	($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+         $atime,$mtime,$ctime,$blksize,$blocks) 
+	= stat("$location/$filename");
+
+	my $owner = $uid;
+	return $owner;
 }
 
 sub get_group {
 	my $self = shift;
-	return $self->{'group'};
+	($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+         $atime,$mtime,$ctime,$blksize,$blocks) 
+        = stat("$location/$filename");
+
+	my $group = $gid;
+	return $group;
 }
 
@@ -36,12 +45,37 @@
 }
 
+sub get_location {
+	my $self = shift;
+	return $self->{'filename'};
+}
+
 sub get_permissions {
 	my $self = shift;
-	return $self->{'permissions'};
+	($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+         $atime,$mtime,$ctime,$blksize,$blocks) 
+        = stat("$location/$filename");
+	
+	return $mode & 0777;
 }
 
 sub get_file_type {
 	my $self = shift;
-	return $self->{'file_type'};
+
+	my $location = $self->{'location'};
+	my $filename = $self->{'filename'};
+
+	if (-d "$location/$filename") {
+                $file_type = 'Directory';
+        }
+        elsif (-T "$location/$filename") {
+                $file_type = 'Text';
+        }
+        elsif (-B "$location/$filename") {
+                $file_type = 'Binary';
+        } else {
+                $file_type = 'Unknown';
+        }
+
+	return $file_type;
 }