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

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

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

Modified Files:
	File.pm 
Log Message:
moved download/mime detection code into the download method of
File.pm

hmm, get_mime_type would make a good method too, would compliment
get_file_type nicely ( knowing what's text and what's not is very
cool, but it would be even cooler to take a guess at filetype
based on MIME type and load a different icon, or be able to take
different user-defined actions ).



Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -U2 -r1.22 -r1.23
--- File.pm	2001/12/20 20:29:41	1.22
+++ File.pm	2001/12/20 23:11:38	1.23
@@ -95,4 +95,39 @@
 }
 
+sub download {
+	my $self = shift;
+	my $location = $self->{'location'};
+	my $filename = $self->{'filename'};
+	my $log = $self->{'log_obj'};
+
+	$log->debug("downloading file : $location/$filename");
+	open FILE,"< $users_dir/$username/$location/$filename";
+                my @file = <FILE>;
+                close FILE;
+                my @file_split = split(/\./, $filename);
+                my $file_extension = $file_split[$#file_split];
+                my $content_type;
+                open FILE,"< /usr/local/apache/conf/mime.types";
+                my @mimes = <FILE>;
+                close FILE;
+                foreach my $mime_type (@mimes) {
+                        unless ( $mime_type =~ /^#/) {
+                                my @mime_string = split(/\s+/, $mime_type);
+                                if ($mime_string[1]) {
+                                        if ( $file_extension eq $mime_string[1] ){                                                $content_type = $mime_string[0];
+                                        }
+                                }
+                        }
+                }
+                unless ($content_type) {
+                        $content_type = "binary/unknown";
+                }
+                print "content-type:$content_type\n\n";
+                foreach my $line (@file) {
+                        print "$line";
+                }
+                exit 0;
+}
+
 sub create_file {
 	my $self = shift;