PAL.C.T MINI SHELL
#!/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;
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`