%PDF- %PDF-
Direktori : /usr/share/webmin/postgresql/old/ |
Current File : //usr/share/webmin/postgresql/old/download.cgi |
#!/usr/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;