Changeset 37213 for main

Timestamp:

2023-01-29T23:39:16+13:00 (15 months ago)

Author:

davidb

Message:

Added in new function to output a native binary file + minetype, as output from the CGI script

File:

• main/trunk/greenstone2/common-src/cgi-bin/gsdlCGI.pm (modified) (1 diff)

main/trunk/greenstone2/common-src/cgi-bin/gsdlCGI.pm

@@ -150 +150 @@
     return $val;
 }
+
+sub generate_file
+{
+    my $self = shift @_;
+    my ($mime_type,$filename) = @_;
+
+    if (open(FIN,"<$filename")) {
+    binmode(FIN, ":raw"); 
+
+    print STDOUT "Content-type:$mime_type\n\n";
+
+    while (1) {
+        my $buffer = "";
+        my $bytes_read = read(FIN, $buffer, 1024);
+
+        if ($bytes_read>0) {
+        print STDOUT $buffer;
+        }
+        last if $bytes_read < 1024;
+    }
+    
+    close(FIN);
+    
+    close(STDOUT);      
+    }
+    else {
+    $self->generate_error("Failed to output file: $filename");
+    }   
+}
+
 
 sub generate_message