mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 06:03:28 +00:00
da5b814d2b
* Note: When "Show blob and text fields as" option is set to "Links to download" the download won't work if the sorting is active
47 lines
1.1 KiB
Perl
Executable File
47 lines
1.1 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# download.cgi
|
|
# Output the contents of a blob field
|
|
|
|
if (-r 'mysql-lib.pl') {
|
|
require './mysql-lib.pl';
|
|
}
|
|
else {
|
|
require './postgresql-lib.pl';
|
|
}
|
|
|
|
&ReadParse();
|
|
&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
|
|
@str = &table_structure($in{'db'}, $in{'table'});
|
|
|
|
# Get search and limiting SQL
|
|
($search, $searchhids, $searchargs) = &get_search_args(\%in);
|
|
$limitsql = &get_search_limit(\%in);
|
|
($sortsql, $sorthids, $sortargs) = &get_search_sort(\%in);
|
|
|
|
$d = &execute_sql($in{'db'},
|
|
"select * from "."e_table($in{'table'})." $search $sortsql $limitsql");
|
|
|
|
# Work out the MIME type based on the data
|
|
$data = $d->{'data'}->[$in{'row'}]->[$in{'col'}];
|
|
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;
|
|
|