mirror of
https://github.com/webmin/webmin.git
synced 2025-07-25 15:09:18 +00:00
36 lines
857 B
Perl
Executable File
36 lines
857 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# download.cgi
|
|
# Output the contents of a blob field
|
|
|
|
require './postgresql-lib.pl';
|
|
&ReadParse();
|
|
&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
|
|
@str = &table_structure($in{'db'}, $in{'table'});
|
|
|
|
# Get the field to download
|
|
$d = &execute_sql($in{'db'}, "select \"$in{'field'}\" from \"$in{'table'}\" where oid = ?", $in{'row'});
|
|
|
|
# Work out the MIME type based on the data
|
|
$data = $d->{'data'}->[0]->[0];
|
|
if ($data =~ /^\s*(<!doctype|<html|<head|<title)/i) {
|
|
$type = "text/html";
|
|
}
|
|
elsif ($data =~ /^GIF89/) {
|
|
$type = "image/gif";
|
|
}
|
|
elsif ($data =~ /^\377\330\377\340/) {
|
|
$type = "image/jpeg";
|
|
}
|
|
elsif ($data =~ /^%PDF/) {
|
|
$type = "application/pdf";
|
|
}
|
|
elsif ($data =~ /^[\040-\176\r\n\t]+$/) {
|
|
$type = "text/plain";
|
|
}
|
|
else {
|
|
$type = "application/octet-stream";
|
|
}
|
|
print "Content-type: $type\n\n";
|
|
print $data;
|
|
|